(George Source)
Macros used: ACROSS, BC, BS, BXE, BXL, BXU, CLOSETOP, COMBRKIN, FREEBUFF, GEOERR, INHIBITBRK, JBC, JBS, JMBAC, JMBS, LONGHALT, MBS, MENDAREA, OPENINC, OPENMAS, REWIND, SEG, SEGENTRY, STEP, TESTINBRK, UP
22FL ... SEG INCWAIT,860,MIKE PUTNAM,INCDUMP 22^= # 23DW SEGENTRY K2INCWAIT,UPGMTNOW 23YG SEGENTRY K1INCWAIT 24D6 # 24XQ # 2 ENTRY POINTS FOR 2 COMPLETELY SEPARATE PURPOSES - IN SAME SEGMENT S 25CB # BOTH QUITE SMALL & (FOR MOST OF TIME WHEN GEORGE IS RUNNING) BOTH ARE 25X2 # ENTERED ONCE A MINUTE. 26BL # 26W= # K1 ENTRY 27*W # -------- 27TG # 28*6 # ENTERED FROM 1) INCOM SEGMENT (INCDUMP DUMP OR INCDUMP NOW COMMAND 28SQ # 2) INCRV SEGMENT (WHEN INCR. NOT SUITABLE FOR GENERAL RE 29#B # PRODUCED) 29S2 # 3) INCSTART SEGMENT (WHEN INCR. ABANDONED & OBLITERATED) 2=?L # ON ENTRY, X7 SAYS WHETHER TO WAIT (A TIME OF INSTALLATION PARARAMETER 2=R= # 'ADUMPTIME' MINS.) OR NOT. 2?=W # IF X7=0, ONLY WAIT IF LAST INCR. SUITABLE FOR GEN. RESTORE 2?QG # (INCDUMP DUMP COMMAND ONLY) 2#=6 # IF B0=1, NEVER WAIT (INCDUMP NOW COMMAND & ENTRY FROM INCRV) 2#PQ # IF B1=1, ALWAYS WAIT (ENTRY FROM INCSTART). 2*9B # 2*P2 # K2 ENTRY 2B8L # -------- 2BN= # 2C7W # ENTERED FROM GMTUPDATE MACRO (USED BY CHARGESC SEGMENT & OBEYED ONCE 2CMG # MINUTE) TO ALTER GMTNOW & POSSIBLY TO UPDATE ITS VALUE ON BACKING-STO 2D76 # 2DLQ # 2F6B # K1INCWAIT - DECIDE WHETHER OR NOT TO WAIT & SET UP MARKER WORD (IN X6 2FL2 # IN X6, B0=1 IF LAST INCR IS SUITABLE FOR GEN RESTORE 2G5L # B1=1 IF RETRIEVABLE INCR SINCE LAST GEN RESTOREABLE INCR 2GK= OPENINC ,GENERAL [OPEN INCINDEX (GENERAL MODE) 2H4W LDN 6 0 [CLEAR MARKER WORD 2H=4 ...#UNS JSKI33 2HC= ... BS 2,EXDUMPER 2HJG STEP 2J46 STEP 2JHQ BZE 3 YEND [J IF END OF INCINDEX 2JLW ...#UNS FPD 2JQ2 ... JMBAC NGR,3,BIFINALR,BIGENRESR [J IF NOT LAST INC OF DUMP 2JT6 ...#UNS FPD 2JY= ...#SKI 2K3B JBC NGR,3,BIGENRESR [J IF INCR. NOT SUITABLE GENERAL REST 2KH2 LDCT 6 #400 [SET B0 (SUITABLE FOR GEN. RESTORE), 2L2L BRN STEP 2LG= NGR 2L^W SLL 6 1 2MFG SRL 6 1 [CLEAR GEN. RESTORE MARKER (B0) 2M^6 JBS STEP,3,BINSUITRVR [J IF INCR. NOT SUITABLE RETRIEVING 2NDQ LDCT 6 #200 [SET 'INCR. SUITABLE FOR RETRIEVING ( 2NYB [ NOT GEN. RESTORE)' MARKER 2PD2 BRN STEP 2PXL YEND 2QC= REWIND [REWIND INCINDEX 2QWW BNG 7 NOWAIT [J IF TOLD NOT TO WAIT 2RBG SLL 7 1 2RW6 BNG 7 YWAIT [J IF TOLD MUST WAIT 2S*Q BPZ 6 NOWAIT [J IF LAST INCR. IN INCINDEX NOT SUIT 2STB [ FOR A GENERAL RESTORE 2T*2 YWAIT 2TSL CLOSETOP [CLOSE INCINDEX 2W#= # 2WRW # NOW GO WAITING (A) FOR "ADUMPTIME" MINS., (B) UNTIL "FINISHED" OCCURS 2X?G # (C) UNTIL "DUMP" IS TYPED OR (D) UNTIL KICKED BY THE BS UNJAMMER. 2XR6 # 2Y=Q STOZ 7 [CLEAR COUNT OF MINS. WAITED 2YQB LDN 4 60/FONINTP [X4= NO. OF WAITS PER MIN 2^=2 BRN MISSTIME [CHECK FIRST FOR "FINISH" ETC. 2^PL WAIT 2^SQ ...#UNS FREEBUFF 2^XW ...( 3232 ... FREEBUFF [ FREE FURBS AND FUWBS 3266 ...) 329= LONGHALT MFIN,ADUMPWAIT,4 [WAIT FOR 1 MINUTE 32NW [ OR UNTIL WOKEN UP TO DUMP 338G ADN 7 1 [INCREASE COUNT OF MINS. WAITED. 33N6 MISSTIME 347Q LDCT 0 #040 34MB ANDX 0 FINISH 3572 BNZ 0 MFIN [J IF "FINISHED". 35=6 ...#UNS IDC 35*= ... JMBS WAITFIN,,BNOWD,BDCISS [ J IF TO DUMP IMMEDIATELY 35DB ...#UNS IDC 35HG ...#SKI 35LL JBS WAITFIN,,BNOWD [J IF TO DUMP IMMEDIATELY 366= BXL 7 ADUMPTIME,WAIT [J IF NOT YET TIME TO DUMP 36KW WAITFIN 375G # 37K6 # INHIBIT BREAK-IN DURING DUMPING SO THAT IF 'FINISHED' OCCURS WE ARE NO 384Q # INTERRUPTED WHEN WE DO ISSUCOMS - OPS WOULD GET CONFUSED OTHERWISE 38JB # IF BEFORE INHIBITING, BREAKIN ALREADY SET( IE 'FINISHED' HAS OCCURRED 3942 # ) OR 'FINISHED' OCCURRED WHILE WAITING GOES BACK TO COMMAND LEVEL T 39HL # DEAL WITH FINISHED 3=3= # 3=8D ...#UNS IDC 3=*L ... BC ,BDUMPAB 3=GW OPENINC ,GENERAL [OPEN INCINDEX (GENERAL MODE) 3?2G NOWAIT 3?G6 TESTINBRK XINHIB [J IF BREAK-IN ALREADY INHIBITED 3?^Q INHIBITBRK MBREAK [INHIBIT BREAK-IN - J IF BREAK-IN ALR 3#FB XINHIB 3#^2 ACROSS INCSTART,1 [X6 IS SET AS FOLLOWS: 3*DL [ B0=1 IF LAST INCR. SUITABLE FOR 3*Y= [ GENERAL RESTORE 3BCW [ B1=1 IF RETRIEVABLE INCR. SINCE L 3BXG [ GENERAL RESTOREABLE INCR. 3CC6 MBREAK 3CWQ CLOSETOP [CLOSE INCINDEX 3DBB MFIN 3DD5 ...#UNS IDC 3DFS ... BC ,BDUMPAB 3DHJ ...#UNS JSKI33 3DNQ ... BC FX2,EXDUMPER 3DW2 BC ,BIDCOM [REMOVE 'INCDUMP DUMP (OR NOW) COMMAN 3F*L [ BEING OBEYED' BIT 3FT= COMBRKIN [GO BACK TO COMMAND PROCESSOR TO DEAL 3G#W [ WITH FINISHED 3GSG # 3H#6 # 3HRQ # 3J?B UPGMTNOW 3JR2 LDX 0 APROCTIME 3K=L STO 0 GMTLUP [RESET TIME LAST UPDATED 3KQ= LDN 0 1 3L9W ADS 0 GMTNOW [INCREASE CURRENT GMT 3LPG LDX 1 GMTNOW 3M96 LDN 2 GMTINT 3MNQ DVS 0 2 [CHECK IF NEED TO UPDATE ON B.STORE 3N8B BNZ 0 NOUPD [J IF NON-ZERO REMAINDER 3NN2 OPENMAS NOFMAPP,GENERAL 3P7L #SKI IFS<1-1 3PM= LDX 2 BFILE [FIND MASTERS FCB 3Q6W #SKI IFS 3QLG MASFCB 2 [X2->MASTERS FCB 3R66 LDX 0 GMTNOW 3RKQ STO 0 FGMTBS(2) [AND STORE CURRENT GMT 3S5B MBS 2,BFALTR,BFALTB [SET FILE ALTERED BITS 3SK2 #SKI IFS<1-1 3T4L ( 3TJ= NEXTB 3W3W LDX 2 FPTR(2) [SEARCH FILE CHAIN FOR F/FMAPP 3WHG LDX 0 ATYPE(2) 3X36 BXE 0 FILEPLUSFCB,NOFMAPP [NO F/FMAPP PRESENT ? 3XGQ BXU 0 TMAPP(1),NEXTB 3Y2B ) 3YG2 #SKI IFS 3Y^L SFMAPP 2,2,(GEOERR) [X2->FMAPP 3^F= LDN 0 3 3^YW ORS 0 FBCOMM(2) [REQUIRED IN UPDATING MASTER 42DG CLOSETOP 42Y6 NOUPD 43CQ UP 43XB #SKI IFS<1-1 44C2 ( 44WL TMAPP 45B= #HAL FILE+FMAPP,0 45TW NOFMAPP 46*G GEOERR 1,GMT ALT [ NO FMAP OR B/IN WHILE MASTER OPEN 46T6 ) 47#Q # 47SB MENDAREA 20,K99INCWAIT 48#2 # 48RL #END ^^^^ ...536720120001