-------------TOS-16-------------
;+++アドレス計算+++
;ＸとＹのデータを受けると対応するアドレスを計算し返す。
;スクロールなどで使用。
ADDRESS = 0EBC0H
	CALL *TOS16	;TOS-16
	CALL *TOS12	;TOS-12
	CALL *TOS13	;TOS-13
	RET

ADDRESS = 0EA60H
*DATA3
	00,00,	;転送アドレス
	00,	;Ｘ座標
	00	;Ｙ座標

;EA62HにX座標（０から３９）
;EA63HにY座標（０から１８３）
;をセットしコールすると
;EA60H,EA61Hにそれに対応するアドレスを返す。
ADDRESS = 0EB90H
*TOS16	PUSH AF
	PUSH BC
	PUSH DE
	PUSH HL
	LD HL,4000H
	LD D,0
	LD A,(0EA62)
	LD E,A
	ADD HL,DE
	LD A,(0EA63)
	LD DE,28H
	CP 0
	JP Z,*JC1
*LC1	AD HL,DE
	DEC A
	JP NZ,*LC1
*JC1	LD (0EA60),HL
	POP HL
	POP DE
	POP BC
	POP AF
	RET