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