LIST	P=16F84A		
	#INCLUDE	"P16F84A.inc"

	__CONFIG _XT_OSC&_CP_OFF&_WDT_OFF
	CBLOCK	0X20
V1
SZAM
G_STATE
	ENDC

	ORG	0
	BANKSEL	TRISA
	MOVLW	b'00011111'
	MOVWF	TRISA
	MOVLW	b'00000000'
	MOVWF	TRISB
	BANKSEL	PORTB
	CLRF	PORTB
	MOVLW	D'20'
	MOVWF	SZAM
	CLRF	G_STATE		;0=lenyomásra/1=felengedésre várunk

START
	CALL	VAR		;Várakozás
	BTFSS	PORTA,0         ;GOMB vizsgálata
	GOTO	GOMBLE          ;GOMB lenyomva 
        CLRF	G_STATE         ;GOMB felengedve
        GOTO	SZ
GOMBLE
	BTFSC	G_STATE,0	;G_STATE<0> = 0?
	GOTO	SZ		;NEM
	COMF    G_STATE         ;IGEN: 1-be állítjuk 
	MOVLW	B'10000000'     ;LED2 átkapcsolása
	XORWF	PORTB          
SZ
	DECFSZ	SZAM
	GOTO	START
	MOVLW	B'00000010'	;LED1 villogtatása
	XORWF	PORTB
	MOVLW	D'20'
	MOVWF	SZAM
	GOTO	START

VAR
	MOVLW	D'97'
	MOVWF	V1
VAR1
	NOP
	DECFSZ	V1,F
	GOTO	VAR1
	RETURN
END