;LIST P=16F84A	
				; Poznamky se pisi
#DEFINE	LEDA0	PORTB,0		; za stredniky !!!
#DEFINE	LEDA1	PORTB,1	
#DEFINE	LEDA2	PORTA,3	
#DEFINE	LEDA3	PORTA,2	
#DEFINE	LEDB0	PORTA,1	
#DEFINE	LEDB1	PORTB,1	
#DEFINE	LEDB2	PORTA,0	
#DEFINE	LEDB3	PORTB,4	
#DEFINE	LEDB4	PORTB,2	
#DEFINE	TLAC1	PORTB,5
#DEFINE	TLAC2	PORTB,6
#DEFINE	TLAC3	PORTB,7

CBLOCK
TMP2		
TMP1	
TMP0	
TMP3
TMP4
TMP5
ENDC

	ORG 	0

	BSF	STATUS,RP0
	MOVLW	B'0000'
	MOVWF	TRISA
	MOVLW	B'11100000'
	MOVWF	TRISB
	BCF	STATUS,RP0
	
	MOVLW	0
	MOVWF	PORTA
	;movlw	224
	;MOVWF	PORTB
	
	
	

start	BSF	LEDA1	;po spuštění začnou  diody blikat dokola
	call	stop1
	BCF	LEDA1
	BSF	LEDA0
	call	stop1
	BCF	LEDA0
	BSF	LEDB3
	call	stop1
	BCF	LEDB3
	BSF	LEDB2
	call	stop1
	BCF	LEDB2
	BSF	LEDB1
	call	stop1
	BCF	LEDB1
	BSF	LEDB0
	call	stop1
	BCF	LEDB0
	BSF	LEDA3
	call	stop1
	BCF	LEDA3
	BSF	LEDA2
	call	stop1
	BCF	LEDA2
	BSF	LEDB4
	call	stop1
	BCF	LEDB4
	
	

	BTFSS	TLAC1	;čekání na zmáčkuní tlačítka 1
	GOTO	start
BLIK1	BSF	LEDB1	; blikání pěti diod
	BSF	LEDB4
	BSF	LEDA1
	BSF	LEDB3
	BSF	LEDA3
	call	stop1
	BCF	LEDB1
	BCF	LEDB4
	BCF	LEDA1
	BCF	LEDB3
	BCF	LEDA3
	call	stop1
	

	BTFSS	TLAC2	;čekání na zmáčknutí tlačítka 2
	GOTO	BLIK1
BLIK2	BSF	LEDB1	;blikání čtyř diod	
	BSF	LEDA1
	BSF	LEDB3
	BSF	LEDA3
	call	stop1
	BCF	LEDB1	
	BCF	LEDA1
	BCF	LEDB3
	BCF	LEDA3
	call	stop1

	BTFSS	TLAC3	;čekání na zmáčknutí tlačítka 3
	GOTO 	BLIK2	
	GOTO	start	;návrat na start a blikání diod dokola







	
	; tato pasáž slouží pro pomalejší blikání
	
stop 	MOVLW 0x02  ;2 DEC
        MOVWF TMP2
        MOVLW 0x0E5  ;229 DEC
        MOVWF TMP1
        MOVLW 0x0D9  ;217 DEC
       	MOVWF TMP0
       	DECFSZ TMP0,F
       	GOTO $-1
       	DECFSZ TMP1,F
       	GOTO $-5
        DECFSZ TMP2,F
        GOTO $-9
	RETURN		

	; zde končí, pro realizaci nutno v programu přepsat odkaz CALL

stop1	MOVLW 0x01  ;1 DEC
        	MOVWF TMP5
        	MOVLW 0x0E5  ;229 DEC
        	MOVWF TMP4
        	MOVLW 0x0D9  ;217 DEC
        	MOVWF TMP3
        	DECFSZ TMP3,F
        	GOTO $-1
        	DECFSZ TMP4,F
        	GOTO $-5
        	DECFSZ TMP5,F
        	GOTO $-9
		RETURN
	


	END


