;TMR0	SZÁMLÁLÓ 100IG SZÁMOL ÉS MEGÁLL
;
;
;
;
;
;
;	
	LIST      P=16F874A  
	LIST	  R=DEC          
	#INCLUDE <p16F874A.inc>         
	__CONFIG _CP_OFF & _WDT_OFF & _BODEN_ON & _PWRTE_ON & _XT_OSC & _LVP_OFF

		ORG	0
		NOP

TEMP	EQU		0x23
		BCF		STATUS,RP1
		BSF		STATUS,RP0	
		CLRF	TMR0			;TMR0
		CLRF	INTCON			
		BSF		STATUS,RP0		;bank1
		CLRF	TRISD
		BSF		OPTION_REG,T0CS	;KULSO ORA
		BCF		OPTION_REG,PSA	;ELŐOSZTÓ TMR0-HOZ
		BSF		OPTION_REG,PS2	;ELŐOSZTÓ BITEK 1-128
		BSF		OPTION_REG,PS1	;
		BCF		OPTION_REG,PS0	;
		BCF		STATUS,RP0		;bank0
		CLRF	PORTD
		CLRF	TEMP	

START	
		COMF	PORTD,1		;világít
		CALL	VAR_TULCS	;vár
		COMF	PORTD,1		;nemvilágít
		CALL	VAR_TULCS	;vár
		GOTO	START
	

VAR_TULCS
		BCF		INTCON,T0IF		;tulcsordulást jelző bit nullázása
		MOVLW	.125			;	TMR0 feltöltése 125el
		SUBWF	TEMP,0			;
		MOVWF	TMR0			;
VAR		BTFSS	INTCON,T0IF		;tulcsordulás figyelése	
		GOTO	VAR				;még nem elég	
		BCF		INTCON,T0IF		;most jó, tulcsordulást jelző bit nullázása
		RETURN					
		
	END