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

**Defined in:** [[george:source:MACROS_SJ|MACROS SJ]]

**Used in:** [[george:source:COPYFILA867|COPYFILA867]], [[george:source:SJLOOP864|SJLOOP864]], [[george:source:SJOPEN863|SJOPEN863]]

<code - HUNTANY.mac.txt>
 2F?J ...[   
 2FDQ ...[   
 2FL2 ...[??? HUNTANY SECT FILE FGN 24 DOC   
 2LG=    #MAC  HUNTANY   
 2LJ8 ...[ HUNTANY IS A GP CHAIN HUNTING MACRO.  
 2LL6 ...[NB X0 DESTROYED
 2LN4 ...[%A  MODIFIER ADDRESS OF BLOCK  
 2LQ2 ...[%B  TYPE   
 2LRY ...[%C  SUBTYPE
 2LTW ...[%D  BASE OF CHAIN <4095
 2LXS ...[%E  LABEL IF NO SUCH BLOCK EXISTS  
 2LYT ...[%F  RE-ENTRY LABEL (OPTIONAL)  
 2L^W          LDX   %A %D+FPTR  
 2MFG    M2HUNTANY   
 2M^6          SMO      FX1  
 2NDQ          TXU   %A M1HUNTANY-1  
 2NYB          BCC      %E   
 2PD2          LDX   0  ATYPE(%A)
 2PXL          SRL   0  12   
 2QC=          SBN   0  %B+%C
 2QWW          BZE   0  M1HUNTANY
 2R44 ...#STR  %F
 2R9= ...#DEF  %F=0? 
 2RBG          LDX   %A FPTR(%A) 
 2RW6          BRN      M2HUNTANY
 2S*Q          +%D   
 2STB    M1HUNTANY   
 2T*2    #NOR
</code>