HUNT2 [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: HUNT2)}}
====== HUNT2 ======
(GIN Macro)

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

**Used in:** [[george:source:ABANDON867|ABANDON867]], [[george:source:ABANDONA867|ABANDONA867]], [[george:source:ACCESS867|ACCESS867]], [[george:source:ATTACHC867|ATTACHC867]], [[george:source:BACKMASS860|BACKMASS860]], [[george:source:BSQ867|BSQ867]], [[george:source:BUDGTWO84|BUDGTWO84]], [[george:source:CDCIPB864|CDCIPB864]], [[george:source:COMPOST867|COMPOST867]], [[george:source:CONIPB8|CONIPB8]], [[george:source:CONMXA85|CONMXA85]], [[george:source:CONNECTA867|CONNECTA867]], [[george:source:COPYA867|COPYA867]], [[george:source:COPYB867|COPYB867]], [[george:source:CORE867|CORE867]], [[george:source:COREALLF867|COREALLF867]], [[george:source:DELCOM5|DELCOM5]], [[george:source:DETACH867|DETACH867]], [[george:source:DISEVENT65|DISEVENT65]], [[george:source:DISPCOM867|DISPCOM867]], [[george:source:DTREST860|DTREST860]], [[george:source:ENTRUST|ENTRUST]], [[george:source:EXPRESS864|EXPRESS864]], [[george:source:FAIL5|FAIL5]], [[george:source:FINDFS867|FINDFS867]], [[george:source:GET6|GET6]], [[george:source:GETNO865|GETNO865]], [[george:source:GETNOR8|GETNOR8]], [[george:source:GETWORD867|GETWORD867]], [[george:source:GIVE867|GIVE867]], [[george:source:GOTO867|GOTO867]], [[george:source:HALT5|HALT5]], [[george:source:HARDIDF867|HARDIDF867]], [[george:source:HLSOCCUR865|HLSOCCUR865]], [[george:source:HUNTBLOK|HUNTBLOK]], [[george:source:IDFASAT867|IDFASAT867]], [[george:source:IDFCANC867|IDFCANC867]], [[george:source:IDFCHK867|IDFCHK867]], [[george:source:IDFCLEAN867|IDFCLEAN867]], [[george:source:IDFCONS8|IDFCONS8]], [[george:source:IDFENQS867|IDFENQS867]], [[george:source:IDFOFF867|IDFOFF867]], [[george:source:IDFONLIN867|IDFONLIN867]], [[george:source:IDFPER867|IDFPER867]], [[george:source:IDFPROP867|IDFPROP867]], [[george:source:IDFSCON867|IDFSCON867]], [[george:source:IFEXPAN867|IFEXPAN867]], [[george:source:IFXCODES864|IFXCODES864]], [[george:source:ILLEXC70|ILLEXC70]], [[george:source:ILLPERI70|ILLPERI70]], [[george:source:INCDTA865|INCDTA865]], [[george:source:INCEND865|INCEND865]], [[george:source:INCEOT865|INCEOT865]], [[george:source:INCMON865|INCMON865]], [[george:source:INCSTART865|INCSTART865]], [[george:source:INCWRITE865|INCWRITE865]], [[george:source:INMOP867|INMOP867]], [[george:source:INPUTJDF82|INPUTJDF82]], [[george:source:INSTPARA867|INSTPARA867]], [[george:source:IPBCCA867|IPBCCA867]], [[george:source:IPBERROR867|IPBERROR867]], [[george:source:IPBINC865|IPBINC865]], [[george:source:IPBLISTB867|IPBLISTB867]], [[george:source:IPBLISTE867|IPBLISTE867]], [[george:source:IPBSCAN867|IPBSCAN867]], [[george:source:IPBSTARB867|IPBSTARB867]], [[george:source:IPBSTART867|IPBSTART867]], [[george:source:IPCGEO8|IPCGEO8]], [[george:source:IPCON864|IPCON864]], [[george:source:IPCONA864|IPCONA864]], [[george:source:IPCONB8|IPCONB8]], [[george:source:IPCONC8|IPCONC8]], [[george:source:IPCOND864|IPCOND864]], [[george:source:IPCONF865|IPCONF865]], [[george:source:IPCONG8|IPCONG8]], [[george:source:IPCOPENA83|IPCOPENA83]], [[george:source:IPCPASS8|IPCPASS8]], [[george:source:IPQUAKE83|IPQUAKE83]], [[george:source:IPQUAKER865|IPQUAKER865]], [[george:source:JWELLONE867|JWELLONE867]], [[george:source:LIBCOM867|LIBCOM867]], [[george:source:LIBINSEC864|LIBINSEC864]], [[george:source:LIBLOAD867|LIBLOAD867]], [[george:source:LOAD60|LOAD60]], [[george:source:LOADERR70|LOADERR70]], [[george:source:LOADFIN860|LOADFIN860]], [[george:source:LOADPROG865|LOADPROG865]], [[george:source:LOADX60|LOADX60]], [[george:source:MODE866|MODE866]], [[george:source:MONEVENT867|MONEVENT867]], [[george:source:MONITOR36|MONITOR36]], [[george:source:MONRESUM850|MONRESUM850]], [[george:source:MOPOUT85|MOPOUT85]], [[george:source:MTDUMP860|MTDUMP860]], [[george:source:NEWOWN865|NEWOWN865]], [[george:source:OPCAXCOD5|OPCAXCOD5]], [[george:source:OPILLS70|OPILLS70]], [[george:source:OPILLSA206|OPILLSA206]], [[george:source:PCTBEGIN863|PCTBEGIN863]], [[george:source:PCTSTART867|PCTSTART867]], [[george:source:PERFAIL866|PERFAIL866]], [[george:source:PREPREAD867|PREPREAD867]], [[george:source:PROSTART867|PROSTART867]], [[george:source:PUTPER85|PUTPER85]], [[george:source:QUESCOM867|QUESCOM867]], [[george:source:QUOTA850|QUOTA850]], [[george:source:READFAIL866|READFAIL866]], [[george:source:REALTIME867|REALTIME867]], [[george:source:RELPER867|RELPER867]], [[george:source:RENAMAG864|RENAMAG864]], [[george:source:RENAMDIR|RENAMDIR]], [[george:source:RENAMEMT867|RENAMEMT867]], [[george:source:RIGHT867|RIGHT867]], [[george:source:RITEFAIL864|RITEFAIL864]], [[george:source:SAVE864|SAVE864]], [[george:source:SAVEDA70|SAVEDA70]], [[george:source:SCAN865|SCAN865]], [[george:source:SCHEDENX860|SCHEDENX860]], [[george:source:SCHEDMTX867|SCHEDMTX867]], [[george:source:SCHEDULE867|SCHEDULE867]], [[george:source:SENTINEL8|SENTINEL8]], [[george:source:SETIDF867|SETIDF867]], [[george:source:SETPC867|SETPC867]], [[george:source:SETPG867|SETPG867]], [[george:source:SETPRAMA867|SETPRAMA867]], [[george:source:SETUP867|SETUP867]], [[george:source:SWAP865|SWAP865]], [[george:source:TESTMON|TESTMON]], [[george:source:TPINS861|TPINS861]], [[george:source:TRACE867|TRACE867]], [[george:source:TRANFAIL866|TRANFAIL866]], [[george:source:TRIPB83|TRIPB83]], [[george:source:UNPLUG867|UNPLUG867]], [[george:source:USERLIB867|USERLIB867]], [[george:source:USEROPEN867|USEROPEN867]], [[george:source:USERSTRM867|USERSTRM867]], [[george:source:WLE862|WLE862]], [[george:source:WLF862|WLF862]], [[george:source:WSJOBSA867|WSJOBSA867]], [[george:source:XATTACH861|XATTACH861]]

<code - HUNT2.mac.txt>
 229S ...[??? HUNT2 SECT CENT FGN 1 DOC  
 22FL    #   
 22^=    #     R.TERRY   
 23DW    #   
 23YG    #MAC  HUNT2                        [THIS MACRO SEARCHES FOR A BLOCK 
 24D6    #STR  %D
 24XQ          LDX   %A %D   
 25CB    MHUNT2 LDX  %A FPTR(%A) 
 25X2          LDX  0  ATYPE(%A) 
 26BL         SRL   0  12
 26W=          SBN   0  %B+%C
 27*W          BNZ   0  MHUNT2   
 27TG    #NOR
</code>