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

	LIST	P=PIC16F877
	INCLUDE	<P16F877.INC>
	ERRORLEVEL	0,	-302, -305
	
	 __CONFIG _XT_OSC & _WDT_OFF & _PWRTE_OFF & _CP_OFF & _LVP_OFF & _BODEN_ON
	
;********************Változók******************************
	CBLOCK	0x20
	count
	count1           
	counta
	countb
	count2
	endc

	
	ORG 0x0000
	goto	Setup
	
;********************Megszakítás***************************
;ez most nem kell
;*********************Main*********************************	
Setup
	bsf		STATUS,RP0		;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
	movwf	ADCON1			;W regiszter tartalmát áttöltjük az ADCON1 regiszterbe. Minden láb digitális
	bcf		STATUS,RP0		;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
     retlw   0x00


	END