CHTRANX [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: CHTRANX)}}
====== CHTRANX ======
(GIN Macro)

**Defined in:** [[george:source:MACROS_EWDAS|MACROS EWDAS]]

**Used in:** [[george:source:ERASEX866|ERASEX866]], [[george:source:FLAW866|FLAW866]]

<code - CHTRANX.mac.txt>
 H^MW    #   
 J27G    [???                                CHTRANX 
 J2M6    #                                   ******* 
 J36Q    #MAC  CHTRANX                      [FLAWS TRANSFER CHECK MACRO  
 J3LB    #   
 J462    #STR  %E
 J55=    (   
 J5JW          LDX   0  %E   
 J64G          SRL   0  18   
 J6J6    )   
 J73Q    #STR  %E
 J7HB    #SKI
 J832          LDCH  0  ACOMMUNE9(2) 
 J8GL          LDX   1  %A   
 J92=          ANDN  1  #77  
 J9FW          SBN   1  EDS  
 J9^G          BNZ   1  MCHTRANX1
 J=F6          ANDN  0  #75  
 J=YQ    MCHTRANX1   
 J?DB    #SKI  K6EXOFILE>299-299 
 J?Y2    (   
 J#CL          LDX   2  0
 J#X=          SRC   2  6
 J*BW          BNG   2  MCHTRANX2
 J*WG          SLL   2  1
 JBB6          BPZ   2  MCHTRANX3
 JBTQ          BZE   1  MCHTRANX2
 JC*B          SLL   2  2
 JCT2          BNG   2  MCHTRANX3
 JD#L    MCHTRANX2   
 JDS=          GEOERR   1,PERIREPX   
 JF?W    MCHTRANX3   
 JFRG    )   
 JG?6          LDX   1  FX1  
 JGQQ          LDX   2  FX2  
 JH=B          BZE   0  MCHTRANX4
 JHQ2          SRC   0  1
 JJ9L          BNG   0  %D   
 JJP=          ANDN  0  6
 JK8W          BNZ   0  %B   
 JKNG          BRN      %C   
 JL86    MCHTRANX4   
 JLMQ    #NOR
</code>