{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: FREEBUFF)}}
====== FREEBUFF ======
(GIN Macro)
**Defined in:** [[george:source:FREEBUFFMAC|FREEBUFFMAC]]
**Used in:** [[george:source:CHTAB|CHTAB]], [[george:source:CONTINUE867|CONTINUE867]], [[george:source:COOR865|COOR865]], [[george:source:DEMAND860|DEMAND860]], [[george:source:FIXINT|FIXINT]], [[george:source:INCWAIT860|INCWAIT860]], [[george:source:INKS|INKS]], [[george:source:LDSTART850|LDSTART850]], [[george:source:MACRALAS864|MACRALAS864]], [[george:source:PMFSADDC86|PMFSADDC86]], [[george:source:PROSTART867|PROSTART867]], [[george:source:REPLAC|REPLAC]], [[george:source:SCHEDENX860|SCHEDENX860]], [[george:source:SWAP865|SWAP865]], [[george:source:WAIT867|WAIT867]]
22FL ...#MAC FREEBUFF
22^= ...[ THIS MACRO IS USED TO CALL THE FIXED CORE FREEBUFF
23DW ...[ ROUTINES WHICH FREE FURB'S AND SET OVERFLOW IF ANY FUWB'S
23YG ...[ ARE FOUND CONNECTED TO THE ACTIVITIES OR FILES SPECIFIED BY THE
24D6 ...[ PARAMETERS TO THIS MACRO.
24XQ ...[ IF OVERFLOW IS SET THEN THE MACRO GOES DOWN TO FREEBUFF SEGMENT
25CB ...[ TO WRITE FUWB'S AWAY.
25X2 ...[ THIS MACRO CAN ALSO BE USED TO
26BL ...[ SWITCH THE ENHANCEMENT ON OR OFF.
26W= ...[
27*W ...[
27TG ...#OPT FREEBUFF=0
28*6 ...#EXI FREEBUFF
28SQ ...#STR ON,%A
29#B ...(
29S2 ...#STR OFF,%A
2=?L ...(
2=R= ...#STR %C
2?=W ...#SKI
2?QG ...(
2#=6 ... BVCR M1FREEBUFF [ CLEAR OVERFLOW
2#PQ ...M1FREEBUFF
2*9B ...)
2*P2 ...#SKI K6FREEBUFF>999-999
2B8L ...(
2BN= ... LDX 1 FX1
2C7W ... TRACEVER 0(1),%A [ CALLING CHAPTER PLUS FREEBUFF TYPE.
2CMG ...)
2D76 ... CALL 0 (FBSTACC) [ STORE AWAY ACC
2DLQ ... BRN M2FREEBUFF [ FREEBUFF SWITCHED OFF BRANCH
2F6B ...#STR %A
2FL2 ...#SKI
2G5L ...(
2GK= ... LDX 4 FX2
2H4W ... CALL 6 (FBACT)
2HJG ... CALL 0 (FBRVACC)
2J46 ... BVCR M2FREEBUFF
2JHQ ...#STR %C
2K3B ...#SKI
2KH2 ... DOWN FREEBUFF,3
2L2L ...)
2LG= ...#STR %A,FILE
2L^W ...(
2MFG ...#STR %B,CPAT
2M^6 ...#SKI
2NDQ ... CALL 7 (FBCPAT) [ %B NULL OR CPAT
2NYB ...#STR APET,%B
2PD2 ...#SKI
2PXL ... CALL 7 (FBAPET) [ %B = APET
2QC= ...#STR ANYACT,%B
2QWW ...#SKI
2RBG ...(
2RW6 ... LDCH 0 ATYPE(2)
2S*Q ... SBN 0 CPAT/64
2STB ... BZE 0 M3FREEBUFF [ CPAT
2T*2 ... LDCH 0 ATYPE(2)
2TSL ... SBN 0 APET/64
2W#= ... BNZ 0 M4FREEBUFF [ UNKNOWN ACT
2WRW ... CALL 7 (FBAPET)
2X?G ... BRN M4FREEBUFF
2XR6 ...M3FREEBUFF
2Y=Q ... CALL 7 (FBCPAT)
2YQB ...M4FREEBUFF
2^=2 ...)
2^PL ...#STR %A,AOLPT
329= ...(
32NW ... LDX 4 FX2
338G ... CALL 6 (FBACT) [ FREEBUFF CURRENT ACTIVITY
33N6 ... CALL 0 (FBRVACC)
347Q ... BVCR M2FREEBUFF
34MB ...#STR %C
3572 ...#SKI
35LL ... DOWN FREEBUFF,1 [ WHOLE JOB
366= ...)
36KW ...#STR %A,AOLPT
375G ...#SKI
37K6 ...(
384Q ... CALL 0 (FBRVACC)
38JB ... BVCR M2FREEBUFF
3942 ...#STR %C
39HL ...#SKI
3=3= ... DOWN FREEBUFF,2 [ AOLPTS OF JOBS ONLY
3=GW ...)
3?2G ...)
3?G6 ...#STR FILE,%A
3?^Q ...#SKI
3#FB ...(
3#^2 ...#STR %B,0
3*DL ...(
3*Y= ... LDN 4 %B [ FILE DEPTH ... NON ZERO
3BCW ... TOPFCA2 3
3BXG ...M5FREEBUFF
3CC6 ... NXFCA 3,3,M6FREEBUFF
3CWQ ... BCT 4 M5FREEBUFF
3DBB ...)
3DW2 ...#STR %B,0
3F*L ...#SKI
3FT= ... TOPFCA2 3 [ DEPTH 0
3G#W ... CALL 5 (FBFCA)
3GSG ...M6FREEBUFF
3H#6 ... CALL 0 (FBRVACC)
3HRQ ... BVCR M2FREEBUFF
3J?B ...#STR %C
3JR2 ...#SKI
3K=L ...(
3KQ= ...#STR %B
3L9W ...#SKI
3LPG ... LDN 3 0
3M96 ...#STR %B
3MNQ ... LDN 3 %B
3N8B ... DOWN FREEBUFF,4 [ FILE FREEBUFF
3NN2 ...)
3P7L ...)
3PM= ...M2FREEBUFF
3Q6W ...#SKI K6FREEBUFF>999-999
3QLG ... TRACEVER 0(1),FB END [ END OF MACRO
3R66 ...)
3RKQ ...)
3S5B ...#STR OFF,%A
3SK2 ...#SKI
3T4L ...(
3TJ= ...#MEN FBUFF
3W3W ...#TRA AFBSTACC
3WHG ... EXIT 0 0
3X36 ...#TRA AFBRVACC
3XGQ ... EXIT 0 0
3Y2B ...#TRA AFBFCA
3YG2 ... EXIT 5 0
3Y^L ...#TRA AFBACT
3^F= ... EXIT 6 0
3^YW ...#TRA AFBCPAT
42DG ... EXIT 7 0
42Y6 ...#TRA AFBAPET
43CQ ... EXIT 7 0
43XB ...#END
44C2 ...)
44WL ...#STR ON,%A
45B= ...#SKI
45TW ...(
46*G ...#MEN FBUFF
46T6 ...#TRA AFBSTACC
47#Q ... SMO FX2
47SB ...#TRA AFBRVACC
48#2 ... SMO FX2
48RL ...#TRA AFBFCA
49?= ... LDX 1 3
49QW ...#TRA AFBACT
4==G ...#SKI K6FREEBUFF>199-199
4=Q6 ... LDN 0 1
4?9Q ...#SKI K6FREEBUFF>999-999
4?PB ... LDX 1 4
4#92 ...#SKI K6FREEBUFF>199-199
4#NL ...#SKI
4*8= ... SMO 4
4*MW ...#TRA AFBCPAT
4B7G ... LDX 2 JOBRING(2)
4BM6 ...#TRA AFBAPET
4C6Q ... LDX 2 ACTRG(2)
4CLB ...#END
4D62 ...)
4DKL ...#NOR