WAITPRIV

(GIN Macro)

Defined in: DUMP-MACROS

Used in: GETBACK865, GETBAX865

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