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

**Defined in:** [[george:source:MACROS_IH|MACROS IH]]

**Used in:** [[george:source:CHANG867|CHANG867]], [[george:source:GLOBALS867|GLOBALS867]], [[george:source:SETPG867|SETPG867]], [[george:source:WAIT867|WAIT867]]

<code - DOFINDGV.mac.txt>
 9*SW    #   
 9B#G    #MAC DOFINDGV   
 9BS6    #STR %C 
 9C?Q    #SKI
 9CRB    (   
 9D?2          DOHUNTGV %B   
 9DQL          BNG   %B MDOFINDGVX   
 9F==    )   
 9FPW    #STR %C 
 9G9G          LDX   %B %C                   [LOAD GIVEN ADDRESS OF GV TABLE 
 9GP6          STO   7  GEN0                 [SAVE X7
 9H8Q          LDX   7  VDATALEN(%B) 
 9HNB          ADN   7  A1(%B)               [POINTS TO WD AFTER LAST ENTRY  
 9J82          LDN   %B  VDATALEN+1(%B)      [POINTS TO START OF ENTRIES 
 9JML    MDOFINDGV1  
 9K7=          TXL   %B  7                   [TEST IF NO MORE ENTRIES
 9KLW          BCC      MDOFINDGVX1          [J IF NO MORE ENTRIES   
 9L6G          LDX   0  VNAME(%B)            [COMPARE NAMES  
 9LL6          TXU   0  %A                   [FIRST WORD 
 9M5Q          BCS      MDOFINDGV2           [J IF DOESNT AGREE  
 9MKB          LDX   0  VNAME+1(%B)          [2ND WORD   
 9N52          TXU   0  1+%A 
 9NJL          BCS      MDOFINDGV2           [J IF DOESNT AGREE  
 9P4=          LDX   0  VNAME+2(%B)  
 9PHW          TXU   0  2+%A                 [3RD WORD   
 9Q3G          BCC      MDOFINDGVX2          [J IF AGREES-ENTRY FOUND
 9QH6    MDOFINDGV2  
 9R2Q          ADX   %B VHEADER(%B)          [STEP POINTER   
 9RGB          BRN      MDOFINDGV1           [TRY NEXT ENTRY 
 9S22    MDOFINDGVX1 
 9SFL          LDX   %B GSIGN                [MARK NOT FOUND 
 9S^=    MDOFINDGVX2 
 9TDW          LDX   7  GEN0                 [RESTORE X7 
 9TYG    MDOFINDGVX  
 9WD6    #NOR
</code>