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

**Defined in:** [[george:source:HUNTMACS1|HUNTMACS1]]

**Used in:** [[george:source:CONIPB8|CONIPB8]], [[george:source:CONMXC8|CONMXC8]], [[george:source:DETACH867|DETACH867]], [[george:source:ERASE867|ERASE867]], [[george:source:GETNO865|GETNO865]], [[george:source:IDFPER867|IDFPER867]], [[george:source:INMOP867|INMOP867]], [[george:source:IPCEN8|IPCEN8]], [[george:source:IPCONA864|IPCONA864]], [[george:source:IPCONB8|IPCONB8]], [[george:source:MULTIPLX864|MULTIPLX864]], [[george:source:NEWDIR867|NEWDIR867]], [[george:source:PCTDIS8|PCTDIS8]], [[george:source:PROFLAG83|PROFLAG83]], [[george:source:REDON867|REDON867]], [[george:source:RIGHT867|RIGHT867]], [[george:source:SPOOL83|SPOOL83]], [[george:source:UNPLUG867|UNPLUG867]]

<code - HUNT2B.mac.txt>
 285# ...[??? HUNT2B SECT CENT FGN 1 DOC 
 28*6    #   
 28SQ    #     SEARCHES BACKWARDS FROM CURRENT POSITION FOR BLOCK
 29#B    #   
 29S2    #MAC  HUNT2B
 2=?L    #STR  %D
 2=R=          LDX   %A %D   
 2?=W    MHUNT2B LDX %A BPTR(%A) 
 2?QG          LDX   0  ATYPE(%A)
 2#=6          SRL   0  12   
 2#PQ          SBN   0  %B+%C
 2*9B          BNZ   0  MHUNT2B  
 2*P2    #NOR
</code>