(George Source)
Macros used: BITDEFS, FIELDDEF
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