#include "P12F683.INC"
	
	errorlevel -302

	__CONFIG _INTRC_OSC_NOCLKOUT & _WDT_OFF & _PWRTE_OFF & _MCLRE_ON & _CP_OFF & _CPD_OFF & _BOD_OFF & _IESO_OFF & _FCMEN_OFF

	CBLOCK	0x20			;A 0x20 egy szabad memória rész kezdő címe
	T1
	T2
	ido
	ENDC

	ORG	0
	goto Start

Start:
	BANKSEL GPIO ;
	CLRF GPIO ;Init GPIO
	MOVLW 0x07;Set GP<2:0> to
	MOVWF CMCON0 ;digital I/O
	BANKSEL ANSEL ;
	CLRF ANSEL ;digital I/O
	MOVLW 0Ch ;Set GP<3:2> as inputs
	MOVWF TRISIO ;and set GP<5:4,1:0>
	;as outputs
	banksel T1
	clrf T1
	clrf T2
	movlw	.100
	movwf	ido


KAPCS:

MOVLW	B'00000000'
BTFSS	GPIO, GP2
GOTO	Main
GOTO	KAPCS


Main:
	
	bsf		GPIO, GP5
	movlw   ido
   	movwf   T2
	call	Delay			;Várunk
	bcf		GPIO, GP5
	movlw   ido
   	movwf   T2
	call	Delay			;Várunk
	bsf		GPIO, GP4
	movlw   ido
   	movwf   T2
	call	Delay			;Várunk
	bcf		GPIO, GP4
	movlw   ido
   	movwf   T2
	call	Delay			;Várunk
	bsf		GPIO, GP0
	movlw   ido
   	movwf   T2
	call	Delay			;Várunk
	bcf		GPIO, GP0
	movlw   ido
   	movwf   T2
	call	Delay			;Várunk
	bsf		GPIO, GP1
	movlw   ido
   	movwf   T2
	call	Delay			;Várunk
	bcf		GPIO, GP1
	movlw   ido
   	movwf   T2
	call	Delay			;Várunk
	goto	KAPCS			;Vissza a MAIN-ra

Delay:		
	nop
	nop
	nop
	nop	
	decfsz T1, F
	goto Delay
	decfsz T2, F
	goto Delay
	return

 	END