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

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

**Used in:** 

<code - GETCORAL.mac.txt>
 4H?J ...[??? GETCORAL SECT CENT FGN 32 DOC  
 4HHB    #   
 4J32    #     THE GETCORE SET OF MACROS FOR GETTING A BLOCK OF CORE 
 4JGL    #   
 4K2=    #MAC  GETCORAL                     [USED FOR DEFINING THE REST  
 4KFW          LD%B  2  %A   
 4K^G    #STR  %D%E  
 4LF6    (   
 4LYQ    #STR  %E
 4MDB          LDCT  1  %E   
 4MY2    #STR  %E
 4NCL    #SKI
 4NX=          LDCT  1  2
 4PBW    #STR  %D
 4PWG          OR%F  1  %D   
 4QB6    #STR  %D
 4QTQ    #SKI
 4R*B          NULL                         [INCLUDED SO LINK STEPPING WORKS 
 4RT2          CALL  0  (GCORE1) 
 4S#L                   +%C  
 4SS=    #EXI
 4T?W    )   
 4TRG          CALL  0  (GCORE)  
 4W?6                   +%C  
 4WQQ    #NOR
</code>