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

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

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

<code - REFORM.mac.txt>
 #33D ...[??? REFORM SECT FILE FGN 65 DOC
 #3?=    #   
 #3NK ...#MAC  REFORM
 #45Y ...      SEGENTRY  K93BSUNJAM  
 #4H? ...      BRN      M3REFORM 
 #4YL ...      LDX   6  FORMULA             [SPECIAL PATH
 #5*^ ...      SBN   6  2500                [REDUCE F  BY 2500   
 #5R# ...      BPZ   6  M1REFORM 
 #68M ...      LDN   6  0                   [ZERO IZE IFF NEGATIVE   
 #6L2 ...M1REFORM  BRN  M2REFORM 
 #73* ...      SEGENTRY  K94BSUNJAM  
 #7DN ...M3REFORM
 #7W3 ...[     NORMAL PATH   
 #8?B ...      LDX   6  FORMULA  
 #8NP ...      SRL   6  1                   [HALVE FORMULA   
 #964 ...      ADX   6  FORMULA  
 #9HC ...      SRL   6  1                   [ X6 = 3/4 . FORMULA 
 #9YQ ...M2REFORM
 #=B5 ...#NOR
</code>