LFRECNUM

(GIN Macro)

Defined in: MACROS LEF

Used in: LISTEND867, LISTFIND867, LISTFNDA865, LISTFREE867, LISTSEAR867, LOCATE84, WLD864, WLF862, WLG862

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