* int cursor(int *x,int *y)
* カーソル位置をx,y同時に読み出す関数

	.include	defines.mac
	.xdef	_cursor
_cursor:
	movem.l	4(sp),a0/a2
	lea	CURSOR,a1
	IOCS	_B_LPEEK	* high:x.w,low:y.w -> d0.l
	moveq.l	#0,d1		* for longword
	move.w	d0,d1
	move.l	d1,(a2)		* &y
	swap	d0		* d0.l.w=x
	move.w	d0,d1
	move.l	d1,(a0)		* &x
	rts
	.end
