LFBLCNUM [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: LFBLCNUM)}}
====== LFBLCNUM ======
(GIN Macro)

**Defined in:** [[george:source:MACS_LIST|MACS LIST]]

**Used in:** [[george:source:LISTPROC867|LISTPROC867]], [[george:source:LISTSEAR867|LISTSEAR867]]

<code - LFBLCNUM.mac.txt>
 27BD ...[   
 27BF ...[ TO CALCULATE THE NUMBER OF BLOCKS IN A GOUT/INFO CHAIN
 27BG ...#MAC  LFBLCNUM  
 27BH ...[ %A IS AN ACC TO CONTAIN THE ANSWER NOT X0 
 27BJ ...[ %B CONTAINS A POINTER TO THE GOUT/INFO BLOCK  
 27BL ...      LDN   %A 1
 27BQ ...      JBS      M1LFBLCNUM,%B,BLFONLINE  
 27BW ...      ADN   %A 1
 27C2 ...M1LFBLCNUM  
 27C6 ...      JBC      M2LFBLCNUM,%B,BLFSETUP   
 27C= ...      ADN   %A 1
 27CB ...M2LFBLCNUM  
 27CG ...      JBC      M3LFBLCNUM,%B,BLFPROPREC 
 27CL ...      ADN   %A 1
 27CQ ...M3LFBLCNUM  
 27CW ...      JBC      M4LFBLCNUM,%B,BLFWLSIZE  
 27D2 ...      ADN   %A 1
 27D6 ...M4LFBLCNUM  
 27D= ...#NOR
</code>