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

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

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

<code - SWAPTRAN.mac.txt>
 3?=# ...[??? SWAPTRAN SECT FILE FGN 9 DOC   
 3?G6    #MAC  SWAPTRAN  
 3?^Q          CALL  0  (BSTS4)  
 3#FB          LDCT  0  2
 3#^2          LDX   4  %A   
 3*39 ...#UNSET  ERRR
 3*5D ...(   
 3*7M ...      BNZ   4  M1SWAPTRAN   
 3*9W ...      ORN   0  FAIL 
 3*#5 ...M1SWAPTRAN  
 3*B# ...)   
 3*DL          SLL   4  17   
 3*Y=          ADN   4  BOBJ+ASWAP   
 3BCW          ORX   4  GSIGN
 3BXG          ORX   4  0
 3CC6          LDX   5  %B   
 3CWQ          SLL   5  8
 3DBB          ADX   5  %C   
 3DW2    #STR  %D
 3F*L          LDX   6  %D   
 3FT=    #STR  %D
 3G#W    #SKI
 3GSG          LDX   6  1+%C 
 3H#6          LDX   7  %E   
 3HRQ          LDX   0  %F   
 3J?B          SMO      FX2  
 3JR2          STO   0  BA5  
 3K=L          CALL  0  (BSTS1)  
 3KQ=          BRN      %G   
 3L9W    #NOR
</code>