?3?S ...[??? UNIFREE SECT CENT FGN 21 DOC   
 ?3HL    [     THIS MACRO FREES ALL  /CUNI BLOCKS UPTO FIRST /CALAS BLOCK
 ?43=    #MAC  UNIFREE   
 ?4GW          LDX   2  FX2  
 ?52G    MUNIFREE1   
 ?5G6          LDX   2  FPTR(2)  
 ?5^Q          LDX   0  ATYPE(2) 
 ?6FB          SRL   0  12                  [GET BLOCK TYPE  
 ?6^2          LDN   1  CPB+CUNI 
 ?7DL          TXU   1  0
 ?7Y=          BCS      MUNIFREE2
 ?8CW          FREECORE 2                   [FREE /CUNI  
 ?8XG          BRN      MUNIFREE1
 ?9C6    MUNIFREE2   
 ?9WQ          ERN   0  CPB  
 ?=BB          BNZ   0  MUNIFREE1
 ?=W2          LDX   1  FX1  
 ??*L          LDX   2  FX2  
 ??T=    #NOR