BLOCKDOWN

(GIN Macro)

Defined in: RING-MACROS

Used in: COMMFILE82

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