NEXTENT3

(GIN Macro)

Defined in: ACCESSMACROS

Used in: DIRENT867, GETDIR860

NEXTENT3.mac.txt

 #X*N ...[??? NEXTENT3 SECT FILE FGN 19 DOC  
 #XKG    #MAC  NEXTENT3  
 #Y56    [     AS FOR NEXTENT,EXCEPT THAT IT ASSUMES X3 -> ENTRY RATHER THAN 
 #YJQ    #SKI  K6ACCESS>99$99
 #^4B          CALL  1  M1NEXTENT3   
 #^J2          LDEX  2  ECOPS-A1(3)  
 *23L          ADX   2  ENUSE-A1(3)  
 *2H=          LDN   0  #1000
 *32W          ANDX  0  EINF2-A1(3)  
 *3GG          BZE   0  M2NEXTENT3   
 *426          ADN   2  1
 *4FQ    #SKI  K6ACCESS>99-99
 *4^B    (   
 *5F2          BRN      M2NEXTENT3   
 *5YL    M1NEXTENT3  
 *6D=          LDX   0  EREC-A1(3)   
 *6XW          SBN   0  FRDE 
 *7CG          BNZ   0  M3NEXTENT3   
 *7X6          LDX   0  ERES-A1(3)   
 *8BQ          BZE   0  (1)  
 *8WB    M3NEXTENT3  
 *9B2          GEOERR   1,NEXTENT3   
 *9TL    )   
 *=*=    M2NEXTENT3  
 *=SW          SKIP     %A,1(2)  
 *?#G          BZE   3  M4NEXTENT3   
 *?S6    #SKI  K6ACCESS>99$99
 *#?Q    (   
 *#RB          CALL  1  M1NEXTENT3   
 **?2          LDX   1  FX1  
 **QL    )   
 *B==    M4NEXTENT3  
 *BPW    #NOR