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

**Defined in:** [[george:source:MACROS_GLJ|MACROS GLJ]]

**Used in:** 

<code - FREEOBJCORE.mac.txt>
 *6XW    #MAC  FREEOBJCORE   
 *7CG    #STR  %A,1  
 *7X6          LDX   1  %A   
 *8BQ    #STR  %B,2  
 *8HY ...      LDX   2  %B   
 *8P6 ...#UNSET      G4VOPA  
 *8P* ...(   
 *8PJ ...#UNS  ISTDP 
 *8PR ...(   
 *8Q2 ...#STR  %C
 *8Q9 ...(   
 *8QD ...#ACC  %C
 *8QM ...#SKI
 *8QW ...      STO   %C JWSP1
 *8R5 ...#ACC  %C
 *8R# ...(   
 *8RH ...      LDX   0  %C   
 *8RQ ...      STO   0  JWSP1
 *8R^ ...)   
 *8S8 ...      CALL  0  (GIVPRING1)  
 *8SC ...)   
 *8SL ...#STR  %C
 *8ST ...#SKI
 *8T4 ...      CALL  0  (GIVPRING)   
 *8T? ...)   
 *8TG ...#UNS  ISTDP 
 *8TP ...#SKI
 *8W# ...        CALL   0  (GIVPRING)
 *8YX ...)   
 *93G ...#UNSET      G4VOPA  
 *98N ...#SKIP   
 *9B2          CALL  0  (GFOBJ)  
 *9TL    #NOR
</code>