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

**Defined in:** [[george:source:OPEN-MACROS|OPEN-MACROS]]

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

<code - XGDRPTRS.mac.txt>
 ?9LY ...[??? XGDRPTRS SECT FILE FGN 20 DOC  
 ?9WQ    #MAC  XGDRPTRS  
 ?=BB          LDX   %B %A   
 ?=W2          ADX   %B FBACKPOINT(%A)   
 ??*L     MOD  LDEX  0  ARINGNO,%B   
 ??T=          SBN   0  1
 ?##W          BZE   0  M2XGDR   
 ?#SG    M1XGDR  
 ?*#6          NGX   0  0
 ?*RQ          ANDX  0  BITS22LS 
 ?B?B          NGNC  %C 2
 ?BR2          STO   %C FREADWORD(%A)
 ?C=L          STO   %C FREADBLOCK(%A)   
 ?CQ=    M3XGDR  
 ?D9W     MOD  LDXC  %C A1+FGENERAL1,%B  
 ?DPG          BCC      M4XGDR   
 ?F96     MOD  LDN  %C A1,%B 
 ?FNQ          SBN   %C 0(%A)
 ?G8B          BZE   %C  M4XGDR  
 ?GN2     MOD  LDXC  %C FREADBLOCK+A1,%B 
 ?H7L          BCS      M9XGDR   
 ?HM=          SBX   %C  FREADBLOCK(%A)  
 ?J6W          BZE   %C  M5XGDR  
 ?JLG          BPZ   %C  M4XGDR  
 ?K66          ADS   %C  FREADBLOCK(%A)  
 ?KKQ     MOD  LDX   %C FREADWORD+A1,%B  
 ?L5B    M6XGDR  
 ?LK2          STO   %C FREADWORD(%A)
 ?M4L    M4XGDR  
 ?MJ=          BZE   0  M7XGDR   
 ?N3W          ADN  %B FELLEN
 ?NHG          BUX   0  M3XGDR   
 ?P36    M9XGDR  
 ?PGQ          GEOERR 1,XGDRXTR  
 ?Q2B    M5XGDR  
 ?QG2     MOD  LDX   %C FREADWORD+A1,%B  
 ?Q^L          BNG   %C M6XGDR   
 ?RF=          BXL   %C FREADWORD(%A),M6XGDR 
 ?RYW          BRN      M4XGDR   
 ?SDG    M7XGDR  
 ?SY6    M2XGDR  
 ?TCQ    #NOR
</code>