Subversion Repositories svnkaklik

#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   50              ; Otacky
;       movwf   CT2
;       movlw   45              ; Pocet kroku zrychleni
;       movwf   CT1
;rozj2: 
;       decf    CT2, f


        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
        
;       call    zap

        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

;       decfsz  CT1, f
;       goto    rozj2
;       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