GETFCBN [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.

{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: GETFCBN)}}
====== GETFCBN ======
(GIN Macro)

**Defined in:** [[george:source:RING-MACROS|RING-MACROS]]

**Used in:** [[george:source:CREATE867|CREATE867]], [[george:source:MAKEFILE863|MAKEFILE863]], [[george:source:OPENREL865|OPENREL865]], [[george:source:RESTLIMB864|RESTLIMB864]]

<code - 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
</code>