IST P=16F628A

#INCLUDE "P16F628A.INC"

__CONFIG _XT_OSC&_CP_OFF&_WDT_OFF&_LVP_OFF

ERRORLEVEL 1,-302
; Szokj rá a megjegyzésekre!!! ;)

; Használd a #DEFINE-t egy láb nevesítésére!
	#DEFINE LED PORTB,5 
	#DEFINE Gomb PORTB,0
 
;Timer_1		equ	50h
;Timer_2		equ	51h

; Használd a CBLOCK 0x50  -t a változók deklarálásához!
CBLOCK 0x50

	Timer_1
	Timer_2	

ENDC

		org 0x00		; program kezdőcím beállítása

START		clrf INTCON		; minden megszakítás tiltva

		bsf STATUS,RP0		; Bank1 (Használd a bit neveket!)
		movlw b'11011111'    
		movwf TRISB		; RB5 kimenet(LED) többi be	
		movlw b'11111111'	
		movwf TRISA		; Mind bemenet (abból baj nem lehet!)
		bcf STATUS,RP0		; Bank0

		movlw 0x07
		movwf CMCON 		; Comparator kikapcs

		bcf LED	

		goto cimke2	; indul a gomb figyelés	

cimke:		bsf LED       	; LED bekapcs  
		  	 
		call DELAY
		call DELAY
		call DELAY
		call DELAY
		call DELAY
		call DELAY
		call DELAY
		call DELAY	; időzítés
 
	        bcf LED		;LED kikapcs

nem_enged:	btfss Gomb	; gomb felengedve?		 
		goto nem_enged  ; ha nem...
		

cimke2:		btfsc Gomb	; gomb lenyomva?
		goto cimke2	; ha nem...
		goto cimke      ; ha igen...


DELAY:  clrf Timer_1 
        clrf Timer_2 
DLY1:
	NOP
	NOP
	NOP
	NOP
	DECFSZ	Timer_1,F
	GOTO	DLY1
	DECFSZ	Timer_2,F
	GOTO	DLY1
	RETURN

END