include	clib.inc

_TEXT	SEGMENT

unixtodos proc dist pascal public uses ds si string:dword
	lds si,string
	mov ah,'\'
      @@:
	mov al,[si]
	inc si
	test al,al
	jz @F
	cmp al,'/'
	jne @B
	mov [si-1],ah
	jmp @B
      @@:
	mov ax,word ptr string
	mov dx,word ptr string+2
	ret
unixtodos endp

_TEXT	ENDS

	END
