FIXED867
(George Source)
Macros used: CATMASK, CHANBASE, COBJUNUSE, COBJUSE, COBJUSRT, HLSEVENT, HLSWAITS, IDENTITY, PAIR
- FIXED867.txt
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