xdef	_OpenS

_OpenS	move.l	a6,-(a7)
	lea	(.ns,pc),a0
	move.l	(4+4,a7),(32,a0)
	move.l	(4+8,a7),(20,a0)
	move.w	(4+14,a7),(12,a0)
	move.w	(4+18,a7),(8,a0)
	move.w	(4+22,a7),(6,a0)
	move.w	(4+26,a7),(4,a0)
	move.l	_IntuitionBase,a6
	jsr	(-198,a6)
	move.l	(a7)+,a6
	rts

.ns	dc.w	0,0,640,256,1,$0001,$8000,$100f
	dc.l	0,0,0,0,0

	xref	_IntuitionBase