TESTWAIT

(GIN Macro)

Defined in: RING-MACROS

Used in: PERUSFIL84, READFILE84

TESTWAIT.mac.txt
 4*XN ...[??? TESTWAIT SECT FILE FGN 20 DOC  
 4B7G    #MAC  TESTWAIT  
 4BM6    #     VERY  MUCH AS ABOVE,JUMPS IF ANYONE ELSE IS WAITING FOR BLOCK 
 4C6Q          LDEX  3  ARINGNO(%C)  
 4CLB          SBN   3  1
 4D62          BZE   3  M3TESTWAIT   
 4DKL          ADN   3  1
 4F5=          LDX   0  3
 4FJW    M4TESTWAIT  
 4G4G          ADN   %C FELLEN   
 4GJ6          BCT   0  M4TESTWAIT   
 4H3Q    M2TESTWAIT  
 4HHB          SBN   %C FELLEN   
 4J32          LDCT  0   #776
 4JGL          ANDX  0   A1+FGENERAL1(%C)
 4K2=          BZE   0   M1TESTWAIT  
 4KFW          LDX   0  FREADBLOCK+A1(%C)
 4K^G          BXU   0  FREADBLOCK(%A),M1TESTWAIT
 4LF6          LDX   0  FGENERAL2+A1(%C) 
 4LYQ          ANDN  0  1
 4MDB          BNZ   0  %B   
 4MY2    M1TESTWAIT  
 4NCL          BCT   3  M2TESTWAIT   
 4NX=    M3TESTWAIT  
 4PBW    #NOR