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