GETFCBN

(GIN Macro)

Used in: CREATE867, MAKEFILE863, OPENREL865, RESTLIMB864

GETFCBN.mac.txt

 G#NJ ...[??? GETFCBN SECT FILE FGN 20 DOC   
 G#YB    #   
 G*D2    #MAC   GETFCBN  
 G*RN ...      BPZ   %B  MGETFCBN2   
 G*^H ...      LDX   0  FCBNO         [UNIQUE NUMBER FOR DIR FCBS
 GB7B ...MGETFCBN1   
 GB*9 ...      ADN   0  1
 GBH4 ...      STO   0  FCBNO
 GBNX ...      BNG   0  MGETFCBN3         [TEST IF WE HAVE OVERFLOWED !! 
 GBWQ ...      LDCT  0  #400         [RESET FCB NO   
 GC4K ...      BRN      MGETFCBN1
 GC=D ...MGETFCBN2   
 GCD? ...      LDX   0  FCBNUM         [UNIQUE NUMBER FOR TERM FILE FCBS 
 GCL6 ...      ADNC  0  1
 GCR^ ...      STO   0  FCBNUM   
 GC^S ...MGETFCBN3   
 GD7M ...      STO   0  BACK2(%A)         [STORE IN FCB  
 GD*Q    #NOR