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

**Defined in:** [[george:source:MACS_SPC|MACS SPC]]

**Used in:** [[george:source:ENGAGE867|ENGAGE867]], [[george:source:IPCOND864|IPCOND864]], [[george:source:IPQUAKER865|IPQUAKER865]]

<code - FPUTCHA.mac.txt>
 ?*RQ    #MAC  FPUTCHA   
 ?B?B          DSCA     %A,LDXC,2,CHADD  
 ?BR2          NGNC  0  0
 ?C=L          ANDS  0  0(2) 
 ?CQ=          LDX   0  0(2) 
 ?D9W          SBN   0  1
 ?DPG          BNZ   0  MCEND
 ?F96           SBN   2  CHAINADD
 ?FNQ          FPUT  
 ?G8B    MCEND   
 ?GN2          LDX   2  FX2  
 ?H7L          LDX   1  FX1  
 ?HM=    #NOR
</code>