*
* exp.a - assembler interface for exploding windows code
*
* Bruno Costa - 30 Aug 89
*

	xdef	_ExplodeWindow
	xref	_DoExplode
	xref	_openWindow

        section "text",code

_ExplodeWindow:
	move.L	A0,-(A7)		; pass NewWindow parameter on stack 
	jsr	_DoExplode		; call C function that "explodes"
	movea.L	(A7),A0			; restore A0 to point to NewWindow
	addq.L	#4,A7			; restore stack pointer
	movea.L	_openWindow,A1		; load original OpenWindow address
	jsr	(A1)			; call it to open the window
	rts

	END