TESTWAIT [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: TESTWAIT)}}
====== TESTWAIT ======
(GIN Macro)

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

**Used in:** [[george:source:PERUSFIL84|PERUSFIL84]], [[george:source:READFILE84|READFILE84]]

<code - 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
</code>