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

**Defined in:** [[george:source:COREMACROS|COREMACROS]]

**Used in:** 

<code - COREMOVE.mac.txt>
 229S ...[??? COREMOVE SECT CENT FGN 32 DOC  
 22FL ...[                                  DEK BEASLEY : CENT   
 23YG    [   
 24D6    [ RESTORE TIME MACRO TO ADJUST THE AMOUNT OF CORE THAT THE CORE 
 24XQ    [     ALLOCATION SYSTEM IS PREPARED TO MOVE TO AMALGAMATE FREE CORE 
 25CB    #MAC  COREMOVE  
 25X2    #STR  %A
 26BL    #SKI  4*%A-48*%A+23&#40000000<1$1   
 26W=    (   
 27*W    #CON        COREMOVE'S PARAMETER NOT IN RANGE 1-11. 
 27TG     !    %A NOT IN RANGE 12>PARAMETER>0
 28*6    #EXIT   
 28SQ    )   
 29#B    #MEN  COREALL   
 29S2    #TRA  CORESET   
 2=?L          SRL   5  %A   
 2=R=    #END
 2?=W    #NOR
</code>