{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: REFORMUL)}}
====== REFORMUL ======
(GIN Macro)

**Defined in:** [[george:source:DUMP-MACROS|DUMP-MACROS]]

**Used in:** [[george:source:BSUNJAM867|BSUNJAM867]]

<code - REFORMUL.mac.txt>
 #=JQ ...[??? REFORMUL SECT FILE FGN 65 DOC  
 #=RD ...#MAC  REFORMUL  
 #?8R ...#   
 #?L6 ...      LDX   5  FORMULA  
 ##3F ...      BNZ   5  M5REFORMUL   
 ##DS ...      LDN   5  1                   [SET = 1 IF WAS ZERO 
 ##W7 ...      STO   5  FORMULA  
 #*?G ...M5REFORMUL  
 #*NT ...      LDX   5  GMTNOW              [CURRENT GMY 
 #B68 ...#SKI IFS
 #BHH ...      MASFCB   3                   [FIND MASTER'S FCB   
 #BYW ...#SKI IFS<1$1
 #CB9 ...      LDX   3  BFILE               [FIND MASTERS FCB
 #CRJ ...      SBX   5  FLASTJAM(3)         [TIME SINCE LAST JAM 
 #D8X ...      BVCR     £                   [ CLEAR V
 #DL= ...      MPY   5  FORMULA             [FORMULA.TSLJ IN X5.6
 #F3K ...      DVR   5  IDEALJAM            [F.TSLJ/BSINTERVAL IN X6 
 #FDY ...      LDX   0  FORMULA             [
 #FW? ...      SLL   0  1                   [ X6 = 2.FORMULA 
 #G?L ...      BVSR     M8REFORMUL   
 #GN^ ...      BXL   6  0,M6REFORMUL 
 #H6# ...M8REFORMUL LDX  6  0
 #HHM ...M6REFORMUL                         [X6 = MIN(2.FORMULA,TSLJ.FORMULA/BSIN
 #H^2 ...      LDN   5  9
 #JB* ...      MPA   5  FORMULA             [X56=9.FORMULA+MIN(-)
 #JRN ...      LDN   0  10   
 #K93 ...      DVR   5  0                   [X6=(9.F+MIN(-))/10  
 #KLB ...      BVCR     M7REFORMUL          [SET TO MAX IF OVERFLOW  
 #L3P ...      LDCT  6  #377 
 #LF4 ...M7REFORMUL  
 #LWC ...#NOR
</code>