{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: COMPS CORE)}}
====== COMPS CORE ======
(George Source)
**Macros used:** [[george:macro:BITDEFS|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