#include "P16F636.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
	T3
ENDC

ORG	0
goto	START

START

BANKSEL PORTA ;
CLRF PORTA ;Init PORTA
MOVLW 07h ;Set RA<2:0> to
MOVWF CMCON0 ;digital I/O
BSF STATUS,RP0 ;Bank 1
BCF STATUS,RP1 ;
MOVLW 0Ch ;Set RA<3:2> as inputs
MOVWF TRISA ;and set RA<5:4,1:0>
;as outputs
BANKSEL PORTC ;
CLRF PORTC ;Init PORTC
MOVLW 07h ;Set RC<4,1:0> to
MOVWF CMCON0 ;digital I/O
BANKSEL TRISC ;
MOVLW 0Ch ;Set RC<3:2> as inputs
MOVWF TRISC ;and set RC<5:4,1:0>
;as outputs
	banksel T1
	clrf T1
	clrf T2
	clrf T3

KAPCS

movlw	.220
movwf	T3
btfss	PORTC,2
goto 	INDITAS
goto	KAPCS

INDITAS

decf	T3, F
decf	T3, F
decf	T3, F
decf	T3, F 
decf	T3, F
decf	T3, F
decf	T3, F
decf	T3, F 
decf	T3, F
decf	T3, F
bsf		PORTA,5
call	IDOZ
bcf		PORTA,5
call	IDOZ
bsf		PORTA,4
call	IDOZ
bcf		PORTA,4
call	IDOZ
bsf		PORTA,0
call	IDOZ
bcf		PORTA,0
call	IDOZ
bsf		PORTA,1
call	IDOZ
bcf		PORTA,1
call	IDOZ
goto	INDITAS

IDOZ

nop
nop
nop
nop
nop
decfsz 	T1, F
goto 	IDOZ
decfsz	T3, F
goto	IDOZ


END