
#include <p16F690.inc>
     __config (_INTRC_OSC_NOCLKOUT & _WDT_OFF & _PWRTE_OFF & _MCLRE_OFF & _CP_OFF & _BOR_OFF & _IESO_OFF & _FCMEN_OFF)

CISLO	equ	20h		; prirazeni nazvu registrum pro zpomaleni
CISLOA	equ	21h
CISLOB	equ	22h

	org 0

	CLRF	PORTC		;vyčištění portC

	BSF		STATUS,RP0
	BCF		STATUS,RP1	;Bank 1

	CLRF	TRISC		;portC jako Výstup

	BCF		STATUS,RP0  
	BCF		STATUS,RP1	;zpátky na BANKU registů 0


START
	MOVLW	B'00001000'
	MOVWF	PORTC			;rozvítí se dioda na výstupu 3, ostatní zhasnuté
	CALL 	ZPOMAL			;pauza

	BSF		PORTC,0			;svítí dioda na výstupu 0, ostatní zhasnuté
	CALL 	ZPOMAL

	BSF 	PORTC,1			;svítí dioda na výstupu 1, ostatní zhasnuté
	CALL 	ZPOMAL

	;MOVLW	B'00000000'		;všechno zhasne
	;MOVWF	PORTC

	BCF		PORTC,0			;Všechny diody zhasnou
	CALL 	ZPOMAL

	GOTO    START	

ZPOMAL
	CLRF	CISLO		; připraví registry na pocitani
	CLRF	CISLOA	
	MOVLW	6
	MOVWF	CISLOB		; CISLOB se vlozi jen 3 a proto se bude nize naopak odecitat

ZPET
	INCFSZ	CISLO,1		; pricte 1 do CISLO
	GOTO	ZPET		; jeste neni plne, proto jdi ZPET
	INCFSZ	CISLOA,1	; je plne, proto pricti 1 do CISLOA
	GOTO	ZPET		; jeste neni plne, proto jdi ZPET
	DECFSZ	CISLOB		; je plne, proto odecti 1 od CISLOB
	GOTO	ZPET		; jeste neni prazdne, proto ZPET

	RETURN


	END