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

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

**Used in:** 

<code - GETPAGE.mac.txt>
 #Q9L    #MAC  GETPAGE   
 #Q=C ...MGETPAGE
 #Q?8 ...#UNSET       G4VOPA 
 #Q?^ ...(   
 #Q#Q ...      LDX   0  CFPCFREZ 
 #Q*H ...      BZE   0  MGETOK   
 #QB# ...[   
 #QC5 ...      NGX   0  APTURNPAGS          [AS A FREEZE IS IN PROGRESS WE MUST..
 #QCW ...      ADX   0  CPAGETURNS          [. CHECK WE CAN MEET REQUEST FROM..  
 #QDM ...                                   [ ..  FROM APTURNPAGS
 #QFD ...      BPZ   0  MGETWAIT 
 #QG9 ...[   
 #QH2 ...MGETOK  
 #QHR ...      LDN   0  1
 #QJJ ...      SMO      FX2  
 #QK* ...      STO   0  ACOMMUNE1
 #QLX ...      CALL  0  (GETPRING)   
 #QMN ...      BRN      MGETFINI            [OK  SO FINISH   
 #QNF ...MGETWAIT
 #QP= ...      LDN   0  1                   [FAILURE  SO  WE GO WAITING  
 #QQ3 ...      ADS   0  COBJWAIT 
 #QQS ...      ADS   0  CFPCFREZ 
 #QRK ...[   
 #QSB ...      COOR3    #105 
 #QT7 ...[   
 #QTY ...      LDN   0  1
 #QWP ...      SBS   0  CFPCFREZ 
 #QXG ...[   
 #QY? ...      BRN      MGETPAGE 
 #Q^4 ...MGETFINI
 #Q^T ...      LDN   0  1
 #R2L ...      ADS   0  CPAGETURNS   
 #R3C ...#FREE       MGETWAIT
 #R48 ...#FREE                              MGETOK   
 #R4^ ...#FREE       MGETFINI
 #R5Q ...)   
 #R6H ...#UNSET       G4VOPA 
 #R7# ...#SKIP   
 #R8W          CALL  0  (GPAG)   
 #RNG    #OPT  GPAGEXP=0?-MGETPAGE   
 #S86    #FREE MGETPAGE  
 #SMQ    #NOR
</code>