LIST P=16F84A
	#INCLUDE "P16F84A.INC"
	ERRORLEVEL 0, -302
	ERRORLEVEL 0, -207
	__CONFIG _CP_OFF&_WDT_OFF&_XT_OSC
	CBLOCK 0X0C
	T1
	T2
	GOMB_SZÁM
	ENDC

	BANK0	MACRO	
	BCF	STATUS,RP0
	ENDM
	BANK1	MACRO
	BSF	STATUS,RP0
	ENDM

	ORG	0
	GOTO	START
	ORG	4
	GOTO	MEGSZAK

	

START
	BANK1
	BCF	OPTION_REG,7	
	MOVLW	B'00000000'
	MOVWF	TRISA
	MOVLW	B'11110000'
	MOVWF	TRISB
	BANK0
	CLRF	PORTA
	CLRF	PORTB
	BSF	INTCON,7
	BSF	INTCON,3
	SLEEP
	NOP
	NOP

EREDMÉNY
	DECFSZ	GOMB_SZÁM,F
	GOTO	VILLOG
	GOTO	START

VILLOG
	BSF	PORTA,1
	CALL	DELAY
	BCF	PORTA,1	
	
	

MEGSZAK
	BCF	INTCON,3
	BCF	INTCON,0
	CLRF	GOMB_SZÁM
	CALL	DELAY
	MOVLW	B'00001111'
	MOVWF	PORTB

	BCF	PORTB,0
	NOP
	BTFSS	PORTB,7
	MOVLW	.1
	MOVWF	GOMB_SZÁM
	BTFSS	PORTB,6
	MOVLW	.4
	MOVWF	GOMB_SZÁM
	BTFSS	PORTB,5
	MOVLW	.7
	MOVWF	GOMB_SZÁM
	BTFSS	PORTB,4
	MOVLW	.10
	MOVWF	GOMB_SZÁM
	BSF	PORTB,0
	NOP
	BCF	PORTB,1
	NOP
	BTFSS	PORTB,7
	MOVLW	.2
	MOVWF	GOMB_SZÁM
	BTFSS	PORTB,6
	MOVLW	.5
	MOVWF	GOMB_SZÁM
	BTFSS	PORTB,5
	MOVLW	.8
	MOVWF	GOMB_SZÁM
	BTFSS	PORTB,4
	MOVLW	.11
	MOVWF	GOMB_SZÁM
	BSF	PORTB,1
	NOP
	BCF	PORTB,2
	NOP
	
	BTFSS	PORTB,7
	MOVLW	.3
	MOVWF	GOMB_SZÁM
	BTFSS	PORTB,6
	MOVLW	.6
	MOVWF	GOMB_SZÁM
	BTFSS	PORTB,5
	MOVLW	.9
	MOVWF	GOMB_SZÁM
	BTFSS	PORTB,4
	MOVLW	.12
	MOVWF	GOMB_SZÁM
	BSF	PORTB,2
	NOP
	INCF	GOMB_SZÁM
	RETFIE


	
	
DELAY
	MOVLW	D'255'
	MOVWF	T1
	MOVLW	D'5'
	MOVWF	T2
DEL
	DECFSZ	T1,F
	GOTO	DEL
	DECFSZ	T2,F
	GOTO	DEL
	RETURN

	
	

	END