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

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

**Used in:** [[george:source:COMMFILE82|COMMFILE82]]

<code - BLOCKDOWN.mac.txt>
 62M8 ...[??? BLOCKDOW SECT FILE FGN 20 DOC  
 62X2    #MAC  BLOCKDOWN 
 63BL    #     SUBTRACTS ONE FROM EACH FREADBLOCK IN THE FSTACK BLOCK POINTED TO 
 63W=    #     %A. %B IS AN ACCUMULATOR FOR USE BY(AND OVERWRITTEN BY)THE MACRO. 
 64*W          LDEX  %B ARINGNO(%A)         [CT FOR LOOP 
 64TG          LDX   0  %B   
 65*6    M3BLOCKDOWN 
 65SQ          ADN   %A FELLEN   
 66#B          BCT   0  M3BLOCKDOWN  
 66S2    M2BLOCKDOWN 
 67?L          SBN   %A FELLEN              [PTR TO NEXT ELEMENT(GOING UP BLOCK) 
 67R=          LDX   0  FREADBLOCK+A1(%A)
 68=W          BNG   0  M1BLOCKDOWN  
 68QG          SBN   0  1
 69=6          STO   0  FREADBLOCK+A1(%A)
 69PQ    M1BLOCKDOWN 
 6=9B          BCT   %B M2BLOCKDOWN  
 6=P2    #NOR
</code>