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

        movlw   150
        movwf   CT5

        movlw   250
        movwf   CT5

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

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

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

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

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

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

        decfsz  CT3, f
        goto    rozj


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

        movlw   0
        movwf   PORTA
        Delay   5

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

        movlw   0
        movwf   PORTA
        Delay   5

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

        movlw   0
        movwf   PORTA
        Delay   5

        decfsz  CT4, f
        goto    rychle

rychle2:

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

        movlw   0
        movwf   PORTA
        Delay   3

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

        movlw   0
        movwf   PORTA
        Delay   3

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

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

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

        movlw   0
        movwf   PORTA
        Delay   2

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

        movlw   0
        movwf   PORTA
        Delay   2

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

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

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

        movlw   0
        movwf   PORTA
        Delay   1

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

        movlw   0
        movwf   PORTA
        Delay   1

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

        movlw   0
        movwf   PORTA
        Delay   1

        goto    rychle4
;______________________________________________________________

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

        cblock  

        CT1
        CT2
        CT3
        CT4
        CT5
        CT6
        endc

        end