DOFINDGV
(GIN Macro)
Defined in: MACROS IH
Used in: CHANG867, GLOBALS867, SETPG867, WAIT867
- 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