NEXTENT
(GIN Macro)
Defined in: ACCESSMACROS
Used in: BMFIXIT864, GETDIRX860, LISTDIR867, LOCATE84
- NEXTENT.mac.txt
#*HB ...[??? NEXTENT SECT FILE FGN 19 DOC #DF6 #MAC NEXTENT #DYQ [ THIS MACRO EXPECTS A DIRECTORY OPEN AT LEVEL %A, POSITIONED ON #FDB [ A NAME RECORD,AND IT EXPECTS A FILE/ENT BLOCK FOR THIS ENTRY TO #FY2 [ BE IN THE ACTIVITY CHAIN. #GCL MHUNTW 1,FILE,ENT #GX= #SKI K6ACCESS>99$99 #HBW ( #HWG BPZ 1 M1NEXTENT #JB6 M2NEXTENT #JTQ GEOERR 1,NEXTENT! #K*B M1NEXTENT #KT2 ) #L#L LDEX 2 ECOPS(1) #LS= ADX 2 ENUSE(1) #M?W LDN 0 #1000 #MRG ANDX 0 EINF2(1) #N?6 BZE 0 M3NEXTENT #NQQ ADN 2 1 #P=B M3NEXTENT #PQ2 SKIP %A,1(2) #Q9L BZE 3 M4NEXTENT #QP= #SKI K6ACCESS>99$99 #R8W ( #RNG LDEX 0 EREC-A1(3) #S86 SBN 0 FRDE #SMQ BNZ 0 M2NEXTENT #T7B LDX 0 ERES-A1(3) #TM2 BNZ 0 M2NEXTENT #W6L ) #WL= M4NEXTENT #X5W #NOR