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

**Defined in:** [[george:source:CHCHCOORMAC2|CHCHCOORMAC2]]

**Used in:** [[george:source:BSQ867|BSQ867]], [[george:source:BSTS867|BSTS867]], [[george:source:PROFLAG83|PROFLAG83]]

<code - FPUTX.mac.txt>
 5LPL ...#MAC  FPUTX 
 5LPY ...#STR  %A,2  
 5LQ= ...      LDX   2  %A   
 5LQJ ...      JBS      M1FPUTX,,ICTSW   
 5LQW ...      ENRINGD  CHAINADD(2),K3   
 5LR8 ...      BRN      M2FPUTX  
 5LR? ...M1FPUTX 
 5LRB ...      LDX   0  ACRIT(2) 
 5LRF ...      STO   2  GEN6     [KEEP AS FPUT O'WRITES  
 5LRJ ...      STO   0  GEN5 
 5LRM ...      STOZ     ACRIT(2)     [FIDDLE TO GMEL 0   
 5LRQ ...      FPUT  
 5LRT ...      LDX   0  GEN5 
 5LRY ...      SMO      GEN6 
 5LS3 ...      STO   0  ACRIT       [BACK TO NORMAL  
 5LS6 ...M2FPUTX 
 5LSD ...#NOR
</code>