CHANGEUP

(GIN Macro)
Used in: CAPCA50
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