	LIST P=16F627
	INCLUDE<P16F627.INC>
	__CONFIG _PWRTE_ON & _WDT_OFF & _MCLRE_OFF & _BODEN_OFF & _LVP_OFF & _INTRC_OSC_NOCLKOUT
;-------------------------------------------------------------------------------------------------
		goto	start
;--------------------------------------premenné----------------------------------------------------
PC		equ		02h
PortB	equ		06h
;--------------------------------------podprogram-------------------------------------------------
koduj	addwf	PC,f		;preskoc W instrukci
	retlw	B'11000000'	;vystupy pro nulu
	retlw	B'11111001'	;vystupy pro jednicku
	retlw	B'10100100'	;vystupy pro dvojku
	retlw	B'10110000'	;vystupy pro trojku
	retlw	B'10011011'	;vystupy pro ctyrku
	retlw	B'10010010'	;vystupy pro petku
	retlw	B'10000010'	;vystupy pro sestku
	retlw	B'11111000'	;vystupy pro sedmicku
	retlw	B'10000000'	;vystupy pro osmicku
	retlw	B'10010000'	;vystupy pro devitku
	retlw	B'11111111'	;zhasnuty displej
	retlw	B'11111111'	;zhasnuty displej
	retlw	B'11111111'	;zhasnuty displej
	retlw	B'11111111'	;zhasnuty displej
	retlw	B'11111111'	;zhasnuty displej
	retlw	B'11111111'	;zhasnuty displej


;------------------------------------------hlavny program----------------------------------------		
start	MOVLW	B'00000111'	; typ komparatoru (off)
		MOVWF	CMCON
		MOVLW	B'00000011' ;zadanie nast.bitov pre čítač/časovač TMR1 bit 1 zadáva odkiaľ ho riadi.Momentálne sa nepoužíva.
		MOVWF	T1CON		;deliaci pomer preddelicky 1 : 1
		BSF	STATUS,RP0
		MOVLW	B'01101000';nastavenie čítača TMR0,preddelička 1 : 1,pocita pulzy na vstupe RA4 ,vzostupna hrana pulzu
		MOVWF	OPTION_REG
	
		MOVLW	B'00010000';RA4 ako vstup,ostatné piny sú výstupy
		MOVWF	TRISA
		MOVLW	B'00000000';všetky piny B portu sú výstupy.RA0/6 sú segmenty displeja
		MOVWF	TRISB
		BCF	STATUS,RP0
		CLRW		;preventývne nastavíme Wreg do nuly		
skok	MOVFW	TMR0
		andlw	0fh		;zamaskuj horni ctyri bity zaciatok zobrazovania
		call	koduj
		movwf	PortB		;nastav vystupy portu B
		GOTO	skok
		END


	

	



