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

**Defined in:** [[george:source:MACROS_LEF|MACROS LEF]]

**Used in:** [[george:source:LISTEND867|LISTEND867]], [[george:source:LISTFIND867|LISTFIND867]], [[george:source:LISTFNDA865|LISTFNDA865]], [[george:source:LISTFREE867|LISTFREE867]], [[george:source:LISTSEAR867|LISTSEAR867]], [[george:source:LOCATE84|LOCATE84]], [[george:source:WLD864|WLD864]], [[george:source:WLF862|WLF862]], [[george:source:WLG862|WLG862]]

<code - LFRECNUM.mac.txt>
 BQD# ...[??? LFRECNUM SECT DEVT FGN 2 DOC   
 BQN6    #MAC  LFRECNUM  
 BR7Q    [ THIS MACRO DETERMINES THE NUMBER OF BLOCKS IN AN ENTRY
 BRMB    [ IN SYSOUT OR THE LFCHAIN  
 BS72    [   
 BSLL    [ %A IS AN ACCUMULATOR TO CONTAIN THE ANSWER,NOT X0 
 BT6=    [ %B IS A WORD CONTAINING A COPY OF GMODE   
 BTKW    [ X0 IS ZEROISED
 BW5G    [   
 BWK6    [   
 BX4Q          LDCT  0  #540 
 BXJB          ANDX  0  %B   
 BY42          ERX   0  GSIGN               [EXTRA BLOCK UNLESS ONLINE   
 BYHL          LDN   %A 1
 B^3=    M1LFRECNUM  
 B^GW          BPZ   0  M2LFRECNUM   
 C22G          ADN   %A 1
 C2G6    M2LFRECNUM  
 C2^Q          SLL   0  1
 C3FB          BNZ   0  M1LFRECNUM   
 C3^2    #NOR
</code>