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

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