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