; Получить новую информацию о мышке.
; Преобразует граф. координаты в текстовые
GetMousInfo:
ExmFire:	ld	c,3			; получить коорд. мышки
		RST	ToDSS.Mouse
		ret	c
		ex	af,af'
		srl	h
		rr	l
		srl	h
		rr	l
		srl	l
		ld	a,e			; Y координата (0-255)
		rra
		rra
		rra
		and	1Fh
		ld	h,a			; hl=коорд. в знакоместах
		ex	af,af'			; статус бутонов мышки
		and	3
		ret


; Ждем, если нажат бутон(ы) мышки
GetFire:	call	GetMousInfo
		jr	nz,GetFire		; узнать новую инфу по статусу бутонов
		; бутон(ы) не нажаты
		ret