//T90MES1A JOB TIME=(,10) /*JOBPARM L=40 //* //* This job assembles and links ASSIST. An in-stream PROC //* has been used so that the two SYSIN files for the IEBUPDTE //* steps will come last (easier to edit). //* //* The first step conditionally scratches an existing LOADLIBX //* //* The second step generates member ASSYSGEN into a temporary //* PDS. ASSYSGEN is COPY code in the source, and it specifies //* selectable assembly options for ASSIST. //* //* The third step updates the ASSIST source. For this purpose, //* the SOURCEn files have been copied from tape to disk as //* members of a PDS. The source updates are minor, fixing a //* few assembly errors, adding an END card, setting a default //* for macro use, and so on. SYSUT2 is a temporary seq file. //* //* The fourth step invokes the High Level Assembler and the //* Binder to assemble and link the ASSIST load module. //* //* NIU, M. Stack, March 1998 //* //* Updated for minor changes: //* 1) Added lower case alpha characters to dump TR table //* 2) Forced comment checking for all //* //* NIU, M. Stack, April 2001 //* //ASGEN PROC PRE=T90MES1 //* //SCR EXEC PGM=IEFBR14 //D1 DD DSN=&PRE..ASSIST.LOADLIB,DISP=(MOD,DELETE), // SPACE=(TRK,1) //* //ASSYSGEN EXEC PGM=IEBUPDTE,PARM=NEW //SYSPRINT DD SYSOUT=A //SYSUT2 DD DSN=&&ASSYSGEN,DISP=(,PASS),SPACE=(TRK,(1,1,1)), // DCB=(DSORG=PO,LRECL=80,BLKSIZE=8000,RECFM=FB) //* //UPD EXEC PGM=IEBUPDTE //SYSPRINT DD SYSOUT=A //SYSUT1 DD DSN=&PRE..ASSIST.SOURCE(SOURCE1),DISP=SHR // DD DSN=&PRE..ASSIST.SOURCE(SOURCE2),DISP=SHR // DD DSN=&PRE..ASSIST.SOURCE(SOURCE3),DISP=SHR // DD DSN=&PRE..ASSIST.SOURCE(SOURCE4),DISP=SHR // DD DSN=&PRE..ASSIST.SOURCE(SOURCE5),DISP=SHR // DD DSN=&PRE..ASSIST.SOURCE(SOURCE6),DISP=SHR //SYSUT2 DD DSN=&&SOURCE,DISP=(,PASS),SPACE=(CYL,(4,1)), // DCB=(LRECL=80,BLKSIZE=8000,RECFM=FB) //* //ASSEMBLE EXEC HLASMCE,REGION.ASM=2M, // CPARM='TERM,USING(MAP,NOWARN)', // EPARM='LIST,MAP,XREF' //* //* SYSLIB has SYS1.MACLIB and SYS2.MACLIB as defaults //* //ASM.SYSLIB DD // DD // DD DSN=&&ASSYSGEN,DISP=(OLD,DELETE) //ASM.SYSTERM DD SYSOUT=A //ASM.SYSIN DD DSN=&&SOURCE,DISP=(OLD,DELETE) //LKED.SYSLMOD DD DSN=&PRE..ASSIST.LOADLIB(ASSIST), // DISP=(,CATLG,DELETE),SPACE=(TRK,(5,5,2),RLSE), // VOL=SER=ACA301 //ASGEN PEND //* //S1 EXEC ASGEN //ASSYSGEN.SYSIN DD * ./ ADD LIST=ALL,NAME=ASSYSGEN ./ NUMBER INCR=00001000,NEW1=00001000 TITLE 'ASSIST Generation Values AT NIU' SPACE 1 ********** NOTE ******** MES 3/17/98 * This ASSYSGEN contains all possible values. Most are unchanged * from their defaults. Those which have been changed at NIU are * marked with *NIUNIU* in cols 27/34 SPACE 1 ********** NOTE ******** SHOULD THE VALUE OF &$BLEN BE CHANGED * AND THE VERSION OF ASSIST TO BE GENERATED IS A DOS SYSTEM * THEN BE SURE TO CHANGE THE VALUE OF THE BLKSIZE PARAMETER * ON THE DTFSD DEFINITION IN CSECT XXXIOCO &$BLEN SETA 3520 HALF-TRACK SIZE FOR IBM 2316 PACK &$BLEN SETA 4*(&$BLEN/4) ROUND BLEN DOWN TO FULLWORD MULTIPLE &$BUFNO SETA 2 SET FOR 4 BUFFERS &$CMPRS SETB 1 ALLOW 'CMPRS' OPTION &$COMNT SETA 80 REQUIRE 80% COMMENTS, IF COMNT OPT &$DATARD SETB (1) ALLOW SINGLE JOB/TWO RDRS &$DEBUG SETB (1) FOR QUICK RUN, KILL GENERATION &$DECK SETB (1) ALLOW OBJECT DECKS TO BE PUNCHED &$DECSA SETB (1) ASSEMBLER WILL ACCEPT DECIMAL INSTS &$DECSM SETB (1) Everyone HAS DECIMAL INSTRUCTIONS &$DISKU SETA 1 SET FOR USER OPTION ON DISK UTILITY &$DMPAG SETB 1 ASSUME COMPLETION DUMP ON NEW PAGE J &$EXINT SETB 1 USE EXTENDED INTERPRETER L &$FLOTA SETB (1) ASSEMBLER ALLOWS FLOATING POINT &$FLOTAX SETB (1) ASSEMBLER ALLOWS EXTENDED F. P. &$FLOTE SETB (1) WE WILL EXECUTE FLTINGS,IF POSSIBLE &$FLOTEX SETB (1) WILL EXECUTE EXTENDED F. P., IF POSS &$FLOTM SETB (1) PSU 360/67 HAS FLOATING POINT &$FLOTMX SETB (1) *NIUNIU* Everyone has GOT EXTENDED F. P. &$FREE SETA 64*1024 *NIUNIU* RETURN 64K TO OS/390 L &$FREEMN SETA 16*1024 *NIUNIU* MINIMUM ALLOWED FREE=; *****NOTE J * IF YOU HAVE 80A ABEND'S OFTEN, RAISE THIS AS NEEDED*** J &$GENDAT SETC '&SYSDATE' *NIUNIU* CURRENT GENERATION DATE &$IDF SETA 20000000 *NIUNIU* Large val - use timer instead &$IMX SETA 20000000 *NIUNIU* Large val - use timer instead &$KP26 SETB (1) ALLOW 026 KEYPUNCH &$LDF SETA 60 *NIUNIU* DEFAULT 60 LINES/PAGE &$LMX SETA 63 MAXIMUM OF 63 LINES/PAGE * MACRO SETS: ONLY SIGNIFICANT IF &$MACROS=1. &$MACOPC SETB 1 ALLOW OPEN CODE, AT LEAST FOR TEST &$MACROS SETB 1 ALLOW MACROS TO BE PROC ESSED &$MACROG SETB 0 NO ASM G CODE ***NOT SUPPORTED YET** &$MACROH SETB 0 NO ASM H CODE ***NOT SUPPORTED YET** &$MACROV SETB 0 NO OS/VS ASSEMBLER SUPPORT YET &$MACSLB SETB 1 ALLOW MACRO LIBRARY FETCH &$MCHNE SETC '9672' *NIUNIU* NIU RUNS SYSTEM/390 &$MMACTR SETA 200 DEFAULT ACTR VALUE = 200 &$MMNEST SETA 15 DEFAULT LIMIT OF 15 DEEP IN MACS &$MMSTMG SETA 4000 DEFAULT MAXIMUM TOTAL 4000 MAC STMTS SPACE 1 &$MODEL SETC 'RB4' *NIUNIU* DEFAULT MODEL NUMBER &$OBJIN SETB (1) ALLOW OBJECT DECKS TO BE READ &$OPTMS SETA 4 MEDIUM OPTIMIZATION &$PAGE SETB (1) ALLOW ALL PAGE CONTROL OPTIONS &$PDF SETA 40 *NIUNIU* TOTAL PAGES &$PMX SETA 100 *NIUNIU* MAXIMUM POSSIBLE TOTAL &$PDDF SETA 25 *NIUNIU* NORMAL DUMP &$PDMX SETA 5 MAXIMUM OF 5 PAGES FOR THE DUMP &$PRIVOP SETB 1 ALLOW ALL PRIVILEGED OPERATIONS &$PRTSIZ SETA 121 LIMIT TO 121 CHARS AS DEFAULT LIM J &$PUNCH SETB (1) A REAL PUNCH EXISTS &$PXDF SETA 20 *NIUNIU* DEFAULT PAGES FOR EXECUTION &$PXMX SETA 25 *NIUNIU* MAXIMUM PAGES FOR EXECUTION &$RDF SETA 2000 *NIUNIU* DEFAULT RECORDS FOR EXEC &$RMX SETA 50000 *NIUNIU* MAX EXECUTION RECORDS &$RDDF SETA 250 *NIUNIU* DEFAULT RECORDS FOR A DUMP &$RDMX SETA 2000 *NIUNIU* MAXIMUM RECORDS FOR DUMP &$RECORD SETA 1 SHOW $TIRC RECREM CAN'T BE USED &$RELOC SETB (1) NEED RELOC SINCE WE HAVE REPL &$REPL SETA 2 ALLOW FULL REPL. OPTIONS CEH &$RXDF SETA 950 *NIUNIU* DEFAULT EXECUTION RECORDS &$RXMX SETA 25000 *NIUNIU* MAXIMUM EXECUTION RECORDS &$SYSTEM SETC 'OS/390' *NIUNIU* SYSTEM IS OS/390 V1R3 &$S370 SETA 1 *NIUNIU* NIU has 370 instruction set &$S370A SETB (1) ASSEMBLER ALLOWS S/370'S &$XIOS SETB (1) WE'RE ALLOWING XIO MACROS &$XXIOS SETB 0 ALLOW XGET - XPUT &X$DDMOR SETB 0 ALLOW USER OWN DD NAMES &$HEXI SETB (1) XHEXI ALLOWED THIS ASSEMBLY &$HEXO SETB (1) XHEXO ALLOWED &$TDF SETC '4.8' *NIUNIU* DEFAULT SECONDS FOR RUN &$TMX SETC '300' *NIUNIU* MAX POSSIBLE SECONDS FOR RUN &$TDDF SETC '.5' *NIUNIU* DEFAULT TIME FOR DUMP &$TDMX SETC '20' *NIUNIU* MAXIMUM TIME FOR A DUMP &$TIMER SETA 1 SHOW WE WANT OVERALL TIMING DONE &$TXDF SETC '2.3' *NIUNIU* DEFAULT TIME FOR EXECUTION &$TXMX SETC '100' *NIUNIU* MAXIMUM TIME FOR EXECUTION &$VERSLV SETC '4.0/A2' VERSION LEVEL (CEH,CPP,TXM 12/02/75) &$XREF SETB 1 ALLOW CROSS REFERENCE &$XREFDF(1) SETA 0 *NIUNIU* NO XREF BY DEFAULT &$XREFDF(2) SETA 3 COLLECT ALL MOD/FETCH DEFN A &$XREFDF(3) SETA 3 COLLECT ALL MOD/FETCH REFERENCES A &$XREF#B SETA 10 ALLOCATE 10 SLOTS/BLOCK A &$ASMLVL SETB ('&$SYSTEM'(1,2) EQ 'OS') SET LEVEL OF ASSEMBLER &$FLOTE SETB (&$FLOTE AND &$FLOTM) KILL GEN IF NO FLOATS &$FLOTEX SETB (&$FLOTEX AND &$FLOTMX) KILL GEN IF NO EXTENDED FLOATS &$BATCH SETC 'NOBATCH' DEFAULT FOR OS IS NOBATCH CEH &$IOUNIT(1) SETC 'SYSIN' SET OS PRIMARY INPUT &$IOUNIT(2) SETC 'FT05F001' *NIUNIU* SET OS SECONDARY INPUT &$IOUNIT(3) SETC 'SYSPRINT' *NIUNIU* SET OS PRINTER &$IOUNIT(4) SETC 'SYSPUNCH' *NIUNIU* SET OS PUNCH &$IOUNIT(5) SETC 'SYSUT1' *NIUNIU* SET OS DISK INTERMEDIATE &$IOUNIT(6) SETC 'SYSLIB' SET OS MACRO LIBRARY * //UPD.SYSIN DD * ./ CHANGE GBLC &$MODEL MODEL OF MACHINE BEING RUN ON NIU 02192000 &$MODEL SETC '65' DEFAULT MODEL NUMBER NIU 02240000 COPY ASSYSGEN Get NIU definitions NIU 02265100 &$ALIGN SETB 0 Don't suppress algn at assembly NIU 02265400 DC C' From Penn St Univ && NIU CompSci Dept***' NIU 04454000 DC C',&$BATCH,NOCMPRS,COMNT,DUMP=0,FREE=&$FREE' NIU 04524000 DC C',MACRO=F,MACTR=&$MMACTR,MNEST=&$MMNEST,MSTMG=&$MMSTMG' NIU 04526674 ORG XXTAB2+X'81' Lower NIU 08466100 DC C'abcdefghi' Case NIU 08466200 ORG XXTAB2+X'91' Alpha NIU 08466300 DC C'jklmnopqr' NIU 08466400 ORG XXTAB2+X'A2' NIU 08466500 DC C'stuvwxyz' NIU 08466600 ORG , NIU 08466700 NOP IARETA2 Fall thru to always check NIU 12412360 NOP OUENDRET Fall thru to always check NIU 18457500 TITLE '*** ECBRSTKD - DSECT FOR THE EXT''D INT BRANCH STACK' NIU 83004000 END ASSIST NIU 90000000