15 22FL #SEG PERFCHAP85 [- A.P.HOLDEN 8 22_= #OPT K0PERFCHAP=0 10 23DW #LIS K0PERFCHAP>K0ALLGEO 7 23YG 8HPERFCHAP 17 24D6 [ THIS CHAPTER IS ACTIVATED EVERY DATINTERVAL MINUTES TO 15 24XQ [ APPEND STATISTICS TO :SYSTEM.PERFORMANCE(-0). 17 25CB [ A NEW FILE IS CREATED AFTER (APERFWAIT) HRS (12) AND 13 25X2 [ A JOB TO LIST THE OLD ONE IS ISSUED 12 26BL SEGENTRY K1PERFCHAP,XK1PERF 12 26W= SEGENTRY K2PERFCHAP,XK2PERF 12 27*W SEGENTRY K3PERFCHAP,XK3PERF 4 27D5 ...[ 15 27G# ... FSHENTRY K4PERFCHAP,,SENTFROMA,SENTFROMA 15 27JH ... FSHENTRY K5PERFCHAP,SENTFROMB,,SENTFROMB 14 27LQ ... FSHENTRY K7PERFCHAP,,SETUPREC,SETUPREC 14 27N_ ... FSHENTRY K8PERFCHAP,SETLOAD,,SETLOAD 4 27R8 ...[ 8 27TG [ VARIOUS DATA: 6 28*6 NAMEB +16 21 28SQ 60HMASTER :SYSTEM 00000000PERFORMANCE 0000@0000000 6 29#B PJOB +28 12 29S2 28HRJ PERFJOB,:SYSTEM,PERFLIST 15 2=?L NEXT #20000001 [NEXT GENERATION 7 2=R= SORTG +11 5 2?=W #SKI G3 9 2?QG 16HGEORGE 3 LOADED 5 2#=6 #SKI G4 9 2#PQ 16HGEORGE 4 LOADED 6 2*9B 4H ON 10 2*P2 UDATE 12H AT 7 2B8L UTIME 8H 13 2BN= [ RECORD FORMAT FOR APPEND BLOCK: 7 2C7W #DEF RDATE=A1+1 7 2CMG #DEF RTIME=A1+3 7 2D76 #DEF RMOPS=A1+5 7 2DLQ #DEF RBAKS=A1+6 7 2F6B #DEF RCORS=A1+7 7 2FL2 #DEF ROBJC=A1+8 7 2G5L #DEF RGEOC=A1+9 8 2GK= #DEF RFREC=A1+10 8 2H4W #DEF RGMIL=A1+11 8 2HJG #DEF ROMIL=A1+13 8 2J46 #DEF RBRED=A1+15 8 2JHQ #DEF RBWRT=A1+17 8 2K3B #DEF RBSPS=A1+19 8 2KH2 #DEF RCTRA=A1+21 8 2L2L #DEF RONLS=A1+23 8 2LG= #DEF RCHCH=A1+25 8 2L_W #DEF VAR=RCHCH+1 11 2MFG [ SINGLE LENGTH STATS TABLE: 17 2M_6 SSL +ACHAP,+RGEOC [CORE FOR GEOCHAPS 18 2NYB +CHCHCOUNT,+RCHCH [COUNT OF CHAPTER CHANGES 11 2S*Q [ DOUBLE LENGTH STATS TABLE: 15 2STB SDL +GPROGTIME,+ROMIL [OBJECT MILL 15 2T*2 +GEOTIME,+RGMIL [GEORGE MILL 14 2TSL +BSFSR,+RBRED [FS READS 15 2W#= +BSFSW,+RBWRT [FS WRITES 16 2WRW +BSAPS,+RBSPS [SWAP TRANSFERS 17 2X?G +BSCHCH,+RCTRA [CHAPTER TRANSFERS 18 2XR6 +BSONLY,+RONLS [ONLINE TRANSFERS (BS) 4 2Y=Q SEND 4 2Y#F ...[ 13 2YB8 ...[ EXEC MODE ^S/R^ FOR BMEEP ENVIR 4 2YCX ...[ 8 2YFL ...XEC '170 0 601 7 2YH* ... MODE 0 4 2YK4 ...#ORD 8 2YLR ... BRN #20 4 2YNG ...#EXT 4 2YQB [ 16 2_=2 [ DIY S/R TO SET UP ANB FOR PERFORMANCE(-0) _ X3 4 2_PL [ 8 329= SETNB SBX 4 FX1 7 32NW CREATEB 2 8 338G SEGENTRY APC14 7 33N6 #OPT APCSZ=450 8 347Q LDN 0 APCSZ 9 34MB DLA 0 CEINF3(2) 8 34P_ ... FSHCODE AORB 4 34SJ ...( 10 34X7 ... MHUNT 2,FILE,FABSNB 8 34_Q ... BPZ 2 SEXIT 4 354* ...) 11 3572 SETNCORE 16,2,FILE,FABSNB 7 35LL LDX 3 2 8 366= ADN 1 NAMEB 8 36KW ADN 2 A1 8 375G MOVE 1 16 8 37K6 LDX 1 FX1 5 37SY ...SEXIT 8 384Q ADX 4 FX1 7 38JB EXIT 4 0 4 3942 [ 8 39HL [ ENTRY FROM EMS 4 3=3= [ 14 3=GW XK1PERF [SETS UP INITIAL FILE IF NEC 21 3=N4 ... FSHSKIP [ REDUNDANT CODE & SHOULD BE REMOVED 19 3=T= ...( [ FROM STANDARD GEORGE ALSO 17 3?2G LDX 0 CHAPQUOTA [ GET CHAPTERQUOTA 15 3?G6 SLL 0 1 [ DOUBLE IT 19 3?_Q STO 0 AWORK1(2) [ AND USE AS FIRST AVERAGE 9 3#FB LDX 0 IMOPJOBS 7 3#_2 SLL 0 1 9 3*DL ADX 0 BACKJOBS 19 3*Y= STO 0 AWORK2(2) [ FIRST VALUE FOR JOBLIMIT 4 3*_H ...) 8 3B2S ... FSHCODE AORB 20 3B45 ...( [ MARKERS USED FOR SHARED FILESTORE 21 3B5B ... STOZ AWORK1(2) [ BIT 0 = 'COLLECTING STATS FOR ^B^' 21 3B6M ... [ BIT 23= 'WAITING FOR RECOED FROM ^B^' 21 3B7Y ... STOZ AWORK2(2) [ HOLDS ACTIVITY NO. OF PERF. ACT. SO 21 3B99 ... [ SUPERVISORY MAY RETURN BLOCK TO IT. 20 3B=G ... STOZ AWORK3(2) [ =0 IF DIDN'T COLLECT FOR ^B^ LAST 21 3B?R ... [ SNAPSHOT ; =1 IF ON FIRST SNAPSHOT 19 3B*4 ... [ (I.E. LOADED REC.) ELSE = FX2 4 3BB* ...) 10 3BBK ... JENVNOT N1CME,CME 10 3BBT ... STOZ K30+K45+1 9 3BC5 ... STOZ IDLESYS 10 3BC* ... STOZ IDLESYS+1 5 3BCK ...N1CME 9 3BCW STOZ K30+K45 9 3BXG STOZ EXECIDLE 9 3CC6 STOZ EXECIDLE+1 8 3CWQ X1 CALL 4 SETNB 18 3D6J ...OPECRE [CREATE FILE OR TRY TO 15 3DBB OPEN NOBRK,CREATE,APPEND,QUERY,COMMUNE 19 3DW2 TESTA TESTREP2 OK,SOPEN,ALREADY,THERE,LOST,PLOST,TEMPLOST,PLOST 9 3F*L GEOERR 1,UNOPEN 10 3FT= [ FILE ALREADY EXISTS 14 3G#W THERE OPEN NOBRK,APPEND,QUERY,COMMUNE 19 3GF# ... TESTREP2 OK,SOPEN,NOFILE,OPECRE,LOST,PLOST,TEMPLOST,PLOST 4 3GKQ ...[ 16 3GQ8 ...[ TEST FOR NOFILE IN CASE FILE HAS BEEN ERASED 14 3GWL ...[ IF SO BRANCH BACK TO CREATE A NEW ONE 4 3H34 ...[ 9 3H7G ... GEOERR 1,UNOPEN2 4 3H#6 [ 9 3HRQ [ ENTRY FROM K2/K1 18 3J?B [ OPENS NEW FILE AND SETS UP SPECIAL RECORD TO INDICATE 13 3JR2 [ G3 OR G4 -EX&TS TO K2 TO APPEND. 4 3K=L [ 5 3KQ= XK3PERF 8 3L9W CALL 4 SETNB 5 3LPG NEWFILE 9 3M96 LDX 4 NEXT(1) 17 3MNQ STO 4 A1+14(3) [ALTER GEN-NO TO +1 8 3MQ# ... FSHCODE AORB 4 3MRW ...( 18 3MTD ... FILENUMB 4 [ COUNT NO OF FILES OPEN 15 3MX2 ... BZE 4 NONOPEN [ J. IF NONE 21 3MYJ ...NXTFILE [ ELSE MAY HAVE FILE OPEN IF WAITING 21 3N26 ... CLOSE [ FOR A RECORD FROM ^B^ WHEN M/C ^A^ 21 3N3N ... BCT 4 NXTFILE [ GETS A 'FNEARLY' REPLY. MUST CLOSE 21 3N5= ...NONOPEN [ ANY FILES OPEN BEFORE CREATING NEW 14 3N6S ...) [ ONES. 15 3N8B OPEN NOBRK,CREATE,APPEND,QUERY,COMMUNE 7 3ND8 ... FSHSKIP 13 3NN2 TESTREP2 OK,RUNJOB,WRGEN,SUICIDE 8 3NP3 ... FSHCODE AORB 4 3NQ4 ...( 12 3NR5 ... TESTREP2 OK,NOWB,WRGEN,SUICIDE 9 3NS6 ... BRN SUICIDE 4 3NT7 ...NOWB 10 3NW8 ... MHUNT 3,FILE,FABSNB 18 3NX9 ... LDN 0 #22 [ CHANGE NAME IN FABSNB TO 17 3NY= ... ADS 0 A1+12(3) [ 'PERFORMANCEB' AND 18 3N_? ... CALL 4 SETNB [ OPEN FILE FOR M/C ^B^ 15 3P2# ... OPEN NOBRK,CREATE,APPEND,COMMUNE,QUERY 10 3P3* ... TESTRPN2 OK,SUICIDE 21 3P4B ... FILEMOVE 1,0 [ MOVE FILE FOR ^A^ TO TOP OF STACK 9 3P5C ... BRN RUNJOB 4 3P6D ...) 10 3P7L NOBRK GEOERR 1,PERFCHAP 4 3PM= [ 16 3Q6W [ GEN. NO. 4095 REACHED; SO GIVE UP; BUT FIRST 15 3QLG [ TELL OPERATORS THAT WE ARE DISAPPEARING 4 3R66 [ 5 3RKQ SUICIDE 10 3S5B INFORM 1,ERASEPERF,1 8 3S6R ... FSHCODE AORB 4 3S88 ...( 5 3S9K ...SUIC2 18 3S?2 ... FILENUMB 7 [ SEE IF ANY FILES OPEN 8 3S#C ... BZE 7 TODIE 5 3S*S ...NXTCL 18 3SC9 ... CLOSE [ & IF SO CLOSE THEM ALL 14 3SDL ... BCT 7 NXTCL [ BEFORE 15 3SG3 ...TODIE [ 'SUICIDE'ING 4 3SHD ...) 17 3SK2 MFIN SUICIDE [GIVE UP IF GEN 4095 11 3T4L RUNJOB [ISSUE PERFJOB 11 3TJ= SETNCORE 9,2,ADATA,CREADL 9 3W3W LDX 4 PJOB(1) 15 3WHG STO 4 A1(2) [NO OF CHARS 9 3X36 ADN 1 PJOB+1 9 3XGQ ADN 2 CPDATA 17 3Y2B MOVE 1 7 [MOVE RJ COMMAND IN 7 3YG2 ISSUJOB 0 4 3Y_L [ 10 3_F= [ SETUP SPECIAL RECORD. 10 3_YW SOPEN MFREE FILE,FABSNB 8 3__N ... FSHCODE AORB 4 422G ...( 11 4246 ... JBC NOBRUN,,FSHRUNNING 20 425Q ... MHUNT 1,FSH,FAPB [ ELSE SET UP A 'LOADED' RECORD 15 426J ... BNG 1 NOBRUN [ FOR FILE ^B^ 11 427B ... SETNCORE 11,2,FILE,FAPB 10 4288 ... MHUNT 1,FSH,FAPB 8 4292 ... LDN 6 A1(1) 8 429S ... LDN 7 A1(2) 8 42=L ... MOVE 6 11 8 42?D ... LDX 2 FX2 20 42#= ... LDX 0 GSIGN [ SET 'COLLECTING FOR ^B^ MARKER' 18 42*4 ... ORS 0 AWORK1(2) [ TO GET RECORD APPENDED 5 42*W ...NOBRUN 8 42B2 ... FILENUMB 7 8 42B6 ... SBN 7 2 9 42B= ... BNG 7 NCLOSEB 7 42BB ... CLOSE 1 5 42BG ...NCLOSEB 8 42BN ... LDX 1 FX1 4 42CG ...) 11 42DG SETNCORE 11,2,FILE,FAPB 8 42Y6 ADN 1 SORTG 8 43CQ ADN 2 A1 8 43XB MOVE 1 11 10 44C2 ADN 2 UDATE-SORTG 17 44WL LDN 1 IDENTITY+4 [DATE GEORGE LOADED 7 45B= MOVE 1 2 10 45TW ADN 2 UTIME-UDATE 17 46*G LDN 1 IDENTITY+2 [TIME GEORGE LOADED 7 46T6 MOVE 1 2 18 47#Q LDN 7 0 [PERFWAITTIME IN MINUTES 15 47SB LDN 5 0 [CLEAR SWITCH 4 48#2 [ 14 48RL [ ENTRY TO APPEND TO PERFORMANCE FILE; 14 49?= [ COLLECT STATISTICS AND SLEEP. 4 49QW [ 5 4==G XK2PERF 14 4=Q6 APPEND [APPEND 7 4?9Q PICKREP 6 6 4?PB CLOSE 17 4#92 HLSINFORM (GEOERR),PERFORM,,5 [- FOR JW PHASE 4 9 4#NL MFREE FILE,FAPB 8 4#P3 ... FSHCODE AORB 4 4#PD ...( 9 4#PT ... LDX 0 AWORK1(2) 19 4#Q= ... BPZ 0 NONFORB [ J. IF NOT COLLECTING FOR ^B^ 20 4#QM ... MHUNT 1,FILE,FAPB [ ELSE SEE IF RECORD ALREADY BACK 15 4#R4 ... BPZ 1 NOWAITB [ J. IF IT IS 13 4#RF ... LDN 0 1 [ ELSE 21 4#RW ... ADS 0 AWORK1(2) [ SET 'WAITING FOR RECORD FROM ^B^' 9 4#S? ... BRN NONFORB 5 4#SN ...NOWAITB 19 4#T5 ... LDX 0 AWORK3(2) [ RECORD ALREADY HERE FOR ^B^ 12 4#TG ... SBN 0 1 [ 21 4#TX ... BNZ 0 NOTLOADR [ J. IF IT IS NOT A 'LOADED' RECORD 21 4#W# ... ERN 5 1 [ ELSE CLEAR BIT 23 OF X5 (HLS INFO) 5 4#WP ...NOTLOADR 21 4#X6 ... ORN 5 2 [ SET BIT 22 OF X5 (RECORD APPENDED TO 19 4#XH ... LDX 0 GSIGN [ ^B^ FILE MARKER IN HLS INFO) 21 4#XY ... ERS 0 AWORK1(2) [ CLEAR 'COLLECTING FOR ^B^' MARKER 20 4#Y* ... LDX 4 6 [ REMEMBER APPEND REPLY FOR ^A^ 18 4#YQ ... BRN XK2PERF [ & J. TO DO APPEND TO ^B^ 5 4#_7 ...NONFORB 21 4#_J ... LDX 0 AWORK3(2) [ SEE IF JUST APPENDED 'LOADED' RECORD 14 4#__ ... SBN 0 1 [ FOR ^B^. 16 4*2B ... BNZ 0 NOLDREC [ J. IF NOT ELSE 20 4*2R ... STO 2 AWORK3(2) [ CLEAR 'FIRST RECORD' MARKER BY 21 4*38 ... [ SETTING 'COLLECTED FOR ^B^ LAST TIME' 21 4*3K ... ERN 5 1 [ RESET 'DATA RECORD' MARKER (HLS INFO) 5 4*42 ...NOLDREC 7 4*4C ... LDN 0 2 21 4*4S ... ANDX 0 5 [ WAS LAST APPEND DONE ON ^B^ FILE (HLS 21 4*59 ... BZE 0 TREPA [ INFO BIT SET).IF NOT, ONLY 1 APPEND 21 4*5L ... ERS 0 5 [ REPLY TO CHECK (X6) ELSE CLEAR HLS 21 4*63 ... PUTREP2 4 [ INFO BIT FOR ^B^ AND CHECK PREVIOUS 19 4*6D ... TESTREP2 OK,TREPA,FNEARLY,K3PERFCHAP [ REPLY IN X4 5 4*6T ...TREPA 4 4*7= ...) 7 4*8= PUTREP2 6 14 4*MW TESTREP2 OK,SLOOP,FNEARLY,K3PERFCHAP 9 4B7G GEOERR 1,CANTAPP 11 4BM6 [ WAIT FOR DATINTERVAL MINS. 19 4C6Q SLOOP BZE 5 PCOLL [J IF LAST RECORD 'SPECIAL' 9 4CLB VFREEW FILE,CREATE 6 4CND ...#UNS ISFC 4 4CQG ...( 9 4CSJ ... LDX 3 CASTATPTR 9 4CWL ... BZE 3 SLOOP1 9 4CYR ... DOWN PERFCAS,1 4 4D2G ...) 5 4D49 ...SLOOP1 18 4D62 LDN 3 0 [TIME WAITING TO APPEND 7 4D*S ... FSHSKIP 10 4DKL MWAIT LDN 4 60/FONINTP 8 4DMT ... FSHCODE AORB 4 4DQ4 ...( 5 4DS? ...MWAIT 21 4DWG ... NGN 4 1 [ SET -VE SHOWS LONGCOOR NOT YET DONE 4 4DYP ...) 7 4F2Y ... FSHSKIP 11 4F5= LONGHALT MFIN,ADPSTYLE,4 8 4F5Q ... FSHCODE AORB 4 4F6= ...( 5 4F6Q ...REWAIT 16 4F7= ... LONGSET ADPSTYLE,(GEOERR) [ SET WATING STYLE 10 4F7Q ... MHUNT 1,FILE,FAPB 17 4F8= ... BPZ 1 SHERENOW [ J. IF /FAPB ARRIVED 10 4F8Q ... LDN 4 60/FONINTP 21 4F9= ... LONGCOOR TIMEUP,4 [ ELSE WAIT FOR TIME OR /FAPB ARRIVAL 17 4F9Q ... MHUNT 1,FILE,FAPB [ IF WOKEN UP SEE WHY 17 4F== ... BNG 1 TIMEUP [ J. IF NOT FOR /FAPB 5 4F=Q ...SHERENOW 17 4F?= ... LONGOFF [ CLEAR LONGSET FIELD 7 4F?Q ... LDN 0 0 21 4F#= ... DEX 0 AWORK1(2) [ CLEAR 'WAITING FOR RECORD FROM ^B^' 6 4F#Q ... APPEND 7 4F*= ... PICKREP 6 6 4F*Q ... CLOSE 21 4FB= ... ORN 5 2 [ SET 'RECORD APPENDED FOR ^B^ MARKER 12 4FBQ ... HLSINFORM (GEOERR),PERFORM,,5 17 4FC= ... ERN 5 2 [ AND CLEAR IT AGAIN 9 4FCQ ... MFREE FILE,FAPB 7 4FD= ... PUTREP2 6 14 4FDQ ... TESTREP2 OK,TIMEUP,FNEARLY,K3PERFCHAP 5 4FF= ...TIMEUP 17 4FFQ ... LONGOFF [ CLEAR LONGSET FIELD 19 4FG= ... BNG 4 REWAIT [ J. IF NEVER STARTED WAIT 20 4FGQ ... LDEX 4 CLONG3(2) [ ELSE GET UNEXPIRED PERIOD AND 18 4FH= ... BNZ 4 REWAIT [ J. TO CONTINUE WAITING 4 4FHQ ...) 8 4FJW LDCT 0 #040 9 4G4G ANDX 0 FINISH 7 4G## ... FSHSKIP 8 4GJ6 BNZ 0 MFIN 8 4GWH ... FSHCODE AORB 8 4H8Y ... BNZ 0 SUIC2 10 4HHB SEGENTRY K79PERFCHAP 18 4J32 [ MACRO CSDMOPTO MENDS HERE 8 4JGL ... SEGENTRY APC6 7 5WGB ADN 3 1 17 5X22 BXL 3 CDATINT,MWAIT [AND UNTIL TIME UP 19 5XFL ADX 7 CDATINT [UPDATE TIME WAITING TO LIST 9 5X_= TXL 7 APERFWAIT 15 5YDW BCC K3PERFCHAP [J IF TIME UP 12 5YYG [ READY TO COLLECT STATISTICS 17 5_D6 PCOLL CALL 4 SETNB [TO OPEN LATEST FILE 14 5_XQ OPEN NOBRK,APPEND,QUERY,COMMUNE 17 62CB TESTREP2 OK,OK,LOST,PLOST,TEMPLOST,TLOST,NOFILE,X1 9 62X2 GEOERR 1,UNOPEN 19 63BL PLOST OPEN NOBRK,EMPTY,APPEND,COMMUNE [SO EMPTY LAST FILE 16 63W= TESTREP2 OK,SOPEN [AND BEGIN AGAIN 10 64*W GEOERR 1,PERFLOST 10 64TG TLOST MHUNT 3,FILE,FABSNB 9 65*6 BRN NEWFILE 4 65*J ...OK 8 65B2 ... FSHCODE AORB 4 65BD ...( 9 65BM ... LDX 2 FX2 17 65BW ... JBS MCBUP,,FSHRUNNING [ CHECK IF ^B^ RUNNING 21 65C# ... STOZ AWORK3(2) [ CLEAR '^B^ RUNNING LAST SNAPSHOT' 20 65CQ ... LDEX 0 AWORK1(2) [ 'WAITING FOR RECORD FROM ^B^' ?? 21 65C_ ... STOZ AWORK1(2) [ CAN'T COLLECT FOR 'B' ANY MORE !!! 17 65D8 ... BZE 0 MCBDOWN [ IF NOT ALL IS O.K. 15 65D= ... STO 7 AWORK2(2) [PRESERVE X7 17 65D# ... FILENUMB 7 [HOW MANY FILES OPEN? 18 65DB ... SBN 7 1 ['B ' FILE STILL OPEN? 17 65DD ... BZE 7 NOMORE [ ONLY A FILE OPEN 20 65DK ... CLOSE 1 [ ELSE MUST CLOSE FILE FOR ^B^ AS 10 65DQ ...NOMORE LDX 7 AWORK2(2) 20 65DX ... VFREEW FSH,FAPB [ RECORD CANNOT ARRIVE NOW - ALSO 20 65F8 ... BRN MCBDOWN [ FREE THE FSH/FAPB LOADED RECORD 5 65FG ...MCBUP 9 65FY ... LDX 0 AWORK3(2) 21 65GB ... BNZ 0 NOLOADED [ J.IF COLLECTED FOR ^B^ LAST SNAPSHOT 21 65GS ... LDN 0 1 [ ELSE SET 'LOADED RECORD FOR ^B^' BIT 21 65H= ... STO 0 AWORK3(2) [ AND SET UP A LOADED RECORD AS ^B^ 14 65JR ... STO 7 AWORK2(2) [PRESERVE X7 17 65JS ... SETNCORE 11,2,FILE,FAPB [ HAS JUST COME LIVE 10 65JT ... MHUNT 1,FSH,FAPB 8 65JW ... LDN 6 A1(1) 8 65K2 ... LDN 7 A1(2) 8 65KD ... MOVE 6 11 7 65KJ ... LDX 2 FX2 16 65KP ... LDX 7 AWORK2(2) [ BRING BACK X7 5 65L2 ...NOLOADED 8 65L# ... LDX 2 FX2 9 65LQ ... LDEX 0 AWORK1(2) 21 65M8 ... BNZ 0 MCBDOWN [ J.IF STILL 'WAITING FOR ^B^ RECORD' 13 65ML ... LDX 0 GSIGN [ ELSE 20 65N4 ... ORS 0 AWORK1(2) [ SET 'COLLECTING FOR ^B^' MARKER 13 65NG ... MHUNTW 3,FILE,FABSNB [ AND 20 65NY ... LDN 0 #22 [ CHANGE FABSNB TO 'PERFORMANCEB' 9 65PB ... ADS 0 A1+12(3) 5 65PS ...TRYAGAIN 19 65Q= ... OPEN NOBRK,APPEND,QUERY,COMMUNE [ OPEN FILE FOR ^B^ 21 65QN ... TESTREP2 OK,SLAVEOPEN,NOFILE,SNOFILE [ J. IF OPENED OK OR NONEXIST 16 65R6 ... MHUNT 3,FILE,FABSNB [ ELSE 17 65RJ ... LDN 0 #22 [ CHANGE FABSNB BACK 16 65S2 ... SBS 0 A1+12(3) [ TO 'PERFORMANCE 18 65SD ... CLOSE [ AND CLOSE FILE FOR ^A^ 17 65SW ... LDX 0 GSIGN [ CLEAR 'COLLECTING 16 65T# ... ERS 0 AWORK1(2) [ FOR ^B^' MARKER 18 65TQ ... BRN NEWFILE [ J. TO CREATE 2 NEW FILES 5 65W8 ...SNOFILE 21 65WL ... CALL 4 SETNB [ FILE DONT EXIST - SET UP CREATE BLOK 21 65X4 ... OPEN NOBRK,APPEND,CREATE,QUERY,COMMUNE [ & OPEN 'CREATE' IT 21 65XG ... TESTREP2 OK,SLAVEOPEN,ALREADY,TRYAGAIN [ J. IF OK OR EXISTS 20 65XY ... BRN SUICIDE [ ELSE GIVE UP PERF. MONITORING 6 65YB ...SLAVEOPEN 17 65YS ... VFREEW FILE,CREATE [ - IF THERE WAS ONE 19 65_= ... FILEMOVE 1,0 [ MOVE ^A^ FILE BACK TO TOP 21 65_N ... LDX 0 AWORK3(2) [ CHECK IF 'LOADED' RECORD FOR ^B^ TO 21 6626 ... SBN 0 1 [ BE APPENDED - IF SO, DONT GET DATA 16 662J ... BZE 0 MCBDOWN [ RECORD FROM ^B^ 11 6632 ... HUNTMISB 3,JWELL,BCOUNTS 10 663D ... LDX 4 ALOGLEN(3) 11 663W ... SETUPCOR 4,3,JWELL,BCOUNTS 11 664# ... HUNTMISB 2,JWELL,BCOUNTS 21 664Q ... LDN 0 A1(2) [ ELSE SET UP COPY OF JWELL/BCOUNTS 16 6658 ... LDN 1 A1(3) [ FOR ^B^ TO USE 10 665L ... SMO ALOGLEN(2) 7 6664 ... MOVE 0 0 8 666G ... LDX 2 FX2 19 666Y ... LDX 0 ACTNUM(2) [ AND SAVE ACTIVITY NO. FOR 20 667B ... STO 0 AWORK2(2) [ RETURN SUPERVISORY TO FIND US ! 21 667M ... TRANSBEG FSHPERFID,PERFCHAP,4,JWELL,BCOUNTS,ACOMMUNE1,MCBDOWN,AUT- 5 667Y ... ,SUP 20 668= ...MCBDOWN [ T/BEG TO COLLECT STATS FROM ^B^ 14 668N ... MFREE FILE,FABSNB [ TIDY UP 6 6696 ...SENTFROMA 5 669J ...SKIPB 4 66=2 ...) 4 66#B [ 12 66S2 [ READY TO COLLECT STATISTICS 4 67?L [ 4 67R= [ 7 67YD ... FSHSKIP 14 685L ... MFREE FILE,FABSNB [ TIDY UP 18 68=W LDX 4 ACTPROGS [ GET NO. OF CORE IMAGES 16 68QG LDX 6 ACTPROGS [ AND REMEMBER 8 69=6 ... ADX 4 BSUN 8 69PQ ... SLL 4 1 8 6=9B ... ADX 4 BSUN 8 6=P2 ... ADN 4 31 15 6*LQ SETUPCORE 4,3,FILE,FAPB [ GET BLOCK 8 6*T2 ... LDX 5 6 8 6B3= ... SLL 5 1 8 6B9G ... ADN 5 28 9 6BCQ ... STO 5 A1(3) 18 6BL2 LDN 4 FDATE [ LOCATE TO-DAY'S DATE 9 6C5L LDN 5 RDATE(3) 7 6CK= MOVE 4 2 15 6D4W TIMECON CLEANCT [ GET TIME 10 6DJG LDN 4 ACOMMUNE1(2) 7 6F46 ADN 5 2 7 6FHQ MOVE 4 2 9 6G3B [ SINGLE LENGTH IN. 9 6GH2 LDN 4 SDL-SSL/2 8 6H2L LDX 2 FX1 9 6HG= QUOS SMO SSL(2) 7 6H_W LDX 0 0 9 6JFG SMO SSL+1(2) 8 6J_6 STO 0 0(3) 7 6KDQ ADN 2 2 8 6KYB BCT 4 QUOS 8 6LD2 [ SIMILARLY D/L 10 6LXL LDN 4 SEND-SDL/2 9 6MC= QUOD LDX 0 SSL(2) 9 6MWW SMO SSL+1(2) 8 6NBG LDN 1 0(3) 7 6NW6 MOVE 0 2 7 6P*Q ADN 2 2 8 6PTB BCT 4 QUOD 7 6Q9= ... COBJUSE 18 6QK6 ... STO 0 ROBJC(3) [- CORE FOR OBJECT PROGS 6 6Q_2 ...#UNS ISTDP 4 6R#W ...( 18 6RNQ ... COBJUNUSE [- 'FREE' OBJECT CORE 8 6S4L ... ADX 0 CFREE 4 6SDG ...) 6 6SSB ...#UNS ISTDP 4 6T8= ...#SKI 4 6TJ6 ...( 5 6TY2 ...#SKI G4 4 6W?W ...( 18 6WMQ ... LDX 0 COBJFREE [- 'FREE' OBJECT CORE 8 6X3L ... SLL 0 10 15 6XCG ... ADX 0 CFREE [- FREE CORE 4 6XRB ...) 5 6Y7= ...#SKI G3 8 6YH6 ... LDX 0 CFREE 4 6YX2 ...) 17 6_=W ... STO 0 RFREC(3) [- TOTAL FREE CORE 15 6_MB [ NOW SEARCH JOBQUEUE TO ASCERTAIN: 14 7272 [ 1) NO OF MOP/BACKGROUND JOBS 15 72LL [ 2) NO OF JOBS WITH CORE-IMAGES 17 736= [ 3) OF (2) THE JOBNUM + CORE SIZE/QUOTA 8 73KW LDN 2 BJOBQ 10 745G BXL 6 ACTPROGS,SAME 18 74K6 LDX 6 ACTPROGS [TAKE MIN VALUE PREV/PRES 17 754Q SAME STO 6 RCORS(3) [NO OF CORE-IMAGES 7 75JB ADX 6 6 14 7642 STO 6 VAR(3) [REC HDDR 17 76HL LDN 1 VAR+1(3) [PTR TO 1ST FREE WORD 5 79FB QSEEK 8 7=DL BZE 6 NOJBS 9 7=Y= LDX 2 FPTR(2) 14 7?CW BXE 2 CXJO,NOJBS [NO MORE 10 7?XG LDX 4 ALOGLEN(2) 9 7#C6 SBN 4 ASTJOB 15 7#WQ BZE 4 QSEEK [NON USER JOB 9 7F?B LDX 4 JMISC(2) 8 7FR2 ANDN 4 #77 17 7G=L BZE 4 QSEEK [OR NOT A CORE-IMAGE 7 7GQ= SBN 6 2 9 7H9W LDX 4 JOBNUM(2) 14 7HPG STO 4 0(1) [JOBNO IN 9 7J96 LDX 4 JCSIZE(2) 17 7JNQ STO 4 1(1) [AND SIZE/QUOTA IN 7 7K8B ADN 1 2 8 7KN2 BRN QSEEK 7 7L7L ... FSHSKIP 9 7P5B NOJBS HUNTMISB 2,JWELL 8 7P6R ... FSHCODE AORB 4 7P88 ...( 5 7P9K ...NOJBS 18 7P?2 ... FSHCODE A,SKIPINB [ USE DATA FOR ^A^ JOBS 11 7P#C ... HUNTMISB 2,JWELL,ACOUNTS 5 7P*S ...SKIPINB 18 7PC9 ... FSHCODE B,SKIPINA [ USE DATA FOR ^B^ JOBS 11 7PDL ... MHUNTW 2,JWELL,BCOUNTS 5 7PG3 ...SKIPINA 4 7PHD ...) 13 7PK2 LDEX 0 JOBENTS+JWENTRY+JOBCTS(2) 9 7Q4L STO 0 RMOPS(3) 11 7QJ= LDEX 0 JOBENTS+JOBCTS(2) 18 7WYW STO 0 RBAKS(3) [STORE NO OF BACKGROUND. 16 7XDG [ AND NOW FOR SOMETHING COMPLETELY DIFFERENT. 10 7XY6 [ WE SEARCH THE BS CHAIN 8 7YCQ [ THE BS CHAIN 8 7YXB ... LDN 6 0 8 7_C2 ... ADN 1 1 8 7_WL ... LDX 2 BBAC 10 82B= ...REBSA JENVNOT NOCME,CME 11 82TW ... JANON CPPTR(2),XANON 10 83*G ... LGEOG CPPTR(2),4 11 83T6 ... JSWIN CPPTR(2),SWIN 8 84#Q ... ADN 4 1000 9 84SB ... JENV SWIN,CME 10 85#2 ...NOCME LGEOG CPPTR(2),4 8 85RL ...SWIN STO 4 0(1) 10 86?= ... LDX 4 AWORK4(2) 8 86QW ... STO 4 1(1) 11 87=G ... LDX 4 ACOMMUNE1+6(2) 8 87Q6 ... STO 4 2(1) 8 889Q ... ADN 6 3 7 88PB ... ADN 1 3 9 8992 ...XANON LDX 0 BACK2(2) 8 89NL ... ADN 0 1 9 8=8= ... SBX 2 ASBSAB 10 8=MW ... BXU 0 BSUN,REBSA 10 8*62 [ END OF COLLECTION ! 4 8*KL [ 8 8*MJ ... SEGENTRY APC9 6 8*PG ...#UNS CME01 4 8*RD ...#SKI 9 8*TB ... BRN NOTCME 6 8*X# ...#UNS CME01 6 8*_= ... NULL 10 8B38 ... JENVNOT NOTCME,CME 8 8B56 ... LDN 4 998 8 8B74 ... STO 4 0(1) 9 8B92 ... LDN 4 IDLESYS 8 8B=Y ... LDN 5 1(1) 8 8B#W ... MOVE 4 2 8 8BBS ... ADN 6 3 8 8BCR ... ADN 1 3 9 8BDQ ...NOTCME SEGENTRY APC10 8 8BGN ... SEGENTRY APC3 6 8BJW #UNS APC51 4 8C4G #SKI 17 8CJ6 BRN NOIDE [ SKIP EXEC IDLE TIME 6 8D3Q #UNS APC51 18 8DHB LDN 4 999 [ SET DEVICE TYPE '999' 8 8F32 STO 4 0(1) 17 8FGL LDN 4 EXECIDLE [ GET DATA ADDRESS 8 8G2= LDN 5 1(1) 15 8GFW MOVE 4 2 [ AND STORE 8 8GPN ... ADN 6 3 8 8GTK ... ADN 1 3 8 8G_G NOIDE SEGENTRY APC8 8 8G_M ... LDX 4 1 8 8G_S ... SBX 1 6 8 8G_W ... SBN 1 1 8 8G__ ... STO 6 0(1) 8 8H26 ... LDX 1 4 9 8H2? ... ADS 6 A1(3) 3 8H2H ... 9 8H3J ... SEGENTRY APC601 3 8H4K ... 8 8H5L ... IF ENV,MEEP 6 8H6M ... THEN 17 8H7N ... LDX 2 K31+63 [- CONSOLE T/W IN BDT 18 8H8P ... LDX 2 0(2) [- X2 -> T/W DEVICE LIST 9 8H9Q ... LDX 1 FX1 17 8H=R ... ADN 1 XEC [- EXEC MODE ROUTINE 17 8H?S ... ADX 1 GEODATUM [- ABSOLUTE ADDRESS 18 8H#T ... STO 1 K55+2(2) [- STORE IN DEVICE LIST 21 8H*W ... ALLOT 0 2 [- CALL ROUTINE IN EXEC MODE ('156) 5 8HBX ... FI 3 8HCY ... 7 8HF6 LDN 5 1 10 8HGT ... FSHCODE B,SKIPINA2 4 8HJJ ...( 21 8HL? ... MFREE JWELL,BCOUNTS [ NO LONGER REQUIRED HERE OR IN ^A^ 19 8HN2 ... TRANSBEG FSHPERFID,PERFCHAP,5,FILE,FAPB,ACOMMUNE1,,AUT,SUP 19 8HPP ... [ TO RETURN STATS /FAPB TO ^A^ 20 8HRD ... TRANSRET [ AND /FSHARED TO NORMAL SERVICE 5 8HT7 ...SKIPINA2 4 8HWW ...) 9 8HYQ BRN XK2PERF 10 8H_5 ... FSHCODE A,SKIPINB2 4 8H_D ...( 21 8H_R ...SENTFROMB [ ENTRY FOR RETURN SUPERVISORY 20 8J26 ... FINDACTN 3,AWORK2(2),NOPERFACT [ LOCATE PERFORMANCE ACTIVITY 10 8J2F ... MHUNTW 2,FILE,FAPB 10 8J2S ... LDX 3 ACTRING(3) 21 8J37 ... SBN 3 ACTRING [ CHAIN /FAPB ON 'BPTR' OF FOLLOWING 19 8J3G ... CHAIN 2,BPTR(3) [ ACT SO IT WONT GET CONFUSED. 19 8J3T ... FON ADPSTYLE [ WAKE UP PERF ACT IF SNOOZING 6 8J48 ...NOPERFACT 21 8J4H ... TRANSRET [ RETURN /FSHARED TO NORMAL SERVICE 5 8J4W ...SKIPINB2 4 8J59 ...) 10 8J5J ... FSHCODE B,SKIPINA3 4 8J5X ...( 18 8J6= ...SETUPREC [ ENTRY FROM EMS IN ^B^ 12 8J6K ... STOZ K30+K45 [ 19 8J6Y ... STOZ EXECIDLE [ INITIALISE EXEC IDLE COUNTS 12 8J7? ... STOZ EXECIDLE+1 [ 11 8J7L ... SETNCORE 11,2,FSH,FAPB 12 8J7_ ... ADN 1 SORTG [ 12 8J8# ... ADN 2 A1 [ 18 8J8M ... MOVE 1 11 [ SET UP 'LOADED' RECORD 10 8J92 ... ADN 2 UDATE-SORTG 10 8J9* ... LDN 1 IDENTITY+4 7 8J9N ... MOVE 1 2 10 8J=3 ... ADN 2 UTIME-UDATE 20 8J=B ... LDN 1 IDENTITY+2 [ & GET /FSHARED TO SEND IT TO ^A^ 7 8J=P ... MOVE 1 2 19 8J?4 ... TRANSBEG FSHPERFID,PERFCHAP,8,FSH,FAPB,ACOMMUNE1,,AUT,SUP 5 8J?C ... UP 5 8J?Q ...SKIPINA3 4 8J#5 ...) 10 8J#D ... FSHCODE A,SKIPINB3 4 8J#R ...( 21 8J*6 ...SETLOAD [ ENTRY (SUPERVISORY) FROM EMS IN ^B^ 21 8J*F ... FINDACTF 2,,GENERAL,CPERFACT,NOPERFACT,FPTR [ LOCATE PERF. ACT. 19 8J*S ... MHUNTW 3,FSH,FAPB [ & IF NOT THERE GIVE UP ELSE 10 8JB7 ... LDX 2 ACTRING(2) 21 8JBG ... SBN 2 ACTRING [ CHAIN FSH/FAPB ON 'BPTR' OF NEXT ACT 19 8JBT ... CHAIN 3,BPTR(2) [ TO KEEP IT OUT OF THE WAY 9 8JC8 ... BRN NOPERFACT 21 8JCH ...SKIPINB3 [ TO RETURN /FSHARED TO NORMAL SERVICE 4 8JCW ...) 8 8JDB MENDAREA 60 4 8JY2 #END 6 ____ ...721555010004