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