ASSEMBLY - RHSTDLIB.ZIP - STRSPANL.ASM

 
Output of file : STRSPANL.ASM contained in archive : RHSTDLIB.ZIP

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