{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: CONSTANT864)}}
====== CONSTANT864 ======
(George Source)
**Macros used:** [[george:macro:GEOERR|GEOERR]], [[george:macro:LINK|LINK]], [[george:macro:PAIR|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