* SetDosError
*
* setzt das pr_WindowPtr des aufrufenden Process
* auf Window
* 0 = Workbench, -1 = keine Errormeldung des Dos
*
* (C) 1988 O.Wagner
*

call	MACRO
	xref	_LVO\1
	jsr	_LVO\1(a6)
	ENDM

*
* SetDosError(window)
* A0 - Window
*
* return D0 : enthält Zeiger auf eigenen Process
*
* C-Interface
*
	xdef	_SetDosError
_SetDosError
	move.l	4(sp),a0
*
* Assembler-Einsprung
	xdef	.SetDosError
.SetDosError
	move.l	a0,-(sp)
	move.l	4,a6
	sub.l	a1,a1
	call	FindTask	* eigenen task finden
	move.l	d0,a0
	move.l	(sp)+,184(a0)	* window_ptr setzen
	rts

	END