;********************************************************************
;NAME:		Nagy Tamás
;PROGRAM:	elso.asm
;VERSION:	v1.0
;DATE:		2010.11.06
;
;DESCRIPTION: Nyomógombgomb kezelés és felhúzóellenállás 
;			  bekapcsolása 
;********************************************************************

LIST p=16f877a
#INCLUDE <P16F877A.INC>
__CONFIG _XT_OSC& _WDT_OFF& _BODEN_ON& _LVP_OFF& _CPD_OFF& _CP_OFF

	CBLOCK	20
			T1
			T2
			T3
	ENDC

	ORG		0

	BSF		STATUS,RP0		;Átlépek a BANK1-be
	CLRF	TRISD			;PORTD kimenet			
	MOVLW	B'01111111'
	MOVWF	OPTION_REG		;Bekapcsolom a felhúzókat
	BCF		STATUS,RP0		;Átlépek a BANK0-ba
	CLRF	PORTD			;A PORTD összes kimenete 0 

vissza
	BTFSS	PORTB,5			;Figyelem a PORTB5-öt
	MOVLW	B'00001111'		;Ha gomb lenyomva akkor világít 
	MOVWF	PORTD
	CALL	DELAY			;Várakozik 1s-t 
	CLRF	PORTD			;A PORTD 0
	GOTO	vissza			

DELAY
	MOVLW	D'255'
	MOVWF	T1
del
	MOVLW	D'50'
	MOVWF	T2
del1
	MOVLW	D'7'
	MOVWF	T3
del2
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	DECFSZ	T3,f
	GOTO	del2
	DECFSZ	T2,f
	GOTO	del1
	DECFSZ	T1,f
	GOTO	del
	RETURN
END