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

**Defined in:** [[george:source:MACRO_COMPRO|MACRO COMPRO]]

**Used in:** [[george:source:ALLOW84|ALLOW84]], [[george:source:BQUERY84|BQUERY84]], [[george:source:BUDGET84|BUDGET84]], [[george:source:CANCRVX864|CANCRVX864]], [[george:source:COPYA867|COPYA867]], [[george:source:COPYB867|COPYB867]], [[george:source:ERASE867|ERASE867]], [[george:source:EXPRESS864|EXPRESS864]], [[george:source:FREEZE864|FREEZE864]], [[george:source:NAMEPRIV|NAMEPRIV]], [[george:source:PARIDF8|PARIDF8]], [[george:source:PARSORT867|PARSORT867]], [[george:source:REPERT867|REPERT867]], [[george:source:RETRIEVE864|RETRIEVE864]], [[george:source:RIGHT867|RIGHT867]], [[george:source:SETPARAM867|SETPARAM867]], [[george:source:SETPC867|SETPC867]], [[george:source:SETPE867|SETPE867]], [[george:source:SETPF867|SETPF867]], [[george:source:SETPN867|SETPN867]], [[george:source:SETPR867|SETPR867]], [[george:source:SETPRAMA867|SETPRAMA867]], [[george:source:SETPRAMB867|SETPRAMB867]], [[george:source:SJMESS867|SJMESS867]], [[george:source:SPUNLOAD867|SPUNLOAD867]], [[george:source:TERM867|TERM867]], [[george:source:TRAPLIST864|TRAPLIST864]]

<code - UNIFREE.mac.txt>
 ?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
</code>