		INCLUDE "P16F84A.INC"
		LIST P=16F84A, R=DEC
		__CONFIG	_CP_OFF & _WDT_ON & _PWRTE_ON & _XT_OSC
;-------------------------------------------------------------
PORTB	 EQU		h'06'			;nastavení názvu pro adresu 	;h'06', která slouží jako 								;výstupní porty		
NUM1     EQU		b'10011111'
NUM2     EQU		b'00100101'
NUM3     EQU		b'00001101'
NUM4     EQU		b'10011001'
NUM5     EQU		b'01001001'
NUM6     EQU		b'01000001'
NUM7     EQU		b'00011111'
NUM8     EQU		b'00000001'
NUM9     EQU		b'00001001'
NUM0     EQU		b'00000011'
c1		EQU h'20' ;proměnné pro cykly
c2		EQU h'21' ;
c3		EQU h'22' ;
;-------------------------------------------------------------
		BSF 	STATUS,RP0 ;přesun do banky 1
		MOVLW 	b'00000000' ;binární hodnota do W
		MOVWF 	TRISB ;nastavení portu
		BCF 	STATUS,RP0 ;přesun zpět do banky 0
main	MOVLW 	NUM0 ;
		MOVWF	PORTB;
		CALL 	cekej ;
		MOVLW 	NUM1 ;
		MOVWF	PORTB ;
		CALL 	cekej ;
		MOVLW 	NUM2 ;
		MOVWF	PORTB ;
		CALL 	cekej ;
		MOVLW 	NUM3 ;
		MOVWF	PORTB ;
		CALL 	cekej ;
		MOVLW 	NUM4 ;
		MOVWF	PORTB ;
		CALL 	cekej ;
		MOVLW 	NUM5 ;
		MOVWF	PORTB ;
		CALL 	cekej ;
		MOVLW 	NUM6 ;
		MOVWF	PORTB ;
		CALL 	cekej ;
		MOVLW 	NUM7 ;
		MOVWF	PORTB ;
		CALL 	cekej ;
		MOVLW 	NUM8 ;
		MOVWF	PORTB ;
		CALL 	cekej ;
		MOVLW 	NUM9 ;
		MOVWF	PORTB ;
		CALL 	cekej ;

		GOTO 	main ;

cekej	MOVLW	2;
		MOVWF 	c1;
loop1	MOVLW	255;
		MOVWF	c2;
loop2	MOVLW	255;
		MOVWF	c3;
loop3	DECFSZ  c3,1;
		GOTO 	loop3;
		DECFSZ	c2,1;
		GOTO	loop2;	
		DECFSZ	c1,1;
		GOTO	loop1;	
		RETURN

		END;