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

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