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

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

**Used in:** [[george:source:BSPRUNE867|BSPRUNE867]], [[george:source:OPENEND865|OPENEND865]]

<code - LOCFCB.mac.txt>
 H55S ...[??? LOCFCB SECT FILE FGN 20 DOC
 H5*L    #MAC  LOCFCB
 H5T=          LDN   1  %A   
 H6#W          CALL  0  M1LOCFCB 
 H6SG    #OPT  M2LOCFCB=1
 H7#6    #SKI  M2LOCFCB  
 H7RQ    (   
 H8?B          BRN      M3LOCFCB 
 H8R2    #DEF  M1LOCFCB=0?   
 H9=L          STO   0  GEN0 
 H9Q=          STO   1  GEN1 
 H=9W          LDN   0  3
 H=PG          LDN   1  GEN2 
 H=^# ...      MOVE  0  5
 H?DY ...[  ACC USE  
 H?YJ ...[ 0  TESTNAMX   
 H#D8 ...[ 1FILE FABS POINTER
 H#XS ...[ 2 FCB POINTER 
 H*CD ...[ 3 FCB RING POINTER
 H*X4 ...[ 4AND 5 COMPARISON WORDS   
 HBBN ...[ 6 NEXTFCB MACRO COUNT OF FCBS 
 HBW# ...[ 7 TESTNAMX MACRO  
 HCTJ ...      TOPFCB 2  
 HD*8 ...      HUNT 1,FILE,FABSNB
 HDSS ...      ADX   1  A1(1)         [X1 POINTS TO LOCAL NAME   
 HF#D ...                  [REF BY A1-6  
 HFS4 ...      LDX   4  A1-6(1)         [FIRST WORD OF LOCAL NAME
 HG?N ...      LDX   5  FME1(2)         [FIRST WORD OF USER NAME 
 HGR# ...      BASEFCB 3,FILE,M7LOCFCB,6 
 HH=Y ...M4LOCFCB
 HHQJ ...      BXE   4  FLOC1-FCBRING(3),M6LOCFCB         [FAST LOOP TO FIND FCB 
 HJ=8 ...M5LOCFCB
 HJPS ...      NEXTFCB 3,FILE,M4LOCFCB,6 
 HK9D ...      BRN      M7LOCFCB            [FCB RING EXHAAUSTED 
 HKP4 ...M6LOCFCB                  [A POSSIBLE FCB FOUND 
 HL8N ...      BXU   5  FUSER1-FCBRING(3),M5LOCFCB         [USER NAME COMP   
 HLN# ...      TESTNAMX 5,FLOC2-FCBRING(3),A1-6+1(1),M5LOCFCB
 HM7Y ...      LDX   0  FME2(2)         [COMPARE REST OF USER NAME   
 HMMJ ...      BXU   0  FUSER2-FCBRING(3),M5LOCFCB   
 HN78 ...      LDX   0  FME3(2)  
 HNLS ...      BXU   0  FUSER3-FCBRING(3),M5LOCFCB   
 HP6D ...      BRN      M9LOCFCB 
 J27G    M7LOCFCB
 J2M6          SETREP   NOTFOUND 
 J36Q          BRN      M10LOCFCB
 J3LB    M9LOCFCB
 J462          SETREP   OK   
 J4KL    M10LOCFCB   
 J55=          LDX   0  3
 J5*4 ...      SBN   0  FCBRING  
 J5JW          LDN   1  GEN2 
 J64G          LDN   2  3
 J6J6          MOVE  1  5
 J73Q          LDX   1  GEN1 
 J7HB          STO   0  0(1) 
 J832    #SKI  %A-1  
 J8GL          LDX   1  FX1  
 J92=    #SKI  %A-2  
 J9FW          LDX   2  FX2  
 J9^G          LDX   0  GEN0 
 J=F6          EXIT  0  0
 J=YQ    #FREE M2LOCFCB  
 J?DB    #DEF  M2LOCFCB=0
 J?Y2    M3LOCFCB
 J#CL    )   
 J#X=    #NOR
</code>