LIST	P=12F675					;PROCESSZOR TÍPUSÁNAK MEGADÁSA
#INCLUDE "P12F675.INC"				;ELŐRE DEFINIÁLT SZIMBÓLUMOK HASZNÁLATA

__CONFIG _CP_OFF & _WDT_OFF & _PWRTE_ON & _MCLRE_ON & _CPD_OFF & _INTRC_OSC_NOCLKOUT



;*****************************
;	VÁLTOZÓK
;*****************************

	IDO			EQU		0x20
	HOSSZ		EQU		0x21
	HOSSZ_2		EQU		0x22


;*****************************
;	PROGRAM
;*****************************

	ORG		0x00
	GOTO	INICIALIZALAS

	ORG		0x04
	NOP

INICIALIZALAS

	BCF		STATUS, RP0

	CLRF	ADCON0

	MOVLW	D'7'
	MOVWF	CMCON

	BSF		STATUS, RP0

	MOVLW	0x07
	MOVWF	ANSEL
	MOVLW	B'00000011'
	MOVWF	TRISIO

	MOVLW	B'00000011'
	MOVWF	OPTION_REG

	BCF		STATUS, RP0

	CLRF	HOSSZ
	CLRF	HOSSZ_2
	CLRF	GPIO

	BSF		GPIO, 5

FOPROGRAM
	CLRF	TMR0
	BTFSC	GPIO, 1				;BEÉLESÍTÉS
	GOTO	FOPROGRAM

	BTFSS	INTCON, T0IF
	GOTO	$-3

	BCF		INTCON, T0IF
	BTFSS	GPIO, 1
	GOTO	$-1

BEELESITVE

	MOVFW	GPIO
	XORLW	B'00000100'
	MOVWF	GPIO

	CALL	KESLELTETES_1

	INCF	HOSSZ
	
	MOVFW	HOSSZ
	XORLW	D'10'			;153
	BTFSS	STATUS, Z
	GOTO	BEELESITVE
	
	CLRF	HOSSZ
	INCF	HOSSZ_2
	
	MOVFW	HOSSZ_2
	XORLW	D'2'			;5
	BTFSS	STATUS, Z
	GOTO	BEELESITVE

ELES

	BCF		INTCON, T0IF
	CLRF	TMR0
	BTFSS	GPIO, 0
	GOTO	ELES

	BTFSS	INTCON, T0IF
	GOTO	$-D'3'
	BCF		INTCON, T0IF
	BSF		GPIO, 2

HATASTALANITAS

	MOVFW	GPIO
	XORLW	B'00110100'
	MOVWF	GPIO

	CALL	KESLELTETES_1

	INCF	HOSSZ
	
	MOVFW	HOSSZ
	XORLW	D'10'				;153
	BTFSS	STATUS, Z
	GOTO	HATASTALANITAS
	
	NOP
	GOTO	$-1

KESLELTETES_1

	MOVLW	D'6'
	MOVWF	IDO
	CLRF	TMR0
	BCF		INTCON, T0IF
	BTFSS	INTCON, T0IF
	GOTO	$-1
	DECFSZ	IDO
	GOTO	$-4

	RETURN

END