home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Simtel MSDOS - Coast to Coast
/
simteldosarchivecoasttocoast2.iso
/
asmutil
/
stdlib.zip
/
STRSPANL.ASM
< prev
next >
Wrap
Assembly Source File
|
1990-07-18
|
1KB
|
83 lines
stdlib segment para public 'slcode'
assume cs:stdlib
;
;
; strspanl- Returns the number of characters (from a set) which
; precede a string.
;
; inputs:
;
; ES:DI- Points at string to test.
; return address- Points at set of characters (zero terminated string).
;
; outputs:
;
; CX- Number of characters in set which are the prefix of
; the test string.
;
;
;
;
public sl_strspanl
;
sl_strspanl proc far
push bp
mov bp, sp
pushf
push es
push ds
push ax
push bx
push dx
push si
push di
cld
;
; Put the pointers into a couple of better locations.
;
mov ax, es
mov ds, ax
mov si, di
les di, 2[bp]
;
mov bx, di ;Preserve ptr to char set.
mov cx, 0ffffh
mov al, 0
repne scasb ;Compute length of char set.
neg cx
dec cx
dec cx
mov 2[bp], di ;Save new return address
mov dx, cx ;Save for use later.
;
; Okay, now we can see how many characters from the set match the prefix
; characters in the string.
;
StrLp: lodsb ;Get next char in string.
mov cx, dx ;Get length of char set.
mov di, bx ;Get ptr to char set
repne scasb ;See if in set
jz StrLp ;Repeat while in set.
;
pop di
mov cx, di
sub cx, si
neg cx
dec cx
pop si
pop dx
pop bx
pop ax
pop ds
pop es
popf
pop bp
ret
sl_strspanl endp
;
;
;
;
stdlib ends
end