TESTSLOWEST

(GIN Macro)

Defined in: RING-MACROS

Used in: COMMFILE82, READFILE84

TESTSLOWEST.mac.txt
 55*N ...[??? TESTSLOW SECT FILE FGN 20 DOC  
 55KG    #MAC  TESTSLOWEST   
 5656    #     JUMPS TO %B,IF ALL OTHER READERS IN FSTACK BLOCK POINTED TO BY %C 
 56JQ    #     READ MORE BLOCKS OF THE FILE THAN THE READER WITH ELEMENT AT %A.  
 574B          LDEX  3  ARINGNO(%C)         [CT FOR LOOP 
 57J2          SBN   3  1
 583L          BZE   3  %B                  [J IF ONLY 1 ELEMENT IN FSTACK BLOCK.
 58H=          ADN   3  1
 592W          LDX   0  3
 59GG    M4TESTSLOW  
 5=26          ADN   %C FELLEN   
 5=FQ          BCT   0  M4TESTSLOW   
 5=^B    M2TESTSLOW  
 5?F2          SBN   %C FELLEN   
 5?YL          LDXC  0  A1+FGENERAL1(%C) 
 5#D=          BCC      M1TESTSLOW   
 5#XW          LDX   0  FREADBLOCK+A1(%C)
 5*CG          BNG   0  M3TESTSLOW   
 5*X6          LDX   0  FREADBLOCK(%A)   
 5BBQ          BNG   0  M1TESTSLOW   
 5BWB          BXL   0  FREADBLOCK+A1(%C),M1TESTSLOW 
 5CB2          LDN   0  A1(%C)   
 5CTL          SBN   0  0(%A)
 5D*=          BNZ   0  M3TESTSLOW   
 5DSW    M1TESTSLOW  
 5F#G          BCT   3  M2TESTSLOW   
 5FS6          BRN      %B   
 5G?Q    M3TESTSLOW  
 5GRB    #NOR