(George Source)
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 ^^^^ ...534465030015