include	clib.inc

_TEXT	SEGMENT

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

_TEXT	ENDS

	END
