	.include	defines.mac

	.xdef	_cury
* int cury(short y) : カーソルｙ座標を設定する（読み出す）
_cury:
	lea	CURY,a1		* y座標を記憶しているIOCSワークエリア座標
	bra.s	curxy

	.xdef	_curx
* int curx(short x) : カーソルｘ座標を設定する（読み出す）
_curx:
	lea	CURX,a1		* x座標を記憶しているIOCSワークエリア座標
curxy:
	IOCS	_B_WPEEK	* 現在のx/y座標読み出し：x/y.w -> d0.w
	move.w	4+2(sp),d1	* 設定する座標(short)
	bmi	curxy1		* <0 = 読み出しのみ
	move.w	d0,d2		* push d0
	subq.w	#2,a1		* B_WPEEKで(a1)+されているから
	IOCS	_B_WPOKE	* d1.w -> (a1)+
	moveq.l	#0,d0
	move.w	d2,d0		* pop d0 & longword
curxy1:
	rts
	.end
