.org 0

	jmp start

	.org 38h

	#include "mouse602.asm"

; ***********************
; hlavní testovací smyčka
; ***********************

start:	di              ; zakázat přerušení
	call mysact	; aktivace kurzoru myši

loop:	rst 7		; pohyb kurzoru myši
	jc mysdea	; stisk P tlačítka = konec
	jp loop		; ne-stisk L tlačítka

L_klik: lxi d,mysbuf+6  ; při stisku L tlačítka myši
	lda mysbit      ; nakreslím do buferu tečku
	cpi 5           ; (při pixelové pozici 5
	jc L_klii
	inx d		; už kreslím do P bajtu buferu)
L_klii: mov l,a         ; dle pixelové pozice myši načtu
	mvi h,0         ; masku 02-04-08-10-20-01
	lxi b,tabpix
	dad b
	mov a,m
	xchg
	ora m           ; smísím s obsahem buferu
	mov m,a         ; a hodím do buferu (který se po
	jmp loop        ; odjezdu myši zobrazí ve vram)

tabpix: .db 02h,04h,08h,10h,20h,01h

	.end