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

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

**Used in:** [[george:source:CLOSEND867|CLOSEND867]], [[george:source:ORELHALF82|ORELHALF82]], [[george:source:ORELMAIN867|ORELMAIN867]]

<code - APVSF.mac.txt>
 7Q4L ...[??? APVSF SECT CENT FGN  DOC   
 7QJ= ...#MAC  APVSF 
 7R3W ...[ TO ADJUST ACT PRI WHEN OPEN/CLOSE VITAL SYS FILE  
 7RHG ...#STR  %A,UP 
 7S36 ...#SKI
 7SGQ ...(   
 7T2B ...      LDX   2  FX2  
 7TG2 ...      JBC   M1APVSF,,ICTSW  
 7T^L ...      LDEX  0  ACRIT(2) 
 7WF= ...      ANDN  0  #76   [COUNT OF TIMES DONE   
 7WYW ...      BNZ   0  M3APVSF  [J IF ALREADY DONE  
 7XDG ...      LDX   1  ACRIT(2) 
 7XY6 ...      SRL   1  6
 7YCQ ...      LDX   0  ACRIT(2) 
 7YXB ...      ANDN  0  1
 7^C2 ...      ORX   0  1
 7^WL ...      STO   0  ACRIT(2) 
 82B= ...M3APVSF 
 82TW ...      LDN   0  2
 83*G ...      ADS   0  ACRIT(2)   [UPDATE COUNT 
 83T6 ...M1APVSF 
 84#Q ...      LDX   1  FX1  
 84SB ...#EXI
 85#2 ...)   
 85RL ...#STR  %A,DOWN   
 86?= ...#SKI
 86QW ...(   
 87=G ...      LDX   2  FX2  
 87Q6 ...      JBC   M2APVSF,,ICTSW  
 87W3 ...      LDX   0  ACRIT(2) 
 87^Y ...      ANDN  0  #76  
 885T ...      BZE   0  M2APVSF     [J IF DIFFRENT ACTIVITY  
 889Q ...      LDN   0  2
 88PB ...      SBS   0  ACRIT(2)  [DECREMENT COUNT   
 8992 ...      LDX   0  ACRIT(2) 
 89NL ...      ANDN  0  #76  
 8=8= ...      BNZ   0  M2APVSF    [J IF NOT GONE DOWN ENUF  
 8=MW ...      LDX   0  ACRIT(2) 
 8?7G ...      SLL   0  6
 8?M6 ...      ANDX  0  HALFTOP  
 8#6Q ...      LDX   1  ACRIT(2) 
 8#LB ...      ANDN  1  1
 8*62 ...      ORX   0  1
 8*KL ...      STO   0  ACRIT(2) 
 8B5= ...M2APVSF 
 8BJW ...      LDX   1  FX1  
 8C4G ...)   
 8CJ6 ...#NOR
</code>