./ ADD NAME=ASSYSGEN 00000050 MACRO 00000100 ASSYSGEN 00000150 * 00000200 * THIS IS THE FULL VERSION WITH EVERYTHING 00000250 * 00000300 GBLB &$ACCT =1 => ACCOUNT DISCRIMINATION POSSIBL 00000350 GBLB &$ALIGN =0 -> NO BOUNDRY CHECK,=1 -> CHECKS 00000400 * ==0: 360 ONLY(USED FOR 360 ONLY) 00000450 * ==1:370 OR 360 ACTING AS 370'S 00000500 GBLB &$ASMLVL =0==>DOS,=1==>OS 00000550 GBLC &$BATCH LIMIT/DFLT: BATCH(DOS) - NOBATCH(OS) 00000600 GBLA &$BLEN SET TO BUFFER LENGTH IN BYTES 00000650 GBLC &$BTCC(4) BATCH CONTROL CARD ITEMS: SEE SETC'S J 00000700 GBLA &$BUFNO THE NUMBER OF BUFFERS 00000750 GBLB &$CMPRS =0 NO CMPRS CODE, =1 CMPRS OPTION 00000800 GBLA &$COMNT >0 COMMENT CHECK (&$COMNT % REQ) 00000850 GBLB &$DATARD =0 SOURCE,DATA THRU SYSIN ONLY(WATFV 00000900 * =1 DATA MAY BE READ FROM FT05F001 00000950 * (I.E.- SINGLE JOB PROCESSING-PSU) 00001000 GBLB &$DEBUG 0==>DEBUG MODE, 1==> PRODUCTION MODE 00001050 GBLB &$DECSA SHOULD ASSEMBLER PERMIT DECIMALS 00001100 GBLB &$DECSM DOES MACHINE HAVE DECIMALS 00001150 GBLB &$DECK =0 NO OBJ DECKS PUNCHED. =1 CAN DO 00001200 GBLA &$DISKU 0 FOR NO DISK UTILITY 00001250 * 1 FOR USER OPTION 00001300 * 2 FOR ALWAYS DISK 00001350 GBLB &$DMPAG =1 BEGIN DUMP ON NEW PAGE, 0=> NO J 00001400 GBLC &$DSKUDV FOR DOS DISKU ONLY 00001450 GBLA &$ERNUM # DIFFERENT ERROR MESSAGES 00001500 GBLB &$EXINT EXTENDED INTERPRETER 1 = YES 0 = NO 00001550 GBLB &$FLOTA SHOULD ASSEMBLER ALLOW FLOATING PT 00001600 GBLB &$FLOTAX SHOULD ASSEMBLER ALLOW EXTENDED FP'S 00001650 GBLB &$FLOTE =1==> WILL INTERPRET FLT,0==> (3 00001700 GBLB &$FLOTEX =1==> WILL INTERPRET EX FP'S,0==> NO 00001750 GBLB &$FLOTM =1==> MACHINE HAS FLTING PT,0==>NO 00001800 GBLB &$FLOTMX =1==> MACHINE HAS FX FP'S,0==> NO 00001850 GBLA &$FREE,&$FREEMN DEFAULT FREE=, MINIMUM FREE= (80A) J 00001900 GBLC &$GENDAT GENERATATION DATE FOR THIS ASSIST 00001950 GBLB &$HASPBT =1 HASP AUTOBATCH CODE SUPPORTED J 00002000 GBLB &$HEXO =0=> NO HEXO =1=> XHEXO ALLOWED 00002050 GBLB &$HEXI =0=> NO HEXI =1=> XHEXI ALLOWED 00002100 GBLA &$IDF,&$IMX DRFAULT,MAXIMUM I= 00002150 GBLC &$IOUNIT(8) DIFFERENT DDNAMES USED IN ASSIST 00002200 GBLB &$JRM =1 FOR PSU LOCAL SPECIAL CODE: JRM 00002250 GBLB &$KP26 =1 ALLOW KP=26 OR K&=29 OPTION 00002300 * =0 ALLOW ONLY 029 KEYPUNCH CARDS 00002350 GBLA &$LDF,&$LMX DEFAULT,MAX L= # LINES/PAGE 00002400 GBLB &$MACOPC =1 => ALLOW OPEN CODE COND ASMBL 00002450 GBLB &$MACROG =1 ==> ADD ASM G FEATURES TO ASM F 00002500 GBLB &$MACROH =1 ==> ADD SOME ASM H FEATURES TO F 00002550 GBLB &$MACROV OS/VS SUPPORT 00002600 GBLB &$MACROS MACRO/CONDITIONAL ASSEMBLY ALLOWED 00002650 * **NOTE** BASIC MACRO FACILITY IS ASSEMBLER F COMPATIBLE. 00002700 GBLB &$MACSLB =1 ==> MACRO LIBRARY ALLOWED 00002750 GBLC &$MCHNE SO CAN CHANGE SYSTEM TYPE 00002800 GBLA &$MMACTR LOCAL ACTR INITIAL VALUE DEFAULT 00002850 GBLA &$MMNEST MACRO NEST LIMIT DEFAULT 00002900 GBLA &$MMSTMG GLOBAL MACRO STMT LIMIT DEFAULT 00002950 GBLA &$MODEL MODEL NUMBER OF 360 BEING RUN ON 00003000 GBLB &$OBJIN =0 CANNOT READ OBJECT DECK. =1 CAN 00003050 GBLA &$OPTMS OPTIMIZE - 0==> MEMORY, 9==> SPEED 00003100 GBLB &$PAGE =0 NO PAGE COINT/CONTROL CODE EXISTS 00003150 * =1 PAGE CONTROL&OPTIONS ALLOWED 00003200 GBLA &$PDF,&$PMX DEFAULT,MAX P= # PAGES LIMIT 00003250 GBLA &$PDDF,&$PDMX DEFAULT,MAX PD= # PAGES SAVED FOR DP 00003300 GBLB &$PRIVOP =0==>NO PRIV OPS, =1==> PRIV OPS OK 00003350 GBLA &$PRTSIZ MAX # CHARS IN PRINT LINE FOR ASM J 00003400 GBLB &$PUNCH =0 WE DON'T ACTUALLY HAVE CARD PUNCH 00003450 * =1 REAL PUNCH EXISTS, POSSIBLE USED 00003500 GBLA &$PXDF,&$PXMX DEFAULT,MAX PX= PAGES FOR EXECUTION 00003550 GBLB &$P370 =1 WILL INTERPRET PRIVELEGED S/370 00003600 GBLB &$P370A SHOULD ASSEMBLER PERMIT PRIV S/370'S 00003650 GBLA &$RDF,&$RMX DEFAULT,MAX R= TOTAL # RECORDS 00003700 GBLA &$RDDF,&$RDMX DEFAULT,MAX RD= RECORDS FOR DUMP 00003750 GBLA &$RECORD =0,1=> NO $TIRC RECREM, =2=> $TIRC 00003800 GBLB &$RECOVR (ONLY USED FOR &$RECORD=2). 00003850 * =0 => R= DOES NOT OVERRIDE $TIRC VALUE, =1 => IT DOES. 00003900 * (AT PSU, OUTPUT CAN GO TO BAT FILES - DON'T COUNT). 00003950 GBLB &$RELOC =0==> NO RELOCATION CODE GENERATED 00004000 GBLA &$REPL 0=> NO REPL,1=> LIMITED,2=> FULL 00004050 GBLA &$RXDF,&$RXMX DEFAULT,MAX RD= RECORDS FOR EXECUTE 00004100 GBLB &$SPECIO SPECIAL ROUTINES EXIST(TYPE=$IS+) 00004150 GBLA &$SYHASH SIZE OF INITIAL PTR TABLE FOR SYMOPS 00004200 GBLC &$SYSTEM SYSTEM BEGIN RUN - DOS,PCP,MFT,MVT 00004250 GBLA &$S370 =0==> NO S/370 INSTR INTERPRETED 00004300 * =1==> S/370 INSTR INTERPRETED ON 370 00004350 * =2==> S/370 INSTR INTERPRETED ON 360 00004400 GBLB &$S370A SHOULD ASSEMBLER PERMIT SYSTEM 370'S 00004450 GBLC &$TDF,&$TMX DEFAULT,MAX T= TOTAL TIME FOR RUN 00004500 GBLC &$TDDF,&$TDMX DEFAULT,MAX TD= TIME FOR DUMP 00004550 GBLA &$TIMER 0==> NO TIMING AT ALL 00004600 * 1==> STIMER/TTIMER ONLY. =2==> LOCAL TIMER FOR TIMREM 00004650 GBLC &$TXDF,&$TXMX DEFAULT,MAX TX= TIME FOR EXECUTION 00004700 GBLC &$VERSLV VERSION #.LEVEL # 00004750 GBLB &$XIOS =0==>NO XIO MACROS,=1==>XIO MACROS 00004800 GBLB &$XREF CONTROL GENERATION OF XREF FACILITYA 00004850 * =1 FULL XREF, =0 NO XREF AT ALL A 00004900 GBLA &$XREFDF(3) DEFAULT VALUES FOR FLAGS A 00004950 * &$XREFDF(1)=0 NO XREF(OTHERS =3MEANS COMPRESSED LISTINGA 00005000 * &$XREFDF(2)=3 COLLECT MODIFY AND FETCH DEFN A 00005050 * &$XREFDF(3)=3 COLLECT REFERENCES MODIFY/FETCH A 00005100 GBLA &$XREF#B NUMBER OF SLOTS FOR XREF BLKS A 00005150 GBLB &$XXIOS =0 ALLOWS XGET AND XPUT 00005200 GBLB &X$DDMOR =0 ALLOWS USER OWN DDNAMES 00005250 ** GLOBAL SET VARIABLES - INTERNAL TYPE - * 00005300 GBLC &DEBUG DEBUG NUMBER FOR TESTING AVDEBUG 00005350 GBLC &ID IDENT GENERATION CONTROL 00005400 GBLC &TRACE SPECIFIES FORM OF TRACE-SNAP,*,NO 00005450 SPACE 1 00005500 &$ALIGN SETB 1 NEED BOUNDRY CHECKING 00005550 &$BATCH SETC 'BATCH' DEFAULT VALUE IS BATCH RUNS 00005600 &$BLEN SETA 3520 SET FOR HALF TRACK BUFFERS 00005650 &$BLEN SETA 4*(&$BLEN/4) ROUND BLEN DOWN TO FULLWORD MULTIPLE 00005700 &$BTCC(1) SETC '$' CONTROL CHARACTER FOR BATCH CARDS J 00005750 &$BTCC(2) SETC 'JOB' JOB BEGINNING INDICATOR J 00005800 &$BTCC(3) SETC 'ENTRY' BEGIN DATA CARD: SET = '' IF NONE NEEDEDJ 00005850 &$BTCC(4) SETC 'STOP' TERMINATOR CARD: SET = '' IF NONE J 00005900 &$BUFNO SETA 2 SET FOR 4 BUFFERS 00005950 &$CMPRS SETB (1) ALLOW CMPRS OPTION 00006000 &$COMNT SETA 80 REQUIRE 80% COMMENTS, IF COMNT OPT 00006050 &$DATARD SETB (1) ALLOW SINGLE JOB/TWO RDRS 00006100 &$DEBUG SETB (1) FOR QUICK RUN, KILL GENERATION 00006150 &$DECK SETB (1) ALLOW OBJECT DECKS TO BE PUNCHED 00006200 &$DECSA SETB (1) ASSEMBLER WILL ACCEPT DECIMAL INSTS 00006250 &$DECSM SETB (1) PSU 360/67 HAS DECIMAL INSTRUCTIONS 00006300 &$DISKU SETA 1 SET FOR USER OPTION ON DISK UTILITY 00006350 &$DMPAG SETB 1 ASSUME COMPLETION DUMP ON NEW PAGE J 00006400 &$DSKUDV SETC '2314' SET DEVICE FOR DOS DISKU CODE 00006450 &$EXINT SETB 1 BIG OS GETS NEW INTERPRETER *** 00006500 &$FLOTA SETB (1) ASSEMBLER ALLOWS FLOATING POINT 00006550 &$FLOTAX SETB (1) ASSEMBLER ALLOWS EXTENDED F. P. 00006600 &$FLOTE SETB (1) WE WILL EXECUTE FLTINGS,IF POSSIBLE 00006650 &$FLOTEX SETB (1) WILL EXECUTE EXTENDED F. P., IF POSS 00006700 &$FLOTM SETB (1) PSU 360/67 HAS FLOATING POINT 00006750 &$FLOTMX SETB (1) PSU 360/67 HASN'T GOT EXTENDED F. P. 00006800 &$FREE SETA 4096 NORMALLY RETURN 4K TO OS/360 00006850 &$FREEMN SETA 2048 MINIMUM ALLOWED FREE=; *****NOTE J 00006900 * IF YOU HAVE 80A ABEND'S OFTEN, RAISE THIS AS NEEDED*** J 00006950 &$GENDAT SETC '04/28/75' CURRENT GENERATION DATE J 00007000 &$HASPBT SETB 1 HASP BATCH ON 00007050 &$HEXI SETB (1) XHEXI ALLOWED THIS ASSEMBLY 00007100 &$HEXO SETB (1) XHEXO ALLOWED 00007150 &$IDF SETA 150000 100 SECS ON /67 00007200 &$IMX SETA 150000 100 SECS ON /67 00007250 &$KP26 SETB (1) ALLOW 026 KEYPUNCH 00007300 &$LDF SETA 63 DEFAULT 63 LINES/PAGE 00007350 &$LMX SETA 63 MAXIMUM OF 63 LINES/PAGE 00007400 * MACRO SETS: ONLY SIGNIFICANT IF &$MACROS=1. 00007450 &$MACOPC SETB 1 OPEN CODE, COND ASSMBL WORKS 00007500 &$MACROS SETB 1 ALLOW MACROS TO BE PROC ESSED 00007550 &$MACROG SETB 0 NO ASM G CODE ***NOT SUPPORTED YET** 00007600 &$MACROH SETB 0 NO ASM H CODE ***NOT SUPPORTED YET** 00007650 &$MACROV SETB 0 NO OS/VS ASSEMBLER SUPPORT YET 00007700 &$MACSLB SETB 1 ALLOW MACRO LIBRARY 00007750 &$MCHNE SETC '370' MACHINE GENERATED ON 00007800 &$MMACTR SETA 200 DEFAULT ACTR VALUE = 200 00007850 &$MMNEST SETA 15 DEFAULT LIMIT OF 15 DEEP IN MACS 00007900 &$MMSTMG SETA 4000 DEFAULT MAXIMUM TOTAL 4000 MAC STMTS 00007950 SPACE 1 00008000 &$MODEL SETA 65 DEFAULT MODEL NUMBER 00008050 &$OBJIN SETB (1) ALLOW OBJECT DECKS TO BE READ 00008100 &$OPTMS SETA 9 WE WANT SPEED OPTIMIZATION 00008150 &$PAGE SETB (1) ALLOW ALL PAGE CONTROL OPTIONS 00008250 &$PDF SETA 10 TEN TOTAL PAGES 00008300 &$PMX SETA 25 MAXIMUM POSSIBLE OF 25 TOTAL 00008350 &$PDDF SETA 1 NORMAL DUMP-JUST FIRST PAGE 00008400 &$PDMX SETA 5 MAXIMUM OF 5 PAGES FOR THE DUMP 00008450 &$PRIVOP SETB 1 ALLOW ALL PRIVILEGED OPERATIONS 00008500 &$PRTSIZ SETA 121 LIMIT TO 121 CHARS AS DEFAULT LIM J 00008550 &$PUNCH SETB (1) A REAL PUNCH EXISTS 00008600 &$PXDF SETA 5 MAXIMUM PAGES FOR EXECUTION 00008650 &$PXMX SETA 5 MAXIMUM MAXIMUM FOR EXECUTION 00008700 &$RDF SETA 100000 DEFAULT RECORDS FOR EXEC 00008750 &$RMX SETA 100000 MAX EXECUTION RECORDS 00008800 &$RDDF SETA 25 DEFAULT RECORDS FOR A DUMP 00008850 &$RDMX SETA 5000 MAXIMUM RECORDS FOR DUMP 00008900 &$RECORD SETA 1 SHOW $TIRC RECREM CAN'T BE USED 00008950 &$RELOC SETB (1) NEED RELOC SINCE WE HAVE REPL 00009000 &$REPL SETA 2 COMPLETE REPLACEMENT ALLOWED 00009050 &$RXDF SETA 10000 EXECUTION RECORDS 00009100 &$RXMX SETA 10000 EXECUTION RECORDS 00009150 &$SYSTEM SETC 'OS-MVT' SYSTEM IS OS OPTION MVT 00009200 &$S370 SETA 2 PSY WANTS S/370'S ON 360/67 00009250 &$S370A SETB (1) ASSEMBLER ALLOWS S/370'S 00009300 &$TDDF SETC '.1' DEFAULT TIME FOR DUMP 00009350 &$TDF SETC '100' SECONDS FOR EXECUTION 00009400 &$TMX SETC '200' MAX POSSIBLE SECONDS FOR EXECUTION 00009450 &$TDMX SETC '10' MAXIMUM TIME FOR A DUMP 00009500 &$TIMER SETA 1 SHOW WE WANT OVERALL TIMING DONE 00009550 &$TXDF SETC '100' MAX TIME FOR EXECUTION 00009600 &$TXMX SETC '200' MAXIMUM MAXIMUM FOR EXECUTION 00009650 &$VERSLV SETC '4.0/A' CURRENT ASSIST VERSION J 00009700 &$XIOS SETB (1) WE'RE ALLOWING XIO MACROS 00009750 &$XREF SETB 1 ALLOW CROSS REFERENCE 00009800 &$XREFDF(1) SETA 0 NO XREF A 00009850 &$XREFDF(2) SETA 3 COLLECT ALL MOD/FETCH DEFN A 00009900 &$XREFDF(3) SETA 3 COLLECT ALL MOD/FETCH REFERENCES A 00009950 &$XREF#B SETA 10 ALLOCATE 10 SLOTS/BLOCK A 00010000 &$ASMLVL SETB ('&$SYSTEM'(1,2) EQ 'OS') SET LEVEL OF ASSEMBLER 00010050 &$FLOTE SETB (&$FLOTE AND &$FLOTM) KILL GEN IF NO FLOATS 00010100 &$FLOTEX SETB (&$FLOTEX AND &$FLOTMX) KILL GEN IF NO EXTENDED FLOATS 00010150 &$HASPBT SETB (&$HASPBT AND &$ASMLVL) ELIM HASP IF NOT OS SYSTEM J 00010200 &$MACSLB SETB (&$MACSLB AND &$MACROS) REMOVE LIBRARY IF NO MACROS J 00010250 &$RELOC SETB (&$RELOC OR (&$REPL NE 0)) IF REPL, MAKE SURE RELOC J 00010300 &ID SETC 'NO' SET NO ID FOR TIME BEING 00010350 AIF (&$DEBUG).EQU1 LEAVE NO ID IF PRODUCTION PROG 00010400 &ID SETC '*' DEBUG==> GENERATE ID'S AT ENTRIES 00010450 .EQU1 ANOP 00010500 AIF (&$ASMLVL).OSGEN SKIP IF OS GENERATION 00010550 &$BATCH SETC 'BATCH' DEFAULT FOR DOS IS BATCH 00010560 &$IOUNIT(1) SETC 'SYSIPT' SET DOS MAIN INPUT 00010600 &$IOUNIT(2) SETC 'SYSRDR' SET DOS SECONDARY INPUT 00010650 &$IOUNIT(3) SETC 'SYSLST' SET DOS PRINTER 00010700 &$IOUNIT(4) SETC 'SYSPCH' SET DOS PUNCH 00010750 &$IOUNIT(5) SETC 'SYS001' SET TO 'HRB' SCRATCH DEVICE 00010800 &$BUFNO SETA 2 FOR DOS GEN INSURE ONLY 2 BUFFERS 00010850 &$DSKUDV SETC '2314' SET DOS DISK DRIVE TYPE 00010900 AGO .OSGEN1 00010950 .OSGEN ANOP 00011000 &$BATCH SETC 'NOBATCH' DEFAULT FOR OS IS NOBATCH 00011010 &$IOUNIT(1) SETC 'SYSIN' SET OS PRIMARY INPUT 00011050 &$IOUNIT(2) SETC 'FT05F001' SET OS SECONDARY INPUT 00011100 &$IOUNIT(3) SETC 'FT06F001' SET OS PRINTER 00011150 &$IOUNIT(4) SETC 'FT07F001' SET OS PUNCH 00011200 &$IOUNIT(5) SETC 'FT08F001' SET OS DISK INTERMEDIATE 00011250 &$IOUNIT(6) SETC 'SYSLIB' SET OS MACRO LIBRARY 00011300 .OSGEN1 ANOP 00011350 MEND 00011400 ./ ADD NAME=ASSYSGEN 00011450 MACRO 00011500 ASSYSGEN 00011550 * 00011600 * THIS IS THE SMALL OS ASSIST SYSTEM 00011650 * 00011700 GBLB &$ACCT =1 => ACCOUNT DISCRIMINATION POSSIBL 00011750 GBLB &$ALIGN =0 -> NO BOUNDRY CHECK,=1 -> CHECKS 00011800 * ==0: 360 ONLY(USED FOR 360 ONLY) 00011850 * ==1:370 OR 360 ACTING AS 370'S 00011900 GBLB &$ASMLVL =0==>DOS,=1==>OS 00011950 GBLC &$BATCH LIMIT/DFLT: BATCH(DOS) - NOBATCH(OS) 00012000 GBLC &$BTCC(4) BATCH CONTROL CARD ITEMS: SEE SETC'S J 00012050 GBLA &$BLEN SET TO BUFFER LENGTH IN BYTES 00012100 GBLA &$BUFNO THE NUMBER OF BUFFERS 00012150 GBLB &$CMPRS =0 NO CMPRS CODE, =1 CMPRS OPTION 00012200 GBLA &$COMNT >0 COMMENT CHECK (&$COMNT % REQ) 00012250 GBLB &$DATARD =0 SOURCE,DATA THRU SYSIN ONLY(WATFV 00012300 * =1 DATA MAY BE READ FROM FT05F001 00012350 * (I.E.- SINGLE JOB PROCESSING-PSU) 00012400 GBLB &$DECSA SHOULD ASSEMBLER PERMIT DECIMALS 00012450 GBLB &$DECSM DOES MACHINE HAVE DECIMALS 00012500 GBLB &$DECK =0 NO OBJ DECKS PUNCHED. =1 CAN DO 00012550 GBLA &$DISKU 0 FOR NO DISK UTILITY 00012600 * 1 FOR USER OPTION 00012650 * 2 FOR ALWAYS DISK 00012700 GBLB &$DMPAG =1 BEGIN DUMP ON NEW PAGE, 0=> NO J 00012750 GBLC &$DSKUDV FOR DOS DISKU ONLY 00012800 GBLB &$FLOTA SHOULD ASSEMBLER ALLOW FLOATING PT 00012850 GBLB &$FLOTAX SHOULD ASSEMBLER ALLOW EXTENDED FP'S 00012900 GBLB &$DEBUG 0==>DEBUG MODE, 1==> PRODUCTION MODE 00012950 GBLA &$ERNUM # DIFFERENT ERROR MESSAGES 00013000 GBLB &$EXINT EXTENDED INTERPRETER 0 = OFF, 1=ON 00013050 GBLB &$FLOTE =1==> WILL INTERPRET FLT,0==> (3 00013100 GBLB &$FLOTEX =1==> WILL INTERPRET EX FP'S,0==> NO 00013150 GBLB &$FLOTM =1==> MACHINE HAS FLTING PT,0==>NO 00013200 GBLB &$FLOTMX =1==> MACHINE HAS FX FP'S,0==> NO 00013250 GBLA &$FREE,&$FREEMN DEFAULT FREE=, MINIMUM FREE= (80A) J 00013300 GBLC &$GENDAT GENERATATION DATE FOR THIS ASSIST 00013350 GBLB &$HASPBT =1 HASP AUTOBATCH CODE SUPPORTED J 00013400 GBLB &$HEXO =0=> NO HEXO =1=> XHEXO ALLOWED 00013450 GBLB &$HEXI =0=> NO HEXI =1=> XHEXI ALLOWED 00013500 GBLA &$IDF,&$IMX DRFAULT,MAXIMUM I= 00013550 GBLC &$IOUNIT(8) DIFFERENT DDNAMES USED IN ASSIST 00013600 GBLB &$JRM =1 FOR PSU LOCAL SPECIAL CODE: JRM 00013650 GBLB &$KP26 =1 ALLOW KP=26 OR K&=29 OPTION 00013700 * =0 ALLOW ONLY 029 KEYPUNCH CARDS 00013750 GBLA &$LDF,&$LMX DEFAULT,MAX L= # LINES/PAGE 00013800 GBLB &$MACOPC =1 => ALLOW OPEN CODE COND ASMBL 00013850 GBLB &$MACROG =1 ==> ADD ASM G FEATURES TO ASM F 00013900 GBLB &$MACROH =1 ==> ADD SOME ASM H FEATURES TO F 00013950 GBLB &$MACROV OS/VS SUPPORT 00014000 GBLB &$MACROS MACRO/CONDITIONAL ASSEMBLY ALLOWED 00014050 * **NOTE** BASIC MACRO FACILITY IS ASSEMBLER F COMPATIBLE. 00014100 GBLB &$MACSLB =1 ==> MACRO LIBRARY ALLOWED 00014150 GBLC &$MCHNE SO CAN CHANGE SYSTEM TYPE 00014200 GBLA &$MMACTR LOCAL ACTR INITIAL VALUE DEFAULT 00014250 GBLA &$MMNEST MACRO NEST LIMIT DEFAULT 00014300 GBLA &$MMSTMG GLOBAL MACRO STMT LIMIT DEFAULT 00014350 GBLA &$MODEL MODEL NUMBER OF 360 BEING RUN ON 00014400 GBLB &$OBJIN =0 CANNOT READ OBJECT DECK. =1 CAN 00014450 GBLA &$OPTMS OPTIMIZE - 0==> MEMORY, 9==> SPEED 00014500 GBLB &$PAGE =0 NO PAGE COINT/CONTROL CODE EXISTS 00014550 * =1 PAGE CONTROL&OPTIONS ALLOWED 00014600 GBLA &$PDF,&$PMX DEFAULT,MAX P= # PAGES LIMIT 00014650 GBLA &$PDDF,&$PDMX DEFAULT,MAX PD= # PAGES SAVED FOR DP 00014700 GBLB &$PRIVOP =0==>NO PRIV OPS, =1==> PRIV OPS OK 00014750 GBLA &$PRTSIZ MAX # CHARS IN PRINT LINE FOR ASM J 00014800 GBLB &$PUNCH =0 WE DON'T ACTUALLY HAVE CARD PUNCH 00014850 * =1 REAL PUNCH EXISTS, POSSIBLE USED 00014900 GBLA &$PXDF,&$PXMX DEFAULT,MAX PX= PAGES FOR EXECUTION 00014950 GBLB &$P370 =1 WILL INTERPRET PRIVELEGED S/370 00015000 GBLB &$P370A SHOULD ASSEMBLER PERMIT PRIV S/370'S 00015050 GBLA &$RDF,&$RMX DEFAULT,MAX R= TOTAL # RECORDS 00015100 GBLA &$RDDF,&$RDMX DEFAULT,MAX RD= RECORDS FOR DUMP 00015150 GBLA &$RECORD =0,1=> NO $TIRC RECREM, =2=> $TIRC 00015200 GBLB &$RECOVR (ONLY USED FOR &$RECORD=2). 00015250 * =0 => R= DOES NOT OVERRIDE $TIRC VALUE, =1 => IT DOES. 00015300 * (AT PSU, OUTPUT CAN GO TO BAT FILES - DON'T COUNT). 00015350 GBLB &$RELOC =0==> NO RELOCATION CODE GENERATED 00015400 GBLA &$REPL 0=> NO REPL,1=> LIMITED,2=> FULL 00015450 GBLA &$RXDF,&$RXMX DEFAULT,MAX RD= RECORDS FOR EXECUTE 00015500 GBLB &$SPECIO SPECIAL ROUTINES EXIST(TYPE=$IS+) 00015550 GBLA &$SYHASH SIZE OF INITIAL PTR TABLE FOR SYMOPS 00015600 GBLC &$SYSTEM SYSTEM BEGIN RUN - DOS,PCP,MFT,MVT 00015650 GBLA &$S370 =0==> NO S/370 INSTR INTERPRETED 00015700 * =1==> S/370 INSTR INTERPRETED ON 370 00015750 * =2==> S/370 INSTR INTERPRETED ON 360 00015800 GBLB &$S370A SHOULD ASSEMBLER PERMIT SYSTEM 370'S 00015850 GBLC &$TDF,&$TMX DEFAULT,MAX T= TOTAL TIME FOR RUN 00015900 GBLC &$TDDF,&$TDMX DEFAULT,MAX TD= TIME FOR DUMP 00015950 GBLA &$TIMER 0==> NO TIMING AT ALL 00016000 * 1==> STIMER/TTIMER ONLY. =2==> LOCAL TIMER FOR TIMREM 00016050 GBLC &$TXDF,&$TXMX DEFAULT,MAX TX= TIME FOR EXECUTION 00016100 GBLC &$VERSLV VERSION #.LEVEL # 00016150 GBLB &$XIOS =0==>NO XIO MACROS,=1==>XIO MACROS 00016200 GBLB &$XREF CONTROL GENERATION OF XREF FACILITYA 00016250 * =1 FULL XREF, =0 NO XREF AT ALL A 00016300 GBLA &$XREFDF(3) DEFAULT VALUES FOR FLAGS A 00016350 * &$XREFDF(1)=0 NO XREF(OTHERS =3MEANS COMPRESSED LISTINGA 00016400 * &$XREFDF(2)=3 COLLECT MODIFY AND FETCH DEFN A 00016450 * &$XREFDF(3)=3 COLLECT REFERENCES MODIFY/FETCH A 00016500 GBLA &$XREF#B NUMBER OF SLOTS FOR XREF BLKS A 00016550 GBLB &$XXIOS =0 ALLOWS XGET AND XPUT 00016600 GBLB &X$DDMOR =0 ALLOWS USER OWN DDNAMES 00016650 ** GLOBAL SET VARIABLES - INTERNAL TYPE - * 00016700 GBLC &DEBUG DEBUG NUMBER FOR TESTING AVDEBUG 00016750 GBLC &ID IDENT GENERATION CONTROL 00016800 GBLC &TRACE SPECIFIES FORM OF TRACE-SNAP,*,NO 00016850 SPACE 1 00016900 &$ALIGN SETB 1 NEED BOUNDRY CHECKING 00016950 &$BATCH SETC 'BATCH' DEFAULT VALUE IS BATCH RUNS 00017000 &$BLEN SETA 3520 SET FOR HALF-TRACK BUFFERS 00017050 &$BLEN SETA 4*(&$BLEN/4) ROUND BLEN DOWN TO FULLWORD MULTIPLE 00017100 &$BTCC(1) SETC '$' CONTROL CHARACTER FOR BATCH CARDS J 00017150 &$BTCC(2) SETC 'JOB' JOB BEGINNING INDICATOR J 00017200 &$BTCC(3) SETC 'ENTRY' BEGIN DATA CARD: SET = '' IF NONE NEEDEDJ 00017250 &$BTCC(4) SETC 'STOP' TERMINATOR CARD: SET = '' IF NONE J 00017300 &$BUFNO SETA 2 SET FOR 4 BUFFERS 00017350 &$CMPRS SETB (0) NOT ALLOW CMPRS OPTION 00017400 &$COMNT SETA 0 NOT REQUIRE 80% COMMENTS, IF COMNT OPT 00017450 &$DATARD SETB (0) NOT ALLOW SINGLE JOB/TWO RDRS 00017500 &$DEBUG SETB (1) FOR QUICK RUN, KILL GENERATION 00017550 &$DECK SETB (0) NOT ALLOW OBJECT DECKS TO BE PUNCHED 00017600 &$DECSA SETB (1) ASSEMBLER WILL ACCEPT DECIMAL INSTS 00017650 &$DECSM SETB (1) PSU 360/67 HAS DECIMAL INSTRUCTIONS 00017700 &$DISKU SETA 0 NOT SET FOR USER OPTION ON DISK UTILITY 00017750 &$DMPAG SETB 1 ASSUME COMPLETION DUMP ON NEW PAGE J 00017800 &$DSKUDV SETC '2314' SET DEVICE FOR DOS DISKU CODE 00017850 &$EXINT SETB 0 NO EXTENDED INTERPRETER THIS VERSION 00017900 &$FLOTA SETB (1) ASSEMBLER ALLOWS FLOATING POINT 00017950 &$FLOTAX SETB (0) NOT ASSEMBLER ALLOWS EXTENDED F. P. 00018000 &$FLOTE SETB (1) WE WILL EXECUTE FLTINGS,IF POSSIBLE 00018050 &$FLOTEX SETB (0) NOT WILL EXECUTE EXTENDED F. P., IF POSS 00018100 &$FLOTM SETB (1) PSU 360/67 HAS FLOATING POINT 00018150 &$FLOTMX SETB (0) PSU 360/67 HASN'T GOT EXTENDED F. P. 00018200 &$FREE SETA 4096 NORMALLY RETURN 4K TO OS/360 00018250 &$FREEMN SETA 2048 MINIMUM ALLOWED FREE=; *****NOTE J 00018300 * IF YOU HAVE 80A ABEND'S OFTEN, RAISE THIS AS NEEDED*** J 00018350 &$GENDAT SETC '04/28/75' CURRENT GENERATION DATE J 00018400 &$HASPBT SETB 0 HASP OFF 00018450 &$HEXI SETB (0) NOT XHEXI ALLOWED THIS ASSEMBLY 00018500 &$HEXO SETB (1) XHEXO ALLOWED 00018550 &$IDF SETA 150000 100 SECS ON /67 00018600 &$IMX SETA 150000 100 SECS ON /67 00018650 &$KP26 SETB (0) NOT ALLOW 026 KEYPUNCH 00018700 &$LDF SETA 63 DEFAULT 63 LINES/PAGE 00018750 &$LMX SETA 63 MAXIMUM OF 63 LINES/PAGE 00018800 * MACRO SETS: ONLY SIGNIFICANT IF &$MACROS=1. 00018850 &$MACOPC SETB 0 OPEN CODE, COND ASMBL NOT YET 00018900 &$MACROS SETB 0 NOT ALLOW MACROS TO BE PROC ESSED 00018950 &$MACROG SETB 0 NO ASM G CODE ***NOT SUPPORTED YET** 00019000 &$MACROH SETB 0 NO ASM H CODE ***NOT SUPPORTED YET** 00019050 &$MACROV SETB 0 NO OS/VS ASSEMBLER SUPPORT YET 00019100 &$MACSLB SETB 0 NOT ALLOW MACRO LIBRARY 00019150 &$MCHNE SETC '370' MACHINE GENERATED ON 00019200 &$MMACTR SETA 200 DEFAULT ACTR VALUE = 200 00019250 &$MMNEST SETA 15 DEFAULT LIMIT OF 15 DEEP IN MACS 00019300 &$MMSTMG SETA 4000 DEFAULT MAXIMUM TOTAL 4000 MAC STMTS 00019350 SPACE 1 00019400 &$MODEL SETA 65 DEFAULT MODEL NUMBER 00019450 &$OBJIN SETB (0) NOT ALLOW OBJECT DECKS TO BE READ 00019500 &$OPTMS SETA 4 MEDIUM OPTIMIZATION 00019550 &$PAGE SETB (0) NOT ALLOW ALL PAGE CONTROL OPTIONS 00019600 &$PDF SETA 10 TEN TOTAL PAGES 00019650 &$PMX SETA 25 MAXIMUM POSSIBLE OF 25 TOTAL 00019700 &$PDDF SETA 1 NORMAL DUMP-JUST FIRST PAGE 00019750 &$PDMX SETA 5 MAXIMUM OF 5 PAGES FOR THE DUMP 00019800 &$PRIVOP SETB 0 NOT ALLOW ALL PRIVILEGED OPERATIONS 00019850 &$PRTSIZ SETA 121 LIMIT TO 121 CHARS AS DEFAULT LIM J 00019900 &$PUNCH SETB (0) NOT A REAL PUNCH EXISTS 00019950 &$PXDF SETA 5 MAXIMUM PAGES FOR EXECUTION 00020000 &$PXMX SETA 5 MAXIMUM MAXIMUM FOR EXECUTION 00020050 &$RDF SETA 100000 DEFAULT RECORDS FOR EXEC 00020100 &$RMX SETA 100000 MAX EXECUTION RECORDS 00020150 &$RDDF SETA 25 DEFAULT RECORDS FOR A DUMP 00020200 &$RDMX SETA 5000 MAXIMUM RECORDS FOR DUMP 00020250 &$RECORD SETA 1 SHOW $TIRC RECREM CAN'T BE USED 00020300 &$RELOC SETB (1) NEED RELOC SINCE WE HAVE REPL 00020350 &$REPL SETA 0 NOT COMPLETE REPLACEMENT ALLOWED 00020400 &$RXDF SETA 10000 EXECUTION RECORDS 00020450 &$RXMX SETA 10000 EXECUTION RECORDS 00020500 &$SYSTEM SETC 'OS-MVT' SYSTEM IS OS OPTION MVT 00020550 &$S370 SETA 0 NOT PSY WANTS S/370'S ON 360/67 00020600 &$S370A SETB (0) NOT ASSEMBLER ALLOWS S/370'S 00020650 &$TDF SETC '100' SECONDS FOR EXECUTION 00020700 &$TDDF SETC '.1' DEFAULT TIME FOR DUMP 00020750 &$TDMX SETC '10' MAXIMUM TIME FOR A DUMP 00020800 &$TIMER SETA 1 SHOW WE WANT OVERALL TIMING DONE 00020850 &$TMX SETC '200' MAX POSSIBLE SECONDS FOR EXECUTION 00020900 &$TXDF SETC '100' MAX TIME FOR EXECUTION 00020950 &$TXMX SETC '200' MAXIMUM MAXIMUM FOR EXECUTION 00021000 &$XXIOS SETB 1 NO XGET/XPUT 00021050 &$VERSLV SETC '4.0/A' CURRENT ASSIST VERSION J 00021100 &$XIOS SETB (1) WE'RE ALLOWING XIO MACROS 00021150 &$XREF SETB 0 DO NOT ALLOW CROSS REFERENCE 00021200 &$XREFDF(1) SETA 0 NO XREF A 00021250 &$XREFDF(2) SETA 3 COLLECT ALL MOD/FETCH DEFN A 00021300 &$XREFDF(3) SETA 3 COLLECT ALL MOD/FETCH REFERENCES A 00021350 &$XREF#B SETA 10 ALLOCATE 10 SLOTS/BLOCK A 00021400 &$ASMLVL SETB ('&$SYSTEM'(1,2) EQ 'OS') SET LEVEL OF ASSEMBLER 00021450 &$FLOTE SETB (&$FLOTE AND &$FLOTM) KILL GEN IF NO FLOATS 00021500 &$FLOTEX SETB (&$FLOTEX AND &$FLOTMX) KILL GEN IF NO EXTENDED FLOATS 00021550 &$HASPBT SETB (&$HASPBT AND &$ASMLVL) ELIM HASP IF NOT OS SYSTEM J 00021600 &$MACSLB SETB (&$MACSLB AND &$MACROS) REMOVE LIBRARY IF NO MACROS J 00021650 &$RELOC SETB (&$RELOC OR (&$REPL NE 0)) IF REPL, MAKE SURE RELOC J 00021700 &ID SETC 'NO' SET NO ID FOR TIME BEING 00021750 AIF (&$DEBUG).EQU1 LEAVE NO ID IF PRODUCTION PROG 00021800 &ID SETC '*' DEBUG==> GENERATE ID'S AT ENTRIES 00021850 .EQU1 ANOP 00021900 AIF (&$ASMLVL).OSGEN SKIP IF OS GENERATION 00021950 &$BATCH SETC 'BATCH' DEFAULT FOR DOS IS BATCH 00022000 &$IOUNIT(1) SETC 'SYSIPT' SET DOS MAIN INPUT 00022050 &$IOUNIT(2) SETC 'SYSRDR' SET DOS SECONDARY INPUT 00022100 &$IOUNIT(3) SETC 'SYSLST' SET DOS PRINTER 00022150 &$IOUNIT(4) SETC 'SYSPCH' SET DOS PUNCH 00022200 &$IOUNIT(5) SETC 'SYS134' SET TO 'HRB' SCRATCH DEVICE 00022250 &$BUFNO SETA 2 FOR DOS GEN INSURE ONLY 2 BUFFERS 00022300 &$DSKUDV SETC '2314' SET DOS DISK DRIVE TYPE 00022350 AGO .OSGEN1 00022400 .OSGEN ANOP 00022450 &$BATCH SETC 'NOBATCH' DEFAULT FOR OS IS NOBATCH 00022500 &$IOUNIT(1) SETC 'SYSIN' SET OS PRIMARY INPUT 00022550 &$IOUNIT(2) SETC 'FT05F001' SET OS SECONDARY INPUT 00022600 &$IOUNIT(3) SETC 'FT06F001' SET OS PRINTER 00022650 &$IOUNIT(4) SETC 'FT07F001' SET OS PUNCH 00022700 &$IOUNIT(5) SETC 'FT08F001' SET OS DISK INTERMEDIATE 00022750 &$IOUNIT(6) SETC 'SYSLIB' SET OS MACRO LIBRARY 00022800 .OSGEN1 ANOP 00022850 MEND 00022900 ./ ADD NAME=ASSYSGEN 00000050 MACRO 00000100 ASSYSGEN 00000150 * 00000200 * THIS IS THE FULL DOS VERSION WITH EVERYTHING 00000250 * 00000300 GBLB &$ACCT =1 => ACCOUNT DISCRIMINATION POSSIBL 00000350 GBLB &$ALIGN =0 -> NO BOUNDRY CHECK,=1 -> CHECKS 00000400 * ==0: 360 ONLY(USED FOR 360 ONLY) 00000450 * ==1:370 OR 360 ACTING AS 370'S 00000500 GBLB &$ASMLVL =0==>DOS,=1==>OS 00000550 GBLC &$BATCH LIMIT/DFLT: BATCH(DOS) - NOBATCH(OS) 00000600 GBLA &$BLEN SET TO BUFFER LENGTH IN BYTES 00000650 GBLC &$BTCC(4) BATCH CONTROL CARD ITEMS: SEE SETC'S J 02174550 GBLA &$BUFNO THE NUMBER OF BUFFERS 00000700 GBLB &$CMPRS =0 NO CMPRS CODE, =1 CMPRS OPTION 00000750 GBLA &$COMNT >0 COMMENT CHECK (&$COMNT % REQ) 00000800 GBLB &$DATARD =0 SOURCE,DATA THRU SYSIN ONLY(WATFV 00000850 * =1 DATA MAY BE READ FROM FT05F001 00000900 * (I.E.- SINGLE JOB PROCESSING-PSU) 00000950 GBLB &$DEBUG 0==>DEBUG MODE, 1==> PRODUCTION MODE 00001450 GBLB &$DECSA SHOULD ASSEMBLER PERMIT DECIMALS 00001000 GBLB &$DECSM DOES MACHINE HAVE DECIMALS 00001050 GBLB &$DECK =0 NO OBJ DECKS PUNCHED. =1 CAN DO 00001100 GBLA &$DISKU 0 FOR NO DISK UTILITY 00001150 * 1 FOR USER OPTION 00001200 * 2 FOR ALWAYS DISK 00001250 GBLB &$DMPAG =1 BEGIN DUMP ON NEW PAGE, 0=> NO J 02179050 GBLC &$DSKUDV FOR DOS DISKU ONLY 00001300 GBLA &$ERNUM # DIFFERENT ERROR MESSAGES 00001500 GBLB &$EXINT EXTENDED INTERPRETER 1 = YES 0 = NO 00001550 GBLB &$FLOTA SHOULD ASSEMBLER ALLOW FLOATING PT 00001350 GBLB &$FLOTAX SHOULD ASSEMBLER ALLOW EXTENDED FP'S 00001400 GBLB &$FLOTE =1==> WILL INTERPRET FLT,0==> (3 00001550 GBLB &$FLOTEX =1==> WILL INTERPRET EX FP'S,0==> NO 00001600 GBLB &$FLOTM =1==> MACHINE HAS FLTING PT,0==>NO 00001650 GBLB &$FLOTMX =1==> MACHINE HAS FX FP'S,0==> NO 00001700 GBLA &$FREE,&$FREEMN DEFAULT FREE=, MINIMUM FREE= (80A) J 02188250 GBLC &$GENDAT GENERATATION DATE FOR THIS ASSIST 00001800 GBLB &$HASPBT =1 HASP AUTOBATCH CODE SUPPORTED J 02188550 GBLB &$HEXO =0=> NO HEXO =1=> XHEXO ALLOWED 00001850 GBLB &$HEXI =0=> NO HEXI =1=> XHEXI ALLOWED 00001900 GBLA &$IDF,&$IMX DRFAULT,MAXIMUM I= 00001950 GBLC &$IOUNIT(8) DIFFERENT DDNAMES USED IN ASSIST 00002000 GBLB &$JRM =1 FOR PSU LOCAL SPECIAL CODE: JRM 00002050 GBLB &$KP26 =1 ALLOW KP=26 OR K&=29 OPTION 00002100 * =0 ALLOW ONLY 029 KEYPUNCH CARDS 00002150 GBLA &$LDF,&$LMX DEFAULT,MAX L= # LINES/PAGE 00002200 GBLB &$MACOPC =1 => ALLOW OPEN CODE COND ASMBL 00002250 GBLB &$MACROG =1 ==> ADD ASM G FEATURES TO ASM F 00002300 GBLB &$MACROH =1 ==> ADD SOME ASM H FEATURES TO F 00002350 GBLB &$MACROV OS/VS SUPPORT 00002400 GBLB &$MACROS MACRO/CONDITIONAL ASSEMBLY ALLOWED 00002450 * **NOTE** BASIC MACRO FACILITY IS ASSEMBLER F COMPATIBLE. 00002500 GBLB &$MACSLB =1 ==> MACRO LIBRARY ALLOWED 00002550 GBLC &$MCHNE SO CAN CHANGE SYSTEM TYPE 00002600 GBLA &$MMACTR LOCAL ACTR INITIAL VALUE DEFAULT 00002650 GBLA &$MMNEST MACRO NEST LIMIT DEFAULT 00002700 GBLA &$MMSTMG GLOBAL MACRO STMT LIMIT DEFAULT 00002750 GBLA &$MODEL MODEL NUMBER OF 360 BEING RUN ON 00002800 GBLB &$OBJIN =0 CANNOT READ OBJECT DECK. =1 CAN 00002850 GBLA &$OPTMS OPTIMIZE - 0==> MEMORY, 9==> SPEED 00002900 GBLB &$PAGE =0 NO PAGE COINT/CONTROL CODE EXISTS 00002950 * =1 PAGE CONTROL&OPTIONS ALLOWED 00003000 GBLA &$PDF,&$PMX DEFAULT,MAX P= # PAGES LIMIT 00003050 GBLA &$PDDF,&$PDMX DEFAULT,MAX PD= # PAGES SAVED FOR DP 00003100 GBLB &$PRIVOP =0==>NO PRIV OPS, =1==> PRIV OPS OK 00003150 GBLA &$PRTSIZ MAX # CHARS IN PRINT LINE FOR ASM J 02196200 GBLB &$PUNCH =0 WE DON'T ACTUALLY HAVE CARD PUNCH 00003200 * =1 REAL PUNCH EXISTS, POSSIBLE USED 00003250 GBLA &$PXDF,&$PXMX DEFAULT,MAX PX= PAGES FOR EXECUTION 00003300 GBLB &$P370 =1 WILL INTERPRET PRIVELEGED S/370 00003350 GBLB &$P370A SHOULD ASSEMBLER PERMIT PRIV S/370'S 00003400 GBLA &$RDF,&$RMX DEFAULT,MAX R= TOTAL # RECORDS 00003450 GBLA &$RDDF,&$RDMX DEFAULT,MAX RD= RECORDS FOR DUMP 00003500 GBLA &$RECORD =0,1=> NO $TIRC RECREM, =2=> $TIRC 00003550 GBLB &$RECOVR (ONLY USED FOR &$RECORD=2). 00003600 * =0 => R= DOES NOT OVERRIDE $TIRC VALUE, =1 => IT DOES. 00003650 * (AT PSU, OUTPUT CAN GO TO BAT FILES - DON'T COUNT). 00003700 GBLB &$RELOC =0==> NO RELOCATION CODE GENERATED 00003750 GBLA &$REPL 0=> NO REPL,1=> LIMITED,2=> FULL 00003800 GBLA &$RXDF,&$RXMX DEFAULT,MAX RD= RECORDS FOR EXECUTE 00003850 GBLB &$SPECIO SPECIAL ROUTINES EXIST(TYPE=$IS+) 00003900 GBLA &$SYHASH SIZE OF INITIAL PTR TABLE FOR SYMOPS 00003950 GBLC &$SYSTEM SYSTEM BEGIN RUN - DOS,PCP,MFT,MVT 00004000 GBLA &$S370 =0==> NO S/370 INSTR INTERPRETED 00004050 * =1==> S/370 INSTR INTERPRETED ON 370 00004100 * =2==> S/370 INSTR INTERPRETED ON 360 00004150 GBLB &$S370A SHOULD ASSEMBLER PERMIT SYSTEM 370'S 00004200 GBLC &$TDF,&$TMX DEFAULT,MAX T= TOTAL TIME FOR RUN 00004250 GBLC &$TDDF,&$TDMX DEFAULT,MAX TD= TIME FOR DUMP 00004300 GBLA &$TIMER 0==> NO TIMING AT ALL 00004350 * 1==> STIMER/TTIMER ONLY. =2==> LOCAL TIMER FOR TIMREM 00004400 GBLC &$TXDF,&$TXMX DEFAULT,MAX TX= TIME FOR EXECUTION 00004450 GBLC &$VERSLV VERSION #.LEVEL # 00004500 GBLB &$XIOS =0==>NO XIO MACROS,=1==>XIO MACROS 00004550 GBLB &$XREF CONTROL GENERATION OF XREF FACILITYA 02214100 * =1 FULL XREF, =0 NO XREF AT ALL A 02214110 GBLA &$XREFDF(3) DEFAULT VALUES FOR FLAGS A 02214120 * &$XREFDF(1)=0 NO XREF(OTHERS =3MEANS COMPRESSED LISTINGA 02214130 * &$XREFDF(2)=3 COLLECT MODIFY AND FETCH DEFN A 02214140 * &$XREFDF(3)=3 COLLECT REFERENCES MODIFY/FETCH A 02214150 GBLA &$XREF#B NUMBER OF SLOTS FOR XREF BLKS A 02214155 GBLB &$XXIOS =0 ALLOWS XGET AND XPUT 00004600 GBLB &X$DDMOR =0 ALLOWS USER OWN DDNAMES 00004650 ** GLOBAL SET VARIABLES - INTERNAL TYPE - * 00004700 GBLC &DEBUG DEBUG NUMBER FOR TESTING AVDEBUG 00004750 GBLC &ID IDENT GENERATION CONTROL 00004800 GBLC &TRACE SPECIFIES FORM OF TRACE-SNAP,*,NO 00004850 SPACE 1 00004900 &$ALIGN SETB 1 NEED BOUNDRY CHECKING 00004950 &$BATCH SETC 'BATCH' DEFAULT VALUE IS BATCH RUNS 00005000 SPACE 1 00005050 ********* NOTE ******** SHOULD THE VALUE OF &$BLEN BE CHANGED 00005100 * AND THE VERSION OF ASSIST TO BE GENERATED IS & D-S 2YSTEM 00005150 * THEN BE SURE TO CHANGE THE VALUE OF THE BLKSIZE PARAMETER 00005200 * ON THE DTFSD DEFINITION IN CSECT XXXIOCO 00005250 &$BLEN SETA 3520 SET FOR HALF-TRACK BUFFERS 00005300 &$BLEN SETA 4*(&$BLEN/4) ROUND BLEN DOWN TO FULLWORD MULTIPLE 00005350 &$BTCC(1) SETC '$' CONTROL CHARACTER FOR BATCH CARDS J 02223100 &$BTCC(2) SETC 'JOB' JOB BEGINNING INDICATOR J 02223102 &$BTCC(3) SETC 'ENTRY' BEGIN DATA CARD: SET = '' IF NONE NEEDEDJ 02223104 &$BTCC(4) SETC 'STOP' TERMINATOR CARD: SET = '' IF NONE J 02223106 &$BUFNO SETA 2 SET FOR 4 BUFFERS 00005400 &$CMPRS SETB (0) NOT ALLOW CMPRS OPTION 00005450 &$COMNT SETA 0 NOT REQUIRE 80% COMMENTS, IF COMNT OPT 00005500 &$DATARD SETB (0) NOT ALLOW SINGLE JOB/TWO RDRS 00005550 &$DEBUG SETB (1) FOR QUICK RUN, KILL GENERATION 00005600 &$DECK SETB (0) NOT ALLOW OBJECT DECKS TO BE PUNCHED 00005650 &$DECSA SETB (1) ASSEMBLER WILL ACCEPT DECIMAL INSTS 00005700 &$DECSM SETB (1) PSU 360/67 HAS DECIMAL INSTRUCTIONS 00005750 &$DISKU SETA 1 SET FOR USER OPTION ON DISK UTILITY 00005800 &$DMPAG SETB 1 ASSUME COMPLETION DUMP ON NEW PAGE J 02233200 &$EXINT SETB 0 NO EXTENDED INTERPRETER THIS VERSION 02235510 &$FLOTA SETB (1) ASSEMBLER ALLOWS FLOATING POINT 00005850 &$FLOTAX SETB (0) NOT ASSEMBLER ALLOWS EXTENDED F. P. 00005900 &$FLOTE SETB (1) WE WILL EXECUTE FLTINGS,IF POSSIBLE 00005950 &$FLOTEX SETB (0) NOT WILL EXECUTE EXTENDED F. P., IF POSS 00006000 &$FLOTM SETB (1) PSU 360/67 HAS FLOATING POINT 00006050 &$FLOTMX SETB (0) PSU 360/67 HASN'T GOT EXTENDED F. P. 00006100 &$FREE SETA 4096 NORMALLY RETURN 4K TO OS/360 00006150 &$FREEMN SETA 2048 MINIMUM ALLOWED FREE=; *****NOTE J 02238210 * IF YOU HAVE 80A ABEND'S OFTEN, RAISE THIS AS NEEDED*** J 02238211 &$GENDAT SETC '03/01/74' CURRENT GENE-A&ON DATE J 0223 400 &$HASPBT SETB 0 HASP OFF &$HEXI SETB (1) XHEXI ALLOWED THIS ASSEMBLY 00008400 &$HEXO SETB (1) XHEXO ALLOWED 00008450 &$IDF SETA 60000 00006250 &$IMX SETA 150000 100 SECS ON /67 00006300 &$KP26 SETB (0) NOT ALLOW 026 KEYPUNCH 00006350 &$LDF SETA 63 DEFAULT 63 LINES/PAGE 00006400 &$LMX SETA 63 MAXIMUM OF 63 LINES/PAGE 00006450 * MACRO SETS: ONLY SIGNIFICANT IF &$MACROS=1. 00006500 &$MACOPC SETB 1 OPEN CODE, COND ASMBL NOT YET 00006550 &$MACROS SETB 1 ALLOW MACROS TO BE PROC ESSED 00006600 &$MACROG SETB 0 NO ASM G CODE ***NOT SUPPORTED YET** 00006650 &$MACROH SETB 0 NO ASM H CODE ***NOT SUPPORTED YET** 00006700 &$MACROV SETB 0 NO OS/VS ASSEMBLER SUPPORT YET 00006750 &$MACSLB SETB 0 NOT ALLOW MACRO LIBRARY 00006800 &$MCHNE SETC '360' MACHINE GENERATED ON 00006850 &$MMACTR SETA 200 DEFAULT ACTR VALUE = 200 00006900 &$MMNEST SETA 15 DEFAULT LIMIT OF 15 DEEP IN MACS 00006950 &$MMSTMG SETA 4000 DEFAULT MAXIMUM TOTAL 4000 MAC STMTS 00007000 &$MODEL SETA 40 CHANGE DEFAULT MODEL NUMBER 00007100 &$OBJIN SETB (0) NOT ALLOW OBJECT DECKS TO BE READ 00007150 &$OPTMS SETA 9 WE WANT SPEED OPTIMIZATION 00007200 &$OPTMS SETA 4 MEDIUM OPTIMIZATION 00007250 &$PAGE SETB (1) ALLOW ALL PAGE CONTROL OPTIONS 00007300 &$PDF SETA 10 TEN TOTAL PAGES 00007350 &$PMX SETA 25 MAXIMUM POSSIBLE OF 25 TOTAL 00007400 &$PDDF SETA 1 NORMAL DUMP-JUST FIRST PAGE 00007450 &$PDMX SETA 5 MAXIMUM OF 5 PAGES FOR THE DUMP 00007500 &$PRIVOP SETB 0 NOT ALLOW ALL PRIVILEGED OPERATIONS 00007550 &$PRTSIZ SETA 121 LIMIT TO 121 CHARS AS DEFAULT LIM J 02244285 &$PUNCH SETB (1) A REAL PUNCH EXISTS 00007600 &$PXDF SETA 5 MAXIMUM PAGES FOR EXECUTION 00007650 &$PXMX SETA 5 MAXIMUM MAXIMUM FOR EXECUTION 00007700 &$RDF SETA 15000 DEFAULT RECORDS FOR EXEC 00007750 &$RMX SETA 100000 MAX EXECUTION RECORDS 00007800 &$RDDF SETA 25 DEFAULT RECORDS FOR A DUMP 00007850 &$RDMX SETA 5000 MAXIMUM RECORDS FOR DUMP 00007900 &$RECORD SETA 1 SHOW $TIRC RECREM CAN'T BE USED 00007950 &$RELOC SETB (1) NEED RELOC SINCE WE HAVE REPL 00008000 &$REPL SETA 0 NO REPLACEMENT ALLOWED 00008050 &$RXDF SETA 1500 EXECUTION RECORDS 00008100 &$RXMX SETA 10000 EXECUTION RECORDS 00008150 &$SYSTEM SETC 'DOS' CHANGE SYSTEM IS OS OPTION MVT 00008200 &$S370 SETA 0 NOT PSY WANTS S/370'S ON 360/67 00008250 &$S370A SETB (0) NOT ASSEMBLER ALLOWS S/370'S 00008300 &$TDDF SETC '1.5' CHANGE DEFAULT TIME FOR DUMP 00008600 &$TDF SETC '75' SECONDS FOR EXECUTION 00008500 &$TDMX SETC '15' MAXIMUM TIME FOR A DUMP 00008650 &$TIMER SETA 1 SHOW WE WANT OVERALL TIMING DONE 00008700 &$TMX SETC '300' MAX POSSIBLE SECONDS FOR EXECUTION 00008550 &$TXDF SETC '75' MAX TIME FOR EXECUTION 00008750 &$TXMX SETC '300' MAXIMUM MAXIMUM FOR EXECUTION 00008800 &$XIOS SETB (1) WE'RE ALLOWING XIO MACROS 00008350 &$XXIOS SETB 1 NO XGET/XPUT 00008850 &$VERSLV SETC '3.0/B' CURRENT ASSIST VERSION J 02253500 &$XREF SETB 0 DO NOT ALLOW CROSS REFERENCE &$XREFDF(1) SETA 0 NO XREF A 02253520 &$XREFDF(2) SETA 3 COLLECT ALL MOD/FETCH DEFN A 02253530 &$XREFDF(3) SETA 3 COLLECT ALL MOD/FETCH REFERENCES A 02253540 &$XREF#B SETA 10 ALLOCATE 10 SLOTS/BLOCK A 02253545 &$ASMLVL SETB ('&$SYSTEM'(1,2) EQ 'OS') SET LEVEL OF ASSEMBLER 00008950 &$FLOTE SETB (&$FLOTE AND &$FLOTM) KILL GEN IF NO FLOATS 00009000 &$FLOTEX SETB (&$FLOTEX AND &$FLOTMX) KILL GEN IF NO EXTENDED FLOATS 00009050 &$HASPBT SETB (&$HASPBT AND &$ASMLVL) ELIM HASP IF NOT OS SYSTEM J 02265700 &$MACSLB SETB (&$MACSLB AND &$MACROS) REMOVE LIBRARY IF NO MACROS J 02265500 &$RELOC SETB (&$RELOC OR (&$REPL NE 0)) IF REPL, MAKE SURE RELOC J 02265600 &ID SETC 'NO' SET NO ID FOR TIME BEING 00009100 AIF (&$DEBUG).EQU1 LEAVE NO ID IF PRODUCTION PROG 00009150 &ID SETC '*' DEBUG==> GENERATE ID'S AT ENTRIES 00009200 .EQU1 ANOP 00009250 AIF (&$ASMLVL).OSGEN SKIP IF OS GENERATION 00009300 &$IOUNIT(1) SETC 'SYSIPT' SET DOS MAIN INPUT 00009350 &$IOUNIT(2) SETC 'SYSRDR' SET DOS SECONDARY INPUT 00009400 &$IOUNIT(3) SETC 'SYSLST' SET DOS PRINTER 00009450 &$IOUNIT(4) SETC 'SYSPCH' SET DOS PUNCH 00009500 &$IOUNIT(5) SETC 'SYS001' SET TO 'HRB' SCRATCH DEVICE 00009550 &$BUFNO SETA 2 FOR DOS GEN INSURE ONLY 2 BUFFERS 00009600 &$DSKUDV SETC '2314' SET DOS DISK DRIVE TYPE 00009650 AGO .OSGEN1 00009700 .OSGEN ANOP 00009750 &$IOUNIT(1) SETC 'SYSIN' SET OS PRIMARY INPUT 00009800 &$IOUNIT(2) SETC 'FT05F001' SET OS SECONDARY INPUT 00009850 &$IOUNIT(3) SETC 'FT06F001' SET OS PRINTER 00009900 &$IOUNIT(4) SETC 'FT07F001' SET OS PUNCH 00009950 &$IOUNIT(5) SETC 'FT08F001' SET OS DISK INTERMEDIATE 00010000 &$IOUNIT(6) SETC 'SYSLIB' SET OS MACRO LIBRARY 00010050 .OSGEN1 ANOP 00010100 MEND 00010150 ./ ADD NAME=ASSYSGEN 00000050 MACRO 00000100 ASSYSGEN 00000150 * 00000200 * THIS IS THE SMALL DOS VERSION OF ASSIST 00000250 * 00000300 GBLB &$ACCT =1 => ACCOUNT DISCRIMINATION POSSIBL 00000350 GBLB &$ALIGN =0 -> NO BOUNDRY CHECK,=1 -> CHECKS 00000400 * ==0: 360 ONLY(USED FOR 360 ONLY) 00000450 * ==1:370 OR 360 ACTING AS 370'S 00000500 GBLB &$ASMLVL =0==>DOS,=1==>OS 00000550 GBLC &$BATCH LIMIT/DFLT: BATCH(DOS) - NOBATCH(OS) 00000600 GBLA &$BLEN SET TO BUFFER LENGTH IN BYTES 00000650 GBLC &$BTCC(4) BATCH CONTROL CARD ITEMS: SEE SETC'S J 02174550 GBLA &$BUFNO THE NUMBER OF BUFFERS 00000700 GBLB &$CMPRS =0 NO CMPRS CODE, =1 CMPRS OPTION 00000750 GBLA &$COMNT >0 COMMENT CHECK (&$COMNT % REQ) 00000800 GBLB &$DATARD =0 SOURCE,DATA THRU SYSIN ONLY(WATFV 00000850 * =1 DATA MAY BE READ FROM FT05F001 00000900 * (I.E.- SINGLE JOB PROCESSING-PSU) 00000950 GBLB &$DECSA SHOULD ASSEMBLER PERMIT DECIMALS 00001000 GBLB &$DECSM DOES MACHINE HAVE DECIMALS 00001050 GBLB &$DECK =0 NO OBJ DECKS PUNCHED. =1 CAN DO 00001100 GBLA &$DISKU 0 FOR NO DISK UTILITY 00001150 * 1 FOR USER OPTION 00001200 * 2 FOR ALWAYS DISK 00001250 GBLC &$DSKUDV FOR DOS DISKU ONLY 00001300 GBLB &$FLOTA SHOULD ASSEMBLER ALLOW FLOATING PT 00001350 GBLB &$FLOTAX SHOULD ASSEMBLER ALLOW EXTENDED FP'S 00001400 GBLB &$DEBUG 0==>DEBUG MODE, 1==> PRODUCTION MODE 00001450 GBLB &$DMPAG =1 BEGIN DUMP ON NEW PAGE, 0=> NO J 02179050 GBLA &$ERNUM # DIFFERENT ERROR MESSAGES 00001500 GBLB &$EXINT EXTENDED INTERPRETER 1 = YES 0 = NO 00001525 GBLB &$FLOTE =1==> WILL INTERPRET FLT,0==> (3 00001550 GBLB &$FLOTEX =1==> WILL INTERPRET EX FP'S,0==> NO 00001600 GBLB &$FLOTM =1==> MACHINE HAS FLTING PT,0==>NO 00001650 GBLB &$FLOTMX =1==> MACHINE HAS FX FP'S,0==> NO 00001700 GBLA &$FREE,&$FREEMN DEFAULT FREE=, MINIMUM FREE= (80A) J 02188250 GBLC &$GENDAT GENERATATION DATE FOR THIS ASSIST 00001800 GBLB &$HASPBT =1 HASP AUTOBATCH CODE SUPPORTED J 02188550 GBLB &$HEXO =0=> NO HEXO =1=> XHEXO ALLOWED 00001850 GBLB &$HEXI =0=> NO HEXI =1=> XHEXI ALLOWED 00001900 GBLA &$IDF,&$IMX DRFAULT,MAXIMUM I= 00001950 GBLC &$IOUNIT(8) DIFFERENT DDNAMES USED IN ASSIST 00002000 GBLB &$JRM =1 FOR PSU LOCAL SPECIAL CODE: JRM 00002050 GBLB &$KP26 =1 ALLOW KP=26 OR K&=29 OPTION 00002100 * =0 ALLOW ONLY 029 KEYPUNCH CARDS 00002150 GBLA &$LDF,&$LMX DEFAULT,MAX L= # LINES/PAGE 00002200 GBLB &$MACOPC =1 => ALLOW OPEN CODE COND ASMBL 00002250 GBLB &$MACROG =1 ==> ADD ASM G FEATURES TO ASM F 00002300 GBLB &$MACROH =1 ==> ADD SOME ASM H FEATURES TO F 00002350 GBLB &$MACROV OS/VS SUPPORT 00002400 GBLB &$MACROS MACRO/CONDITIONAL ASSEMBLY ALLOWED 00002450 * **NOTE** BASIC MACRO FACILITY IS ASSEMBLER F COMPATIBLE. 00002500 GBLB &$MACSLB =1 ==> MACRO LIBRARY ALLOWED 00002550 GBLC &$MCHNE SO CAN CHANGE SYSTEM TYPE 00002600 GBLA &$MMACTR LOCAL ACTR INITIAL VALUE DEFAULT 00002650 GBLA &$MMNEST MACRO NEST LIMIT DEFAULT 00002700 GBLA &$MMSTMG GLOBAL MACRO STMT LIMIT DEFAULT 00002750 GBLA &$MODEL MODEL NUMBER OF 360 BEING RUN ON 00002800 GBLB &$OBJIN =0 CANNOT READ OBJECT DECK. =1 CAN 00002850 GBLA &$OPTMS OPTIMIZE - 0==> MEMORY, 9==> SPEED 00002900 GBLB &$PAGE =0 NO PAGE COINT/CONTROL CODE EXISTS 00002950 * =1 PAGE CONTROL&OPTIONS ALLOWED 00003000 GBLA &$PDF,&$PMX DEFAULT,MAX P= # PAGES LIMIT 00003050 GBLA &$PDDF,&$PDMX DEFAULT,MAX PD= # PAGES SAVED FOR DP 00003100 GBLB &$PRIVOP =0==>NO PRIV OPS, =1==> PRIV OPS OK 00003150 GBLA &$PRTSIZ MAX # CHARS IN PRINT LINE FOR ASM J 02196200 GBLB &$PUNCH =0 WE DON'T ACTUALLY HAVE CARD PUNCH 00003200 * =1 REAL PUNCH EXISTS, POSSIBLE USED 00003250 GBLA &$PXDF,&$PXMX DEFAULT,MAX PX= PAGES FOR EXECUTION 00003300 GBLB &$P370 =1 WILL INTERPRET PRIVELEGED S/370 00003350 GBLB &$P370A SHOULD ASSEMBLER PERMIT PRIV S/370'S 00003400 GBLA &$RDF,&$RMX DEFAULT,MAX R= TOTAL # RECORDS 00003450 GBLA &$RDDF,&$RDMX DEFAULT,MAX RD= RECORDS FOR DUMP 00003500 GBLA &$RECORD =0,1=> NO $TIRC RECREM, =2=> $TIRC 00003550 GBLB &$RECOVR (ONLY USED FOR &$RECORD=2). 00003600 * =0 => R= DOES NOT OVERRIDE $TIRC VALUE, =1 => IT DOES. 00003650 * (AT PSU, OUTPUT CAN GO TO BAT FILES - DON'T COUNT). 00003700 GBLB &$RELOC =0==> NO RELOCATION CODE GENERATED 00003750 GBLA &$REPL 0=> NO REPL,1=> LIMITED,2=> FULL 00003800 GBLA &$RXDF,&$RXMX DEFAULT,MAX RD= RECORDS FOR EXECUTE 00003850 GBLB &$SPECIO SPECIAL ROUTINES EXIST(TYPE=$IS+) 00003900 GBLA &$SYHASH SIZE OF INITIAL PTR TABLE FOR SYMOPS 00003950 GBLC &$SYSTEM SYSTEM BEGIN RUN - DOS,PCP,MFT,MVT 00004000 GBLA &$S370 =0==> NO S/370 INSTR INTERPRETED 00004050 * =1==> S/370 INSTR INTERPRETED ON 370 00004100 * =2==> S/370 INSTR INTERPRETED ON 360 00004150 GBLB &$S370A SHOULD ASSEMBLER PERMIT SYSTEM 370'S 00004200 GBLC &$TDF,&$TMX DEFAULT,MAX T= TOTAL TIME FOR RUN 00004250 GBLC &$TDDF,&$TDMX DEFAULT,MAX TD= TIME FOR DUMP 00004300 GBLA &$TIMER 0==> NO TIMING AT ALL 00004350 * 1==> STIMER/TTIMER ONLY. =2==> LOCAL TIMER FOR TIMREM 00004400 GBLC &$TXDF,&$TXMX DEFAULT,MAX TX= TIME FOR EXECUTION 00004450 GBLC &$VERSLV VERSION #.LEVEL # 00004500 GBLB &$XIOS =0==>NO XIO MACROS,=1==>XIO MACROS 00004550 GBLB &$XREF CONTROL GENERATION OF XREF FACILITYA 02214100 * =1 FULL XREF, =0 NO XREF AT ALL A 02214110 GBLA &$XREFDF(3) DEFAULT VALUES FOR FLAGS A 02214120 * &$XREFDF(1)=0 NO XREF(OTHERS =3MEANS COMPRESSED LISTINGA 02214130 * &$XREFDF(2)=3 COLLECT MODIFY AND FETCH DEFN A 02214140 * &$XREFDF(3)=3 COLLECT REFERENCES MODIFY/FETCH A 02214150 GBLA &$XREF#B NUMBER OF SLOTS FOR XREF BLKS A 02214155 GBLB &$XXIOS =0 ALLOWS XGET AND XPUT 00004600 GBLB &X$DDMOR =0 ALLOWS USER OWN DDNAMES 00004650 ** GLOBAL SET VARIABLES - INTERNAL TYPE - * 00004700 GBLC &DEBUG DEBUG NUMBER FOR TESTING AVDEBUG 00004750 GBLC &ID IDENT GENERATION CONTROL 00004800 GBLC &TRACE SPECIFIES FORM OF TRACE-SNAP,*,NO 00004850 SPACE 1 00004900 &$ALIGN SETB 1 NEED BOUNDRY CHECKING 00004950 &$BATCH SETC 'BATCH' DEFAULT VALUE IS BATCH RUNS 00005000 ********* NOTE ******** SHOULD THE VALUE OF &$BLEN BE CHANGED 00005050 * AND THE VERSION OF ASSIST TO BE GENERATED IS A DOS SYSTEM 00005100 * THEN BE SURE TO CHANGE THE VALUE OF THE BLKSIZE PARAMETER 00005150 * ON THE DTFSD DEFINITION IN CSECT XXXIOCO 00005200 &$BLEN SETA 1693 SET FOR QUARTER TRACK BUFFERS 00005250 &$BLEN SETA 4*(&$BLEN/4) ROUND BLEN DOWN TO FULLWORD MULTIPLE 00005300 &$BTCC(1) SETC '$' CONTROL CHARACTER FOR BATCH CARDS J 02223100 &$BTCC(2) SETC 'JOB' JOB BEGINNING INDICATOR J 02223102 &$BTCC(3) SETC 'ENTRY' BEGIN DATA CARD: SET = '' IF NONE NEEDEDJ 02223104 &$BTCC(4) SETC 'STOP' TERMINATOR CARD: SET = '' IF NONE J 02223106 &$BUFNO SETA 2 SET FOR 2 BUFFERS 00005350 &$CMPRS SETB (0) NOT ALLOW CMPRS OPTION 00005400 &$COMNT SETA 0 NOT REQUIRE 80% COMMENTS, IF COMNT OPT 00005450 &$DATARD SETB (0) NOT ALLOW SINGLE JOB/TWO RDRS 00005500 &$DEBUG SETB (1) FOR QUICK RUN, KILL GENERATION 00005550 &$DECK SETB (0) NOT ALLOW OBJECT DECKS TO BE PUNCHED 00005600 &$DECSA SETB (1) ASSEMBLER WILL ACCEPT DECIMAL INSTS 00005650 &$DECSM SETB (1) PSU 360/67 HAS DECIMAL INSTRUCTIONS 00005700 &$DISKU SETA 1 SET FOR USER OPTION ON DISK UTILITY 00005750 &$DMPAG SETB 1 ASSUME COMPLETION DUMP ON NEW PAGE J 02233200 &$DSKUDV SETC '2314' SET DEVICE FOR DOS DISKU CODE 00005800 &$EXINT SETB 0 NO EXTENDED INTERPRETER THIS VERSION 02235510 &$FLOTA SETB (0) NOT ASSEMBLER ALLOWS FLOATING POINT 00005850 &$FLOTAX SETB (0) NOT ASSEMBLER ALLOWS EXTENDED F. P. 00005900 &$FLOTE SETB (1) WE WILL EXECUTE FLTINGS,IF POSSIBLE 00005950 &$FLOTEX SETB (0) NOT WILL EXECUTE EXTENDED F. P., IF POSS 00006000 &$FLOTM SETB (0) NOT PSU 360/67 HAS FLOATING POINT 00006050 &$FLOTMX SETB (0) PSU 360/67 HASN'T GOT EXTENDED F. P. 00006100 &$FREE SETA 4096 NORMALLY RETURN 4K TO OS/360 00006150 &$FREEMN SETA 2048 MINIMUM ALLOWED FREE=; *****NOTE J 02238210 * IF YOU HAVE 80A ABEND'S OFTEN, RAISE THIS AS NEEDED*** J 02238211 &$GENDAT SETC '03/01/74' CURRENT GENERATION DATE J 02238400 &$HASPBT SETB 0 HASP OFF &$HEXI SETB (0) NOT XHEXI ALLOWED THIS ASSEMBLY 00008400 &$HEXO SETB (0) NOT XHEXO ALLOWED 00008450 &$IDF SETA 60000 00006250 &$IMX SETA 150000 100 SECS ON /67 00006300 &$KP26 SETB (0) NOT ALLOW 026 KEYPUNCH 00006350 &$LDF SETA 63 DEFAULT 63 LINES/PAGE 00006400 &$LMX SETA 63 MAXIMUM OF 63 LINES/PAGE 00006450 * MACRO SETS: ONLY SIGNIFICANT IF &$MACROS=1. 00006500 &$MACOPC SETB 0 OPEN CODE, COND ASMBL NOT YET 00006550 &$MACROS SETB 0 NOT ALLOW MACROS TO BE PROC ESSED 00006600 &$MACROG SETB 0 NO ASM G CODE ***NOT SUPPORTED YET** 00006650 &$MACROH SETB 0 NO ASM H CODE ***NOT SUPPORTED YET** 00006700 &$MACROV SETB 0 NO OS/VS ASSEMBLER SUPPORT YET 00006750 &$MACSLB SETB 0 NOT ALLOW MACRO LIBRARY 00006800 &$MCHNE SETC '360' MACHINE GENERATED ON 00006850 &$MMACTR SETA 200 DEFAULT ACTR VALUE = 200 00006900 &$MMNEST SETA 15 DEFAULT LIMIT OF 15 DEEP IN MACS 00006950 &$MMSTMG SETA 4000 DEFAULT MAXIMUM TOTAL 4000 MAC STMTS 00007000 &$MODEL SETA 40 CHANGE DEFAULT MODEL NUMBER 00007100 &$OBJIN SETB (0) NOT ALLOW OBJECT DECKS TO BE READ 00007150 &$OPTMS SETA 9 WE WANT SPEED OPTIMIZATION 00007200 &$OPTMS SETA 4 MEDIUM OPTIMIZATION 00007250 &$PAGE SETB (0) NOT ALLOW ALL PAGE CONTROL OPTIONS 00007300 &$PDF SETA 10 TEN TOTAL PAGES 00007350 &$PDDF SETA 1 NORMAL DUMP-JUST FIRST PAGE 00007450 &$PDMX SETA 5 MAXIMUM OF 5 PAGES FOR THE DUMP 00007500 &$PMX SETA 25 MAXIMUM POSSIBLE OF 25 TOTAL 00007400 &$PRIVOP SETB 0 NOT ALLOW ALL PRIVILEGED OPERATIONS 00007550 &$PRTSIZ SETA 121 LIMIT TO 121 CHARS AS DEFAULT LIM J 02244285 &$PUNCH SETB (0) NOT A REAL PUNCH EXISTS 00007600 &$PXDF SETA 5 MAXIMUM PAGES FOR EXECUTION 00007650 &$PXMX SETA 5 MAXIMUM MAXIMUM FOR EXECUTION 00007700 &$RDF SETA 15000 DEFAULT RECORDS FOR EXEC 00007750 &$RMX SETA 100000 MAX EXECUTION RECORDS 00007800 &$RDDF SETA 25 DEFAULT RECORDS FOR A DUMP 00007850 &$RDMX SETA 5000 MAXIMUM RECORDS FOR DUMP 00007900 &$RECORD SETA 1 SHOW $TIRC RECREM CAN'T BE USED 00007950 &$RELOC SETB (1) NEED RELOC SINCE WE HAVE REPL 00008000 &$REPL SETA 0 NOT COMPLETE REPLACEMENT ALLOWED 00008050 &$RXDF SETA 1500 EXECUTION RECORDS 00008100 &$RXMX SETA 10000 EXECUTION RECORDS 00008150 &$SYSTEM SETC 'DOS' CHANGE SYSTEM IS OS OPTION MVT 00008200 &$S370 SETA 0 NOT PSY WANTS S/370'S ON 360/67 00008250 &$S370A SETB (0) NOT ASSEMBLER ALLOWS S/370'S 00008300 &$TDDF SETC '1.5' CHANGE DEFAULT TIME FOR DUMP 00008600 &$TDF SETC '75' SECONDS FOR EXECUTION 00008500 &$TDMX SETC '15' MAXIMUM TIME FOR A DUMP 00008650 &$TIMER SETA 1 SHOW WE WANT OVERALL TIMING DONE 00008700 &$TMX SETC '300' MAX POSSIBLE SECONDS FOR EXECUTION 00008550 &$TXDF SETC '75' MAX TIME FOR EXECUTION 00008750 &$TXMX SETC '300' MAXIMUM MAXIMUM FOR EXECUTION 00008800 &$XIOS SETB (1) WE'RE ALLOWING XIO MACROS 00008350 &$XXIOS SETB 1 NO XGET/XPUT 00008850 &$VERSLV SETC '3.0/B' CURRENT ASSIST VERSION J 02253500 &$XREF SETB 0 DO NOT ALLOW CROSS REFERENCE &$XREFDF(1) SETA 0 NO XREF A 02253520 &$XREFDF(2) SETA 3 COLLECT ALL MOD/FETCH DEFN A 02253530 &$XREFDF(3) SETA 3 COLLECT ALL MOD/FETCH REFERENCES A 02253540 &$XREF#B SETA 10 ALLOCATE 10 SLOTS/BLOCK A 02253545 &$ASMLVL SETB ('&$SYSTEM'(1,2) EQ 'OS') SET LEVEL OF ASSEMBLER 00008950 &$FLOTE SETB (&$FLOTE AND &$FLOTM) KILL GEN IF NO FLOATS 00009000 &$FLOTEX SETB (&$FLOTEX AND &$FLOTMX) KILL GEN IF NO EXTENDED FLOATS 00009050 &$HASPBT SETB (&$HASPBT AND &$ASMLVL) ELIM HASP IF NOT OS SYSTEM J 02265700 &$MACSLB SETB (&$MACSLB AND &$MACROS) REMOVE LIBRARY IF NO MACROS J 02265500 &$RELOC SETB (&$RELOC OR (&$REPL NE 0)) IF REPL, MAKE SURE RELOC J 02265600 &ID SETC 'NO' SET NO ID FOR TIME BEING 00009100 AIF (&$DEBUG).EQU1 LEAVE NO ID IF PRODUCTION PROG 00009150 &ID SETC '*' DEBUG==> GENERATE ID'S AT ENTRIES 00009200 .EQU1 ANOP 00009250 AIF (&$ASMLVL).OSGEN SKIP IF OS GENERATION 00009300 &$IOUNIT(1) SETC 'SYSIPT' SET DOS MAIN INPUT 00009350 &$IOUNIT(2) SETC 'SYSRDR' SET DOS SECONDARY INPUT 00009400 &$IOUNIT(3) SETC 'SYSLST' SET DOS PRINTER 00009450 &$IOUNIT(4) SETC 'SYSPCH' SET DOS PUNCH 00009500 &$IOUNIT(5) SETC 'SYS001' SET TO 'HRB' SCRATCH DEVICE 00009550 &$BUFNO SETA 2 FOR DOS GEN INSURE ONLY 2 BUFFERS 00009600 &$DSKUDV SETC '2314' SET DOS DISK DRIVE TYPE 00009650 AGO .OSGEN1 00009700 .OSGEN ANOP 00009750 &$IOUNIT(1) SETC 'SYSIN' SET OS PRIMARY INPUT 00009800 &$IOUNIT(2) SETC 'FT05F001' SET OS SECONDARY INPUT 00009850 &$IOUNIT(3) SETC 'FT06F001' SET OS PRINTER 00009900 &$IOUNIT(4) SETC 'FT07F001' SET OS PUNCH 00009950 &$IOUNIT(5) SETC 'FT08F001' SET OS DISK INTERMEDIATE 00010000 &$IOUNIT(6) SETC 'SYSLIB' SET OS MACRO LIBRARY 00010050 .OSGEN1 ANOP 00010100 MEND 00010150 INSERT ASSIST 00000050 INSERT XXXXDECI 00000100 INSERT XXXXIOCO 00000150 INSERT XXXXSPIE 00000200 INSERT VWXTABL 00000250 INSERT XDDTABLE 00000300 INSERT XXXXGET 00000350 INSERT XXXXPUT 00000400 INSERT REMONI 00000450 INSERT RFSYMS 00000500 INSERT XXXXSNAP 00000525 INSERT EXECUT 00000600 INSERT XXXXDECO 00000650 INSERT XDDGET 00000750 INSERT XXXXHEXI 00000800 INSERT XXXXHEXO 00000850 OVERLAY ONE 00000900 INSERT APARMS 00000950 OVERLAY ONE 00001000 INSERT CACONS 00001050 INSERT CBCONS 00001100 INSERT CCCONS 00001150 INSERT CDECNS 00001200 INSERT CFHCNS 00001250 INSERT CPCONS 00001300 INSERT CVCONS 00001350 INSERT CXCONS 00001400 INSERT CZCONS 00001450 INSERT ERRORS 00001500 INSERT ESDOPR 00001550 INSERT EVALUT 00001600 INSERT LTOPRS 00001650 INSERT MPCON0 00001700 INSERT OUTPUT 00001750 INSERT SDTERM 00001800 INSERT SYMOPS 00001850 INSERT UTOPRS 00001900 INSERT XREFA 00001950 OVERLAY TWO 00002000 INSERT CODTL1 00002050 INSERT IAMOP1 00002100 INSERT IBASM1 00002150 INSERT INPUT1 00002200 INSERT MOCON1 00002250 INSERT OPCOD1 00002300 INSERT SCANRS 00002350 INSERT MACINT 00002400 INSERT MACFND 00002450 INSERT MACSCN 00002500 INSERT MCATRM 00002550 INSERT MCDTRM 00002600 INSERT MCGTST 00002650 INSERT MCSCOP 00002700 INSERT MCSYSR 00002750 INSERT MCVSCN 00002800 INSERT MXINST 00002850 INSERT MACLEX 00002950 INSERT MACRO1 00003000 INSERT MCBODY 00003050 INSERT MCGNCD 00003100 INSERT MEXPND 00003200 INSERT MXERRM 00003250 INSERT MXMVSR 00003350 OVERLAY TWO 00003400 INSERT BROPS2 00003450 INSERT CNDTL2 00003500 INSERT ICMOP2 00003550 INSERT IDASM2 00003600 INSERT MTCON2 00003650 INSERT XRCOLL 00003700 OVERLAY TWO 00003750 INSERT XRPRNT 00003800 OVERLAY ONE 00003850 INSERT XXDDFINI 00003900 OVERLAY ONE 00003950 INSERT AOBJDK 00004000 INSERT ASSIST 00000050 INSERT XXXXDECI 00000100 INSERT XXXXIOCO 00000150 INSERT XXXXSPIE 00000200 INSERT VWXTABL 00000250 INSERT XDDTABLE 00000300 INSERT XXXXGET 00000350 INSERT XXXXPUT 00000400 INSERT REMONI 00000450 INSERT RFSYMS 00000500 INSERT XXXXSNAP 00000525 OVERLAY ONE 00000550 INSERT EXECUT 00000600 INSERT XXXXDECO 00000650 INSERT XDDGET 00000750 INSERT XXXXHEXI 00000800 INSERT XXXXHEXO 00000850 OVERLAY ONE 00000900 INSERT APARMS 00000950 OVERLAY ONE 00001000 INSERT CACONS 00001050 INSERT CBCONS 00001100 INSERT CCCONS 00001150 INSERT CDECNS 00001200 INSERT CFHCNS 00001250 INSERT CPCONS 00001300 INSERT CVCONS 00001350 INSERT CXCONS 00001400 INSERT CZCONS 00001450 INSERT ERRORS 00001500 INSERT ESDOPR 00001550 INSERT EVALUT 00001600 INSERT LTOPRS 00001650 INSERT MPCON0 00001700 INSERT OUTPUT 00001750 INSERT SDTERM 00001800 INSERT SYMOPS 00001850 INSERT UTOPRS 00001900 INSERT XREFA 00001950 OVERLAY TWO 00002000 INSERT CODTL1 00002050 INSERT IAMOP1 00002100 INSERT IBASM1 00002150 INSERT INPUT1 00002200 INSERT MOCON1 00002250 INSERT OPCOD1 00002300 INSERT SCANRS 00002350 INSERT MACINT 00002400 INSERT MACFND 00002450 INSERT MACSCN 00002500 INSERT MCATRM 00002550 INSERT MCDTRM 00002600 INSERT MCGTST 00002650 INSERT MCSCOP 00002700 INSERT MCSYSR 00002750 INSERT MCVSCN 00002800 INSERT MXINST 00002850 INSERT MACLEX 00002950 INSERT MACRO1 00003000 INSERT MCBODY 00003050 INSERT MCGNCD 00003100 INSERT MEXPND 00003200 INSERT MXERRM 00003250 INSERT MXMVSR 00003350 OVERLAY TWO 00003400 INSERT BROPS2 00003450 INSERT CNDTL2 00003500 INSERT ICMOP2 00003550 INSERT IDASM2 00003600 INSERT MTCON2 00003650 INSERT XRCOLL 00003700 OVERLAY TWO 00003750 INSERT XRPRNT 00003800 OVERLAY ONE 00003850 INSERT XXDDFINI 00003900 OVERLAY ONE 00003950 INSERT AOBJDK 00004000