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

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

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

<code - CHANGEUP.mac.txt>
 J?Y2 ...[??? CHANGEUP SECT CENT FGN 32 DOC  
 J#CL ...#   
 J#X= ...#   
 J*BW ...#MAC  CHANGEUP  
 J*WG ...      LDX   2  %A                  [ADDRESS OF NEW ACTIVITY BLOCK   
 JBB6 ...      FINDLINK 1                   [FIND LINK OF CURRENT ACTIVITY   
 JBTQ ...#STR  %B
 JC*B ...(   
 JCT2 ...      LDN   0  %B   
 JD#L ...      ADJUSTLK 1
 JDS= ...)   
 JF?W ...      LDN   4  ACC3(1)  
 JFRG ...      LDN   5  ACC3(2)  
 JG?6 ...      MOVE  4  ALINK               [MOVE LINK TO NEW ACTIVITY   
 JGQQ ...      FPUT                         [PUT NEW ACTIVITY ON ACTIVITY LIST   
 JH=B ...      FREELINK                     [FREE LINK IN CURRENT ACTIVITY   
 JHQ2 ...      COOR1X                       [TERMINATE CURRENT ACTIVITY  
 JJ9L ...#NOR
</code>