{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: INCWAIT860)}}
====== INCWAIT860 ======
(George Source)
**Macros used:** [[george:macro:ACROSS|ACROSS]], [[george:macro:BC|BC]], [[george:macro:BS|BS]], [[george:macro:BXE|BXE]], [[george:macro:BXL|BXL]], [[george:macro:BXU|BXU]], [[george:macro:CLOSETOP|CLOSETOP]], [[george:macro:COMBRKIN|COMBRKIN]], [[george:macro:FREEBUFF|FREEBUFF]], [[george:macro:GEOERR|GEOERR]], [[george:macro:INHIBITBRK|INHIBITBRK]], [[george:macro:JBC|JBC]], [[george:macro:JBS|JBS]], [[george:macro:JMBAC|JMBAC]], [[george:macro:JMBS|JMBS]], [[george:macro:LONGHALT|LONGHALT]], [[george:macro:MBS|MBS]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:OPENINC|OPENINC]], [[george:macro:OPENMAS|OPENMAS]], [[george:macro:REWIND|REWIND]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:STEP|STEP]], [[george:macro:TESTINBRK|TESTINBRK]], [[george:macro:UP|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