Re: A86: Re: VAT/Lev Detection
[Prev][Next][Index][Thread]
Re: A86: Re: VAT/Lev Detection
> you'll probably want to use the call posted to search the vat for strings.
> maybe someone will repost it.
Here is the call :
;---------------------------------------------------------
; FINDALPHAUP : SEARCH SYMBOL TABLE FOR NEXT SYMBOL |
; OF SAME TYPE AS IN OP1 ALPABETICALLY |
; HIGHER THAN SYMBOL IN OP1. |
; |
; INPUT: (OP1) = TYPE OF OBJECT TO SEARCH FOR. |
; (OP1+1) = NL = NAME LENGTH |
; (OP1+2) TO (OP1+9) = NAME |
; |
; ZERO = 1 IF CONSIDER CPLX/REAL VERSION OF |
; SAME DATA TYPE TO BE DIFFERENT. |
; |
; ALSO WILL CONSIDER ALL TYPES OF |
; DATA BASES TO BE DIFFERENT. |
; |
; |
; ZERO = 0 IF CONSIDER CPLX/REAL VERSION OF |
; SAME DATA TYPE TO BE THE SAME. |
; |
; ALSO WILL CONSIDER ALL TYPES OF |
; DATA BASES TO BE THE SAME. |
; |
; REG A = 0 IF SEARCH BY TYPE |
|
; REG A <> 0 IF IGNORE TYPE |
; |
; OUTPUT : |
; IF SYMBOL > OP1 EXISTS : |
; -CA=0 |
; -HL = PTR TO SYMBOL ENTRY OF ONE FOUND |
; -OP1,OP3 = VARIBALE FORMAT OF VAR, WITH TYPE |
;
; |
; IF SYMBOL > OP1 DOESN'T EXIST: |
; CA=1 |
; |
FindAlphaUp equ 514Bh
Use:
ld hl,string_var
rst rmov10toop1 ; equ 20h
find_strings:
xor a
call FindAlphaUp
jr c,no_more_levels
;hl=ptr to symbol entry
;op1,op3=var name
jr find_strings
no_more_levels:
;---code---
string_var:
.db $0C,0
Hope that helps !
--
+-----------------------------------------+
| name : CLEM |
| homepage : http://www.mygale.org/~clems |
| e-mail : mailto:clems@mygale.org |
+-----------------------------------------+
References: