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

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

**Used in:** [[george:source:EDITOR867|EDITOR867]], [[george:source:EDITORA865|EDITORA865]]

<code - APCHANGE.mac.txt>
 7#C6    [??? APCHANGE  SECT CENT FGN  DOC   
 7#WQ ...#MAC  APCHANGE  
 7*BB ...      LDX   2  FX2  
 7*W2 ...      JBC      M1APCH,,ICTSW
 7B*L ...#STR  DOWN,%A   
 7BT= ...#SKI
 7C#W ...(   
 7CSG ...      LDX   1  ACRIT(2) 
 7D#6 ...      LDN   0  1
 7DRQ ...      ANDX  0  1
 7F?B ...      BNZ   0  M1APCH   
 7FR2 ...      SRL   1  6
 7G=L ...      STO   1  ACRIT(2) 
 7GQ= ...      LDX   0  ASFNO1   
 7H9W ...      DCH   0  ACRIT(2) 
 7HPG ...)   
 7J96 ...#STR  UP,%A 
 7JNQ ...#SKI
 7K8B ...(   
 7KN2 ...      LDX   0  ACRIT(2) 
 7L7L ...      LDN   1  1
 7LM= ...      ANDX   1  0   
 7M6W ...      BNZ   1  M1APCH   [J IF AP FIXED  
 7MLG ...      SLL   0  6
 7N66 ...      STO   0  ACRIT(2) 
 7NKQ ...)   
 7P5B ...M1APCH  LDX   1  FX1
 7PK2 ...#NOR
</code>