#include 16C84.INC

	org	0

	goto	Start
	;--------------------
	org	4
	;--------------------
	goto	Start

#include Delay.asm
	
Start:
	page1
	movlw 	00000000B	; inicializace citace a prescaleru
	movwf	TMR0
	movlw 	00000000B	; konfigurace preruseni
	movwf	INTCON

	page1
	movlw	00000000B	; nastaveni portu na vstup nebo vystup
	movwf	PORTA		; 1=vstup 0=vystup
	movlw	01000011B
	movwf	PORTB

	bsf	TMR0, 7		; vypni pull-up na PORTB (OPTION registr)

	page0

	clrw			; vynulovani portu
	movwf	PORTA
	movwf	PORTB
	

MainLoop:
	movlw	255
	movwf	CT2
	movlw	252
	movwf	CT1
rozj:

	decf	CT1, f

	bsf	PORTA, 0	
	bcf	PORTA, 1	;100
	bcf	PORTA, 2
	call	zap

	bsf	PORTA, 0	;110
	bsf	PORTA, 1
	bcf	PORTA, 2
	call	zap

	bcf	PORTA, 0	;010
	bsf	PORTA, 1
	bcf	PORTA, 2
	call	zap

	decfsz	CT2, f
	goto	ble
	goto	rychle

ble:	bcf	PORTA, 0	;011
	bsf	PORTA, 1
	bsf	PORTA, 2
	call	zap

	bcf	PORTA, 0	;001
	bcf	PORTA, 1
	bsf	PORTA, 2
	call	zap

	bsf	PORTA, 0	;101
	bcf	PORTA, 1
	bsf	PORTA, 2
	call	zap

zap:	decfsz	
	
	movf	CT3, w
	movwf	xxx		;xxx promena z delay.asm
	call	Delay1ms

;----------------------------------------------------
rychle:
	bsf	PORTA, 0	
	bcf	PORTA, 1	;100
	bcf	PORTA, 2
	Delay	3

;	bsf	PORTA, 0	;110
;	bsf	PORTA, 1
;	bcf	PORTA, 2
;	Delay	

	bcf	PORTA, 0	;010
	bsf	PORTA, 1
	bcf	PORTA, 2
	Delay	3

;	bcf	PORTA, 0	;011
;	bsf	PORTA, 1
;	bsf	PORTA, 2
;	Delay	2

	bcf	PORTA, 0	;001
	bcf	PORTA, 1
	bsf	PORTA, 2
	Delay	3

;	bsf	PORTA, 0	;101
;	bcf	PORTA, 1
;	bsf	PORTA, 2
;	Delay	2
	goto	rychle
;______________________________________________________________
	movlw	250
	movwf	ct2



	decfsz	ct2
	goto
	decfsz	ct3
	




	bcf	PORTA, 2
	bcf	PORTA, 1

smycka:	
	btfss	PORTB, 0
	goto	LEDon
	goto	smycka
LEDon:
	bsf 	PORTA, 3	;Rozsvit LED
	Delay	250		
	bcf 	PORTA, 3	;Zhasni LED
	Delay	250		
	goto	smycka
	;--0-------------





;----------------------------
; Definice promenych
;----------------------------

	cblock	

	CT1
	CT2
	CT3
	CT4

	endc

	end