WAITPRIV [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.

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

**Defined in:** [[george:source:DUMP-MACROS|DUMP-MACROS]]

**Used in:** [[george:source:GETBACK865|GETBACK865]], [[george:source:GETBAX865|GETBAX865]]

<code - WAITPRIV.mac.txt>
 8S2J ...[??? WAITPRIV SECT FILE FGN 65 DOC  
 8S=B    #   
 8SQ2    # THIS MACRO TESTS IF ACTIVITY IS B.S.PRIVILEGED
 8T9L    #   
 8TP=    #MAC  WAITPRIV  
 8TS7 ...      LDX   1  FX2  
 8TT6 ...      JBS      M1WAITPRIV,1,CLGBSPRIV [J IF ACT. ITSELF BS PRIVILEGED   
 8TW5 ...      LDN   0  FILERING(1)  
 8TX4 ...      BXE   0  FILERING(1),%A      [EXIT IF FILE RING EMPTY 
 8TY3 ...      TOPFCB   1
 8T^2 ...      JFZ      %A,1,FFINDEXNO      [EXIT IF TOP FILE NOT INDEXED
 8T^^ ...      TOPFCA   1
 8W2Y ...      JBC      %A,1,BAMGEN         [EXIT IF DON'T HAVE TOP FILE OPEN
 8W3X ...                                   [  IN GENERAL MODE   
 8W4W ...M1WAITPRIV  
 96GG    #NOR
</code>