8 22FL #OPT K0CONSTANT=0 12 22_= #LIS K0CONSTANT>K0KERNEL>K0ALLGEO 17 23DW ...#SEG CONSTANT [ DEK BEASLEY : CENT 19 23YG [ 1: POINTERS 2:PRIVATE CONSTANTS 3:PUBLIC CONSTANTS 7 248# ...[ 4:PM CONSTANTS 19 24D6 [ TO QUALIFY AS A CONSTANT A WORD MUST RETAIN ITS COMPILED VALUE 21 24XQ [ THROUGHOUT.(HENCE EG GFIXCHAP ISNT).THE DIVISION INTO CONSTANTS AND 21 25CB [ VARIABLES IN THE SEGMENTS CONSTANT AND FIXED RESPECTIVELY IS TO ALLOW 16 25X2 [ POSTMORTEM TO CHECK THE CONSTANTS FOR OVERWRITING. 4 26BL [ 6 26W= [ 1:POINTERS 4 27*W [ 10 27TG BACTR +BACT+ACTRING 21 28*6 CXSTART [LIST OF CHAIN BASES FOR CHECKCORE 8 28SQ CXAC +BACT 9 29#B CXCA +BCAFREZ 8 29S2 CXCC +BCCB 9 2=?L CXCH +BCHAP 9 2=R= CXCO +BCONSOUT 6 2?=W #SKI IFS 19 2?QG CXFI +BFCBRING [ POINTS TO OPEN-FILE RING 7 2#=6 #SKI IFS<1$1 9 2#PQ CXFI +BFILE 9 2*9B CXFR +BFREE 6 2*P2 #SKI IFS 19 2B8L CXHA +BHFCBRING [ POINTS TO HALF-OPEN RING 7 2BN= #SKI IFS<1$1 9 2C7W CXHA +BHALF 9 2CMG CXHL +BHLSQ 9 2D76 CXHT +BHTEMP 9 2DLQ CXIN +BINDEX 8 2F6B CXIPL +BIPL 9 2FL2 CXIPLS +BIPLS 9 2G5L CXIPLR +BIPLR 9 2GK= CXJO +BJOBQ 8 2H4W CXLF +BLF 9 2HJG CXMI +BMISC 8 2J46 CXOL +BOLC 21 2JHQ CXPR +BPROG [TO ^TIME-SHARER^ RING (EXEC & GEORGE 17 2K3B CXQU +FLOWQ [ TO THE EVENT QUEUE 8 2KH2 CXSJ +BSJC 6 2L59 ...#UNS ISTDP 4 2L7S ...( 5 2L=C ...#SKI G3 19 2L*2 ...CXOBJUN +BOBJUNUSE [BASE OF FREE PROGRAM CHAIN 4 2LCK ...) 5 2LG= #SKI G4 4 2L_W ( 9 2M86 ...CXOBPR +BOBJPROG 9 2M_6 CXPA +BPAGTAB 8 2NDQ CXSU +BSUD 9 2NYB CXUS +BUSAGE 4 2PD2 ) 4 2PXL Y 8 2QC= #DEF CHCX=Y-CXSTART 21 2QWW GEOERR #17777777 [BRN (GEOERR) ALTERNATIVE TO GEOERR M 17 2RBG GMELPTR +GMEL [PNTR TO GEORGES MEL 4 2RW6 # 9 2S*Q [ 2:PRIVATE CONSTANTS 4 2STB # 7 2SX_ ...#SKI JWPHASE4 4 2T2J ...( 5 2T57 ...AHLSPAIR 19 2T7Q ... LINK HLSEVENT,1 [LINK FOR HLS EVENT REPORTING 4 2T=* ...) 9 2T*2 ALINKTYPE #00200001 20 2TSL ALWPAIR PAIR MULTIPLX,1 [LINK PAIR FOR BROADCAST/LONGWAIT 6 2TX9 ...#UNS ECS 4 2T_S ...( 20 2W4C ...AMILLDECAY1 #20000000/5*9 [K=.9 TO * LAST MILL RATING BY 19 2W72 ...AMILLDECAY2 #20000000/5 [(1-K)=.1 TO * MILL USED BY 4 2W9K ...) 19 2W#= AQTYPE #00200000 [QBLOCK RING CONFIGURATION 12 2WRW #FID 9 23 CHAINADD-ARINGNO-1/2+1 18 2X?G ASBSAB +FCA5+1 [ACTUAL SIZE OF BSA BLOCK 19 2X?T ...# THE FOLLOWING 2 WORDS ARE USED BY ASF. THEY MAY BE ALTERED 11 2X#8 ...# BY RESTORE TIME MACRO ICT. 20 2X#H ...ASFNO +0 [NUMBER OF ACTIVITY PRIORITIES 21 2X#W ...ASFNO1 +0 [THE NUMBER OF THE LOWEST PRIORITY 6 2X*9 ...#UNS ISTDP 4 2XBY ...( 18 2XDM ...ATRUEDLINK [LINK FOR TRUEDORM MACRO 5 2XGB ...#SKI G3 9 2XJ5 ... LINK SWAP,5 5 2XKS ...#SKI G4 9 2XMH ... LINK SWAPOUT,5 4 2XP= ...) 5 2XR6 BJFREEW 20 2Y=Q #HAL BSTB+BFREEW,0 [FREE BACKING STORE WRITE BLOCK 5 2YQB BJREAD 18 2_=2 #HAL BSTB+BREAD,0 [BACKING STORE READ BLOCK 21 2_PL BRHMASK #07777000 [MASK OF ILLEGAL BITS IN F/S RECD HDD 4 329= BSAB 8 32NW #HAL BSTB+BSLIST,0 18 338G BSABL +FCA5+1-A1 [LENGTH OF BS ACT BLKS 18 33N6 BSFD +BSURF [BLOCKS/SURFACE ON 2BFDS 13 347Q BSMAGIC #01020410 [BSTS 5 34MB BSP10 8 3572 #HAL BSTB+BQBLK,0 16 35LL BSQGQ #40600000+FAIL [ MASK FOR BSQ 16 366= BSSS +5120 [B/S SHEET SIZE 13 36KW BSTSMASK #17777774 [BSTS 5 375G CDEADLNK 21 37K6 #HAL BLINK,2 [=[ATYPE]_[ALOGLEN] FOR NULL LINKBLK 16 384Q COMCOM #01000100 [MASK FOR STEP 16 38JB COMUNI #17770000 [MASK FOR STEP 21 3942 COREK9 +4000/K9 [ INTERVAL BETW CORE SCHEDR ENTRIES 8 39HL #DEF CSPLITLN=16 16 3=3= CSPLIT +CSPLITLN [SPLITING LENGTH 6 3=4S ...#UNS ISFC 4 3=6B ...( 18 3=7Y ...# THE FOLLOWING MAY BE ALTERED BY RESTORE TIME MACRO 8 3=9G ...# CASRDSPLIT. 14 3=?4 ...CIROUND +8 [IROUND 13 3=#L ...CA1D +16 [A1D 15 3=B8 ...CIRNDA +7 [CIROUND - 1 16 3=CQ ...CIRNDB +16 [A1 + CIROUND - 1 4 3=F# ...) 5 3=GW FFSFCB 6 3?2G FILEPLUSFCB 7 3?G6 #HAL FILE+FCB,0 18 3?_Q ...FFSFURB [FILE USAGE READ BLOCK 8 3#FB #HAL FILE+FURB,0 18 3#_2 ...FFSFUWB [FILE USAGE WRITE BLOCK 8 3*DL #HAL FILE+FUWB,0 19 3*HQ ...FFSFURRB [FILE USAGE RANDOM READ BLOCK 8 3*LW ...#HAL FILE+FURRB,0 20 3*Q2 ...FFSFURWB [FILE USAGE RANDOM WRITE BLOCK 8 3*T6 ...#HAL FILE+FURWB,0 5 3*Y= FFSFULLB 8 3BCW #HAL BSTB+FULLB,0 5 3BXG FFSFMAPP 8 3CC6 #HAL FILE+FMAPP,0 7 3CWQ #SKI CAMK7<5-5 19 3DBB #DEF ZLOGBITS=4 [THE 'LOGICAL' BITS OF AFLAG 7 3DW2 #SKI CAMK7>4-4 9 3F*L ...#DEF ZLOGBITS=#50001375 19 3FT= FLAGLOG +ZLOGBITS [THE 'LOGICAL' BITS OF AFLAG 19 3G#W FLAGPHYS +ZLOGBITS$30? [THE 'PHYSICAL' BITS OF AFLAG 21 3GSG FONINT +FONINTP*1000 [TIME INTERVAL FOR SPRING CLEAN WAKE0 5 3H#6 FPSEUTYP 8 3HRQ #HAL ADATA+FPSEUD,0 21 3J?B FRED #44410000 [DEVICE TYPE MNEMONIC FOR UDAS MESSAG 5 3JR2 GCHTY 8 3K=L #HAL BSTB+CHAPTER,0 6 3KBH #SKI JSKI10 11 3KGD GLENFCHAP +ALENFIXCHAP+7 7 3KL* #SKI JSKI10<1$1 18 3KQ= GLENFCHAP +ALENFIXCHAP [LENGTH OF FIXCHAP SPACE 19 3L9W GSCANLEN +GSCANSIZE [ACTUAL SIZE OF GSCAN BUFFER 5 3LPG GVERSION 20 3M96 #HAL G3MARK,G3ISSUE [MARK/ISSUE NUMBER OF GEORGE 3 9 3MNQ HCOLUSER #20202012 20 3N8B HSMPBIT #73777777 [MASK FOR ERASING SMP SUSPENSION 21 3NN2 IMILLK9 +1000/K9 [ INTERVAL BETW MILL SCHEDR ENTRIES 21 3P7L INTERRUPT +400/K9 [INTERVAL FOR SPASMODIC INTERRUPTS FO 9 3PM= IROUNDNG -IROUND 6 3PPT ...#UNS ECS 4 3PSD ...( 18 3PX3 ...ISWAPDIFF +10 [A CORE PRIORITY CONSTANT 20 3P_L ...ISISSMP #76767676 [MILL PRIORITY FOR SYSTEM JOBS 4 3Q49 ...) 19 3Q6W JMBSTS #20200200 [MASK FOR BSTS (MEASUREMENT) 14 3QLG JTRALEN +JTRASIZE-1/JTRAENT+1*JTRAENT 19 3R66 [ACTUAL SIZE OF TRACE BUFFER 4 3R8* ...[ 11 3R=J ...[ CONSTANTS FOR UMRCC SPECIAL 20 3R#R ...[ VALUE WILL BE SET BY RESTORE TIME MACRO IPEXTEND WHEN A SET OF 18 3RC2 ...[ EXTENSION TABLE INSTALLATION PARAMETERS ARE DECLARED 20 3RF9 ...IPEXTTAB +0 [START ADDRESS OF EXTENSION TABLE 19 3RHD ...IPEXTCOUNT +0 [LENGTH OF EXTENSION TABLE 4 3RKQ [ 11 3S5B [ CONSTANTS FOR EVENTFN ONLY 4 3SK2 GVFN 5 3T4L #SKI G3 9 3TJ= PAIR OPCA,1 5 3W3W #SKI G4 10 3WHG PAIR PAGETURN,2 10 3X36 GMND PAIR MONEVENT,5 9 3XGQ GMSK1 #65777777 9 3Y2B GMSK2 #37774777 4 3YG2 [ 5 3Y_L #SKI G4 4 3_F= ( 17 3_YW APRATNO +1 [NO OF PRAT TABLES 21 42DG APTABPAGS +2 [NO OF PAGES EXPECTED FOR PAGE TABLES 21 42Y6 APTURNPAGS +1 [NO OF PAGES RESERVED FOR PAGE TURNG 18 43CQ AQUOTIME +1000 [QUOTA REVIEW INTERVAL 21 43XB BLENCH #00604000 [CHARS CONTAIN SEGMENT TAB LENGTHS 21 44C2 BTABLENS #00173777 [EACH CHAR CONTAINS PAGE TAB LEN - 1 4 44WL ) 10 44_Q ...[ CONSTANTS FOR ICT ON CODE 5 454W ...GMELRTAB 5 4582 ...#REP 6 5 459J ... +0 13 45?6 ...GAMR0 -1,#37777777,+61*64,+31*64,+0 4 45B= # 13 45CD ...[ CONSTANTS SPARE AT START OF MK867 8 45DL ...CONSTSP1 +0 8 45FS ...CONSTSP2 +0 8 45H2 ...CONSTSP3 +0 8 45J8 ...CONSTSP4 +0 8 45KB ...CONSTSP5 +0 8 45LJ ...CONSTSP6 +0 8 45MQ ...CONSTSP7 +0 8 45NY ...CONSTSP8 +0 8 45Q6 ...CONSTSP9 +0 8 45R# ...CONSTSP10 +0 4 45SG ...# 11 45TW [ 3:PUBLIC CONSTANTS IE LITERALS 4 46*G [ 7 46T6 [ SOME NUMBERS 21 47#Q B513 +513 [ BITS 14,23 #00001001 21 47SB EIGHT +8 [ BIT 20 #00000010 21 48#2 JTHREE +3 [ BITS 22,23 #00000003 8 48RL GZERO +0 21 49?= GMINUS1 -1 [ ALL BITS #77777777 21 49QW GMIN4 -4 [ BITS 0-21 #77777774 21 4==G CMIN64 -64 [ BITS 0-17 #77777700 4 4=Q6 [ 14 4?9Q ACES #20202020 [ SPACES. 9 4?PB ACTY #57320000 6 4#92 [ SOME MASKS 9 4#NL BIT9 #00040000 9 4*8= BIT10 #00020000 9 4*MW BIT11 #00010000 15 4B7G BITS22LS #17777777 [BITS 2-23 15 4BM6 BITS910 #00060000 [BITS 9 & 10 19 4C6Q BSB18 #00777777 [BITS 6-23 15 4CLB BSP16 #00077777 [BITS 9-23 17 4D62 CACT #60000000 [LOWEST ACTIVITY TYPE 14 4DKL #DEF CTMXS2=CACT [BITS 0,1 15 4F5= HALFTOP #77770000 [BITS 0-11 5 4FJW #SKI G4 4 4G4G ( 9 4GJ6 B2T13 #17776000 9 4H3Q B8T13 #00176000 13 4HHB BIT7 #00200000 [=64K 9 4J32 BN2T13 #60001777 7 4JGL #DEF B0T1=CACT 9 4K2= B0T9 #77740000 9 4KFW B0T13 #77776000 9 4K_G B0T19 #77777760 4 4LF6 ) 4 4LYQ [ 11 4MDB [ BACKING STORE BLOCK SIZE 4 4MY2 [ 9 4NCL BSBS1 +GSBS+1 9 4NX= BSBSA1 +GSBS+A1 8 4PBW BSBS +GSBS 9 4PWG BSBS4 +GSBS/BLN 10 4QB6 BSBS41 +GSBS/BLN+1 4 4QCN ...[ 8 4QF= ...[ 4: PM CONSTANTS 6 4QGS ...#UNS JSKI25 4 4QJB ...( 18 4QKY ...JPCA 63:1 [ TYPE MODE WORD FOR CTW 19 4QMG ...JEDS +6 [ EDS MASK FOR B/S ROUTINE 8 4QP4 ...JTEN +10 20 4QQL ...JNOPM +17,17H_*PM IMPOSSIBLE_* [ ZERO ADDRESS FROM DATUMADD 4 4QS8 ...) 4 4QTQ [ 4 4R*B #END 8 ____ ...04556455000700000000