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

**Defined in:** [[george:source:MACS_PW|MACS PW]]

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

<code - CHANASAT.mac.txt>
 3F5#    #   
 3F5K    #     THIS MACRO COPIES ASSOCS FROM ASSOCS0 BLOCK(AT LT TIME)   
 3F5W    #   
 3F67    #MAC  CHANASAT  
 3F6D          HUNTW    2,APERI,ASSOCS0  
 3F6P          BNG   2  MFIN 
 3F72          VFREEW   APERI,ASSOCS 
 3F7?          MHUNTW   2,APERI,ASSOCS0  
 3F7J          LDX   %A ALOGLEN(2)   
 3F7T          SBN   %A 1
 3F86          BZE   %A MC1                 [J IF ONLY JSOURCE3  
 3F8C          SETUPCORE %A,1,APERI,ASSOCS   
 3F8N          MHUNTW   2,APERI,ASSOCS0  
 3F8^          LDN   0  A1(2)
 3F9=          LDN   1  A1(1)
 3F9H          SMO      %A   
 3F9S          MOVE  0  0                  [COPY ASSOCIATIONS
 3F=5    MC1   SMO      %A   
 3F=B          LDX   %A A1(2)
 3F=M          MFREEW   APERI,ASSOCS0
 3F=Y          SMO      FX2  
 3F?9          STO   %A JSOURCE3 
 3F?G    MFIN  LDX   1  FX1  
 3F?R          LDX   2  FX2  
 3F#4    #NOR
</code>