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



	CBLOCK	0x20
		T1				; ***********************************************************************
		T2				; *  T1 T2 valtozokat hasznalja a DELAY subrutin mukodese kozben		*
	ENDC	



PERGESMENTESITES	macro
	NOP
	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
	endm

	END