movlw UPPER(figyelmeztet)		;jelzésidőpontok táblázatának címe
	movwf TBLPTRU
	movlw HIGH(figyelmeztet)
	movwf TBLPTRH
	movlw LOW(figyelmeztet)
	movwf TBLPTRL

	movwf cstabla				;átmenetileg tárolva
	
jel_st
	movff TBLPTRL,csora_i			;páratlan szám az óra
	movf TBLPTRL,w
	bcf STATUS,C
	addlw .1
	movwf csperc_i				;a páros pedig a perc a táblázatból

	
jelzesctrl

	movff csora_i,TBLPTRL			;táblázatból páratlan olvasás (óra)
	tblrd*
	movff TABLAT,csora
	movf ora,w				;aktuális óra beolvasása
	xorwf csora,w
	btfss STATUS,Z
	goto notequ_hour			;óra nem egyezik, ugrás
	
perc_rd	
	movff csperc_i,TBLPTRL			;táblázatból páros olvasás (perc)
	tblrd*
	movff TABLAT,csperc
	movf perc,w				;aktuális perc beolvasása
	xorwf csperc,w
	btfss STATUS,Z
	goto noteq_min				;perc nem egyezik, ugrás
	
	bsf jelz_out				;óra, perc egyezik, jelzés aktiválás
	call wait_ring			
	bcf jelz_out
	
jel_init
	movff cstabla,TBLPTRL			;táblázat alapértékre állítás
	goto jel_st
	
notequ_hour

	movf csora,w				;megvizsgálom, hogy a táblázat végére értem-e? (óra)
	xorlw .255				
	btfss STATUS,Z
	goto notequ_ora_255			;nem, ugrás
	goto jel_init				;igen, táblázat alapértékre állítás

notequ_ora_255

	movf csora_i,w				;következő óraadat a táblázatból
	bcf STATUS,C
	addlw .2
	movwf csora_i
	goto jelzesctrl

noteq_min

	movf csperc,w				;megvizsgálom, hogy a táblázat végére értem-e? (perc)
	xorlw .255
	btfss STATUS,Z
	goto noteq_perc_255			;nem, ugrás
	goto jel_init				;igen, táblázat alapértékre állítás

noteq_perc_255

	movf csperc_i,w				;következő percadat a táblázatból
	bcf STATUS,C
	addlw .2
	movwf csperc_i
	goto perc_rd

	org figyelmeztet			;jelzési idő adatok (óra,perc)
	db .6,.0
	db .11,.55
	db .15,.0
	db .19,.15
	db .22,.30
	db .255,.255