;-----Változó definiálása-----
SZAMLAL	EQU	0x23

	ORG	0
	GOTO	START
;-----Beállítások-----
START
	BSF	STATUS,RP0
	MOVLW	B'00000000'
	MOVWF	TRISB		;PortB kimenet
	MOVLW	B'11111111'
	MOVWF	TRISA		;PortA	Bemenet
	BCF	STATUS,RP0
	MOVLW	B'00000111'	;PortaA digitális bemenet
	MOVWF	CMCOn
	GOTO	GOMB
;-----Főprogram-----

GOMB
	CLRF	PORTB
	BTFSC	PORTA,0		;Bemenet kezelés
	GOTO	GOMB
	GOTO	FUT1

FUT1
	MOVLW	.10		;Ennyiszer fut le a Be-Ki kapcsolás
	MOVWF	SZAMLAL
LEFUT1
	BSF	PORTB,0		;BE
	CALL	TIME1		;Vár
	BTFSC	PORTA,0		;Kikapcsoló gomb figyelése
	GOTO	GOMB
	BCF	PORTB,0		;KI
	CALL	TIME1		;Vár
	BTFSC	PORTA,0		;Gomb figyelés
	GOTO	GOMB
	DECFSZ	SZAMLAL,F
	GOTO	LEFUT1
	GOTO	FUT2
FUT2
	MOVLW	.5		;Itt ugyanaz vonatkozik mint az előzőnél
	MOVWF	SZAMLAL
LEFUT2
	BSF	PORTB,0
	CALL	TIME2
	BTFSC	PORTA,0
	GOTO	GOMB
	BCF	PORTB,0
	CALL	TIME2
	BTFSC	PORTA,0
	GOTO	GOMB
	DECFSZ	SZAMLAL,F
	GOTO	LEFUT2
	GOTO	GOMB

;-----Időzítések-----
TIME1
	NOP
	NOP
	RETURN
TIME2
	NOP
	NOP
	NOP
	NOP
	NOP
	RETURN

;-----Vége-----
	END