3?=# ...[??? FREECORE SECT CENT FGN 32 DOC  
 3?G6    [   
 3?^Q    [ENTRY SEQUENCE FOR FREEING CORE ROUTINE
 3#FB    [   
 3#^2    #MAC  FREECORE  
 3*DL    #STR  %A,1  
 3*Y=          LDX   1  %A                  [ADDRESS OF BLOCK TO BE FREED
 3BCW          CALL  0  (GFREE)  
 3BXG    #NOR