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