{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: COMPS FIXD)}}
====== COMPS FIXD ======
(George Source)

**Macros used:** [[george:macro:BITDEFS|BITDEFS]], [[george:macro:FIELDDEF|FIELDDEF]]

<code - COMPS FIXD.txt>22FL ...[             DEK BEASLEY          CENT 
22^=    [   FIXED CORE SWITCHES 
23DW ...[   FOR ASWITCH0
23YG ...[   
24D6 ...[DEF  CJAMAB=0     [ SET IF 2ND LEVEL COREJAM SINCE LAST CLEARED
24XQ ...[DEF  CSWAPAB=1    [ SET IF SWAPOUT INITIATED SINCE LAST CLEARED
25CB ...[DEF  CDELAB=2     [ SET IF  DELETE INITIATED SINCE LAST CLEARED
25X2 ...[DEF  BSTRAT=3     [ SET IF PROGRAM PLACEMENT STRATEGY IN PROGRESS  
26BL ...[DEF  CHCHSW=4     [ SET IF CHAPTER CHECKSUM IS ON  
26W= ...[DEF  APMCORE=5    [ SET IF PMCORE COMMAND IS IN PROGRESS   
27*W ...[DEF  APATYN=6     [ SET IF  PATCH COMMAND IS IN PROGRESS   
27TG ...[DEF  CPIBIT=7     [ SET IF TIME SLOT PROPORTIONAL TO CPI   
28*6 ...[DEF  FXCHAPIN=8   [SET IF FIXD CHAP SPACE IN USE   
28SQ ...[DEF  BPROGFREZ=9  [BIT TO INDICATE PROGRAM FREEZE ACTIVE IN G4 
29#B ...[DEF  BMFILEBENT=10 [SET IF CORRUPT DIRECTORY FOUND IN BACKMAP  
29S2 ...[DEF  BMBLKTWICE=11 [SET IF DOUBLY ALLOCATED BLOCK FOUND IN BACKMAP 
2=?L ...[DEF  HLSBIT=12    [ SET AT RESTORE TIME IF HLS OFF 
2=R= ...[DEF  AWHATBIT=13  [ SET IF ANY QUEUED OPERATOR COMMANDS
2?=W ...[DEF  EDITPERF=14  [ SET IF EDITOR PERFORMANCE IS BEING MEASURED
2?QG ...[DEF  EMSBIT=15    [ SET IF EMS 
2#=6 ...[DEF  G4SWAIT=16   [ SET IF ANY ACTIVITIES WAITING FOR SWAP SPACE (G4 ON
2#PQ ...[DEF  G4SUDBIT=17  [ SET IF NO SHARED UNIT DESCRIPTION (SUD) TO BE DELET
2*9B ...[DEF  CONSW=18     [ SET IF CONSOLE INPUT IN PROGRESS   
2*P2 ...[DEF  CHECK=19     [ CHECKING SWITCH FOR CXMEND SYSTEM  
2B8L ...[DEF  BSBITS=20    [ SET IF FILE STORE BIT MAP DIAGNOSTICS ON   
2BN= ...[DEF  HNOISE=21    [ SET IF NOISY CORE SYSTEM IS RUNNING
2C7W ...[DEF  JNLBIT=22    [ SET IF BILA SJ 
2CMG ...[DEF  BIGBIT=23    [ SET IF THERE IS A 'BIG' PROGRAM IN THE SYSTEM  
2D76 ...[   
2DLQ ...[   AND FOR ASWITCH1
2F6B ...[   
2F*# ...[DEF  FREEZBIT=0   [ SET IF ACTY WAITING FOR FROZEN BLOCK TO BE UNLOCKED
2FJ= ...[DEF  JLOGALL=1    [ SET BY JLOGALL RESTORE TIME MACRO  
2FMP ...[DEF  CS4968BIT=2  [ SPECIAL 4968   
2FNJ ...[DEF  GNUTIME=3    [ SET IF TIME ON OPER TO BE UPDATED  
2FPC ...[DEF  IGNORENGAGE=4[ ENGMESS(X) IN PROGRESS - ENGAGE BUTTONS
2FQ= ...                   [ TO BE IGNORED BY NORMAL MECHANISMS 
2FR8 ...[DEF  CCTRACE=7    [ A NON-PUBLIC TRACE BIT - BOB WEYAND
2FYC ...[DEF  ICTSW=8   [CONTROL OF ICT CODE
2G5L ...[   
2GK= ...[ DEFINITION OF THE NAMES OF THE 48 FIXED CORE SWITCHES IN ASWITCH0, AND
2H4W ...[     ASWITCH0+1
2HJG ...[   
2J46 ...      BITDEFS  ASWITCH0,0,CJAMAB,CSWAPAB,CDELAB,BSTRAT,CHCHSW,APMCORE,A-
2JHQ ...PATYN,CPIBIT,FXCHAPIN,BPROGFREZ,BMFILEBENT,BMBLKTWICE,HLSBIT,AWHATBIT,E-
2K3B ...DITPERF,EMSBIT,G4SWAIT,G4SUDBIT,CONSW,CHECK,BSBITS,HNOISE,JNLBIT,BIGBIT 
2K*R ...      BITDEFS  ASWITCH1,0,FREEZBIT,JLOGALL,CS4968BIT,GNUTIME,IGNORENGAG-
2KN8 ...E,,,CCTRACE,ICTSW   
2L2L ...#     BIT AND FIELD IDENTIFIERS FOR EMULATION   
2LG= ...      BITDEFS  CPEXECINFO+1,2,CPEMU 
2L^W ...      FIELDDEF CPHOSTOS,3,CPEXECINFO+1,5
2MFG ...      FIELDDEF CPEMUENV,3,CPEXECINFO+1,8
2M^6 ...#DEF  CPMEEP=1  
2NDQ ...#DEF  CPDME=2   
2NNJ ...#DEF   CPCME=3  
2NYB ...#   
2PD2 ...#                DEFINITION OF BIT AND FIELD IDENTIFIERS FOR
2PXL ...#                               APROCNO  -  
2QC= ...#                USED FOR DME DUALS, OCP FAILURE HANDLING   
2QWW ...#   
2RBG ...      BITDEFS  APROCNO,0,BPROCFAIL,BPROCREC 
2RW6 ...      FIELDDEF  FPROCFAIL,6,APROCNO,11  
2S*Q ...      FIELDDEF  FPROCREC,6,APROCNO,17   
2STB ...      FIELDDEF  FPROCNO,6,APROCNO,23
2T*2 ...[   
2TSL ...#DEF  ADUALDME=1           [SKIP ID FOR OCP FAILURE HANDLING
2W#= ...#DEF  CMAXPROC=4   [FOR CME: NUMBER OF CMEMILL WORDS IN FIXED   
^^^^ ...65657637002300000000
</code>