******************************************************
* 現在のカーソル座標からTEXT-VRAMアドレスを求める
* return : a0 <- plane0 , a1<-plane1 address
* これはアセンブラー用サブルーチンである

	.include	defines.mac

	.xdef	xyadrs		* アセンブラーエントリー
xyadrs:
	move.l	d0,-(sp)	* push d0
	move.w	#-1,d1		* cursor position read mode
	IOCS	_B_LOCATE	* -> d0.h.w=x , d0.l.w=y
	* text 1line = graphic 16lines & graphic 1line = 128bytes
	move.l	#TPLANE0,a0	* plane 0 top address
	swap	d0		* d0.l.w = x , y<<16
	add.w	d0,a0		* +x
	clr.w	d0		* d0.l.w = 0
	lsr.l	#5,d0		* y<<11 = y*128*16
	add.l	d0,a0		* +y
	move.l	a0,a1
	add.l	#TPSIZE,a1	* plane 1 address
	move.l	(sp)+,d0	* pop d0
	rts

******************************************************
	.end
