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

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

**Used in:** [[george:source:BSTS867|BSTS867]]

<code - FREEPAGE.mac.txt>
 *?#G    #MAC  FREEPAGE                     [G4 ONLY 
 *?S6    #STR  %A,2  
 *#?Q          LDX   2  %A   
 **5Q ...#UNSET      G4VOPA  
 **5X ...(   
 **64 ...#UNS  ISTDP 
 **69 ...(   
 **6B ...#STR  %B
 **6H ...(   
 **6N ...#ACC  %B
 **6T ...#SKI
 **72 ...      STO   %B JWSP1
 **77 ...#ACC  %B
 **7# ...(   
 **7F ...      LDX   0  %B   
 **7L ...      STO   0  JWSP1
 **7R ...)   
 **7Y ...      LDN   1  1
 **85 ...      SBS   1  CPAGETURNS   
 **8= ...      CALL  0  (GIVPRING1)  
 **8C ...)   
 **8J ...#STR  %B
 **8P ...#SKI
 **8W ...(   
 **93 ...      LDN   1  1
 **98 ...      SBS   1  CPAGETURNS   
 **9* ...      CALL  0  (GIVPRING)   
 **9G ...)   
 **9M ...)   
 **9S ...#UNS  ISTDP 
 **9^ ...#SKI
 **=6 ...(   
 **=? ...      LDN   1  1
 **=D ...      SBS   1  CPAGETURNS   
 **=Y ...      CALL   0  (GIVPRING)  
 **#M ...)   
 **BB ...)   
 **D6 ...#UNSET      G4VOPA  
 **K# ...#SKI
 **LL ...(   
 **MY ...      LDN   1  1
 **P= ...      SBS   1  CPAGETURNS   
 **QL          CALL  0  (GFOBJ)  
 *B2D ...)   
 *B==    #NOR
</code>