CONSTANT        ld,     02              ;LED-ek
CONSTANT        bt,     01              ;Nyomógombok
CONSTANT        f1,     04              ;f1 (1Hz) frekvecia maszk
CONSTANT	full,   FF
CONSTANT	vege,   A2		;ezzel kell kísérletezni, hogy kijöjjön egy normális frekvencia

NAMEREG         s1,     ctreg           ;Szamlalo regiszter
NAMEREG         s5,     temp          	;






               LOAD    ctreg,00        ;Szamlalo regiszter kinullazasa.
               OUTPUT  ctreg,ld        ;Kirakjuk a ledekre a szamlalo aktualis erteket
waithigh:       
		
	       INPUT   s0, bt          ;Nyomogombok beolvasasa, veluk egyutt az f1 bit is.
	       AND     s0, f1          ;f1 kimaszkolasa.
	       JUMP    Z, waithigh     ;Varunk a felfuto elre.
               ADD     ctreg,01        ;High szint eseten noveljuk a szamlalot.
               OUTPUT  ctreg,ld        ;Kirakjuk a ledekre a szamlalo aktualis erteket
waitlow:        
	       CALL	wait	       ;késleltetés beszúrása
	       INPUT   s0, bt          ;Nyomogombok beolvasasa, veluk egyutt az f1 bit is.
               AND     s0, f1          ;f1 kimaszkolasa.
               JUMP    Z, waitlow      ;Varunk a lefuto elre.
               JUMP    waithigh        ;Ha ismet low szinten vagyunk, ismet vizsgalhatjuk
                                       ; a high szintet.