git.gag.com Git - debian/cc1111/blob - device/lib/pic16/libc/delay/delay10ktcy.S

   1
   2         include <p18fxxx.inc>
   3
   4         extern  _delay10tcy
   5         extern  _delay1ktcy
   6
   7         global  _delay10ktcy
   8
   9         code
  10
  11 _delay10ktcy:
  12         ; polynomial for 10ktcy delay is f(x) = 10000 * (x-1) + 10000
  13         decf    WREG, f
  14
  15         movwf    POSTDEC1
  16         movlw    9
  17         call    _delay1ktcy
  18
  19         movlw       99
  20         call        _delay10tcy
  21
  22         movf    PREINC1, w
  23
  24         bz        @delay10k_end
  25         bra        $+2
  26
  27 @delay10k_loop:
  28         movwf    POSTDEC1
  29
  30         movlw    9
  31         call    _delay1ktcy
  32
  33         movlw       99
  34         call        _delay10tcy
  35
  36         bra        $+2
  37         bra        $+2
  38         nop
  39         movf    PREINC1, w
  40         decfsz    WREG, f
  41         bra        @delay10k_loop
  42
  43 @delay10k_end:
  44         return
  45
  46         end