include	clib.inc
include	string.inc

_TEXT	SEGMENT

strpath proc dist pascal public uses di s1:dword
	invoke strfn, s1
        mov di,ax
        mov ax,word ptr s1
        .if ax != di
            dec di
        .endif
	mov byte ptr es:[di],0
	ret
strpath endp

_TEXT	ENDS

	END
