1FILE 1; 10203 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 2; 1003 RECORDS: 0$RUN *MOUNT PAR=S439 ON 9TP, *MASTER* 'MTS MASTER4 - RING OUT' $RUN *MOUNT PAR=POOL ON 9TP *NEWMASTER* 'RING IN' $RUN *UPDATE %INPUT *MASTER* 50 %OUTPUT *NEWMASTER* 50 %AFTER MTS00236 ENTRY ACTIVCNT %AFTER MTS00281 JOBNUM STH SCA,UMMPSJNR >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> $CREATE -SYSUT2 SIZE=5000 VOLUME=MTS011 $CRE -SYSUT3 SIZE=5000 VOLUME=MTS011 $RUN *ASMG SCARDS=*NEWMASTER* SPRINT=*LIST* 0=*SYSMAC PAR=FX,RLD,SIZE=150,IBLK=- 50,OBLK=50 $COPY *SOURCE* *LIST*@CC WTM REW $ENDFILE $RUN *LIST SPRINT=*SINK*@MCC PAR=*LIST* 50 $SIGNOFF -FILE 3; 695 RECORDS: 0* * LINK/XCTL/LOAD DSCET * SPACE 5 LXDCT DSECT LXDNAM DS 4F LOADLIST DS 16F XLSWS DS F LSW DS F PGMETY DS F >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SCDSAV DS F SCCSVV DS F UNLSAV DS F UNLOAD COMMAND SAVE WORD SCSSUBR DS F SCANSTOR SUBR POINTER SCSGR10 DS F SCANSTOR GR10 FSSAV DS 3F FREESPAC SAVE AREA SODREADS DS F NUMBER OF DRUM READS AT SIGNON HASPSA DS 18F LASTDSCT EQU * END OF MAIN DSECT *** *** *** EJECT -FILE 4; 178 RECORDS: 0* * REGISTER CONVENTIONS * GR0 EQU 0 USED FOR SVC'S AND TRT,ETC GR1 EQU 1 " GR2 EQU 2 " GR3 EQU 3 GR4 EQU 4 PSECT POINTER GR5 EQU 5 OCCASIONAL BASE REGISTER GR6 EQU 6 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DSPC EQU X'08' IN DMPSW4 ORL132 EQU X'10' IN DMPSW4 GRSW EQU X'20' IN DMPSW4 FRSW EQU X'40' IN DMPSW4 CORE EQU X'80' IN DMPSW4 * * LOCK EQU'S * ACCTLOCK EQU 1 EJECT -FILE 5; 41 RECORDS: 0* VARIOUS ASSUMED CONSTANTS * * NRLB EQU NJBBUF+1 NUMBER OF .OGICAL BUFFERS NRLD EQU NJBDEV NR OF LOGICAL DEVICES NRDEV EQU NRLD+1 ALLOW ZEROTH DEVICE = OPER EJECT * * SAVE AREA SIZES FOR * DISK ROUTINES >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ORL132 EQU X'10' IN DMPSW4 GRSW EQU X'20' IN DMPSW4 FRSW EQU X'40' IN DMPSW4 CORE EQU X'80' IN DMPSW4 * * LOCK EQU'S * ACCTLOCK EQU 1 ACTIVLOK EQU 6 EJECT -FILE 6; 62 RECORDS: 0* * TABLE FOR PIECES TO BE DYNAMICALLY LOADED * SPACE 3 LOADTBLL DC A(LTBLL/16) NUMBER OF ENTRIES LOADTBL EQU * PDP8 LOADT '*PDP8RTN' SDMP LOADT '*SDUMP' DISP LOADT '*2250RTN' TAPE LOADT '*TAPERTN' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'01' DC X'00' DC X'01' DC X'00' SPACE 3 INITESD DC A(LINESD/12) NUMBER OF ENTRIES DC CL8'LCSYMBOL' DC V(LCSYMBOL) LINESD EQU *-INITESD EJECT -FILE 7; 65 RECORDS: 0********************************************************************** * * * MTS RIGHT-HAND TABLE * * * ********************************************************************** SPACE 5 RHTABLE EQU * DC AL1(1,0,2),C'ON' DC AL1(1,4,3),C'OFF' DC X'FF' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE DYSRHT EQU * $DISPLAY ALTRHT DC AL1(6,0,2),C'FR' DC AL1(6,4,2),C'GR' DC AL1(5,8,0) DC X'FF' SPACE PTMRHT DC AL1(4,0,10),C'M',AL4(60),C'/',AL4(1000) PLOTTIME DC X'FF' EJECT -FILE 8; 344 RECORDS: 0* * * * * * EQUALITIES * * * * * 40EQU000 SPACE 3 40EQU001 SPACE 2 40EQU028 * GENERAL REGISTERS USED BY THE SUPERVISOR 40EQU029 * 40EQU030 FRSTGR EQU 0 FIRST REGISTER SAVED - MUST NOT EXCEED LASTGR 40EQU031 LASTGR EQU 15 LAST REGISTER SAVED 40EQU032 GR0 EQU 0 UTILITY REGISTERS FOR SUPERVISOR USE 40EQU033 GR1 EQU 1 40EQU034 GR2 EQU 2 40EQU035 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * ( O INDICATES EMPTY QUEUE ) 40EQU293 SPACE * BITS: SPACE * 0-3 STORAGE KEY FOR SIO * 4 1 IF RETURNS LIST HAS NOT BEEN MOVED YET * 5 1 IF HALT I/O HAS BEEN DONE FOR LAST OPERATION * 6 1 IF A UC IS PENDING ON THE DEVICE * 7 1 IF A UE IS PENDING ON THE DEVICE SPACE -FILE 9; 113 RECORDS: 0LCSY TITLE 'LOW CORE SYMBOL DEFINITION' MACRO ESDD &SYM,&ENAME DC CL8'&SYM' AIF (T'&ENAME EQ 'O').A DC V(&ENAME) MEXIT .A DC V(&SYM) MEND SPACE 3 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ESDD PEEL ESDD CASECONV ESDD $JQENT ESDD $CKPTEWF ESDD $CYLALOC ESDD $POOLCHG ESDD UMLOAD ESDD SCANSTOR ENDESD EQU * END -FILE 10; 10 RECORDS: 0%BEFORE LCSYM028 ESDD SYSTEM#,SYSTEM %DELETE LCSYM099 %BEFORE LCSYM106 ESDD $JQENT ESDD $CKPTEWF ESDD $CYLALOC ESDD $POOLCHG ESDD UMLOAD ESDD SCANSTOR -FILE 11; 94 RECORDS: 0%BEFORE LLMPE127 NJBBUF EQU 4 NUMBER OF BUFFERS FOR AN ABSOLUTE JOB %DELETE LLMPE127 %BEFORE LLMPE146 * * LINK FOR CPU QUEUE* %DELETE LLMPE146 %BEFORE LLMPE162 * 4 ***NOT USED*** %DELETE LLMPE162 %DELETE LLMPE168 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> %BEFORE LLMPE336 * BITS: %DELETE LLMPE336 LLMPE340 %AFTER LLMPE341 * 0-3 STORAGE KEY FOR SIO * 4 1 IF RETURNS LIST HAS NOT BEEN MOVED YET * 5 1 IF HALT I/O HAS BEEN DONE FOR LAST OPERATION * 6 1 IF A UC IS PENDING ON THE DEVICE * 7 1 IF A UE IS PENDING ON THE DEVICE SPACE -FILE 12; 380 RECORDS: 0CDUC TITLE 'CARD READER UNIT CHECK ROUTINES' 0010 CARDUC START X'A000' 0020 SPACE 0030 ENTRY CDSTUC 0040 ENTRY CDRDUC 0050 SPACE 0060 BASE EQU * 0070 SPACE 0080 USING DSECT1,13 REGISTER 13 INITIALIZED BY CALLER 0090 SPACE 0100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DUMPAR DC A(DUMCCW) PARAMETERS FOR DUMMY READ 3600 DC A(DUMRTN) 3610 DUMRTN DS F RETURNS LIST FOR DUMMY READ 3620 DC A(MERR) 3630 DC A(DUMUC) 3640 SPCRTN DS F RETURNS LIST FOR SPECIAL WAIT 3650 DC A(MERR) 3660 DC A(SPCUC) 3670 DUMCCW CCW X'E2',*,X'30',1 DUMMY READ, NO-FEED, SKIP FLAG ON 3680 END 3690 -FILE 13; 5 RECORDS: 0%BEFORE RDUC0182 INTRQ2 DS 0H %DELETE RDUC0182 RDUC0184 %DELETE RDUC0233 %DELETE RDUC0341 RDUC0342 -FILE 14; 596 RECORDS: 0TPUC TITLE 'MAGNETIC TAPE UNIT CHECK' TAPEUC START 0 TAPUC001 ENTRY TPRDUC TAPUC002 ENTRY TPWRUC TAPUC003 * REGISTERS TAPUC004 SPACE 1 TAPUC005 BASE1 EQU 7 TAPUC006 BASE2 EQU 6 TAPUC007 DREG1 EQU 13 TAPUC008 DREG2 EQU 8 TAPUC009 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> RTNADR EQU DSECT2 TAPUC529 REREAD EQU RTNADR+4 TAPUC530 CLEANS EQU REREAD+1 TAPUC531 CNTCHR EQU CLEANS+1 TAPUC532 SNSCC EQU CNTCHR+1 TAPUC533 SENSE EQU SNSCC+1 TAPUC534 FLAG EQU SENSE+6 TAPUC535 STOPCD EQU FLAG+1 TAPUC536 DEVID EQU SENSE+8 TAPUC537 END -FILE 15; 10 RECORDS: 0%BEFORE TUC00348 MVI STOPCD,C'S' PEAD WRITE ERROR MVC MSGAR(16),MSGM 'MACHINE ERROR' BAL 2,UPSNS# WRITE ON POER CONS %BEFORE TUC00371 UPSNS LA 2,FATERR UPSNS# MVC MSGAR+16(11),MSGS %DELETE TUC00371 %BEFORE TUC00380 BR 2 RETURN TO PERME OR FATERR -FILE 16; 360 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 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> UCPL EQU *-UCPM PRUC0325 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 -FILE 17; 76 RECORDS: 0%DELETE PRUC0081 PTRUC2 SVC SAVE SAVE THE I/O Q FIRST TM INTFLG,REPBIT IF NOT INTERNAL I/O DO GCCWAD FOR LATER BO *+10 SVC GCCWAD STM GR0,GR2,CCW L GR0,SAVGR CLI SNSFLG,1 DID WE GET SENSE OK %DELETE PRUC0145 B RESTR RETRY OPERATION >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> L GR0,SAVGR SVC DELETE SVC SIO LM FIRST,LAST,SAVGR %AFTER PRUC0302 CCWL DC F'8' LENGTH OF ONE CCW %DELETE PRUC0313,2 DC A(SPCERR) DC A(SPCERR) %BEFORE FILEMARK -FILE 18; 339 RECORDS: 0TASK TITLE 'TASKS -- RE-ENTRANT JOB TO IDENTIFY ACTIVE JOBS' TASKS START 0 ENTRY TSKFMT SPACE 2 DC A(TASK1) DC H'0' NO DEVICES DC H'1' ONE BUFFER OF 190 BYTES DC F'190' * BYTE ASSIGNMENT * 0-7 FAKE PAR AREA (MUST BE FIRST) >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC C' BEING USED' LHEADER EQU *-HEADER FILL DC C': F' FAKEF EQU FILL+1 HEXTRA EQU *-240 DC C'0123456789ABCDEF' SPACE 2 LTORG SPACE 2 END -FILE 19; 135 RECORDS: 0%BEFORE UTSK0001 TASK TITLE 'TASKS -- RE-ENTRANT JOB TO IDENTIFY ACTIVE JOBS' %DELETE UTSK0001 %BEFORE UTSK0007 DC H'1' ONE BUFFER OF 190 BYTES DC F'190' * BYTE ASSIGNMENT * 0-7 FAKE PAR AREA (MUST BE FIRST) SAVE EQU 8 8-79 18 WORD SAVE AREA FOR TSKFMT LIST EQU 80 80-91 3 WORD LIST FOR TSKFMT >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> EJECT PRTMVC MVC 0(0,GR8),0(GR2) DS 0F MASK DC XL4'1FFF' 8191 (DECIMAL) NOTLST DC Y(L'NOTFND) NOTFND DC C' JOB NOT FOUND' PGSLST DC Y(L'PGSUSD) PGSUSD DC C' PAGES IN USE' %DELETE UTSK0279 UTSK0289 %BEF FILEMARK -FILE 20; 272 RECORDS: 0BDCS TITLE 'BROADCAST JOB -- SEND MESSAGE TO ACTIVE MTS JOBS' BROADCST START 0 ENTRY MESSAGE SPACE 2 DC A(BDCS1) ENTRY POINT DC H'0' NO DEVICES DC H'1' ONE BUFFER DC A(BUFL) BUFFER LENGTH SPACE 2 PRINT OFF >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE 2 JBUF DSECT SPACE CCW DS D DOUBLE WORD FOR CCW CONSTRUCTION SW DS CL1 SWITCHES BUFFER DS CL100 ERROR MESSAGE BUFFER EOBUF DS H,CL79 BUFFER FOR ECHOING MSG TO DATA CONC BUFL EQU *-JBUF SPACE 4 END -FILE 21; 12 RECORDS: 0%BEFORE BDCS0151 CLI RJBPAR+12(GR3),X'FF' NO. IS IT A BATCH JOB? BCR 7,GR14 YES. EXIT+0 %BEFORE BDCS0205 LA GR7,PW WRITE 'PW 77' %DELETE BDCS0205 %BEFORE BDCS0247 NOTMTS DC C'CAN''T BROADCAST TO:' PW DC H'6',X'8150D7A0B7B7' 'PW 77' DCERR DC C'UNABLE TO BROADCAST TO DATA CONCENTRATOR' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> %DELETE BDCS0247 BDCS0249 %BEFORE FILEMARK -FILE 22; 877 RECORDS: 0VTOC TITLE 'VOLREL,VOLGET,VTOCS AND DSKOP SUBROUTINES' SPACE ********************************************************************-** * * * SUBROUTINES VOLREL, VOLGET, VTOCS, DSKOP * * * *********************************************************************** SPACE START 0 SPACE >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE *********************************************************************** * * * DEFINE A SAFE PATCHING AREA * * * DS 4F * * * *********************************************************************** SPACE END -FILE 23; 59 RECORDS: 0%BEFORE VTOC0240 C R0,RETBC(0,R1) DON'T STORE IF SAME AS LAST TIME BE VOLEXIT %BEFORE VTOC0510 DC CL6'MTS010' %DELETE VTOC0510 %BEFORE VTOC0516 DC CL6'MTS011' DC XL4'FFFFFFFF' DS 48H >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ST R6,0(0,RD) POINT TO PARAMETER LIST SR R2,R2 SET FIRST TIMESWITCH OFF DSKUC2 SPM R5 RESTORE CONDITION CODE LA R5,DSKYES SAY TO RESTORE PROTECT L R1,DSKUC3 BR R1 GO TO UNIT CHECK RTNS %BEFORE VTOC0811 DSKUC3 DC A(DISKUC) UNIT CHECK RECOVERY ROUTINES DSKOI OI USEFLG(R6),0 EXECUTED INSTRUCTION %BEFORE FILEMARK -FILE 24; 302 RECORDS: 0FLIN TITLE 'SUBROUTINE FLINE - FIND A LINE ENTRY' SPACE 6 *********************************************************************** FLIN0001 * * FLIN0002 * SUBROUTINE FLINE * FLIN0003 * * FLIN0004 *********************************************************************** FLIN0005 SPACE FLIN0006 *********************************************************************** * * FLIN0008 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE FLIN0069 *********************************************************************** * * * DEFINE A SAFE PATCHING AREA * * * DS 4F * * * *********************************************************************** SPACE FLIN0126 END -FILE 25; 6 RECORDS: 0%BEFORE FLIN0166 BH RDMOR2 IF SO, FORGET SEARCH AND READ NEXT %DELETE FLIN0166 FLIN0167 %BEFORE FLIN0214 RDMOR2 MVC PREVLN(4),0(R9) SAVE LAST LN IN REC %BEFORE FILEMARK -FILE 26; 1132 RECORDS: 0WRIT TITLE 'WRITE SUBROUTINE' SPACE 4 *********************************************************************** READ0001 * * READ0002 * SUBROUTINE WRITE - WRITE A LINE INTO THE FILE * READ0003 * * READ0004 *********************************************************************** READ0005 SPACE READ0006 *********************************************************************** READ0007 * * READ0008 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE *********************************************************************** * * * DEFINE A SAFE PATCHING AREA * * * DS 4F * * * *********************************************************************** SPACE READ0257 END -FILE 27; 15 RECORDS: 0%BEFORE WRIT0484 LR R9,R7 MUST FIX UP LDEND S R9,EIGHT ST R9,LDEND IN CASE HAVE DELETE ALSO %BEFORE WRIT0830 SH R3,0(R8) MAKE SURE THIS IS A LEGAL LD %DELETE WRIT0830 %DELETE WRIT0837 %BEFORE WRIT0947 L R3,SAVIT >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> %DELETE WRIT0947 %BEFORE WRIT1092 * ***LOOK*** A FOUR BYTE HOLE %DELETE WRIT1092 %BEFORE FILEMARK -FILE 28; 112 RECORDS: 0STRTPSW DC D'0' EXTERNAL START PSW DS XL6 EXICOD DS H EXTERNAL INTERUPT INTERRUPT CODE SVICOD DS H SVC INTERRUPT CODE PGICOD DS H PROGRAM INTERRUPT CODE MCICOD DS H MACHINE CHECK INTERRUPT CODE IOICOD DS H I/O INTERRUPT CODE EXOPSW DS D EXTERNAL INTERRUPT OLD PSW SVOPSW DS D SVC INTERRUPT OLD PSW PGOPSW DS D PROGRAM INTERRUPT OLD PSW >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'0000' SSU 6 DC X'8000' SSU 7 DC X'8000' SSU 8 * * END OF CST AND SST * TRACE DS 0F START OF TRACE TABLE ( IN IPLED CPU'S PSA * ORG PSA+4092 MUST PUT LAST JOB IN SECOND HALF PF PSA LASTJOB DC A(DUMJOB) ADDRESS OF LAST JOB TABLE DISPATCHED -FILE 29; 12 RECORDS: 0%BEFORE MPSA0024 SEGT DC A(PGTBL0),A(PGTBL0+512),14A(1) SEGMENT TABLE %DELETE MPSA0024 %DELETE MPSA0031 %BEFORE MPSA0035 CHGSAV DS 4F SAVE AREA FOR LDMCCHG %DELETE MPSA0057 %BEFORE MPSA0103 DC X'0000' SSU 5 DC X'0000' SSU 6 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> %DELETE MPSA0103 MPSA0104 %BEFORE FILEMARK -FILE 30; 788 RECORDS: 0GSFS TITLE 'STORAGE ALLOCATION FOR MTS.' MACRO &LAB HWIMB &N,&R=4 &LAB L &R,LASTJBA L &R,0(0,&R) L &R,RJBBUF(0,&R) MEND * MACRO &LAB GTBUF >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * MTS.DSECT PRINT OFF COPY *LLMPSEQU(100) COPY MTS.EQU DUMMY DSECT , DOWN THE DRAIN COPY MTS.CONTAB COPY MTS.DSECT PRINT ON DSCTL EQU (LASTDSCT-DSCT+7)/8*8 END -FILE 31; 123 RECORDS: 0%BEFORE GTFR0023 GBLB &NOSLT &NOSLT SETB (1) &NOSLT SETB (0) %DELETE GTFR0023 %DELETE GTFR0121 %BEFORE GTFR0132 AIF (&NOSLT).SLT1 SR GR0,GR0 MAXIMUM COUNT LA GR4,PBMXFR-PBDCT1 SET UP TO FIND PRIMARY BUFFER >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> .SLT7E ANOP %BEFORE GTFR0670 AIF (&NOSLT).SLT8 SCSSLT SLT 0,1,SBLINK-SBDCT AN SLT FOR SCANSTOR TO EXECUTE AGO .SLT8E .SLT8 ANOP SCSSLT NOPR GR14 EXECUTED BY SCANSTOR .SLT8E ANOP %DELETE GTFR0670 %BEFORE FILEMARK -FILE 32; 8586 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 SPACE MACRO >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * 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 33; 1224 RECORDS: 0%AFTER SUPR0008 SPACE MACRO BASL &SUB,&T AIF (T'&T EQ 'O').NRP AIF ('&T' EQ 'RP').RP MNOTE 4,'ILLEGAL T PARAMETER' DC H'0',S(&SUB) MEXIT .NRP BAL SVLKGR,&SUB SET HI ORDER BIT OF SVLKGR >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LR GR2,GR3 POINT TO IT FOR STC ONESEG STC GR1,0(0,GR2) SET SIZE OF LAST SEGMENT OF MACINHGESDF %DELETE CONF0717 CCUMAP DC X'01000000' ONE BYTE PER CCU (1 IF ATTACHED) %AFTER CONF0740 APGTBL02 DC A(PGTBL0+512) SECOND HALF OF PAGE TABLE APGTBL1 DC A(PGTBL1) SECOND RESIDENT SYSTEM PAGE TABLE ASVCAEND DC A(SVCAEND) F256 DC F'256' %BEFORE FILEMARK -FILE 34; 965 RECORDS: 067TB TITLE 'TABLES FOR MODEL 67' * 40TAB000 * THIS IS THE MODEL 50 TABLES SPACE 5 40TAB003 * THIS PROGRAM CONTAINS SPACE FOR THE TABLES SPECIFIED BY THE 40TAB004 * 'ENTRY' FIELDS BELOW. 40TAB005 SPACE 3 40TAB006 * VERSION OF 23 MAY 1966 * REPLACES VERSION OF 1 APRIL 1966 * >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DS 0F 40TAB333 MAXADD DC X'FFE00000' BITS IN POSITIONS OUTSIDE VM SIZE NUMDEV DC A((ENDDLS-DEVLST)/LDVLST) TOTAL NUMBER OF DEVICES JTBLLIM DC A(0,0,0) FILLED IN BY INITIALIZATION SPACE 40TAB336 DS 0H 40TAB337 TYPAD DC X'0009' OPERATOR'S CONSOLE ADDRESS CONS DC X'0809' ALTERNATE OPERATOR'S CONSOLE SPACE 3 40TAB339 END -FILE 35; 164 RECORDS: 0%BEFORE UMTB0060 DC AL1(0) QCNT %DELETE UMTB0060 %BEFORE UMTB0114 ENTRY CUEND %BEFORE UMTB0131 NONE DC 20X'0' FAKE DEVICE LIST ENTRY %DELETE UMTB0131 %BEFORE UMTB0228 DEV 40,DSP1,2260,2 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> CUT 18,00 %DELETE UMTB0875 UMTB0876 %BEFORE UMTB0881 PTRTBL DC F'9' NUMBER OF ENTRIES %DELETE UMTB0881 UMTB0882 %BEFORE UMTB0900 PGTBL0 DC 384Y((*-PGTBL0)*8) PAGE TABLE FOR REAL CORE REMAP RCTBL DC 350A(0) ONE WORD FOR EVERY PAGE ABOVE BUFFER %DELETE UMTB0900 UMTB0901 %BEFORE FILEMARK -FILE 36; 13866 RECORDS: 0HASP TITLE 'S P O O L ' TITLE 'S P O O L - GENERAL PURPOSE SERVICE MACRO DEFINITIONS' 00000000 * 00002000 ***** $GETBUF ***** GET A BUFFER 00004000 * 00006000 * 00008000 MACRO 00010000 &NAME $GETBUF &NONE,&TYPE=T V02.0 00012000 &NAME BAL LINK,$GE&TYPE.BUF LINK TO ROUTINE V02.0 00014000 $NPEXIT &NONE SET UP NON-PROCESS EXIT 00016000 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> AH R8,=H'2' SKIP PUNCH ID 20160000 CLC $BUFEND,0(R8) IS THIS EOB 20180000 BNE PUNCH CONTINUE IF NO 20200000 B PREOB OTHERWISE RETURN TO PRINT PROCESSOR 20220000 PERRCHK NULL PUNCH NOT READY - TEST ERROR 20240000 $$PUNE2 EQU *+1 FOR INIT 20260000 TIOB PUNERROR,PUNERR BRANCH IF ERROR 20280000 B PWAIT OTHERWISE JUST WAIT 20300000 SPACE 3 20320000 PUNERROR NULL PUNCH ERROR RECOVERY 20340000 -FILE 37; 2287 RECORDS: 0$RUN *MOUNT PAR=POOL ON 9TP *NEW* 'RING IN' $RUN *MOUNT PAR=S148 ON 9TP, *MASTER* 'HASP - RING OUT' $CRE -SYSUT1 SIZE=6000 $CRE -SYSUT2 SIZE=6000 $CRE -SYSUT3 SIZE=6000 $RUN *UPDATE %INPUT *MASTER* 50 %OUTPUT *NEW* 50 %FIND '00000000' HASP TITLE 'S P O O L ' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> $RUN *DISMOUNT PAR=*MASTER* $RUN *MOUNT PAR=S147 ON 9TP *LIST* RING=IN 'HASP LISTING' $RUN *ASMBLR SCARDS=*NEW* 2=*SYSMAC 0=*OSMAC 3=MACROS SPRINT=*LIST* - PAR=FX,RLD,SIZE=99,IBLK=50,OBLK=50 $COPY *SOURCE* *LIST*@CC WTM REW $ENDFILE $RUN *LIST SPRINT=*SINK*@MCC PAR=*LIST* 50 $SIGNOFF -FILE 38; 16522 RECORDS: 0 TITLE 'S P O O L - GENERAL PURPOSE SERVICE MACRO DEFINITIONS' 00000000 * 00002000 ***** $GETBUF ***** GET A BUFFER 00004000 * 00006000 * 00008000 MACRO 00010000 &NAME $GETBUF &NONE,&TYPE=T V02.0 00012000 &NAME BAL LINK,$GE&TYPE.BUF LINK TO ROUTINE V02.0 00014000 $NPEXIT &NONE SET UP NON-PROCESS EXIT 00016000 MEND 00018000 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> //HJCLASM JOB (9999,2.1),'ASSEMBLE HASP JCL',MSGLEVEL=1 CHAINED //ASMJCL EXEC PGM=ASMBLR //SYSIN DD DSNAME=SYS1.HASPSRC(HASPJCL),DISP=OLD //SYSLIB DD DSNAME=SYS1.MACLIB,DISP=OLD //SYSUT1 DD DSNAME=SYS1.UT1,LABEL=(,SL),DISP=OLD //SYSUT2 DD DSNAME=SYS1.UT2,LABEL=(,SL),DISP=OLD //SYSUT3 DD DSNAME=SYS1.UT3,LABEL=(,SL),DISP=OLD //SYSPRINT DD SYSOUT=A //SYSABEND DD SYSOUT=A //SYSPUNCH DD UNIT=2540-2 -FILE 39; 354 RECORDS: 0HSPL TITLE ' HASPLING -- JOB TO CONTROL AN I/O DEVICE' ********************************************************************** * * * T H I S IS THE HASPLING * * * ********************************************************************** SPACE 5 MACRO &N $POST &WHERE,&WHY &N NI &WHERE,255-$EWF&WHY >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DCTFLAGS DS 0C DCTCHAIN DS F DCTHREAD DS F DCTDEVN DS CL8 DCTWAYT DS F DCTSJNO DS H DCTSJWK DS H DCTWORK DS 0F SPACE END -FILE 40; 8 RECORDS: 0HSJL TITLE 'JOB LIST ENTRY FOR HASP' HASPJL START 0 DC CL8' HASP' DC C'1' DC X'00' DC H'0' DC V(HASP) END -FILE 41; 8 RECORDS: 0HLJL TITLE 'JOB LIST ENTRY FO R HASPLING' DWB11 START 0 DC CL8'HASPLING' DC C'1' DC X'80' DC H'0' DC V(HASPLING) END -FILE 42; 2939 RECORDS: 0********************************************************************** * * * * * MTS DEVICE SUPPORT ROUTINES FOR IBM 2780'S * * * * * ********************************************************************** SPACE 3 MACRO PFXD &M,&N >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SNSCCW DS (SNSCCWL/8)D WRINCCW DS (WRINCCWL/8)D WRITCCW DS (WRITCCWL/8)D RDINCCW DS (RDINCCWL/8)D ACKCCW DS (ACKCCWL/8)D RTNLST DS (RTNLSTL/4)F CCCHAR DS C DS 0D PSECTL EQU *-PSCT END -FILE 43; 238 RECORDS: 0 TITLE 'WATFOR UPDATER' * * WUPDATE PRODUCES "UPDATE" CONTROL CARDS ON SPUNCH * TO MAKE "ORIGINAL SOURCE" IDENTICAL TO "CURRENT SOURCE". * "ORIGINAL SOURCE" MUST CONTAIN UPDATE-COMPATIBLE SEQUENCING. * BLOCK FACTORS MUST NOT EXCEED 80. * * * * >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LOS DS H TERM DC C'%BEF FILEMARK ' LTORG DS 0D XNEW DS 400000C Q1 DS (NL)C DS 0D XOLD DS 440000C Q2 DS (OL)C END -FILE 44; 186 RECORDS: 0%BEFORE UNUP0003 * WUPDATE PRODUCES "UPDATE" CONTROL CARDS ON SPUNCH * TO MAKE "ORIGINAL SOURCE" IDENTICAL TO "CURRENT SOURCE". * "ORIGINAL SOURCE" MUST CONTAIN UPDATE-COMPATIBLE SEQUENCING. * BLOCK FACTORS MUST NOT EXCEED 80. * %DELETE UNUP0003 UNUP0005 %BEFORE UNUP0010 &LABEL CMP &N,&NOGO LCLA &I >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TERM DC C'%BEF FILEMARK ' LTORG DS 0D XNEW DS 400000C Q1 DS (NL)C DS 0D XOLD DS 440000C Q2 DS (OL)C %DELETE UNUP0152 UNUP0166 %BEF FILEMARK -FILE 45; 667 RECORDS: 0EDTR TITLE 'EDITOR' EDIT0001 * EDIT0002 * ********************************************************** EDIT0003 * * * EDIT0004 * * SDS EDITOR ROUTINE * EDIT0005 * * * EDIT0006 * ********************************************************** EDIT0007 * EDIT0008 * EDIT0009 * EDIT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> MSING COMMENT '-***MISSING SYM OR ESD CARDS.' EDIT0658 B TDEXIT EDIT0659 MSEND COMMENT '-***MISSING END CARD IN OBJECT FILE.' EDIT0660 B TDEXIT EDIT0661 * EDIT0662 PUNT COMMENT '***SYSTEM ERROR.' EDIT0663 ERROR EDIT0664 * EDIT0665 INPUT DS 256C INPUT REGION EDIT0666 END EDIT0667 -FILE 46; 2433 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 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> * SDS02424 PSTE FR0,FREGS,8,11 SDS02425 PSTE FR2,FREGS+2*4,8,11 SDS02426 PSTE FR4,FREGS+4*4,8,11 SDS02427 PSTE FR6,FREGS+6*4,8,11 SDS02428 PSTE GRS,REGISTRS,4,12 SDS02429 PSTE FRS,FREGS,8,13 SDS02430 PSTE PSW,PSW,8,14 SDS02431 DC X'00000000' SDS02432 END SDS02433 -FILE 47; 1684 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 FCN01675 LOADADD DS XL3 LOADED ADDRESS FCN01676 RELOC DS XL3 RELOCATION FACTOR FCN01677 LCSECT DS XL3 LENGTH FOR THIS CSECT FCN01678 CSNAME DS CL8 CSECT NAME FCN01679 SKEY DS X MAP FLAG BYTE FCN01680 STPTR DS XL3 PTR TO START OF CSECT IN SYMBOL TABLE FCN01681 TOBECON DS AL4 PTR TO LAST SDS LINK FOR A SECTION FCN01682 LMAP EQU *-MAPENTRY FCN01683 END FCN01684 -FILE 48; 1768 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 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> IE EQU C'E' IOC01759 IPLUS EQU C'+' IOC01760 IMINUS EQU C'-' IOC01761 ICOMMA EQU C',' IOC01762 IQUOTE EQU C'''' IOC01763 IPRIOD EQU C'.' IOC01764 IZERO EQU C'0' IOC01765 I9 EQU C'9' IOC01766 TXDEXP EQU 0 IOC01767 END IOC01768 -FILE 49; 349 RECORDS: 0 TITLE 'SDS PSECT' PSC00001 * ********************************************************** PSC00002 * * * PSC00003 * * COMMUNICATION AREA * PSC00004 * * * PSC00005 * ********************************************************** PSC00006 * PSC00007 DS 0D PSC00008 SAVEAREA DS 19F PRIMARY SAVE AREA PSC00009 SAVEARE2 DS 19F SECONDARY SAVE AREA PSC00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> CLINK DS A FORWARD POINTER TO CONTINUED ENTRY PSC00340 DC X'E0' TERMINATOR CODE PSC00341 PLINK DS AL4 FWD PTR FOR PREVIOUS SECTION PSC00342 * PSC00343 LCSE EQU *-SDSLINK PSC00344 * PSC00345 ATDS DSECT DSECT FOR AT-TABLE ENTRY PSC00346 ATADRS DS A LOADED ADDRESS OF BREAKPOINT PSC00347 CARAD DS A POINTER TO COMMAND IN COMMAND TABLE PSC00348 LATENT EQU *-ATDS LENGTH FOR AT-TABLE ENTRY PSC00349 -FILE 50; 59 RECORDS: 0* DST00001 * DUMMY STG (SEE SDS LISTING FOR DEFINITON) DST00002 * DST00003 * INITITAL LOAD TABLE DST00004 * DST00005 INITS DS 0F DST00006 DC F'5' DST00007 DC CL12'SYSTEM' DST00008 DC CL12'ERROR' DST00009 DC CL12'PGNTTRP' DST00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> S4AB B * SCAN FOR DELIMITING BLANK DST00050 PISOSYM B * PUSH ISOSYM PARAMETERS DST00051 RISOSYM B * RESTORE ISOSYM PARAMETERS DST00052 TECF B * COMPUTE SDS TYPE CHARACTER INDEX DST00053 RESTIO B * RESTORE TO *MSOURCE* & *MSINK* DST00054 B * SPARE DST00055 FUNBASE DS A (FUNCTION) FUNCTION BASE REG VALUE DST00056 IOCBASE DS A (IOC) I/O CONTROL BASE REG VALUE DST00057 PARPFX DS A (SDSPRFX,LPFX) PARM LIST FOR CALL TO SETPFX DST00058 * DST00059 -FILE 51; 343 RECORDS: 0 MACRO MAC00001 &LABEL COMMENT &MSG MAC00002 &LABEL BAL GR14,COMMPROS MAC00003 DC AL1(L'M&SYSNDX) MAC00004 M&SYSNDX DC C&MSG MAC00005 MEND MAC00006 * MAC00007 MACRO MAC00008 &LABEL FETCH &WHERETO,&HOWMANY,&EXIT MAC00009 &LABEL LA WORKB,&WHERETO MAC00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> GBLC &SAVLOC MAC00334 &LABEL L LINK,&SAVLOC MAC00335 L BASE2,&SAVLOC+4 MAC00336 AIF (T'&MODE EQ 'O').B2 MAC00337 AIF ('&MODE'(1,1) EQ 'F').B4 MAC00338 .B2 B 4(0,LINK) MAC00339 &SAVLOC DS 2A MAC00340 MEXIT MAC00341 .B4 BR LINK MAC00342 MEND MAC00343 -FILE 52; 347 RECORDS: 0$RUN *MOUNT PAR=S417 9TP *SDS* QUIT=YES 'SDS MASTER SOURCE' $RUN *MOUNT PAR=S416 9TP *POOL* QUIT=YES RING=IN 'LP UPDATE TAPE' $EMP SDSMACROS $EMP DSECT2 $EMP SDSDSECT $CRE -SYSUT2 SIZE=3000 $RUN *UPDATE %REW *POOL* %REW *SDS* %OUT *POOL* 40 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> $COP -SYSUT2(1000) SDSMACROS(1000) $LIST SDSMACROS $EMP NEWSDS $RUN *ASMG SCARDS=*POOL* SPUNCH=NEWSDS 0=*SYSMAC 2=SDSMACROS PAR=SIZE=200,IBLK=- 150,T,FX,RD,B $RUN *OBJSCAN NEWSDS SDS $ENDFILE $SIGNOFF -FILE 53; 8 RECORDS: 0* COPIED BY NAME 'ASMGSET' ASET0001 * THIS BLOCK OF CODING SETS THE GLOBAL SWITCHES ASET0002 GBLB &DEBUG,&NOTBUG,&STAT,&NOTSTAT ASET0003 &DEBUG SETB 0 SET 1 FOR DEBUG VERSION ASET0004 &STAT SETB 0 SET 1 FOR STATISTICS VERSION ASET0005 &NOTBUG SETB ( NOT &DEBUG) ASET0006 &NOTSTAT SETB ( NOT &STAT) ASET0007 * END OF COPIED CODE ASET0008 -FILE 54; 1331 RECORDS: 0$RUN *MOUNT PAR=S416 9TP *POOL* RING=IN QUIT=YES 'LP UPDATE' ASET0009 $RUN *MOUNT PAR=S151 9TP *ASMG* QUIT=YES 'ASMG MASTER SOURCE' ASET0010 $RUN *UPDATE ASET0011 %REW *POOL* ASET0012 %REW *ASMG* ASET0013 %OUTPUT *POOL* 40 ASET0014 %INPUT *ASMG* 40 ASM ASET0015 %DELETE '00040020' ASET0016 %DELETE '00780020' ASET0017 ENTRY ASMRET,LIST1,DCBIN,DCBLIB,DCBPRNT ASET0018 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> R=FX,B,RD,SIZE=200,IBLK=40,OBLK=40 ASET1330 $COP *SOURCE* *LIST*@CC ASET1331 WTM ASET1332 $ENDFILE ASET1333 $RUN *OBJSCAN ASET1334 NEWASMG ASET1335 *ASMG ASET1336 *ASMBLR ASET1337 $ENDFILE ASET1338 $SIG ASET1339 -FILE 55; 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 56; 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 57; 157 RECORDS: 0 COPY OPTIONS 00000010 R14 EQU 14 00000020 ENTRY DCSTN1 00000030 ENTRY FORMATEX 00000040 ENTRY LENDPROG 00000050 ENTRY INBCDI 00000060 ENTRY OUTBCDI 00000070 ENTRY INFREEI 00000080 ENTRY OUTFREEI 00000090 ENTRY INBCD,OUTBCD,INBIN,OUTBIN,INFREE,OUTFREE 00000100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LA 7,0(0,7) 00001480 SH 7,10(0,7) 00001490 BR 7 00001500 DC H'4' 00001510 DS 0F 00001520 FRIOTEMP DC 16X'F0' 00001530 DC H'0' 00001540 DC H'0' 00001550 END DS 0D LAST CARD IN DECK DUMMY 00001560 END 00001570 -FILE 58; 104 RECORDS: 0 MACRO 00000010 &NAME EQUX &ADDR 00000020 ENTRY &NAME 00000030 &NAME EQU &ADDR 00000040 MEND 00000050 SPACE 00000060 FUMMYR CSECT 00000070 SPACE 00000080 DTANH EQUX * 00000090 PRINT ON,NOGEN 00000100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> AMIN1 EQUX * 00000950 MAX0 EQUX * 00000960 MIN0 EQUX * 00000970 AMAX0 EQUX * 00000980 AMIN0 EQUX * 00000990 DMAX1 EQUX * 00001000 DMIN1 EQUX * 00001010 TRAPS EQUX * 00001020 BR 14 00001030 END 00001040 -FILE 59; 1268 RECORDS: 0 COPY OPTIONS 00000010 IHCFIOSH CSECT 00000020 TITLE 'IHCFIOSH - OPERATION SYSTEM/360 FORTRAN H I/O' 00000030 *STATUS--CHANGE LEVEL 000 00000040 * 00000050 *FUNCTION/OPERATION--ALL I/O READ AND WRITE AND MANIPULATIVE COMMANDS 00000060 * OF A FORTRAN SOURCE PROGRAM RESULT IN ONE OR MORE ENTRIES INTO THIS 00000070 * ROUTINE, AND IN TURN, FIOCS MAKES AN APPROPRIATE REQUEST OF THE 00000080 * CONTROL PROGRAM. 00000090 * 00000100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> STATLOC DS F 00012490 EJECT 00012500 XDSECT DSECT UOW 00012510 PLINES DS F LINES PER PAGE ALLOWED UOW 00012520 PLNCOUNT DS F LINES SO FAR ON CURRENT PAGEUOW 00012530 PPAGES DS F PAGES ALLOWED UOW 00012540 PPGCOUNT DS F PAGES SO FAR UOW 00012550 DS F UOW 00012560 PXCARD DS F UOW 00012570 END 00012575 -FILE 60; 102 RECORDS: 0 MACRO 00000010 UNIT 00000020 GBLA &NOUTILS 00000030 LCLA &COUNT 00000040 &COUNT SETA 8 00000050 .LOOP AIF (&COUNT GT &NOUTILS).END 00000060 &COUNT SETA &COUNT+1 00000070 UNITGEN 00000080 AGO .LOOP 00000090 .END ANOP 00000100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC X'00' UNUSED DEFAULT FIELD 00000930 DC AL2(80) BLKSIZE 00000940 DC B'11000000' RECFM - U 00000950 DC AL1(2) BUFNO 00000960 DC AL2(0) LRECL 00000970 DC F'1' DASD VARIABLE POINTER 00000980 UNIT 00000990 END EQU * 00001000 END 00001010 END 00001020 -FILE 61; 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 62; 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 63; 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 64; 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 65; 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 66; 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 67; 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 68; 581 RECORDS: 0 MACRO 00000010 CDEFN 00000020 MEND 00000030 MACRO 00000040 &A ETITLE &B 00000050 PUNCH ' ' 00000060 PUNCH ' '&B'' 00000070 MEND 00000080 MACRO 00000090 &A EMESSAGE &B,&C,&D 00000100 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> EJECT 00005460 EMESSAGE VA,D,'ILLEGAL DO-PARAMETER,ASSIGNED OR INITIALIZED VX00005463 ARIABLE IN SPECIFICATION' V0L5 00005464 EMESSAGE VA,E,'ATTEMPT TO DIMENSION A CALL-BY-NAME PARAMETER' 00005465 XT ETITLE 'EXTERNAL STATEMENT' 00005470 EMESSAGE XT,0,'INVALID ELEMENT IN EXTERNAL LIST' 00005480 EMESSAGE XT,1,'INVALID DELIMITER IN EXTERNAL STATEMENT' 00005490 EMESSAGE XT,2,'SUBPROGRAMME PREVIOUSLY EXTERNALLED' 00005500 EJECT 00005510 END 00005520 -FILE 69; 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 70; 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 71; 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 72; 128 RECORDS: 0*********************************************************************** 00000002 *********************************************************************** 00000003 * * 00000004 * WATFOR COMPILER - VERSION 0 LEVEL 7 AUGUST 6/68. * 00000005 * * 00000006 *********************************************************************** 00000007 *********************************************************************** 00000008 * 00000009 ******************* 00000010 * FOLLOWING ARE THE DECLARATIONS FOR THE INST PARAMETERS 00000020 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> .SET2 ANOP 00000980 &VCHECK1 SETA 0 00000990 &VCHECK2 SETA 0 00001000 .VEND ANOP 00001010 AIF ('&CHRMODE' EQ 'BCDIC').SET4 00001020 &VCHECK3 SETA 6 00001030 AGO .VEND1 00001040 .SET4 ANOP 00001050 &VCHECK3 SETA 0 00001060 .VEND1 ANOP 00001070 -FILE 73; 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 74; 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 75; 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 76; 1083 RECORDS: 0 MACRO MAC00001 &ADDR BEGTRACE MAC00002 CNOP 2,4 MAC00003 &ADDR STM 7,8,*+14 MAC00004 L 8,*+6 MAC00005 BALR 7,8 MAC00006 DC V(TRACE) MAC00007 DS 2F MAC00008 MEND MAC00009 MACRO MAC00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> B XERRUV1 MAC01074 MEND MAC01075 MACRO MAC01076 &NAME XROUTS &NUM MAC01077 &NAME MVC XLAS&NUM+2(2),2(R14) MAC01078 XLAS&NUM LA R15,*-*(R12) MAC01079 CLC XUNDEF(&NUM),0(R15) MAC01080 BNER R14 MAC01081 B XERRUV0 MAC01082 MEND MAC01083 -FILE 77; 2252 RECORDS: 0$RUN *MOUNT PAR=S475 9TP *WATFOR* QUIT=YES 'WATFOR MASTER SOURCE' RING OUT $RUN *MOUNT PAR=S416 9TP *POOL* QUIT=YES 'LP UPDATE' RING IN $CRE -SYSUT1 SIZE=3000 $EMP CDEFN $EMP COMMR $EMP STARTA $EMP WATMAC $EMP OPTIONS $CRE -SYSUT1 SIZE=3000 $RUN *UPDATE >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> $COP SPIE+UAT NEWATFOR(LAST+1) $COP *SOURCE* NEWATFOR(LAST+1) LCS LCSYMBOL LDT XTART $ENDFILE $RUN *OBJSCAN NEWATFOR *SWAT $ENDFILE $SIGNOFF -FILE 78; 375 RECORDS: 0 'ASSIGN STATEMENTS AND VARIABLES' AS-2 'ATTEMPT TO REDEFINE AN ASSIGNED VARIABLE IN AN ARITHMETIC STATEMENT' AS-3 'ASSIGNED VARIABLE USED IN AN ARITHMETIC EXPRESSION' AS-4 'ASSIGNED VARIABLE CANNOT BE HALF WORD INTEGER' AS-5 'ATTEMPT TO REDEFINE AN ASSIGN VARIABLE IN AN INPUT LIST' 'BLOCK DATA STATEMENTS' BD-0 'EXECUTABLE STATEMENT IN BLOCK DATA SUBPROGRAMME' BD-1 'IMPROPER BLOCK DATA STATEMENT' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> VA-A 'ATTEMPT TO USE A PREVIOUSLY DEFINED NAME AS A SUBPROGRAMME NAME' VA-B 'NAME USED AS A COMMON BLOCK PREVIOUSLY USED AS A SUBPROGRAMME NAME' VA-C 'NAME USED AS SUBPROGRAMME PREVIOUSLY USED AS A COMMON BLOCK NAME' VA-D 'ILLEGAL DO-PARAMETER,ASSIGNED OR INITIALIZED VARIABLE IN SPECIFICATION' VA-E 'ATTEMPT TO DIMENSION A CALL-BY-NAME PARAMETER' 'EXTERNAL STATEMENT' XT-0 'INVALID ELEMENT IN EXTERNAL LIST' XT-1 'INVALID DELIMITER IN EXTERNAL STATEMENT' XT-2 'SUBPROGRAMME PREVIOUSLY EXTERNALLED' -FILE 79; 51 RECORDS: 0 TITLE 'WATFOR DIAGNOSTICS EDITOR' WASH0001 * WASH0002 * SCARDS - WATFOR ERROR MESSAGES (AS RECEIVED) WASH0003 * UNIT 0 - OUTPUT FILE TO BE INDEXED BY ERROR CODE WASH0004 * WASH0005 DIAGEDIT CSECT WASH0006 PRINT NOGEN WASH0007 ENTER 10 WASH0008 NC SCARDS BUF,LEN,EXIT=EXIT WASH0009 CLI BUF+1,C'A' CHECK FOR A REAL DIAGNOSTIC WASH0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> OBF DS CL256 WASH0042 KEY DC F'0' WASH0043 LEN DS H WASH0044 OLEN DS H WASH0045 * WASH0046 P1 EQU 3 WASH0047 P2 EQU 4 WASH0048 QT EQU C'''' WASH0049 MARGIN EQU 8 WASH0050 END WASH0051 -FILE 80; 647 RECORDS: 0GLIB TITLE ' GENERATE A LOAD LIBRARY' GENL0001 GENLIB CSECT GENL0002 ENTER 12,SA=SA HELLO THERE GENL0003 L 9,0(0,1) SAVE PARAMETER STRING IF ANY GENL0004 SVC 38 TIME FOR THE CUP TIME GENL0005 STM 0,1,CPUTIME GENL0006 L 1,SMLTBLSZ GENL0007 GETSPACE T=1 GENL0008 ST 1,SMLTBL GENL0009 ST 1,SMLTBL+8 GENL0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> BACKPTR EQU 4 GENL0638 NAME EQU 8 GENL0639 LIBPTR EQU 16 GENL0640 NXTPTR EQU 20 GENL0641 ERPTR EQU 24 GENL0642 NXTLIB EQU 24 GENL0643 REFCNT EQU 28 GENL0644 LIBSEQ EQU 30 GENL0645 SPACE 5 GENL0646 END GENL0647 -FILE 81; 111 RECORDS: 0USER TITLE 'PROGRAM TO FIND OUT HOW MANY USERS ARE USING MTS' USERS START 0 PRINT NOGEN * COPY *LLMPSEQU(100) INCLUDE SYSTEM EQUALITIES PRINT OFF COPY *LLMPSEQU(100) PRINT ON EJECT ENTER 12,SA=SA SR 2,2 USE THSI FOR NUMBER OF TERMINALS >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> DC C' AVAILABLE LINES, AND' DC X'40202120' DC C' NON-MTS JOBS USING' DC X'40202120' DC C' VIRTUAL PAGES AND' DC X'40202120' DC C' REAL PAGES.' SA DS 18F WORK DS D END -FILE 82; 30 RECORDS: 0%BEFORE USER0003 PRINT NOGEN %DELETE USER0001 USER0007 %BEFORE USER0024 CLI RJBPAR+12(9),X'FF' BE TERM IS TERMINAL %DELETE USER0024 USER0042 %BEFORE USER0067 CH 8,S8L1 BNH S8P2 ONLY ONE LINE >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> S8PRT DC C' CURRENT S8 NUMBERS: ' S8NBR DC C' , , , , ' DC C', ' S8LINE2 DC C' , , , , , ' DC C', , , , , , ' %DELETE USER0098 USER0099 %BEFORE USER0105 DC C' BATCH TASKS,' %DELETE USER0105 %BEF FILEMARK -FILE 83; 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 84; 9 RECORDS: 0%AFTER FLSN0027 ST 0,FDUB SAVE FDUB POINTER %DELETE FLSN0038 %DELETE FLSN0169,3 %AFTER FLSN0212 MVC PERMITC(5),=CL5'RO' CLI 61(3),X'2C' IS IT READ ONLY BE AROUND YES %BEFORE FILEMARK -FILE 85; 2290 RECORDS: 0 BEGIN COMMENT PL360 COMPILER -- OS VERSION -- OCTOBER, 1968; 000100 000200 EXTERNAL PROCEDURE SYSINIT(R14); NULL; 000300 COMMENT OBTAINS FREE STORAGE AND OPENS DATA SETS; 000400 EXTERNAL PROCEDURE SYSTERM(R14); NULL; 000500 COMMENT RELEASES FREE STORAGE AND CLOSES DATA SETS; 000600 000700 BYTE LISTFLAG=#FF; COMMENT USED TO CONTROL SOURCE CODE LISTING; 000800 BYTE NOGOFLAG=#00; COMMENT USED TO INDICATE GO OR NOGO TO NEXT STEP; 000900 BYTE EXITFLAG=#00; COMMENT USED TO INDICATE END OF ASSEMBLY; 001000 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> CVD(R1,CONWORK); ED(4,WBUF(3),CONWORK(5)); 228100 R1 := ERRCOUNT; IF R1 > ERRLIMIT THEN 228200 MVC(37,WBUF(25),"- ERROR MESSAGE LISTING INCOMPLETE ***"); 228300 PRINT; SET(NOGOFLAG); 228400 END; 228500 R0 := 0; IF EXITFLAG THEN GOTO LOOP; 228600 SYSTERM; COMMENT RELEASE SYSTEM RESOURCES; 228700 R2 := MEM(R13+4); IF NOGOFLAG THEN R0 := 16 ELSE R0 := 0; 228800 MEM(R2+16) := R0; COMMENT SET RETURN CODE; 228900 END. 229000 -FILE 86; 29 RECORDS: 0%BEFORE PL000001 BEGIN COMMENT PL360 COMPILER -- OS VERSION -- OCTOBER, 1968; %DELETE PL000001 %BEFORE PL000120 BYTE SD SYN 0, LD SYN 1, ER SYN 2, CM SYN 5, XCM SYN 6, RLD SYN 255; ARRAY 14 BYTE ESDCODE="SDLDER****CMER"; COMMENT ESD TYPE NAMES; %DELETE PL000120 PL000121 %BEFORE PL000725 CLI(XCM,ESDTYPE(R1)); IF = THEN >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> IF = AND R2 = 4 THEN R2 := @XCM ELSE R2 := @ER; R3 := @ATYPE; R4 := SEGNO; FINDESDENTRY; PROGESDEND := R0; R2 := RLDADDR(R1); R3 := LC; PROGRAM(R3+2) := R2; RLDADDR(R1) := R3; R0 := V(R7+32) SHLL 4 OR #5800; PROGRAM(R3) := R0; R3 := R3 + 4; LC := R3; %DELETE PL001895 PL001899 %BEFORE PL002193 MVC(132,WBUFF,BLANK); R1 := LABELBASE; MVC(11,B1,ZERO); %DELETE PL002193 %BEF FILEMARK -FILE 87; 184 RECORDS: 0$RUN *ASMG SPUNCH=PL360SUP 0=*SYSMAC PAR=SIZE=80,FX,RD ICTL 1,71,18 SPACE * SYSTEM LINKAGE ROUTINES * * PL360 COMPILER TO OS/360 * SPACE MACRO &EP ENTER ENTRY &EP USING &EP,15 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> GOTLIST DS 2F SAVE DS 18A WORK DS F COMPID DS CL16 COMPILATION ID (TIME AND DATE) EOF DS X SYSIN END-OF-FILE LISTSW DS X LISTING LOADSW DS X OBJECT MODULE (SYSGO) DECKSW DS X OBJECT MODULE (SYSPUNCH) SWITCH DS X END -FILE 88; 76 RECORDS: 0$RUN *ASMG SPUNCH=PL360LIB 0=*SYSMAC PAR=FX,SIZE=60 PLSP TITLE 'PL360 SUPPORT LIBRARY' MACRO &EP ENTER ENTRY &EP USING &EP,15 &EP STM 12,11,SAVE L 12,=A($PLCOMP) USING $PLCOMP,12 DROP 15 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> PAGE ENTER SPRINT '1' EXIT * BIR MVC 0(0,6),BL80 LEN# DS H BL80 DC CL80' ' SAVE DS 18A EOF DC X'00' END -FILE 89; 5844 RECORDS: 0 MACRO 00100010 &NAME SAVE ®,&CODE,&ID 00100030 LCLA &A,&B,&C 00100050 LCLC &E,&F,&G,&H 00100070 AIF ('®' EQ '').E1 00100090 AIF ('&ID' EQ '').NULLID 00100110 AIF ('&ID' EQ '*').SPECID 00100130 &A SETA ((K'&ID+2)/2)*2+4 00100150 &NAME B &A.(0,15) BRANCH AROUND ID 00100170 &A SETA K'&ID 00100190 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> L 15,=V(FREESPAC) BALR 14,15 FREE SPACE ACQUIRED BY GDINFO BNE ###&SYSNDX+4 #MTSIOPS #MTSIOCP @CC #MTSIOG '&MSG',,,###&SYSNDX,O,,,,WRITE CNOP 0,4 B *+8 AROUND CONSTANTS ###&SYSNDX DC F'0' MEND -FILE 90; 7 RECORDS: 0%BEFORE SYSM1223 L 1,=A(&LV) %DELETE SYSM1223 %BEFORE SYSM4641 &LABE DC AL2(X'A300'+16*®1+®2,0) %DELETE SYSM4641 %BEF FILEMARK -FILE 91; 938 RECORDS: 0TELLOPER EQU 7 TELL THE OPERATOR SOMETHING TAPE0081 SAVE EQU 8 TAPE0082 RESTOR EQU 9 TAPE0083 DELETE EQU 10 TAPE0084 SKIP EQU 13 TAPE0085 DEVICEND EQU 16 WAIT FOR A STRAY DEVICEND BEFORE PROCEED TAPE0086 SAVESKIP EQU 18 TAPE0087 SNSADR EQU 19 TAPE0088 DEVICEID EQU 20 TAPE0089 SPACE 1 TAPE0090 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 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 92; 57 RECORDS: 0%DELETE TAPE0204,2 LA R6,BASEBASE SET UP PERMANENT BASE ST R6,BASE AND SAVE IT IN PSECT %DELETE TAPE0218 SNSAGN LA R1,DATACCW %AFTER TAPE0234 TM TPSNS+1,X'20' TAPE DRIVE MUSTBE READY BZ SNSOK TM TPSNS+1,X'40' BO SNSOK STILL REWINDING >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> %DELETE TAPE0769 RUNOK SVC SKIP %DELETE TAPE0778 BR R3 %AFTER TAPE0843 LTR R2,R2 HAS THIS ONE BEEN RELEASED BZ NOFDUB %DELETE TAPE0846 NOFDUB LA R5,32(0,R5) BUMP POINTER %BEFORE FILEMARK -FILE 93; 1494 RECORDS: 0MNT TITLE '*MOUNT - FOR MOUNTING PRIVATE VOLUMES AND ALLOCATING DE@MNT00001 VICES (VERSION EB039)' *********************************************************************** MNT00003 * * MNT00004 * MACROS TO GENERATE KWIC RHS AND LHS TABLES * MNT00005 * * MNT00006 *********************************************************************** MNT00007 MACRO MNT00008 &SLB LHS &X,&Y,&Z MNT00009 LCLA &LNG MNT00010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> NOISEBIT EQU X'20' ON IF NOISE WORD "ON" WAS FOUND IGNORE MNT01324 * MNT01325 PARBITS DS XL1 MORE SWITCHES MNT01326 * MNT01327 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 RINGBIT EQU X'40' RING = WAS SPECIFIED RINBIT EQU X'80' RING MUST BE IN IF 1 MAGTAPE EQU X'04' -FILE 94; 339 RECORDS: 0%DELETE MNT00002 VICES (VERSION EB039)' %AFTER MNT00358 .* IT ALSO GENERATES LITERAL CONSTANTS %DELETE MNT00374 7 .********************************************************************** .* THE FOLLOWING IS CHANGED FROM *SYSMAC VERSION .********************************************************************** &LABEL LA 0,&LNGTH LA 1,=C&TEXT >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> %DELETE MNT01305 VOLID DS 2F RACK NUMBER OF MOUNTED VOLUME %DELETE MNT01309 2 %AFT MNT01311 VOLIDL DS XL1 IBM LENGTH OF VOLID %DELETE MNT01328 2 %AFTER MNT01332 RINGBIT EQU X'40' RING = WAS SPECIFIED RINBIT EQU X'80' RING MUST BE IN IF 1 MAGTAPE EQU X'04' -FILE 95; 106 RECORDS: 0BLOCKL CSECT REQU ENTER 12,SA=SA LM R2,R6,0(R1) PARAMETERS LH R3,0(0,R3) LENGTH LTR R7,R4 MODIFIERS BZ *+8 ADDRESS OR CONTENTS ARE OK L R7,0(0,R4) MODIFIERS ST R7,MODS L RA,0(0,R5) LINE NUMBER >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> #3 DC X'2241494936' #4 DC X'0C14247F04' #5 DC X'7A5151514E' #6 DC X'3E49494926' #7 DC X'4142444870' #8 DC X'3649494936' #9 DC X'314949493E' DC 5X'0000000000' NON CHARACTERS DC X'FFFFFFFFFF' X'FF' END -FILE 96; 698 RECORDS: 0PTPR TITLE 'MTS PAPER TAPE READER SUPPORT ROUTINES --- VERSION @RDR00001 20 JANUARY 1969 (MODEM 1)' 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 97; 127 RECORDS: 0%DELETE RDR00002 20 JANUARY 1969 (MODEM 1)' %AFTER RDR00094 BASEGR EQU R5 %AFT RDR00153 UEPENDNG EQU X'80' GIVE RC=4 NEXT TIME THROUGH %DELETE RDR00257 USING BASEBASE,BASEGR %DELETE RDR00260 DROP BASEGR >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> %DELETE RDR00556 TRANS TR 0(0,RA),0(R6) TRANSLATE EORCHK CLC 0(0,RC),EORCHRS %AFTER RDR00599 HARDEOR DS C EORCHRS DS CL8 EORLNG DS H %AFTER RDR00601 UNPKBYTE EQU PAD %BEFORE FILEMARK -FILE 98; 1070 RECORDS: 0FTN TITLE 'FORTRAN G MODULE IEYFORT RELEASE 16 FOR MTS' FORT0001 IEYFORT CSECT FORT0002 *********************************************************************** FORT0003 * FORT0004 *FUNCTION/OPERATION. FORT0005 * THIS MODULE CONTROLS THE OPERATION OF THE FORTRAN IV(G) COMPILER. FORT0006 * IT INITIALLY RECEIVES CONTROL FROM THE INVOKING PROGRAM, PERFORMS FORT0007 * APPROPRIATE INITIALIZING FUNCTIONS, THEN TRANSFERS CONTROL TO THE FORT0008 * FIRST PHASE (IEYPAR). CONTAINED WITHIN THIS MODULE ARE ALL THE FORT0009 * INPUT/OUTPUT ROUTINES USED BY THE COMPILER, THE DYNAMIC WORK- FORT0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ENDCARD DSECT FORT1059 DS CL1 X'02' FORT1060 ENDHDR DS CL3 C'END' FORT1061 DS CL1 BLANK FORT1062 ENDENTRY DS CL3 ENTRY POINT ADDRESS (OPTIONAL) FORT1063 ENDBLANK DS CL6 BLANK FORT1064 ENDESDID DS CL2 ESDID IF ENTRY POINT (OPTIONAL) FORT1065 DS CL12 BLANK FORT1066 ENDLEN DS CL4 CSECT LENGTH FORT1067 END IEYFORT FORT1068 -FILE 99; 1152 RECORDS: 0ESD IEYFORT IEYRTN  IEYPR :  FTN 0001 ESD IEYRD @ IEYPC   IEYMOR   FTN 0002 ESD IEYNOCR h NEXT * CANREPLY FTN 0003 ESD EMPTY  FREEFD  GDINFO  FTN 0004 ESD GETFD  GETSPACE PGNTTRP  FTN 0005 ESD READ  WRITE  SCARDS  FTN 0006 ESD SPRINT  SPUNCH  QUIT  FTN 0007 ESD PARSAV  IEYCMR  IEYPAR  FTN 0008 ESD IEYALL  IEYUNF  IEYGEN  FTN 0009 ESD IEYEXT  IEYINT  FTN 0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT <  & 0090 TXT   & 0091 TXT @  & 0092 TXT m  & 0093 TXT   & 0094 TXT D  & 0095 RLD   0096 END 0097 LCS LCSYMBOL LDT IEYFORT -FILE 100; 192 RECORDS: 0INFO TITLE 'PROGRAM TO GET AND CHANGE USER INFORMATION' SPACE 5 MACRO &SL ITEM &NAME,&XNAME,&INDEX,&TYPE=4,&MASK=255,&SHIFT=0,&CHANGE=0 GBLA &IX .L3 ANOP &IX SETA &IX+1 AIF (&IX EQ &INDEX).L AIF (&IX GT &INDEX).L2 DC 4F'0' >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ITEM LOCPCH,LOCPCH,90 ITEM LOCPTM,LOCPTM,92 ITEM GLOBTTN,GLOBTTN,94 ITEM LOCTTN,LOCTTN,96 TABLEND EQU * EJECT JUNK DSECT COPY MTS.CONTAB COPY MTS.DSECT END -FILE 101; 11 RECORDS: 0%BEFORE INFO0160 ITEM ACCCNCR,CUMREAD,29 ITEM ACCCSU,CUMCORE,30 ITEM STANCR,NRREAD,31,CHANGE=1 %DELETE INFO0160 INFO0162 %BEFORE INFO0173 ITEM STANLP,NRLINES,63,CHANGE=1 ITEM STANPP,NRPAGES,65,CHANGE=1 ITEM STANCP,NRPUNCH,67,CHANGE=1 %DELETE INFO0173 INFO0175 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> %BEF FILEMARK -FILE 102; 43 RECORDS: 0ESD GUINFO 4CUINFO  LASTJOB  INFO0001 TXT k1}00 k1H INFO0002 TXT } { AB /n-{kiApA쌯{INFO0003 TXT AAό{qijA{KjA{Hj{H~n AhINFO0004 TXT @ ^GFhiGЊ[0AʿʯAFN-INFO0005 TXT  {hAό}{q} 0 INFO0006 TXT } q} 0 INFO0007 TXT q} 0 hzGGKAA!hzGOhhINFO0008 TXT   n A& INFO0009 TXT  q} 0dK &K&G0ANG\AiGՌ0AnINFO0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT 0CUMDISK INFO0034 TXT y @GLOBCPUTGLOBPGS INFO0035 TXT \ dGLOBPCH hGLOBPTM INFO0036 TXT  LOCCPUT mINFO0037 TXT & LOCPGS qLOCPCH INFO0038 TXT h LOCPTM GLOBTTN INFO0039 TXT {  LOCTTN INFO0040 TXT Q   INFO0041 RLD   @M INFO0042 END INFO0043 -FILE 103; 2921 RECORDS: 0 IMPLICIT INTEGER*4 (A - Z) INTEGER*2 LIST,COPIES,SPCHAR,BLANK,NUM,SCWORD,HYPHEN,LOWCAS, $ PERIOD,KEY028,LOCATE,CARDIC INTEGER*2 PAGDUM,SRT,COLBEG,CHRFIN COMMON /A/ POSN,IREAD,IWRITE,CCGCNT,PUNCH,NODOC,MERGE, $ REMNNT,INSWRD,FINISH,DELETE,COVEA,INVALD,BFOUND,CICNT1,CICNT, $ CIINC,DICT,NEXT,HIT, $ ARRAY1(3), $ LIST,COPIES,SPCHAR(42),BLANK,NUM(10),SCWORD,CARDIC, $ HYPHEN,LOWCAS,PERIOD,KEY028,LOCATE >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> -FILE 104; 1038 RECORDS: 0ESD  A Q BLK 0001 TXT -  ] ~ & | < = > BLK 0002 TXT q  + ( ) " ' # % @ _ ; : ? ! A E F L V Z 0 1 5 9 BLK 0003 TXT  - BLK 0004 TXT   BLK 0005 TXT }   BLK 0006 TXT   BLK 0007 TXT  BLK 0008 TXT *  BLK 0009 TXT   BLK 0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ESD  C 0 MSG 0004 ESD  ERR  MSG 0005 TXT q  }}铥}&ʿ-}-}<0}@ &&MSG 0006 TXT } @&&&-&Զē\}}\ Qq}k} &}&MSG 0007 TXT  }&k}&0}d MSG 0008 TXT W MSG 0009 TXT  MSG 0010 RLD  q  u   MSG 0011 RLD  MSG 0012 END  DATE 68.212/20.52.15 MSG 0013 -FILE 105; 1140 RECORDS: 0$RUN *FORMAT 1=-SCR COLUMNS PER PAGE = 9 (MAX. IS 8) START TEXT ON LINE 14, PP 12 CAP OPTION LINES/PAGE = 56 WIDTH OF COLUMNS IS 60 CHARACTERS PAGE NUMBER IS NULL INDENT THE COLUMN (8,0), (5,5), (5,0), (3,0), (6,0), (4,0), (2,0) GO THE DATA DECK GENERATING THIS MANUAL WILL PRODUCE IT IN UPPER AND LOWER CASE IF >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SYSTEM PUNCH DATASET, 9, 26, 33, 35 )HL ) SYS000, 33 )L SYS001, 33 )L SYS002, 33 )L SYS003, 33 )L SYS004, 33 )L )LLM T )MLL )H6 "TABS ARE SET AT", 10, 13 )HL )H6 TABULATION, SEE COMMAND OPERANDS "D" AND "T" AND ) "TABS ARE SET AT" )HL ) "TAPE INPUT DATASET", 11, )H6 27, 40 )HL TAPE LABELS, 33 )L )H6 " TEXT STARTS ON", 11-13 )HL )H6 "TITLE STARTS ON", 11, 13, 28 )HL TRANSLATION , 10, 18 )L )LLM U )MLL )H6 UNDERLINING, 16, 20, 41, SEE ALSO COMMAND OPERAN D "U" )HL )LLM W )MLL )H6 "WIDTH OF COLUMNS", 11 )HL )LLL )H6 "026 KEYPUNCH ", 12, 14, 23 )HL )H6 "029 KEYPUNCH", 12, 14, 23 )HL ) 44PS, 2, 33, 38 )L ) E $ENDFILE -FILE 106; 66 RECORDS: 0 NCA SORTE0 NCA SORTE1 NCA SORTE2 ESD SORT dSORTE0  SORTE1  0001 ESD SORTE2  SCARDS  SPRINT  0002 ESD SETIOERR FREESPAC GETFD  0003 ESD READ  FREEFD  WRITE  0004 ESD SERCOM  GETSPACE 0005 TXT } \}(}0 0006 TXT &\}&}\0R(^Jj({Ke({JH({K(\N}d({KB0}{} 0007 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT  INSUFFICIENT VIRTUAL AVAILABLE-SORT00@-TRIM Y0" 0054 TXT    0055 TXT    0056 RLD &*-h u D 0057 RLD  M U 4 0058 RLD  *%hq 0059 RLD @d m  0060 RLD         0061 RLD  0062 END  0063 -FILE 107; 65 RECORDS: 0HSPQ TITLE 'PROGRAM TO PRINT OUT HASP QUEUE' HASPQ START 0 PRINT NOGEN ENTER 12,SA=SA L 2,=V($JQENT) L 2,0(0,2) LP SR 1,1 IC 1,1(0,2) N 1,=F'15' SLL 1,3 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> OUTWH DC C'XXXXXXXX' DC C' STATUS AND IS ' OUTBSY DC C'XXXX' DC C', PRIORITY=' OUTPRIO DC C'XX' DC C' ' OUTPURG DC C'XXXXXXX' OUTE EQU * OUTL DC Y(OUTE-OUT) END -FILE 108; 20 RECORDS: 0SYM HASPQLPhhuhyhh^A}SAHSPQ0001 SYM bTBLhhhhh hhHSPQ0002 SYM &hh-hhhhhhhHSPQ0003 SYM bqDBLbOUTcvOUT# hdOUTWHhHSPQ0004 SYM [eIOUTBSYhfQOUTPRIOhfOUTPURGHSPQ0005 SYM TcUOUTLHASPQWhYhh0h4HSPQ0006 SYM  h8hhh HSPQ0007 ESD HASPQ $JQENT  SPRINT  HSPQ0008 TXT } 0{}&&ؓAYAiAKA HSPQ0009 TXT h+Aq3AvAqo0Ah+Aq3AQAqo0ARKAIA0j{HSPQ0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT KAIA4j{{dKAIA8KABj{qKAB0A{UHSPQ0011 TXT y ^ ͓ʥ{q}  HSPQ0012 TXT  0 EXECUTE PRINT PUNCH 4 5 6 HSPQ0013 TXT & 7 8 9 10 11 12 13 HSPQ0014 TXT h  14 PURGE HSPQ0015 TXT   JOB XXXXXX IS IN XXXXXXXX STATUS AND IS XXXX, PRIORITY=HSPQ0016 TXT Q  XX XXXXXXX HSPQ0017 TXT Y  IDLEBUSYHELD DELETED HSPQ0018 RLD u yY HSPQ0019 END HSPQ0020 -FILE 109; 734 RECORDS: 0OPR2 TITLE 'MTS JOB TO MONITOR THE STATUS OF THE SYSTEM AND FAKE OP& ERATORS CONSOLE FUNCTIONS' OPER2260 CSECT SPACE 4 *********************************************************************** * * * SUPERVISOR CALL EQU'S * * * * * *********************************************************************** >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> SPACE 4 HQPRINT DSECT DS CL36 HQDIS DS CL7 HQDSKQ DS CL3,CL7 HQXECQ DS CL4,CL6 HQPTRQ DS CL4,CL6 HQPCHQ DS CL3,CL5 SPACE 4 END -FILE 110; 250 RECORDS: 0SYM OPER2260gIHB0003BGET2g&IHB0004BGETCOPR20001 SYM HECKHSHLNHSHFNDyREINITGGENERATEAOPR20002 SYM TNPOOLECALLMEFREEZEFREEZH:MAKEOPEROPR20003 SYM MAKEUSERSRCHJTL1 SRCHJTL3SRCHJTL4SRCHJTOPR20004 SYM L5&SRCHJTL6SRCHJTL2=SRCHJTL7MAKEHASPBUOPR20005 SYM FTSTYHASPGEN8WRDSP1REFRESH#WRDSP2CPOOFOPR20006 SYM *NODEVICEh˥hh%hhhcOPR20007 SYM :###1qATNPROC^PGNThDhHhh}hMOPR20008 SYM hQc###2hcIOCCgINPUTOPR|f-OPR20009 SYM USEROUTgUSERPDP8h,fUSERIBMhgOPR20010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> RLD DMU4  OPR20241 RLD <*%@ dOPR20242 RLD muDMU OPR20243 RLD 4  & OPR20244 RLD    *   OPR20245 RLD  % OPR20246 REP 00013A 01,4730,C17A REP 0000B4 01,0700 NO PGNT TRP REP 0000A0 01,4150,5042 SHUTDOWN FLAG END OPR20247 -FILE 111; 163 RECORDS: 0ESD BSC INITSDA  GETSPACE SDA20001 ESD LASTJOB  GUINFO  CUINFO  SDA20002 ESD GUSERID  FREESPAC GETFD  SDA20003 ESD EMPTY  SDUMP  WRITE  SDA20004 TXT  Y01 ͇Y&aSDA20005 TXT ʥYPg\P&&hh%q\h&&SDA20006 TXT ʥ{&i&ǯ+{Kh&d&h3h`Fo0SDA20007 TXT y h#hʥhKࡘ8&kࡓdʥQ-K Q>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT M  SDA20154 TXT \  SDADUMP  SDA20155 RLD    -SDA20156 RLD  d ^diٓ*-ق% ٿSDA20157 RLD @ٯd y / dSDA20158 RLD mqr*-y^ SDA20159 RLD @&*- QSDA20160 RLD   YSDA20161 RLD  4 8 SDA20162 END SDA20163 -FILE 112; 64 RECORDS: 0SYM WUPDATEhhhhhhƳc###1 0001 SYM hhdhhhݥhhmhyhܥh^ 0002 SYM hhhgUIHB0013Bhh0h1g 0003 SYM IHB0015Bh hhgIHB0017Bhԥhƥ 0004 SYM hhhgIHB0019Bh&hhh* 0005 SYM h)LP1LP2COMPAREBUMPHYIKES}D 0006 SYM ELEhh0h4h8hhBETAhh 0007 SYM håhhhPNCHhhh<h 0008 SYM &hhOMEGAhhdhhhh 0009 SYM hmqEXITuTOOBIGhܥh^hhh 0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> RLD  &)0 4 0055 RLD <dh^  0056 RLD *D}MY0 4U 0057 RLD \ U8 0058 RLD  0059 END 0060 LCS LCSYMBOL LDT LCS LCSYMBOL LDT -FILE 113; 726 RECORDS: 0ESD SDS tSYSTEMX u ERRORX S  SDS 0193 ESD MTSX ɳ TERMINE ! TERMINS ɐ  SDS 0194 ESD SETPFX  GETFD  CANREPLY SDS 0195 ESD GETSPACE FUNCTION SYSTEM  SDS 0196 ESD GDINFO  LINK  STEP o  SDS 0197 ESD ISOSYM   STEP  ERROR  SDS 0198 ESD CANON  RADD  FIXED  SDS 0199 ESD SCANPAR  STSEARCH RADD   SDS 0200 ESD RADD1  CANON  CSSCAN   SDS 0201 ESD IBPT  POPBP  CONVERT +  SDS 0202 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT H  h EDTR0152 TXT HSYMESDLCSENDLDT EDTR0153 RLD mq}MQ\ ٥EDTR0154 RLD ٳ-ق%ٿ^٩ٸ EDTR0155 RLD {48ن ڈڍ<&ڡ mEDTR0156 RLD qھڵ U } Q 4  8 EDTR0157 RLD     EDTR0158 END EDTR0159 LCS LCSYMBOL LDT -FILE 114; 2354 RECORDS: 0ESD ASMGASM ASMRET  LIST1 d  ASM 0001 ESD DCBIN  DCBLIB  DCBPRNT }  ASM 0002 ESD SYSU1  SYSU2 q SYSU3 0  ASM 0003 ESD ALOAD  < ALINK  AXCTL   ASM 0004 ESD QCLOSE  BUFFENT  QGETUCB  ASM 0005 ESD QOPEN  QGET  QPUT  ASM 0006 ESD SPUNCH  WRITE  SPRINT  ASM 0007 ESD BSAMIO  BUFFERR  ASMGMAC  ASM 0008 ESD SAVECC  ERROR  LINK  ASM 0009 ESD LOAD  UNLOAD  XCTL  ASM 0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT  &MP&4&4k0& SPIE0003 TXT + V0f&1 &4%h &:qV&Mj&4&o&4SPIE0004 TXT f K&8KK &40 Č&q ͡\@&\K&8KSPIE0005 TXT K kĎm"&40& SPIE0006 TXT 4  SPIE0007 TXT -   SPIE0008 RLD   - SPIE0009 END SPIE0010 LCS LCSYMBOL LDT ASMGFPP -FILE 115; 1841 RECORDS: 0ESD STARTA yCOMMR y MAINP u MAIN0001 ESD MAIN Q XBUFFER ^ XTART   MAIN0002 ESD CXTART y CXTOP ˩ LENDS  MAIN0003 ESD MSTART  MSTOP m MYIBCOM }  MAIN0004 ESD OBJECT y XEXECSW  LENDPROG MAIN0005 ESD RPH3  SCAN  INBCDI  MAIN0006 ESD OUTBCDI  INFREEI  OUTFREEI MAIN0007 ESD INBCD  OUTBCD  INBIN  MAIN0008 ESD OUTBIN  INFREE  OUTFREE  MAIN0009 ESD INBINI  OUTBINI  FORMATEX MAIN0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT  UAT 0015 TXT  &&UAT 0016 TXT Q d&UAT 0017 TXT   UAT 0018 RLD    -{\UAT 0019 RLD  duDUUAT 0020 RLD u {U UAT 0021 END UAT 0022 LCS LCSYMBOL LDT XTART -FILE 116; 85 RECORDS: 0ESD GENLIB GETSPACE SCARDS  GLIB0001 ESD SPRINT  ERROR  SPUNCH  GLIB0002 ESD FREESPAC SYSTEM  GLIB0003 TXT } 0D&&ؓ0\ &&{GLIB0004 TXT )U &^&& kkK0{0Y{dGLIB0005 TXT  ČD\NA݌0{k K򘃘0YGLIB0006 TXT y {{ ČD\ n {WN {W GLIB0007 TXT \  0{& &{00:ʡʿöĊ0i0A0A0AGLIB0008 TXT  0A:0A0AÌ0ApgA0{jA!kK$&GLIB0009 TXT & BQ0AÓ-N-AkKBQ0Ak KBQGLIB0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> RLD  *-uy GLIB0076 RLD   u ydh dGLIB0077 RLD h%^Y0 GLIB0078 RLD  @ٯdy^Yم 0GLIB0079 RLD *-mqھQڟ \GLIB0080 RLD   0 \ Y 8   GLIB0081 RLD    GLIB0082 END GLIB0083 LCS LCSYMBOL LDT -FILE 117; 35 RECORDS: 0SYM USERSLOOP-FINDPGSNEXTJOBhhh{USER0001 SYM hDhHhQhh\hUhYh hUSER0002 SYM hhhhhhh hhUSER0003 SYM C&S8P2h*h-h˥hh%hNUSER0004 SYM OTMTShIDLEMTSTERMhqdsTERMPhweBAUSER0005 SYM TCHPh[ dGIDLEPhhf\NONMTSPhUSER0006 SYM Ue7VMPGSPhdRPGSPh fPRIUSER0007 SYM NT1YfPRINT2YcS8L1dS8PRTdS8NBR hUSER0008 SYM fS8LINE2hphGhJhNhVhUSER0009 SYM Z h6hhhhhhhUSER0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT   , , , , THERE ARE TEUSER0026 TXT Q RMINAL USERS, BATCH TASKS, AVAILABLE LINES, AND USER0027 TXT   NON-MTS JOBS USING VIRTUAL PAGES AND REAL PAUSER0028 TXT  GES. USER0029 TXT    MTSIDLE USER0030 RLD {Q\  *USER0031 RLD - y^ USER0032 END USER0033 LCS LCSYMBOL LDT -FILE 118; 46 RECORDS: 0ESD FILESNIF SERCOM  GUSER  SNIF0001 ESD SPRINT  GETFD  GDINFO  SNIF0002 ESD FREEFD  READT  VOLGET  SNIF0003 ESD  DSKOP  SNIF0004 TXT } 0&&ؓ㌯& Ɣкƈ&kĕŒ0&KSNIF0005 TXT jĕŒ0\&-*0 ENTER FILE NSNIF0006 TXT AME... ͓0U&qm ČSNIF0007 TXT y  -k 0Y&}- 0 &SNIF0008 TXT \ Čh00 ČhNh4hʵq SNIF0009 TXT  ʊ& &&& &&&& K Q &+SNIF0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT   , ). PERMIT CODE = ē SNIF0037 TXT  ^;-- Hh SNIF0038 TXT \ SNIF0039 TXT  RO ALL PRJNONONE SNIF0040 RLD <&dh{D% SNIF0041 RLD mhy^ m q SNIF0042 RLD  } MAIJR\UYSNIF0043 RLD 0 SNIF0044 END  SNIF0045 LCS LCSYMBOL -FILE 119; 514 RECORDS: 0ESD SEG#08 SEG#01  0001 TXT &hƿ0&05 10051 0002 TXT 55<0&05 105&iJ&J0550d 0003 TXT 5^0d5^0d0m&05 10\5&iJ&J05 0004 TXT y 5<0{&05 105&J&J05505^0 0005 TXT \ 5^00&05 105&J&J05ȥ21ݧ 0006 TXT  5*}1&05 10015^15-^11&05 0007 TXT &  10015ˌ1&05 10P\01&05 1 0008 TXT h 0Y01010101*01@J05ȥ22025^1Ч5 0009 TXT { ^11&05 10025ˌ16&05 10= 0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT u B&B0C݇BHD& qB4 0031 TXT   & { 0032 TXT  LISTLOADDECK{ 0033 TXT   NO 0034 RLD MQ<hn  0035 RLD  - @ 0036 RLD  dh 0037 END 0038 LCS LCSYMBOL LDT -FILE 120; 15 RECORDS: 0ESD $PLCOMP READ  WRITE   PLSP0001 ESD SCARDS  SERCOM  ERROR  PLSP0002 ESD  SPRINT  PLSP0003 TXT 1{1q&kA&{0A{4 PLSP0004 TXT {--{4ʿ&& {{{nAqAkA0{0A{PLSP0005 TXT fd*** INPUT RECORD LENGTH EXCEEDS 80PLSP0006 TXT y  CHARACTERS. ͓0Au ͡0ݓ{0&{}0Ay{WU\PLSP0007 TXT \ d qAK-{6 PLSP0008 TXT 6  PLSP0009 TXT    PLSP0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT    PLSP0011 TXT q  PLSP0012 RLD MQ qPLSP0013 RLD  u y PLSP0014 END PLSP0015 -FILE 121; 50 RECORDS: 0ESD TAPE MTPWRUC  TPRDUC  TAPE0001 ESD GETSPACE DSRDISPV TAPE0002 TXT   -i-˓&ƥTAPE0003 TXT 04 ѓ08u a&PįPaaƥ-&-\&-TAPE0004 TXT &@Ư-&Ư&q\áHHʥW2kf>TAPE0005 TXT y H&Ư{k-DkGk aka k aU&Ư-KY:kaj\uj TAPE0006 TXT \  \uW0\+ TAPE0007 TXT j\k7k,aq} \0002HΓ^TAPE0008 TXT  oajja\/\0aɌ0/k akK{aa}TAPE0009 TXT ; /⍵a/^//KaaKaa//^a&^Hoa&TAPE0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT a0K}&WTMWEFREW BSRBSFFSRFSFRUN 2CVTAPE0041 TXT - [5CV[8CVl[2OF[2ON[2EF[2EN[5OF[5ON#[5EF[5EN,[8OF[TAPE0042 TXT q 8ON][8EFt[8EN[800[160C[SRL2RLLYSNS! TAPE0043 TXT { 9TP " TAPE0044 RLD  48 TAPE0045 RLD  \8{  TAPE0046 END  TAPE0047 LDT LCS LCSYMBOL LDT -FILE 122; 203 RECORDS: 0ESD MOUNT WRITE  SCARDS  MNT 0080 ESD SERCOM  GUSER  DSRDISPV MNT 0081 ESD LASTJOB  CANREPLY GUINFO  MNT 0082 ESD GETSPACE FREESPAC GDINFO  MNT 0083 ESD READ  GETFD1  GUSERID  MNT 0084 ESD BLOCKL  FREEFD  QUIT  MNT 0085 ESD ERROR  KEYWRD  MNT 0086 TXT } ^H^0d&0}&}0ؓaj 000MNT 0087 TXT 00&00&0 ͌{ohA\0 ČIoMNT 0088 TXT j{0{h\I܌0{ENTER MOUNT PARAMETERSʡ}hk MNT 0089 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT u =""""""" 0020 TXT  ʊ< 0021 TXT  " ==@@" "--/ 0022 TXT < "ʖ ":+ʉ 0023 TXT d Ζ 0024 TXT y  {A 0025 RLD  u y 0026 END 0027 LCS LCSYMBOL LDT -FILE 123; 44 RECORDS: 0ESD TAPE GETSPACE ASCEBC  PTPR0001 ESD  DSRDISPV PTPR0002 TXT  Y   -i-& PTPR0003 TXT 0 O07 a&PN\&Ư&@&PTPR0004 TXT  &kį"X&q} 4KoK&=\B&KPTPR0005 TXT y ʥ0&KʥƯq~0YOU CAN'T WRITE ON THEPTPR0006 TXT \  READER PTPR0007 TXT Y 4qjӍ^=}ǡkj&kk PTPR0008 TXT  ʥ ^fjfjf^K{a}8PTPR0009 TXT  ;}^^&{=^ {^j-ݺ{{<{PTPR0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT \^nF\nA\ Ϣ<j20Ka00PTPR0035 TXT 0ڌ0oKïq\BKʥ0KʥPTPR0036 TXT Q q~0ILLEGAL CONTROL OPERATION FOR PAPER TAPE PTPR0037 TXT   ߓ[N{ ^ն-NPTPR0038 TXT  {b2EORSTTWRLL&SRLWTMWEFREWBSRBSFFSRRUNFSPTPR0039 TXT =  F PTPR0040 TXT  "REMOVE TAPE FROM XXXX * PTPR0041 RLD   \dPTPR0042 RLD  PTPR0043 END  PTPR0044 -FILE 124; 307 RECORDS: 0LRD TITLE 'MATRIX DECOMPOSITION' LRD# CSECT ENTRY LRD GRK EQU 14 INDEX REGISTER SR1 EQU 14 SCRATCH REGISTER SRN EQU 0 INCREMENTING REGISTER FOR N GRN EQU 1 NO. OF ROWS OF MATRIX SRM EQU 2 INCREMENTING REGISTER FOR M GRM EQU 3 NO. OF COLUMNS OF MATRIX GRSIGN EQU 4 SIGN OF PERMUTATION >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> LTR GRSIGN,GRSIGN BNZ *+8 LA SR1,4 LR 15,SR1 LM 0,12,20(13) L 14,12(0,13) SPM 14 RESTORE PROGRAM MASK MVI 12(13),X'FF' BR 14 END -FILE 125; 15 RECORDS: 0ESD LRD# {LRD   LRD 0001 TXT } kq & }ȿ rLRD 0002 TXT 0ς&0&0϶&-;&}ggB0LRD 0003 TXT W\\g021Z&-00ނ&-ť^LRD 0004 TXT y 0åg\0.0Mٯ-- -&-0\004LRD 0005 TXT \ Z000-g\0W㌯2{xn;}.--,- LRD 0006 TXT  \-g\1-.x;}gB1gʡZ0LRD 0007 TXT & 1ť^1å;g\1.1mٯ-- &--zLRD 0008 TXT h -&Z-&-l 11w02;Z01-g\1܌02;LRD 0009 TXT { 1}gg102;{xѵٵ- -ŵ\;LRD 0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT 8 ---^2;-g\12xgB2l2;02ѵٵ- LRD 0011 TXT  -ŵ2\-g\2 xgB2gg1̓}rLRD 0012 TXT  Ό}2ζƶ{-2k ɯ-ԯ-گg{2ggk2&LRD 0013 TXT  -2\q }\} \k}  LRD 0014 END LRD 0015 -FILE 126; 184 RECORDS: 0DBS TITLE 'DOUBLE BACK SUBSTITUTION' DBS# CSECT ENTRY DBS SR2 EQU 14 SCRATCH REGISTER GRK EQU 0 INDEX REGISTER SRN EQU 2 INCREMENTING REGISTER OVER N GRN EQU 3 DIMENSION OF UL SRM EQU 4 INCREMENTING REGISTER OVER M GRM EQU 5 NO. OF COLUMNS OF X AND B GRL2 EQU 6 DIMENSIONED COL LENGTH OF X & B >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> FINI LD FR2,0(0,GRX) DDR FR2,FR0 X(1) = X(1)/UL(1,1) STD FR2,0(0,GRX) (UNCHANGED IF UL(1,1) IS ZERO) ALR GRX,GRL2 BXLE GRK,SRM,FINI END LM 14,12,12(13) MVI 12(13),X'FF' SR 15,15 BR 14 END -FILE 127; 10 RECORDS: 0ESD DBS# DBS   DBS 0001 TXT } q$&&&&ȵ--- 0DBS 0002 TXT ^0!g1܂-fg001܂-fg0!01DBS 0003 TXT 팿0\--BC0u0[ó%DBS 0004 TXT y ^ԯ-ԯgB0m00M ó%^-ԯ-gB0mfg0@01 \DBS 0005 TXT \ -Bó%^-ԯgB0fg0ʿ[DBS 0006 TXT  1<a{ó%^ԯ-ԯgB1fg1[ 1DBS 0007 TXT & aG^1-ó%^ԯ-ԯfB1>fg1[DBS 0008 TXT h 挥1&a^1܂-fg1q} k}  DBS 0009 END DBS 0010 -FILE 128; 137 RECORDS: 0DBST TITLE 'DOUBLE BACK SUBSTITUTION FOR TRANSFORMED SYSTEM' DBST# CSECT ENTRY DBST GRK EQU 14 INDEX REGISTER SRN EQU 2 INCREMENTING REGISTER OVER N GRN EQU 3 DIMENSION OF UL SRM EQU 4 INCREMENTING REGISTER OVER M GRM EQU 5 NO. OF COLUMNS OF X AND B GRL2 EQU 6 DIMENSIONED COL LENGTH OF X & B GRB EQU 7 ADDRESS OF B >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> STD FR2,0(GRI,GRX) BXH GRI,SRN,PERMX BRANCH IF I>-8 ALR GRX,GRL2 BXLE GRK,SRM,PERM END LM 14,12,12(13) MVI 12(13),X'FF' SR 15,15 BR 14 EIGHT DC F'8' END -FILE 129; 8 RECORDS: 0ESD DBST#  DBST   DBST0001 TXT } q!&&&&ȵ--- 0DBST0002 TXT 0;g1-fgU001-fgU0;DBST0003 TXT 01]ѡ0- f0 ԯ%ԡDBST0004 TXT y B 000dfgU0:ʴaGѯ % DBST0005 TXT \ ѥfB0Q-ѯfgU0K0a}ʴ1 DBST0006 TXT  ԯ- -ѯf1fgU1q} k}  DBST0007 END DBST0008 -FILE 130; 50 RECORDS: 0INV TITLE 'MATRIX INVERSION ORGANISER ' INV# CSECT ENTRY INV USING *,12 INV STM 14,12,12(13) LR 12,15 LM 4,9,0(1) LR 3,4 STM 3,9,PARLIST LA 1,PARLIST >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> L 14,12(0,13) MVI 12(13),X'FF' BR 14 PARLIST DS 7F SAVE DS 18F ALRD DC V(LRD) AINV1 DC V(INV1) ASPAC DC V(GETSPACE) AFREE DC V(FREESPAC) END -FILE 131; 8 RECORDS: 0ESD INV# 4INV  LRD  INV 0001 ESD INV1  GETSPACE FREESPAC INV 0002 TXT } q{{&}{}{0{U Č{00{%˓ INV 0003 TXT 0{ Č{&00{%~{{0{Y 0{0 Ͷē}{INV 0004 TXT  q }\} k}  INV 0005 TXT U   INV 0006 RLD UY 0 INV 0007 END INV 0008 -FILE 132; 279 RECORDS: 0INV1 TITLE 'MATRIX INVERSION' INV1# CSECT * * THE SUBROUTINE LRD IS CALLED PREVIOUS TO ENTERING THIS * ROUTINE AND SETS UP THE DECOMPOSED MATRIX UL AND THE * PERMUTATION VECTOR IP. FOR SOME MATRIX A WE HAVE: * -1 -1 -1 -1 * PA = LU OR A = P LU, THUS A = U L P * * THIS ROUTINE COMPUTES THE INVERSES OF L AND U AND HENCE >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> STD FR0,0(GRI,ULCOLI) ALR ULCOLI,GRL BXLE GRJ,SRN,LASTROW OUT LM 14,12,12(13) SR 15,15 MVI 12(13),X'FF' BR 14 CNOP 0,8 ONE DC X'4110000000000000' END -FILE 133; 13 RECORDS: 0ESD INV1# INV1   INV10001 TXT } q#ȿȡ-!2&_-쌯2-^INV10002 TXT ^%& 02&_&-&-&-^g0INV10003 TXT ʧ0q&-^% 00-!INV10004 TXT y 0&0^%&⋌000M-&00wƥINV10005 TXT \ 1&-^^%& 04%&-&-^g0INV10006 TXT  00>ʧ&-^%g1-^ʧ1 INV10007 TXT & &^%&g1-^ 1< 1C1o INV10008 TXT h ^^-^-^012Z; ^-^-&&INV10009 TXT { -^%g1-^!2 ^-&^%&INV10010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT 8 g10-^01Q1 &^%&g2-^ 2 INV10011 TXT  01^-zg2q} k}  INV10012 END INV10013 -FILE 134; 178 RECORDS: 0DAIN TITLE 'INTERPOLATION IN DOUBLE PRECISION' DAINT# CSECT GR0 EQU 0 SRN EQU 2 INCREMENTING REGISTER FOR N GRN EQU 3 NUMBER OF POINTS SUPPLIED VECTX EQU 4 ADDRESS OF X VECTY EQU 5 ADDRESS OF Y SCX EQU 6 SCRATCH VECTOR GRM EQU 7 NO. OF INTERPOLATION POINTS SCY EQU 8 SCRATCH VECTOR >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> AR GRI,SRN CR GRI,GRM BL INTER LD FR0,0(GRM,SCY) DONE SR 15,15 LM 0,11,20(13) MVI 12(13),X'FF' SPM 14 BR 14 END -FILE 135; 11 RECORDS: 0ESD DAINT# DDAINT   DAIN0001 TXT  }qʥ 0躿ȿ--ʁlDAIN0002 TXT khi 0-l1k ^0k00r1ɶk 0-DAIN0003 TXT ú, , 쌿0 ^0k--&-01^ DAIN0004 TXT y 0^]ʵ----&&-گ-ѯzs^ʡ 1ጥ1&DAIN0005 TXT \ p1@k Ѻ^1--&-ٯs 100\-DAIN0006 TXT  -&-ůg0\01&ú, --&-쌯1r1rtsDAIN0007 TXT & [01!p1@k Ѻ-- &-ٯ^01!rʵ-DAIN0008 TXT h ů -ы-,--gs1kp 1q }k} DAIN0009 TXT { \ DAIN0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> END DAIN0011 -FILE 136; 178 RECORDS: 0SAIN TITLE 'INTERPOLATION IN SINGLE PRECISION' SAINT# CSECT GR0 EQU 0 SRN EQU 2 INCREMENTING REGISTER FOR N GRN EQU 3 NUMBER OF POINTS SUPPLIED VECTX EQU 4 ADDRESS OF X VECTY EQU 5 ADDRESS OF Y SCX EQU 6 SCRATCH VECTOR GRM EQU 7 NO. OF INTERPOLATION POINTS SCY EQU 8 SCRATCH REGISTER >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> AR GRI,SRN CR GRI,GRM BL INTER LE FR0,0(GRM,SCY) DONE SR 15,15 LM 0,11,20(13) MVI 12(13),X'FF' SPM 14 BR 14 END -FILE 137; 11 RECORDS: 0ESD SAINT# DSAINT   SAIN0001 TXT  }qʥ 0躿ȿ--ʁlSAIN0002 TXT khi` 0-l1k` ^0k00r1ɶk` 0-SAIN0003 TXT # # 쌿0 ^0k-&01^ SAIN0004 TXT y 0^]ʵ--&&گѯzs^ʡ 1ጥ1&SAIN0005 TXT \ p1@k ^1-&ٯs 100\㭿SAIN0006 TXT  -&ůg0\01&# -&쌯1r1rtsSAIN0007 TXT & [01!p1@k - &ٯ^01!rʵ-SAIN0008 TXT h ů --#-gs1kp 1q }k} SAIN0009 TXT { \ SAIN0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> END SAIN0011 -FILE 138; 43 RECORDS: 0SINV TITLE 'INVERSION OF A POSITIVE DEFINITE SYMMETRIC MATRIX' SINV# CSECT ENTRY SINV USING *,6 SINV STM 14,6,12(13) LR 6,15 ST 13,SAVE+4 LA 13,SAVE L 15,ASLRD BALR 14,15 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> L 14,12(0,13) MVI 12(13),X'FF' BR 14 PARLIST DS 4F SAVE DS 18F ASINV2 DC V(SINV2) ASLRD DC V(SLRD) ASPAC DC V(GETSPACE) AFREE DC V(FREESPAC) END -FILE 139; 7 RECORDS: 0ESD SINV# }SINV  SINV2  SINV0001 ESD SLRD  GETSPACE FREESPAC SINV0002 TXT W} ?&}-@}-0-D Č-q 0-H Č-SINV0003 TXT   --0-{ 0- Ͷē}-@q}\} k}  SINV0004 TXT {   SINV0005 RLD {DH  SINV0006 END SINV0007 -FILE 140; 145 RECORDS: 0SLRD TITLE 'DECOMPOSITION OF A SQUARE SYMMETRIC MATRIX' SLRD# CSECT ACOLK EQU 14 ADDR. OF COL K OF A GR2 EQU 14 GR0 EQU 0 GR1 EQU 1 SRN EQU 2 INCREMENTING REGISTER FOR N GRN EQU 3 DIMENSION OF MATRIX GRL2 EQU 4 DIMENSIONED COL LENGTH OF A ACOLI EQU 5 ADDR OF COL I OF MATRIX A >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> L 14,12(0,13) SPM 14 MVI 12(13),X'FF' BR 14 CNOP 0,4 BIAS DC X'31000000' A DC X'48385F07' 0.2202*16**8 B DC X'00423A2A' 0.2587 BUFF DS F END -FILE 141; 8 RECORDS: 0ESD SLRD# SLRD   SLRD0001 TXT } kq ---ʥr&00=SLRD0002 TXT VU\-ѿg0sf[V \ѥ-ѯUg0!SLRD0003 TXT fgs0&kٿ }1 1&1&;11&1<1&:1<@1SLRD0004 TXT y ^0 "1<=1<-ٿlSLRD0005 TXT \ 1r0^. -.g0ʵf[ ѯѥ-ѯSLRD0006 TXT  g1fgs100\01ƶq }\} \k} SLRD0007 END SLRD0008 -FILE 142; 136 RECORDS: 0SNV1 TITLE 'INVERSION OF A LOWER TRIANGULAR MATRIX' SINV1# CSECT MINUS8 EQU 14 SCRATCH REGISTER SRN EQU 2 INCREMENTING REGISTER FOR N GRN EQU 3 SIZE OF MATRIX GRL EQU 4 DIMENSIONED COL LEN. OF MATRIX ULCOL1 EQU 5 ADDR OF COLUMN 1 OF MATRIX ULCOLI EQU 5 ADDR OF COLUMN I OF MATRIX SCROW EQU 6 ADDR OF SCRATCH VECTOR ULCOLJ EQU 7 ADDR OF COLJ OF MATRIX >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ALR ULCOLI,GRL BXLE GRI,SRN,INVERSE OUT LM 14,12,12(13) SR 15,15 MVI 12(13),X'FF' SPM 14 BR 14 CNOP 0,8 ONE DC X'4110000000000000' END -FILE 143; 8 RECORDS: 0ESD SINV1# SINV1  SINV2   SNV10001 TXT } {0000} q]^ uʥSNV10002 TXT S#&1_---㌯0Oʮʵ1_ٿ-ٿшɿSNV10003 TXT %-ɉgs0*---kr^0h0O#&--SNV10004 TXT y ʮٿшʵɿ%-ɉsy}0y---kr^0bSNV10005 TXT \ b^01hqzш&%ڿ gs0W-&gk0Sgb0q} SNV10006 TXT   k} \ SNV10007 END SNV10008 -FILE 144; 425 RECORDS: 0JESS TITLE 'JACOBI METHOD FOR EIGENVALUE PROBLEM' JESS# CSECT SR2 EQU 14 SCRATCH REGISTER RETURN EQU 14 SWTCH EQU 0 SWITCH IN SINE/COSINE SECTION SRN EQU 0 GRN EQU 1 SIZE OF MATRICES A AND R LENA EQU 2 DIMENSIONED COL.LENGTH OF A ACOL1 EQU 3 ADDR. OF COLUMN 1 OF A LENR EQU 4 DIMENSIONED COL.LENGTH OF R >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> B DC X'00423A2A' 0.2587 BUFF DS F N DS E HIVAL DC X'4B100000' SHIFTS DC X'01000000' DC X'0A000000' THRSH DS E SWEEP DS F SAVE DS F END -FILE 145; 22 RECORDS: 0ESD JESS# JESS   JESS0001 TXT } q&}4 Oȥ ֋0 -}3\JESS0002 TXT -&03Dl3\̶-^g-0-^-}ƈkJESS0003 TXT g0&\4k4:4ÿ4-̌0m-3\'-4ÿ-4&\400\JESS0004 TXT y 00{\4$\4&\400}}ƭg-0H'4ÿ44JESS0005 TXT \ $4&400-rvC-4{1g-0{-}uJESS0006 TXT  B- 0ҍ4ʯ 4-f3r03D4ʯJESS0007 TXT &  400s}_{{_{ƺ`4Ԍ 1d`4Ԍ 1d-401^JESS0008 TXT h ̌1u{ 1]-3YË0141]̥ú3\\102JESS0009 TXT { -3\1ɺ-3\\1\02 3\ -14óË]JESS0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT  "4=4l쌯2^̡úó%38%30ɥ-% 38%-JESS0013 TXT  30ы-k 2ʩk{WX\2ʯ̡{úó%38JESS0014 TXT Q %30ɥ-% 38%-30ы-{kf 2H{%4%4JESS0015 TXT  % 4%4ɳ{% 4Ɉ--}ѳ-{%-4 4, 4%JESS0016 TXT  {ɋ-{h^úó%38%30-^%-30% 38ы-g3/JESS0017 TXT  1ʯ-{úó%38%30-%-30% 38ы-{g3hg-0JESS0018 TXT  01\03F}4 q}\} k}  39JESS0019 TXT   JESS0020 TXT . JESS0021 END JESS0022 -FILE 146; 28 RECORDS: 0FIXOBJ ENTER 12,SA=SA B READ 2,CARD,LEN,LNR,EXIT=DONE CLI LSW,0 BNE A CLC =C'ESD',CARD+1 BE C A CLC =C'END',CARD+1 BNE B MVI LSW,0 CLC =C' ',CARD+29 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> B B DONE EXIT 0 LSW DC X'00' LEN DS H LNR DS F ELNR DS F CARD DS 80C CARDE DS 80C SA DS 18F END -FILE 147; 16 RECORDS: 0SYM FIXOBJ Bhhhhåhԥhƥh 0001 SYM  Ahhh@hhdhhhh 0002 SYM huhyhܥh^hhhHhh}h 0003 SYM MhQhh\ C8DONEbLSW b 0004 SYM LENbLNRc ELNRCCARD&D-CARDE&A 0005 SYM  ^SAh8hhhh 0006 ESD  READ  WRITE  0007 TXT } 0A^&&ؓ0A8{ 0008 TXT  Č{8nA{NBA{NBA{kANBA{0A8 0009 TXT {- h KA'A0A{- 0010 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT y   0A8{U\ 0011 TXT \  ͌0{kAKA A0{q}  0012 TXT 8  ESDEND 0013 RLD @du y 0014 RLD ^H}M Q8 0015 END 0016 -FILE 148; 3903 RECORDS: 0^- IPL CARD TXT ^-^-^: BSLD0003 TXT  {Kʯ{&{{j{b{u{}nX{BSLD0004 TXT {>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> TXT j o j j ^n nKjXdh {\08CONF0083 TXT D   CONF0084 RLD  % * %  @  CONF0085 RLD          CONF0086 RLD