DOFINDJV [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: DOFINDJV)}}
====== DOFINDJV ======
(GIN Macro)

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

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

<code - DOFINDJV.mac.txt>
 8G^G    #MAC DOFINDJV   
 8HF6    #STR %C 
 8HYQ    #SKI
 8JDB    (   
 8JY2          DOHUNTJV %B   
 8KCL          BNG   %B MDOFINDJVX   
 8KX=    )   
 8LBW    #STR %C 
 8LWG          LDX   %B %C                   [LOAD GIVEN ADDRESS OF JV TABLE 
 8MB6          STO   7  GEN0                 [SAVE X7
 8MTQ          LDX   7  VDATALEN(%B) 
 8N*B          ADN   7  A1(%B)               [POINTS TO WD AFTER LAST ENTRY  
 8NT2          LDN   %B  VDATALEN+1(%B)      [POINTS TO START OF ENTRIES 
 8P#L    MDOFINDJV1  
 8PS=          TXL   %B  7                   [TEST IF NO MORE ENTRIES
 8Q?W          BCC      MDOFINDJVX1          [J IF NO MORE ENTRIES   
 8QRG          LDX   0  VNAME(%B)            [COMPARE NAMES  
 8R?6          TXU   0  %A                   [FIRST WORD 
 8RQQ          BCS      MDOFINDJV2           [J IF DOESNT AGREE  
 8S=B          LDX   0  VNAME+1(%B)          [2ND WORD   
 8SQ2          TXU   0  1+%A 
 8T9L          BCS      MDOFINDJV2           [J IF DOESNT AGREE  
 8TP=          LDX   0  VNAME+2(%B)  
 8W8W          TXU   0  2+%A                 [3RD WORD   
 8WNG          BCC      MDOFINDJVX2          [J IF AGREES-ENTRY FOUND
 8X86    MDOFINDJV2  
 8XMQ          ADX   %B VHEADER(%B)          [STEP POINTER   
 8Y7B          BRN      MDOFINDJV1           [TRY NEXT ENTRY 
 8YM2    MDOFINDJVX1 
 8^6L          LDX   %B GSIGN                [MARK NOT FOUND 
 8^L=    MDOFINDJVX2 
 925W          LDX   7  GEN0                 [RESTORE X7 
 92KG    MDOFINDJVX  
 9356    #NOR
</code>