;***********************Leírás*************************************************
;
;******************Config**********************************

	LIST	P=PIC16F1937
	INCLUDE	<P16F1937.INC>
	ERRORLEVEL	0,	-302, -305
	
	 __CONFIG _CONFIG1, 0x3FFF & _FOSC_XT & _WDTE_OFF & _PWRTE_OFF & _CP_OFF & _CPD_OFF & _BOREN_OFF & _CLKOUTEN_OFF & _IESO_OFF & _FCMEN_OFF
	 __CONFIG _CONFIG2, 0x3FFF & _WRT_OFF & _VCAPEN_OFF & _PLLEN_OFF & _STVREN_OFF & _BORV_25 & _LVP_OFF
	
;********************Változók******************************
	CBLOCK	0x20
	count
	count1           
	counta
	countb
	count2
	endc

	
	ORG 0x0000
	goto	Setup
	
;********************Megszakítás***************************
;ez most nem kell
;*********************Main*********************************	
Setup
	banksel	TRISA		;BANK1
	clrf	TRISA			;minden láb kimenet
	clrf	TRISB
	clrf	TRISC
	clrf	TRISD
	clrf	TRISE
	movlw	b'00000110'		;értéket töltönk a W regiszterbe
	banksel	ADCON1
	movwf	ADCON1			;W regiszter tartalmát áttöltjük az ADCON1 regiszterbe. Minden láb digitális
	banksel	ANSELA
	clrf	ANSELA
	clrf	ANSELB

	clrf	ANSELD
	clrf	ANSELE

	BANKSEL	PORTA			;BANK0
	clrf	PORTA			;minden kimenetet alacsony szintre állítunk
	clrf	PORTB
	clrf	PORTC
	clrf	PORTD
	clrf	PORTE
	
Villog
	bsf		PORTA,4			;PORTA 4 lábát (6. láb) magas szintre állítjuk
	call	Kesleltet255	;meghívjuk a Kesleltet255 szubrutint
	bcf		PORTA,4			;PORTA 4 lábát (6. láb) alacsony szintre állítjuk
	call	Kesleltet255	;meghívjuk a Kesleltet255 szubrutint
	goto	Villog			;A Villog címkéhez ugrunk (előről kezdjük)
	
;********************************************************	
Kesleltet255
     movlw   0xff             ; A késleltetés 255ms.
     goto    K0
Kesleltet100
     movlw   d'100'           ; A késleltetés 100ms.
     goto    K0
Kesleltet50
     movlw   d'50'            ; A késleltetés 50ms.
     goto    K0
Kesleltet20
     movlw   d'20'            ; A késleltetés 20ms.
     goto    K0
Kesleltet5
     movlw   0x01             ; A késleltetés 5.000 ms (4 MHz órajel).
K0
	 movwf   count1
K1
     movlw   0xC7             ; A késleltetés 1ms.
     movwf   counta
     movlw   0x01
     movwf   countb
Kesleltet_0
     decfsz  counta,f
     goto    T1
     decfsz  countb,f
T1
     goto    Kesleltet_0

     decfsz  count1,f
     goto    K1
     return


	END