; kapcsoló pergésmentesítés
; NOP-os delay rutin
; 255x255-ig számolva NOP-ot hajt végre



pervalt	udata	; CBLOCK -ot atalakitjuk udata-ra

T1		res		1		; ***********************************************************************
T2		res		1		; *  T1 T2 valtozokat hasznalja a DELAY subrutin mukodese kozben		*


perg	code
pergesmentesites	; makrot atalakitjuk fuggvennye... - mivel konvencio szerint csak a makro nevek csupa nagybetusek a nevet is atalakitjuk kisse (Ctrl+4 vagy Edit / Advanced / Lowercase)
	global	pergesmentesites	; itt megmondjuk a forditonak, hogy ez a cimke globalis, kivulrol is latszik, szoval majd a linker meg fogja talalni

	NOP	; ez nem tudom miert van itt, de majd kiszeded ha nem kell
	
	banksel	T1 ; mivel nem tudjuk hova kerul majd a T1 valtozo celszeru egy bankselt alkalmazni

	DECFSZ	T1,f			; T1-et nullára csökkenti
	GOTO	$-2
	DECFSZ	T2,f			; Ha T1=0 elkezdi csökkentgetni a T2-t
	GOTO	$-4		; minden egyes T1 csökkentésnél visszaugrik és mivel T1=0-nál lett abahagyva, újra csökkenti T1-et 255-rol 0-ig

	return			; endm helyett ugye return


; Figyelem!!! END kulcsszoval talalkozik a fordito akkor azonnal megall a forditas!
; Magyaran az INC file-ba SOHA NE tegyel END-et!!!
	END