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

**Defined in:** [[george:source:MACROS_RMD10|MACROS RMD10]]

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

<code - TRANSFO1.mac.txt>
 *N=J ...[??? TRANSFO1 SECT FILE FGN 16 DOC  
 *P22    #MAC  TRANSFO1  
 *PFL          LDX   2  FX2  
 *P^=          ANSOK2
 *QDW          LDX   0  %A   
 *QYG          ERX   0  %B   
 *RD6          ANDN  0  #7775
 *RXQ          BZE   0  MTR  
 *SCB          LDN   1  #20  
 *SX2          ANDX  1  %B   
 *TBL          ERX   0  1
 *TW=          BZE   0  MTR  
 *W*W          STO   %A ACOMMUNE1(2) 
 *WTG          STO   %B ACOMMUNE2(2) 
 *X*6          DOWN     TRANSFOR,1   
 *XSQ    MTR   LDX   1  FX1  
 *Y#B    #NOR
</code>