#include 16C84.INC

	org	0

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

#include Delay.asm
	
zap:
	movf	CT2, w
	movwf	xxx		;xxx promena z delay.asm
	call	Delay1ms
	return
;----------------------------------------------------

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	250		; Pocet otacek jednoho kroku zrychleni
	movwf	CT3
	
	movlw	150
	movwf	CT4

	movlw	200
	movwf	CT5

	movlw	250
	movwf	CT5

rozj:				; Rozjezd
	bsf	PORTA, 0	
	bcf	PORTA, 1	;100
	bcf	PORTA, 2
	Delay	5
	

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

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

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

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

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

	decfsz	CT3, f
	goto	rozj


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

	movlw	0
	movwf	PORTA
	Delay	3

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

	movlw	0
	movwf	PORTA
	Delay	3

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

	movlw	0
	movwf	PORTA
	Delay	3

	decfsz	CT4, f
	goto	rychle

rychle2:

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

	movlw	0
	movwf	PORTA
	Delay	3

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

	movlw	0
	movwf	PORTA
	Delay	3

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

	movlw	0
	movwf	PORTA
	Delay	3
	decfsz	CT5, f
	goto	rychle2

rychle3:
	bsf	PORTA, 0	
	bcf	PORTA, 1	;100
	bcf	PORTA, 2
	Delay	1

	movlw	0
	movwf	PORTA
	Delay	2

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

	movlw	0
	movwf	PORTA
	Delay	2

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

	movlw	0
	movwf	PORTA
	Delay	2
;	decfsz	CT3, f
	goto	rychle3

;rychle4:
;	bsf	PORTA, 0	
;	bcf	PORTA, 1	;100
;	bcf	PORTA, 2
;	Delay	1
;
;	movlw	0
;	movwf	PORTA
;	Delay	1
;
;	bcf	PORTA, 0	;010
;	bsf	PORTA, 1
;	bcf	PORTA, 2
;	Delay	1
;
;	movlw	0
;	movwf	PORTA
;	Delay	1
;
;	bcf	PORTA, 0	;001
;	bcf	PORTA, 1
;	bsf	PORTA, 2
;	Delay	1
;
;	movlw	0
;	movwf	PORTA
;	Delay	1
;
;	goto	rychle4

;______________________________________________________________

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

	cblock	

	CT1
	CT2
	CT3
	CT4
	CT5
	CT6
	endc

	end