Subversion Repositories svnkaklik

Rev

Go to most recent revision | Blame | Last modification | View Log | Download

;--- Spozdeni v nasobcich 1ms ----
_delay1ms:
        movlw   100             ; 1 ms
        movwf   _delay_us
        call    _delay10us

        decfsz  _delay_ms, f
        goto    _delay1ms
        return

;--- Spozdeni v nasobcich 10us ----
_delay10us:                     ; Prodleva (CT1 * 10us)+3us
        nop     
        nop
        nop
        nop
        nop
        nop
        nop
        decfsz  _delay_us, f
        goto    _delay10us
        return

;----------------------------
; Definice promenych pro spozdeni
;----------------------------
        cblock
        _delay_ms       ; Citac ms
        _delay_us       ; Citac 10us
        endc