(George Source)
Macros used: BITDEFS
22?Q ... [ BILL IZATT : CENT 22KH ...# 22PD ...[ 22T* ...[ THE FOLLOWIG OPT CURES AN UNSET UNI !! 22^= ...[ 2357 ...#OPT FNOISE = 0 2394 ...[ 23#^ ...[ 23DW # THIS SUBFILE CONTAINS DEFINITIONS FOR IMPLEMENTATION OF THE 23YG # MONITOR COMMAND 24D6 # 24XQ # MONITORING TYPES 25CB #DEF BBREL=#00000010 [ B20 25X2 #DEF BBDIS=#00000020 [ B19 26BL #DEF BBCONT=#00000040 [ B18 26W= #DEF BBALLOT=#00000100 [ B17 27*W #DEF BBOPEN=#00000200 [ B16 27TG #DEF BBCLOSE=#00000400 [ B15 28*6 #DEF BBRENAME=#00001000 [ B14 28SQ #DEF BBEXTEND=#00002000 [ B13 29#B # 29S2 # WORDS IN THE APED/AMONCAT BLOCK 2=?L # 2=R= #DEF BPALL=A1 2?=W #DEF BTPOINT=BPALL+1 2?QG #DEF BBPOINT=BTPOINT+1 2#=6 #DEF BPTAB=BBPOINT+1 2#PQ # 2*9B # BIT DEFINITIONS IN THE GETCORE REQUEST WORD 2*P2 # 2B8L #DEF HMANDAT=#200 [B1 MANDATORY REQUEST 2BN= #DEF HACTY=#100 [B2 ACTIVITY BLOCK REQUEST 2C7W #DEF HLOK=#20 [B4 LOCKC REQUEST 2CMG #DEF HCHAP=#10 [B5 CHAPTER REQUEST 2D76 #DEF HALTLEN=4 [B6 ALTLEN REQUEST 2DLQ #DEF HLINKB=2 [B7 LINK BLOCK REQUEST 2F6B #DEF HLONGLOCK=1 [B8 LONGLOCK REQUEST 2FL2 # 2FLH ...# FOR ALTERNATIVE CORE ALLOCATION SYSTEM: 2FM4 ...# - SKIP IDENTIFIERS 2FMK ...#DEF ISFC=1 2FN6 ...#DEF ISFCON=0 2FNM ...#DEF INOSTDP=1 2FP8 ...#DEF ACASTR=0 2FPP ...#DEF ARNGTR=0 2FQ= ...#DEF ASFCTR=0 2FQR ...#DEF ICASSTATS=0 2FR# ...# 2FRT ...# - WORDS IN FREE CORE BLOCK 2FSB ...#DEF ASFCFPTR=A1 2FSX ...#DEF ASFCBPTR=A1+1 2FTD ...#DEF ASFCSIZE=2 2FT^ ...# 2FWG ...# - RELATIVE DEFINITIONS OF STATISTICS WORDS 2FX3 ...# FOR SEGMENT PERFCAS 2FXJ ...#DEF ACASFOUND=0 2FY5 ...#DEF ACASSPLIT=ACASFOUND+16 2FYL ...#DEF ACASCHAPS=ACASSPLIT+16 2F^7 ...#DEF ACASIFPB=ACASCHAPS+1 2F^N ...#DEF ACASVFPB=ACASIFPB+1 2G29 ...#DEF ACASAMAL=ACASVFPB+1 2G2Q ...#DEF ACASFAIL=ACASAMAL+1 2G3? ...#DEF ACASMILL=ACASFAIL+2 2G3S ...#DEF ACASTAB=ACASMILL+33 2G4* ...# 2G5L #DEF GNOISE=0 2GK= # 2H4W # WORDS IN AOBJPROG/(NO SUBTYPE) & AOBJPROG/BHCOPY BLOCKS 2HJG #DEF APBRG=A1 2J46 #DEF JRETI=APBRG+2 2JBH ...#DEF JOBNOWAS=JRETI+1 2JNY ...#DEF A1D=JOBNOWAS+IROUND&INROUND [START OF ACTUAL OBJECT PROGRAM 2K3B # 2KH2 # WORDS IN THE ADATA/ASTRAT BLOCK 2L2L #DEF GPREN=2 2LG= #DEF GPCNT=A1 2L^W #DEF GPROG=GPCNT+1 2MFG # 2M^6 [ SETTINGS OF CORE UNJAMMING DELAYS AND THRESHOLDS 2NDQ #OPT FDECAY=50 2NYB #OPT CJDELAY1=75 2PD2 #OPT CJDELAY2=150 2PXL #OPT CJDELAY3=300 2QC= #OPT CJMOD=#200 2QWW #OPT CJTHRESH1=CJMOD*2 2RBG #OPT CJTHRESH15=CJMOD*4 2RW6 #OPT CJTHRESH2=CJMOD*8 2S*Q #OPT CJTHRESH3=CJMOD*32 2STB #OPT CJTHRESH4=CJMOD*128 2SW2 ...#OPT CJDANGER=128 2SWM ...#UNS ISTDP 2SXY ...( 2S^9 ...#OPT CUNJAMTARG=#12000 [UNJAMMER TARGET FOR FAILED GETCORES 2T2G ...[ 2T3R ...[ CFREETARG IS MAX.VALUE OF FREE PROGRAM CORE/PAGES 2T54 ...[ THAT COREALL WILL FREE 2T6* ...#SKI G3 2T7L ...#OPT CFREETARG=#2000 2T8X ...#SKI G4 2T=8 ...#OPT CFREETARG=1 [1K 2T?F ...) 2T*2 [ 2TSL [ SETTING OF LONGLOCK DENSITY CHECK DELAY (REDUCELL MACRO) 2W#= #OPT BLLINT=1500 [IN K9S, = 5 MINS 2WRW #SKI FNOISE 2X?G ( 2XR6 [ 'SELECT' SWITCH BIT FOR NOISY CORE SYSTEM. OCCURS IN BACK2 OF 2Y=Q [ CHAPTER BLOCKS AND IN THE CHAPTER TABLE ENTRIES. 2YQB #DEF CXSELECT=9 2^=2 ...) 2^#K ...# DEFINITIONS FOR KEEPCHAP MACRO.JKCTABNO IS NO OF TIMES 2^C8 ...# KEEPCHAP MAY BE ISSUED AND JKCTABLEN IS THE MAX NO OF CHAPTERS 2^FR ...# THAT MAY BE SPECIFIED PER CALLING. 2^JB ...#DEF JKCTABNO=10 2^L^ ...#DEF JKCTABLEN=12 2^N? ...#DEF KEEPCHAP=1 [KEEPCHAP SKIP IDENTIFIER 2^PL ...# DEFININITIONS FOR BITS IN AFLAG WORD 2^^D ... BITDEFS AFLAG,2,BFSHACTB 329= ... BITDEFS AFLAG,14,AFKPCP,AFPMU,AFCHAP,AFFPB 33N6 ... BITDEFS AFLAG,20,AFLOCK,AFLONG,AFFROZ,AFFREE ^^^^ ...56034213002100000000