{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: FIXED867)}}
====== FIXED867 ======
(George Source)
**Macros used:** [[george:macro:CATMASK|CATMASK]], [[george:macro:CHANBASE|CHANBASE]], [[george:macro:COBJUNUSE|COBJUNUSE]], [[george:macro:COBJUSE|COBJUSE]], [[george:macro:COBJUSRT|COBJUSRT]], [[george:macro:HLSEVENT|HLSEVENT]], [[george:macro:HLSWAITS|HLSWAITS]], [[george:macro:IDENTITY|IDENTITY]], [[george:macro:PAIR|PAIR]]
22FL #OPT K0FIXED=0
22^= #LIS K0FIXED>K0KERNEL>K0ALLGEO
23DW #DEF J1=K30+K30L [BASE OF FIXED CORE OVERLAY
23YG #BAS FIXEDCORE J1
24D6 ...#SEG FIXED [ DEK BEASLEY : CENT
24MY ...# (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982
24XQ #
25CB [ THIS SEGMENT CONTAINS THOSE FIXED DATA LOCATIONS IN LOWER CORE
25X2 [ (CF PLAN #LOWER) WHOSE CONTENTS MAY VARY AT RUN-TIME, SUBDIVIDED
26BL [ AS FOLLOWS:-
26W= [
27*W [ 1:BLANKET ACTIVITY 2:CHAIN BASES 3:POINTERS
27TG [ 4:INSTALLATION PARAMETERS 5:PRIVATE WORDS 6:PUBLIC WORKING SPACE
28*6 ...[ 7:DIAGNOSTIC AREAS 8:BUFFERS 9:PM WORDS
28SQ [
29#B # 1:BLANKET ACTIVITY
29S2 #
2=?L +0
2=R= BACT CHANBASE [FPTR/BPTR
2?=W +A1+ABL [ASIZE
2?QG +0 [AFLAG
2#=6 #HAL BAT,0 [ATYPE
2#PQ +0 [BACK1
2*9B +0 [BACK2
2*P2 +ABL [ALOGLEN
2B8L ACTYPE #00200000 [ARINGNO
2BN= #FID 9 23 ACTRINGNUM
2C7W #REP ACTRINGNUM
2CMG CHANBASE
2D76 #DEF K5=BACT+CHAINADD
2DLQ #DEF BACTRING=BACT+ACTRING
2F6B -FILERING
2FL2 #REP ABL-ACTRINGNUM-ACTRINGNUM-1
2G5L +0
2GK= S
2H4W #TRA BACT+ALINK1
2HJG PAIR SETUP,1 [LINK FOR EMS
2J46 #TRA BACT+BACKCHAN
2JHQ +0
2K3B #TRA S
2KH2 #
2L2L # 2:CHAIN BASES AND RING BASES
2LG= #
2L^W BCAFREZ CHANBASE [FROZEN FREE BLOCK CHAIN
2MFG BCCB CHANBASE [CARTRIDGE CONTROL CHAIN
2M^6 BCHAP CHANBASE [CHAPTER CHAIN
2NDQ BCONSOUT CHANBASE [CONSOLE OUTPUT CHAIN
2NYB #SKI IFS
2PD2 BFCBRING CHANBASE [ OPEN-FCB RING
2PXL #SKI IFS<1$1
2QC= BFILE CHANBASE [FILE CHAIN
2QWW BFREE CHANBASE [FREE CORE CHAIN
2RBG GSIGN +0.2 [!! SIGN BIT MUST FOLLOW BFREE !!
2RW6 #SKI IFS
2S*Q BHFCBRING CHANBASE [ HALF-OPEN RING
2STB #SKI IFS<1$1
2T*2 BHALF CHANBASE [HALFOPEN CHAIN
2TSL BHLSQ CHANBASE [HIGH LEVEL SCH QUEUE
2W#= BHTEMP CHANBASE [TEMPORARY HLSQ
2WRW BINDEX CHANBASE [INDEX CHAIN
2X?G BIPL CHANBASE [7600 SYSTEM RING
2XR6 BIPLS CHANBASE [7600 SEND CHAIN
2Y=Q BIPLR CHANBASE [7600 RECEIVE CHAIN
2YQB BJOBQ CHANBASE [JOB QUEUE
2^=2 BLF CHANBASE [LISTFILE CHAIN
2^PL BMISC CHANBASE [MISCELLANEOUS CHAIN
329= BOLC CHANBASE [OFF LINE CHAIN
32NW #SKI G3
338G (
33*N ...#UNS ISTDP
33GW ...BOBJUNUSE CHANBASE [FREE PROGRAM BLOCK CHAIN
33N6 BPBRG CHANBASE [PROGRAM BLOCK RING (THROUGH APBRG
347Q [ OF AOBJPROG BLOCKS )
34MB )
3572 BSJC CHANBASE [SYSTEM JOURNAL CHAIN
366= FLOWQ CHANBASE [QUEUE CHAIN BASE
36KW #DEF AQEND=FLOWQ+1
375G #SKI G4
37K6 (
37N= ...#UNS G4VOPA
37RB ...BOBJPROG CHANBASE [OBJECT PROGRAM CHAIN
37WG ...#UNS G4VOPA
37^L ...#SKI
384Q BOBJFREE CHANBASE [FREE PROGRAM PAGE CHAIN
38JB BPAGTAB CHANBASE [PAGE TABLE CHAIN
3942 BSUD CHANBASE [PURE PROCEDURE CHAIN
39HL BUSAGE CHANBASE [PAGE USAGE CHAIN
3=3= )
3=77 ...GANNETCH CHANBASE [CHAIN OF GANNET ACTIVITIES
3=?4 ...GANITSQ CHANBASE [GANNET INPUT SCHEDULER QUEUE
3=B^ ...GANOTSQ CHANBASE [GANNET OUTPUT SCHEDULER QUEUE
3=GW #
3?2G # 3: POINTERS
3?G6 #
3?^Q ACCTP +0 [POINTER TO CHCH TABEL
3#FB ADMULTACT +0 [ADDR OF MULTIPLEXOR ACT
3#^2 AFDTP +0 [POINTER TO FD TABLE
3*DL ALFTP +0 [POINTER TO ALF TABLE
3*KS ...#UNS G3SIGNET
3*R2 ...ASIGNETPTR +0 [POINTER TO SIGNET LP DEVICE LIST
3*Y= ATFAPTR +0 [POINTER +TO TRANSFER FAIL ACTIVITY
3BCW BBAC +0 [BASE OF BS ACT BLKS
3BXG BOUTACT +0 [PNTR TO PERMANENT LISTFILE ACTIVITY
3C7# ...BELOGACT +0 [PNTR TO ERROR LOGGING ACTIVITY
3CC6 BRETACT +0 [PNTR TO PERMANENT RETRIEVE ACTIVITY
3CWQ BSWINT +0 [ADDR OF PERMANENT SWAP-IN ACTY BLOCK
3D6J ...CAFSPTR +0 [ADDR OF BSA/CAFSACT ACTY FOR CAFS
3D=F ...CASTATPTR +0 [PTR TO CAS STATISTICS
3DBB CMIDFREE +0 [MID-POINT OF FREECORE CHAIN
3DD^ ...#UNS ENHOPER
3DHJ ...(
3DL7 ...CONSCNTRL 0 [POINTER TO OPER CONTROL BLOCK
3DNQ ... [ (ONLY USED IN DME)
3DR* ...)
3DW2 CTOP -1 [CORESTORE 'LONGLOCK' BOUNDARY ADDR
3F*L ENTWINPTR +0 [PNTR TO EDS30/60 TWINNING ACTIVITY
3FKD ...FSHINPTR +0 [POINTER TO INPUT BUFFER (SHARED F/S)
3FT= FX1 +0 [X1 FIXER.
3G#W FX2 +BACT [X2 FIXER (BOTH PRESET FOR EMS)
3GSG GFIXCHAP -2 [FIXED CHAPTER SPACE PNTR (MUST BE
3H#6 [ LESS THAN CTOP UNTIL FIXCHAP SET UP
3HRQ IPBADDR +0 [ADDR OF INTER-PROCESSOR BUFFER LIST
3J?B JSJPTR +0.2 [ PTR TO PERMANENT SYSTEM JOURNAL ACT
3J*^ ...[
3JDJ ...[ FOR 2960 DUAL DME EXEC/G3 CONCURRENCY
3JH7 ...[
3JKQ ...ACTMEMORY -1 [ ACT NO. OF STARTING ACT. FOR CH.CH.
3JN* ...[
3JR2 #SKI G4
3K=L (
3KQ= BGLOT +0 [PTR TO GLOT
3L9W BGPUT +0 [PTR TO GPUT
3LPG BGPUTX +0 [PTR TO GPUT EXTENSION
3M96 FCORES +0 [PNTR TO START OF GEORGE VARIABLE COR
3MNQ [ * FCORES DEFINED ELSEWHERE IN G3 *
3N8B )
3NN2 #
4X=B [
4XQ2 # 4:INSTALLATION PARAMETERS
4Y9L #
4YP= INSTPARAM
4^8W # PLEASE DO NOT ALTER THE ORDER OF THE FOLLOWING INSTALLATION
4^NG # PARAMETERS WITHOUT MAKING THE NECESSARY CHANGE TO THE
5286 # INDEX TABLE HELD IN :SYSTEM.PARAMINDEX
52MQ #40000000 [THESE EIGHT PARAMETERS ARE FOR THE
537B #40000000 [PRIVATE USE OF THE INSTALLATION
53M2 #40000000 [MANAGER,WHOSE SUBJECT PROGRAMS MAY
546L #40000000 [ACCESS THEM.
54L= #40000000 [THEY MAY NOT BE USED BY BUILT-IN
555W #40000000 [ROUTINES.
55KG #40000000
5656 #40000000
56JQ [
574B [ FIXED
57J2 [ CORE DEFAULT COMMENT
583L [ NAME VALUE
58H= [
592W HLSREVIEW +1 [MAX INTERVAL BETWEEN ENTRIES TO THE
59GG JOBLIMIT +2 [MAX NO OF JOBS THAT RUN TOGETHER
5=26 JOBTIME +300 [INITIAL MILLTIME FOR ANY JOB :SECOND
5=FQ COBJQUOTA +0 [PROGRAM QUOTA (RESET BY EMS)
5=^B IMOPLIMIT +1 [NO OF MOP JOBS WHICH MAY BE F/STARTE
5?F2 BACKGROUND +1 [NO OF B/G JOBS WHICH MAY BE F/STARTE
5?YL IMOPCPI +50 [CPI FOR MOP JOBS
5#D= IK +120 [WEIGHTING FACTOR FOR WAIT TIMES
5#XW CPIRATIO +120 [RATIO OF CPIS FOR JOBS OF ADJACENT
5*CG [ URGENCIES
5*X6 AWAITEND +AWATE [TIME FOR WHICH UNTERMINATED JOB WAIT
5BBQ [DEFAULT VALUE IS 30
5BWB BSJAM +90 [% OF A B/S DEVICE USED B4 UNJAMMING
5CB2 ADUMPTIME +40 [TIME BETWEEN INCREMENTAL DUMPS
5CTL IDEALJAM +2048 [IDEAL TIME BETWEEN BS JAMS
5D*= AINCCOPIES +2 [NO OF COPIES OF INCR DUMP TAPE
5DSW ATINT +1 [NO. OF MINS BETWEEN O/P OF TIME ON O
5F#G ADINT +10 [NO. OF MINS BETWEEN O/P OF DATE ON O
5FS6 ASLOTTIME +250 [SLOT TIME GIVEN PER NK WORDS OF PROG
5G?Q ...AOBJCORES +6144 [MAXIMUM CORE IMAGE SIZE ALLOED
5GRB ARELOAD +1 [POST-GE PM RELOAD:AUTOMATIC(0),OR OP
5H?2 ASYSTEMMESS +60 [TIME INTERVAL BETWEEN SYSTEM MESSAGE
5HQL #OPT CJHOLDUP=300 [NO. OF SECONDS TO BE ADDED TO FAIR W
5J== HOLDUP +CJHOLDUP [TIME OF A PROGRAM WHICH CANNOT BE SW
5JPW [AND WHICH IS LARGER THAN THE PROGRAM
5K9G ...CHAPQUOTA 15*1024 [CHAPTER QUOTA (RESET BY EMS)
5KP6 FORMULA +JAM [FORMULA FOR UNJAMMER
5L8Q [DEFAULT VALUE IS 5000
5LNB AZVOLUME +8192 [DEFAULT SETTING OF DEFAULT QUAL ASSI
5M82 IPROGTIME +10 [DEFAULT TIME FOR OBJECT PROGRAMS
5MML IMIN +1 [MINIMUM CHARGE FOR AJOB (ONLY
5N7= IDIV +2 [DIVISOR (APPLY
5NLW IMULT +1 [MULTIPLIER (TO BILA
5P6G JOBTRACE +FULLBITS [INIT TRACE SETTING FOR B/G JOB
5PL6 IMINTRACE [MIN TRACING SPECIFYABLE BY TRACE CMD
5Q5Q CATMASK LOGGING,BROADCAS
5QKB IMOPTRACE [INIT TRACE SETTING FOR MOP JOB
5R52 CATMASK LOGGING,BROADCAS
5RJL ...COREDEFAULT +6144 [LIMITING VALUE ON GIVE/4 EXTRACODE
5S4= IPAGE +1 [NO OF LP PAGES RPTD ON ERROR RESTART
5SHW ICONTEXT +0 [CONTEXT PRIVILEGES CURRENTLY INFORCE
5T3G #SKI G4
5TH6 ...AMAXQUOTA +6144 [MAX NO OF WORDS FOR O/P TO RUN WITH
5W2Q CDATINT +5 [INT (MINS) FOR :SYST.PERF GATHERING
5WGB APERFWAIT +720 [INT (MINS) FOR :SYST.PERF PRINTING
5X22 BACKTHRESH +10 [F/S RESIDENCE FREE % THRESHOLD FOR
5XFL [ B/S UNJAM
5X^= ...IOPTRACE +0 [THESE MESSAGE CATEGORIES ARE
5YYG IPROGREP +30 [INT(MINS) BETWEEN PERCOUNT O/P TO S/
5^D6 IDEFBS +500 [MAX ONLINE BACKING STORE DEFAULT
5^XQ #SKI IPL
62CB IPLIMIT +128 [MAXIMUM NUMBER OF JOBS THAT CAN
62X2 [BE IN TRANSMISSION TO 7600
63BL CLUSTERBACK #40000000 [TOTAL NO OF CLUSTER B/G JBS TO START
63W= CLUSTERMOP #40000000 [TOTAL NO OF CLUSTER MOP JBS TO START
64*W BACKJOBS +1 [MAX NO.OF B/G JOBS THAT CAN BE START
64TG IMOPJOBS +1 [MAX NO.OF MOP JOBS THAT CAN BE START
64YL ...#SKI JSKI37
653Q ...IPMOPWAIT +5 [TIME LIMIT FOR TIMED OUT MOP JOBS
656W ...#UNS JWPHASE3
65=2 ...IMOPTOTAL +1 [TOTAL NO. OF MOP JOBS
65=B ...#UNS ECS
65=Q ...(
65?6 ...CLUSBACKCP +30 [DEFAULT CP FOR CLUSTER B/G JOBS
65?G ...CLUSMOPCP +30 [DEFAULT CP FOR CLUSTER MOP JOBS
65?W ...BACKCP +30 [DEFAULT CP FOR CENTRAL B/G JOBS
65#= ...IMOPCP +30 [DEFAULT CP FOR CENTRAL MOP JOBS
65#L ...)
65#N ...#UNS ENHOPER
65#Q ...(
65#S ...IPAGEWAIT +IPWDEFAULT [PAGEWAIT FOR OPER (SECS)
65#W ... [ (ONLY USED IN DME)
65#^ ...INIPCONTROL +0
65*2 ...INIPTIME +30
65*4 ...)
65*6 #DEF INSTPARL=37?+0?-INSTPARAM [CURRENT LENGTH OF TABLE
65SQ #OPT IPGAPLEN=10
66#B #REP IPGAPLEN [GAP - FILLED BY MACRO NEWIP
66S2 +0.2 [0.2 SIGNIFIES 'EMPTY' IN THIS TABLE
67?L #DEF INSTGAPEND=0?+37? [LIMIT OF TABLE
68=W [
68QG [
69=6 [
69PQ # 5: PRIVATE WORDS
6=9B #
6=P2 ACHAP +0 [TOTAL CORE CURRENTLY IN USE FOR CHAP
6?8L ACTCOUNT +1 [NEXT UNIQUE ACT NO. (BLANKET IS 0)
6?N= ACTPROGS +0 [NO. OF RUNNABLE PROCESSES
6#7W ADTO +0 [LAST D/T O/P TIME
6#MG AFREE +0 [TOTAL OF MOVABLE CORE
6*76 AFTERU +0 [PROCESSOR INTERLOCK FOR TWINNING
6*LQ AGEDACTY +0 [(CXMEND) ACTNO OF LAST ACTIVITY RUN
6*N3 ...ALFATCT2 +0 [COUNT OF NO. OF TIMES A PROPERTY
6*P# ... [COULD NOT BE FOUND IN A GOUT/GPROPN
6*QK ... [WHEN CC AU OR CC PR.
6*QX ...EDRPCHCH +0 [NO. OF CHAPTER CHANGES DURING A
6*R9 ... [REPETITIVE EDIT BEFORE OBJECT
6*RH ... [PROGRAMS CAN USE MILL.
6*RY ...#UNS ECS
6*^6 ...AMILLAVAIL +0 [USED BY CHARGESC
6B3Q ...AMRREORDER +AMRTIME [PROGRAM RING ADJUSTMENT TIMER
6B54 ...ANIPSW +0 [SWITCH FOR LPS14
6B6B APANDV +0 [SEMAPHORES FOR P AND V MACROS
6BL2 APERCOUNT +0 [TIME (CLEANCT) AT LAST PERCOUNT ALL
6C5L APROCTIME +0 [PROCESS CONTROLLER CLOCK
6C*D ...#SKI JSKI32<1$1 [APROPWORD REDUNDANT AFTER MK8.50
6CK= APROPWORD +0 [PROPERTY SYSTEM
6CMT ...[ THE FOLLOWING THREE WORDS ARE USED BY THE ALTERNATIVE
6CQD ...[ OPTIMIZING ROUTINE FOR ASF AND BSQ.
6CT3 ...ASFBSCUR +0
6CXL ...ASFBSMUD +0
6D29 ...ASFBSDUMP +0
6D4W ASPASMODIC +0 [USED TO COUNT DOWN ON INTERRUPT
6DJG ASTRID +0
6F46 ...ASWITCH0 #00000420
6FHQ ...ASWITCH1 #00000000
6G3B ...[
6GH2 ...[ FOR DEFINITIONS OF BITS IN THE ABOVE SWITCH
6H2L ...[ WORDS,SEE 'COMPS FIXD' SUBFILE(CENT)
6HG= ...[
6TQB AUSE 12HZZZZZZZZZZZZ [LATEST USERNAME FOR TEMP DIRECTORIES
6W=2 BCOUNT +0 [NO OF BLOCKS MOVED
6WPL BEATTIME +0 [EST NO OF BEATS PER MILLISEC
6WPW ...#UNS IOP
6WQ6 ...(
6WQB ...[ THREE WORDS FOR IMPROVED OPEN
6WQM ...BDIRN +1 [NO OF FCBS IN DIR CHAIN
6WRN ...BFILEN +1 [NO OF FCBS IN FILE CHAIN
6WSP ...BHALFN +0 [NO OF FCBS IN HALF OPEN CHAIN
6WTQ ...[ THE ABOVE THREE WORDS MUST BE KEPT TOGETHER !!!
6WW? ...)
6WWS ...#UNS ECS
6X42 ...BIGPROGCP +0 [LARGEST CP OF PROGS.MARKED'TOO BIG'
6X9= BLANKF1 +0 [USED BY BSTS WHEN WRITE FAIL OCCURS
6XNW BLANKF2 +0 [ IN CORE JAM
6Y8G BLLCLOCK +BLLINT [TIMER FOR LONGLOK AREA DENSITY CHECK
6YN6 BLMP +1 [HIGHEST LF+1
6YQ* ...#UNS JPSCF
6YSJ ...(
6YWR ...BRADSPLTBSU +0 [B.S. UNIT NO. OF THE ACT.
6Y^2 ... [HOLDING SCF FILE
6^39 ...GEOSCFPTR +0 [PTR. TO SCF DEVICE LIST
6^5D ...)
6^68 ...#UNS FPARTRES
6^6^ ...BSACHAPTR +1 [POINTER TO CHAP ACT IN BACKMAP
6^7Q [ TABLE OF STATS FOR BSTS * * *
6^MB BSAPS +0 [ SWAP TRANSFERS
7272 +0
72LL BSCHCH +0 [ CHAPTER CHANGE TRANSFERS
736= +0
73KW BSFSR +0 [ FILESTORE READS
745G +0
74K6 BSFSW +0 [ FILESTORE WRITES
754Q +0
75JB BSONLY +0 [ ONLINE TRANSFERS
7642 +0
76HL [ END OF STATS TABLE * * *
76NS #SKI JSKI10
76W2 BSTSPROC +0 [=7 FOR DODGY HSD'S
773= BSUN +1 [HIGHEST BSUN+1
77GW BUFFSIZE +20 [MAX CORE BUF FOR DESTRCTVE COM FILES
77L2 ...BSUJFORM1 +0 [BS UNJAMMER FORMULA
77P6 ...BSUJFORM2 +0
77S= ...BSUJFORM3 +0
77XB ...BSUJFORM4 +0
782G CFAIL +0 [NO. OF OUTSTANDING CORE REQUESTS
78G6 CFREE +0 [CURRENT FREE TOTAL
78^Q CHAPTIME +0 [EST NO OF BEATS/CHAP CHANGE
79FB CHCHCOUNT +0 [COUNT OF CHAPTER CHANGES
79^2 CJCLAST +0 [TOTAL NO. OF ACTIVITIES THAT WERE WA
7=DL [FOR CORE AT LAST SPRING CLEANING
7=Y= CJDELAYCNT1 +CJDELAY1 [1ST LEVEL CORE UNJAM DELAY
7?CW CJDELAYCNT2 +CJDELAY2 [2ND LEVEL CORE UNJAM DELAY
7?XG CJDELAYCNT3 +CJDELAY3 [FAG END RETRIEVAL CORE UNJAM DELAY
7#C6 CJJOBNO +0 [JOB NO FOR OPS CONSOLE C/J MESSAGES
7#H3 ...#UNS G4VOPA
7#LY ...CJREQSIZE +0 [SIZE OF PROGRAM TO BE SWAPPED IN
7#QT ... [ USED BY UNJAMMER
7#WQ CJSOFREE +0 [COUNT OF BLOCKS FREED FOR SWAPPED PR
7*BB CJSUM +0 [VALUE OF CURRENT UNJAMMING DECAY SUM
7*W2 CJTARGET +0 [AMOUNT OF CORE REQUIRED BY UJAMMER
7B*L CJTARGTN +0 [CORE UNJAMMER TARGET NEXT TIME
7BT= CJTIME +0 [TIME OF LAST CORE JAM FOR BUFFERED E
7C#W CLEANCT +0 [TIME SINCE MIDNIGHT IN K9S
7CSG CLEANCTL +0 [CLEANCT WHEN FTIME SET UP
7C^N ...CLLSUNOQ +0 [LLS MESSAGE DELAY(BADLOAD MESS.)
7D2# ...CMEMILLALL +0 [OVERALL MILL RATIO (CME)
7D2^ ...CMEMILL [MILL RATIO (CME)
7D4= ...#REP 4
7D5H ... +0
7D6W ...CTOOBIG +0 [LLS MESSAGE DELAY(BIGPRO MESS.)
7D#6 COBJUSE +0 [TOTAL CORE CURRENTLY IN USE FOR PROG
7DRQ #SKI G3
7F3J ...(
7F?B COBJUSRT +0 [TOTAL CORE IN USE FOR REALTIME PROGS
7F*5 ...#UNS ISTDP
7FBS ...(
7FDH ...COBJUNUSE +0 [TOTAL FPB'S(FREE PROGRAM BLOCKS)
7FG= ...CINVFPB +0 [TOTAL INVALID FPB'S
7FH^ ...)
7FKN ...)
7FMC ...#UNS ISTDP
7FP6 ...CJOBJUNUSE +0 [SET BY CORESHED FOR UNJAMMER
7FR2 CTRCTP +0 [COUNT OF EXTANT RCTP JOBS
7G=L CWAIT +0 [NO OF ACTIVITIES WAITING FOR CORE
7GQ= CYCLECORE +0 [ COUNTS UP TO VALUE IN COREK9
7H9W CYCLEMILL +0 [ COUNTS UP TO VALUE INIMILLK9
7H#F ...EDSPARE1 +0 [SPARE WORDS
7HC4 ...EDSPARE2 +0
7HFM ...EDSPARE3 +0
7HJ= ...EDSPARE4 +0
7HLT ...EDSPARE5 +0
7HM? ...EDSPARE6 +0
7HMP ...EDSPARE7 +0
7HN7 ...EDSPARE8 +0
7HNK ...EDSPARE9 +0
7HP3 ...EDSPARE10 +0
7HPG EDSQ +0 [LOCKOUT FOR EDS Q-TRSTD PROGS
7HWN ...#UNS ELOGDME
7J3W ...ELPIALEN +K81 [LENGTH OF PIA
7J6G ...ERLSEQNO +0 [7900 ERROR LOGGING SEQUENCE NO.
7J7S ...ERRS +0 [NO. OF ERRORS IN RESTORE
7J96 ETIOUT +0 [TIME-OUT PERIOD FOR IPC FOR TWINNING
7JNQ ETNBLEN +0 [LENGTH OF IPC BUFFER FOR TWINNING
7K8B ETWINCT +0 [MESSAGE TAG FOR TWINNING DIALOGUE
7KN2 ETWINMK +0 [MARKER WORD FOR TWINNING
7KXS ...FBIDMEM #40000000 [REMEMBRANCE OF TRUSTED STATE FOR DUA
7L7L FDATE +0 [TODAYS DATE IN CHARACTERS SET UP BY
7LM= +0 [ TIMESET MACRO
7LX4 ...FCBNO #40000000 [UNIQUE FCB NO FOR DIRS
7M6W FCBNUM +1 [UNIQUE NUMBER FOR FCB BLOCKS
7MLG FDSMODEL +0 [TYPE OF FDS DEVICE
7N66 FDSQ +0 [LOCKOUT FOR FDS Q-TRSTD PROGS
7NKQ FDSTART +0 [START OF FD AREA
7P5B FINISH +0 [SET IF FINISH COMMAND HAS BEEN ISSUE
7PK2 FREZCHAP +0 [TOTAL FROZEN CHAPTER CORE
7Q4L FREZFREE +0 [TOTAL FROZEN FREE CORE
7QJ= FREZTOT +0 [TOTAL FROZEN CORE
7R3W EXECIDLE +0 [ CURRENT AMOUNT OF EXEC IDLE TIME
7RHG +0 [ IN MILLISECS
7RR# ...FSHSTATE +0 [SHARED FILESTORE LINK STATUS WORD
7S36 FTIME +0 [CHARACTER TIME IN FORM HH.MM.SS
7SGQ +0 [ WHERE SS IS 00
7SQJ ...G297DEAD +0 [HOLDS MAX. DLA OF 'DEAD' FILES
7T2B GEOTIME +0 [GEORGE TIME
7TG2 +0 [IN MILLISECS.
7T^L GINCTSN +0 [TSN OF INITIAL GENERAL RESTORE
7WF= [ * * * * THE NEXT FIVE WORDS ARE A DUMP
7WYW [ FOR THE CORRESPONDING WORDS OF GETCORE INFORMATION AND MUST BE
7XDG [ KEPT IN THE SAME ORDER
7XY6 GLLLINKS +0 [ GLINKSTEP DUMP FOR LONGLOCK GETCORE
7YCQ GLLLOG +0 [ GLOGLEN DUMP FOR LONGLOCK GETCORE
7YXB GLLRING +0 [ GRING DUMP FOR LONGLOCK GETCORE
7^C2 GLLRTYPE +0 [ GRTYPE DUMP FOR LONGLOCK GETCORE
7^LS GLLBL +0 [GBL DUMP FOR LLGC
7^WL [ * * * * THE NEXT WORDS ARE A DUMP OF THE LINK
82B= [ AND ACCUMULATORS FOR AN ACTIVITY DOING A LONGLOCK GETCORE
82TW GLLACCS
83*G #REP ALINK
83T6 +0
84#Q [ * * * * A SEMAPHORE. NON-ZERO IF A LONGLOCK
84SB GLLSEMA +0 [ GETCORE IS IN PROGRESS
85#2 [ * * * *
85BK ...GMESBITS [BIT SETTINGS AND INTERLUDE FOR MES
85F8 ...#REP 10
85HR ... +0
85LC ...GMTNOW +0 [TIME GEORGE RUNNING SINCE
85YS ... [FILESTORE INITIALLY LOADED
86?= GMTLUP +0 [APROCTIME AT LAST GMTNOW UPDATE
86H4 #SKI FD<1$1
86QW GODUMP +0 [DUMPER/FILESTORE INTERLOCK
87=G GPROGTIME +0 [AMOUNT OF TIME USED BY
87Q6 +0 [OBJ PROG IN MILLISECS
87X# ...#UNS JPGLTER
884G ...GTERM 4H#£#£ [UNIVERSAL TERMINATER
889P ...#UNS IOP
88BY ...#SKI
88J7 ...HALFFCB +0 [NO OF HALFOPEN FILES
88PB HLSCOUNT +0 [NO OF MOP JOBS HLS HAS MADE F/STARTE
8992 +0 [NO OF B/G JOBS HLS HAS MADE F/STARTE
89=5 ...#SKI JWPHASE4
89?8 ...(
89#? ...HLSEVLWOUT
89*B ...#DEF MHLSEVNO=EVWAITOUT
89BF ... HLSEVENT WAITOUT,OFF [HLS EVENT WORD FOR WAITOUT EVENT
89CJ ...HLSFACE +0 [HLS INTERFACE SWITCH BITS
89DM ... +HLSBITS1 [HLS...
89FQ ... +HLSBITS2 [...EVENT SWITCHES.
89GT ...HLSLASTWAKE -1 [CONTENTS OF CLEANCT AT LAST REVIEW
89HY ...HLSWAITS [HLS WAITING STYLE SWITCHES
89K3 ...#REP 10
89L6 ... +0
89M9 ...)
89NL HLSWAIT +0 [CONTAINS REASON FOR REACT OF HLS S.P
8=8= HVSKIP +0 [B0:SWITCH FOR VSKIP/SKIP MACROS
8=9^ ...IDLESYS +0 [SYSTEM IDLE TIME (CME)
8=?N ... +0
8=*D ...#UNS FPARTRES
8=GL ...#SKI
8=MW IFREEBLOCK +1 [ZERO IF OUT OF BACKMAP
8?7G INCWORD +0 [DUMP COMMAND/INCR. DUMPER COMMUNICAT
8?M6 INOUTPC +0 [B0=SWAP IN,B23=SWAP OUT
8?WY ...IPBJRN +0 [7900 RESILIENCE
8#6Q IPBTWIN +0 [GEOG NO OF IPB USED FOR TWINNING
8#BJ ...IPCBITS #40000000 [BITS WORD FOR IPC DIAGNOSTICS
8#LB IPL76JOB 0 [NUMBER OF JOBS BEING SENT TO 7600
8*62 IPL76MAX 0 [MAX VALUE OF I.P. IPLIMIT
8*KL IPLGGG 4HICL [1900 STATION IDENTIFIER
8B5= IPLSW 256:0 [1900/7600 SYSTEM SWITCHES
8BJW IREVIEW +5 [MK7-LLS/CA PERSEVERANCE PERIOD
8C4G JINCLAST +0 [NO OF LAST IDT TO BE RESTORED
8CJ6 #SKI JWPHASE1 [ THIS SKIP REVERSES THE ORDER OF THE FOLLOWING TWO WORDS
8CRY ...(
8D3Q JOBCOUNT +0 [ NUMBER OF BACKGROUND JOBS
8DHB IMOPCOUNT +0 [ NUMBER OF MOP JOBS
8DNJ ...IMOPCOUNTB +0 [ NUMBER OF MOP JOBS IN SLAVE (SHFS)
8DTQ ...)
8F32 #SKI JWPHASE1<1$1
8F88 ...(
8F*B ...IMOPCOUNT +0 [ NUMBER OF MOP JOBS
8FGL JOBCOUNT +0 [ NUMBER OF BACKGROUND JOBS
8FQD ...)
8G2= [ THE PREVIOUS TWO WORDS MUST BE
8GFW [ CONSECUTIVE.
8G^G JOBDATASIZE +0 [ USED BY NEWJOBDATA MACRO
8HF6 JOBNUMBER +0 [NEXT AVAILABLE JOB NUMBER
8HYQ JSAINFO +0 [ JOB WELL INFORMATION
8J2N ...# DATAPASS WORDS
8J4L ...ADPSUICIDE +0 [ DATAPASS WORK WORD
8J6J ...FCCHAPFREE +0 [ FREED CHAP. COUNT 1
8J8G ...FCCHAPEND +0 [ FREED CHAP. COUNT 2
8J=D ...FCCHAPMID +0 [ FREED CHAP. COUNT 3
8J#B ...ADPJOBCT +0 [ DATAPASS WORK WORD
8JB# ...#
8JDB #SKI G4
8JY2 (
8KCL AOBJFREE +0 [INITIAL NO OF PAGES FOR PROGRAMS
8KGQ ...#UNS G4VOPA
8KKW ...AOBJFAIL +0 [SIZE OF FAILED PROG.CORE REQ.
8KP2 ...#UNS G4VOPA
8KS6 ...#SKI
8KX= APROGAREA +0 [SIZE OF OBJECT PROGRAM AREA (WORDS)
8LBW COBJFAIL +0 [NO OF ACTS WAITING FOR O/P CORE
8LWG COBJFREE +0 [CURRENT FREE TOTAL FOR PROGRAMS
8MB6 COBJWAIT +0 [NO OF OUTSTANDING O/P CORE REQUESTS
8MTQ CPAGETURNS +0 [NO OF PAGES IN USE FOR PAGE TURNS
8N*B CPAGTAB +0 [CURRENT NO OF PAGES FOR TABLES
8NT2 CRTPAGES +0 [NO OF REAL PAGES OCCUPIED BY RE PROG
8P#L CSCANS +0 [CYCLIC CNT OF PAGE TURNS
8PJD ...#UNS G4VOPA
8PS= ...(
8Q44 ...CPROGFREZ +0 [CORE TO BE FREED DURING PROG.FREZ
8Q?W ...CPROGREQ +0 [SIZE OF PROGRAM FREEZE
8QHN ...CFPCFREZ +0 [NON ZERO,FREE PAGE CHAIN FROZEN
8QRG ...HOBJFREE +0 [BASE OF FREE PAGE CHAIN
8R3# ...)
8R?6 ...EBSWAPSP +0 [NO OF K OF SFAST SWAP SPACE BOOKED
8RGY ...EFSWAPSP +150 [NO OF K OF FAST SWAP SPACE
8RQQ ...EMINSSLFN +0 [LOWEST LOGICAL FILE USED FOR SWAP SP
8S2J ...#DEF GFIXFREE=COBJFREE
8S=B ...)
8SG8 ...#
8SQ2 # 6: PUBLIC WORKING SPACE (MAY BE USED AS VERY TEMPORARY WORKING SPACE
8T9L [ BUT IS LIABLE TO BE DESTROYED ACROSS COORDINATIONS
8TP= [ AND BY MACROS)
8W8W #
8WNG ARINGLEN +0 [RING LENGTH DURING F/C
8X86 BSOURCE +0 [ ADDRESS OF LAST BLOCK MOVED FROM
8XMQ BDESTN +0 [ADDRESS LAST BLOCK MOVED TO
8Y7B BSL1 +0 [DATUM
8YM2 BSL2 +0
8^6L BSL3 +0
8^L= BSL4 +0
925W BSL5 +0
92KG BSP4 +0 [DRUMALL
9356 BSP5 +0
93JQ BSP6 +0
944B BSP11 +0 [BACKWAIT
94J2 BSP12 +0
953L BSP13 +0 [BSQ
95H= CHTPRIV1 +0 [CHCH
962W +0
96GG CNAFRA +0 [ADDR OF BLOCK BEING FREECORED
9726 CNCHLI +0 [GETLINK LINK
97FQ CNFLIN +0 [FREECORE LINK
97^B CSPCHL +0 [ENCHAIN LINK
98F2 EX4 +0 [BSTS
98YL EX5 +0
99D= EX6 +0
99XW EX7 +0
9=CG FFWORKLINK +0 [STEP
9=X6 FFX3 +0
9?BQ FLINK +0 [COOR AND HUNT
9?WB #DEF FONSTYLE=HUNTED [USED BY FON IN COOR
9#B2 ...FX2LAST +0 [USED BY ICT ON CODE
9#TL # GEN0-6 ARE THE WORDS NORMALLY USED BY MACROS ETC AS WORK SPACE
9**= GEN0 BRN (BPMCO)
9*SW GEN1 +K18+DLOADERPM-DLOADERI+K1LOADERPM
9B#G GEN2 +0
9BS6 GEN3 +0
9C?Q GEN4 +0
9CRB GEN5 +0
9D?2 GEN6 +0
9DQL # GENDP TO GRTYPE USED BY COREALL
9F== GENDP +0
9FPW GFORP +0
9G9G GL1 +0
9GP6 GL2 +0
9H8Q [ * * * * THE NEXT FIVE WORDS MUST REMAIN CONSECU
9HNB GLINKSTEP +0 [0 OR 1 DEPENDS UPON G/C ENTRY
9J82 GLOGLEN +0
9JML GRING +0 [TO STORE ARINGNO CONTENTS DURING G/C
9K7= GRTYPE +0
9KC4 GBL +0 [COREALL
9KLW [ * * * *
9L6G GSAVE +0 [OFFPRIV MACRO
9LL6 GTYSW +0
9M5Q GUSSIZE +0 [COREALL
9MKB HUNTED +0 [BLOCK TYPE FOR HUNT ETC
9N52 JWSP1 +0 [J.S.RAYNOR
9NJL JWSP2 +0
9P4= JWSP3 +0
9PHW #SKI G4
9Q3G (
9QH6 JWSP4 +0 [G4 ACCESS MACROS
9R2Q JWSP5 +0
9RGB JWSP6 +0
9S22 JWSP7 +0
9SFL JWSP8 +0
9S^= JWSP9 +0
9TDW JWSP10 +0
9TYG JWSP11 +0
9WD6 )
9WXQ #
9XCB [ 7:DIAGNOSTIC AREAS
9XX2 #
9YBL BATEMAN1 +0 [DUMP SPACE FOR TRACE AND GSCAN
9YW= BATEMAN2 +0
9^*W BATEMAN3 +0
9^TG BEGINT +0
=2*6 +0
=2SQ # THE NEXT 4 WORDS ARE SET UP BY LOADER AND REFER TO THE GSCAN
=3#B GSCANPNTR +0 [CURRENT POINTER TO NEXT FREE SPACE
=3S2 GSCANBUFF +0 [START OF BUFFER
=4?L GSCANVAL +0 [POINTER TO FIRST SCAN TO BE PRINTED
=4R= GSCANLEFT +GSCANSIZE
=5=W # THE NEXT 3 WORDS ARE SET UP BY LOADER AND REFER TO THE TRACE
=5QG JTRAPNTR +0 [CURRENT POINTER TO NEXT FREE SPACE
=6=6 JTRABUFF +0 [START OF BUFFER
=6PQ JTRATOP +0 [1ST WORD BEYOND BUFFER
=79B JTRAIND +1 [ZERO IF BUFFER HAS BEEN FILLED
=7P2 #
=88L # 8:BUFFERS , DUMP AREAS , PATCH AREA
=8N= #
=97W CJACCLINK [DUMP AREA FOR ACCUMULATORS AND LINK
=9MG #GAP 21 [WHILE DOING SPECIAL UNJAMMING SWAPOU
==76 FCINBUF [CONSOLE TYPEWRITER INPUT BUFFER
==LQ #REP 32
=?6B +0
=?L2 FCANCEL 12H CANCEL^*^ [CANCEL PREFIX FOR INTERUPTED INPUT
=#5L FCOUTBUF [CONSOLE TYPEWRITER OUTPUT BUFFER
=#K= #REP 32
=*4W +0
=*JG #
=B46 # BUFFERS FOR BACKING STORE FAIL MESSAGES
=BHQ #
=C3B BMESS +30,30H TRACK* BLOCK* ^*
=CH2 BMESS1 +18,18H WORD* ^*
=D2L BMESS2 +18,18H BLOCK* ^*
=DG= BMESS4 +20,20HPLEASE RE-ALLOCATE^*
=DL7 ...#
=DQ4 ...#UNS ERRR
=DS3 ...BTERMESS +25,25H ^*UNIT 000 TERMINATED^*
=DW3 ...#
=DW5 ...# 9:PM WORDS
=DW7 ...#UNS JSKI25
=DW9 ...(
=DW? ...# START OF PM PSEUDO ACTIVITY BLOCK
=DW* ...JX0
=DWC ...JXSTART +0
=DWF ... +0
=DWH ...JX1
=DWK ...JOSTART +0
=DWM ...JDPMFIXINT +DPMFIXINT
=DWP ...JLPMFIXINT +LPMFIXINT
=DWR ...JSWAPDR +0
=DWT ...JSWAPFD +0
=DWX ...X
=DW^ ...#REP CHAINADD-X+JXSTART
=DX3 ... +0
=DX5 ...YCHAD +0
=DX7 ...JLINK +0 [LINK FOR PMDR SUBRTNS
=DX9 ...YYCHAD +0
=DX? ...JPMESS +18,18H ^*UNIT 000 FIX^*
=DX* ...JPMESS1 +19,19H ^*UNIT 000 FAIL^*
=DXC ...JACC
=DXF ...#GAP 8 [GEORGE'S ACC DUMP
=DXH ...JBSL
=DXK ...#GAP 5
=DXM ...JONRDUMP +0 [GEORGE'S WORD 8
=DXP ...IPMBS
=DXR ...JDUM +1,+0,+JFCS+1024,+0,+DSPARE
=DXT ...IUBSA
=DXX ...JDUM2 +DSPARE
=DX^ ...#SKI G4
=DY3 ...JK402 +0
=DY5 ...IDENTITY
=DY7 ...#REP 6
=DY9 ... #20202020
=DY? ...Y
=DY* ...#REP CPPTR-Y+JXSTART
=DYC ... +0
=DYF ...JPDL
=DYH ...JGEOPTR +0 [PM'S PTR TO G'S B-S DEVICE LIST
=DYK ...JGEORW1 +0 [REPLY WORD
=DYM ...JCTWPTR +0 [PM'S PTR TO CON T/W DEVICE LIST
=DYP ...JCTWRW1 +0 [REPLY WORD
=DYR ...JGEOREC [DUMP FOR GEORGE'S DEVICE LIST
=DYT ...#GAP K53-K50
=DYX ...JCTWREC [DUMP FOR CON T/W DEVICE LIST
=DY^ ...#GAP K53-K50
=D^3 ...)
=D^W #
=FFG #END
^^^^ ...71220421000300000000