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

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

**Used in:** 

<code - CHAINSWOP.mac.txt>
 3KQ=    [???  CHAINSWOP SECT FILE FGN 1 DOC 
 3L9W    #     SWOPS OVER CHAINS ATTACHED TO TWO SPECIFIED CHAIN BASES   
 3LPG    #MAC  CHAINSWOP 
 3M96          LDN   1  %A   
 3MNQ          LDX   3  %A+BPTR  
 3N8B          LDN   4  %B   
 3NN2          CHAIN    1,4  
 3P7L          LDN   1  %A   
 3PM=          BXE   1  3,MCHEMPTY   
 3Q6W          CHAIN    4,3  
 3QLG          BRN      MCHSWEND 
 3R66    MCHEMPTY
 3RKQ          DERINGD  %B   
 3S5B          STO   4  %B   
 3SK2          STO   4  %B+BPTR  
 3T4L    MCHSWEND
 3TJ=    #NOR
</code>