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

**Defined in:** [[george:source:MACS_OPER|MACS OPER]]

**Used in:** 

<code - KEEPPAGES.mac.txt>
 22FL    [??? KEEPPAGE SECT COMM FGN 1 DOC   
 22^=    [   
 23DW    #MAC  KEEPPAGES 
 23YG    [     ========= 
 24D6    [   
 24XQ    [ THIS MACRO SETS THE NUMBER OF PAGES OF OPER   
 25CB    [ LOG RETAINED IN THE RECALL FILE   
 25X2    [   
 26BL    [ %A - NUMBER OF PAGES -  20 ASSUMED IF %A MISSING  
 26W=    [                      -   2 ASSUMED IF %A ZERO 
 27*W    [                      - 510 ASSUMED IF %A -VE OR OVER 510  
 27TG    [   
 28*6    [ ASSUMES 2 BLOCKLETS TO THE PAGE - SEE SEGMENT OPER
 28SQ    [         EVEN NUMBER OF PAGES - HENCE WHOLE B/S BLOCKS 
 29#B    [   
 29S2    #UNS  ENHOPER   
 2=?L    (   
 2=R=    #STR  %A
 2?=W    #DEF  20?=%A > 2 < 510 + 1 / 2  [SIZE IN BLOCKS 
 2?QG    #STR  %A
 2#=6    #SKI
 2#PQ    #DEF  20?=20 / 2
 2*9B    #MEN  OPER  
 2*P2    #TRA  K90OPER   
 2B8L          +20? * 4                  ['OPER' NEEDS BLOCKLETS 
 2BN=    #END
 2C7W    #MEN  OPERA 
 2CMG    #TRA  K90OPERA  
 2D76          +20? * 4                  [AS DOES 'OPERA'
 2DLQ    #END
 2F6B    #MEN  CONSET
 2FL2    #TRA  K90CONSET 
 2G5L          +20?                      ['CONSET' NEEDS BLOCKS  
 2GK=    #END
 2H4W    )   
 2HJG    #NOR
</code>