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

   1
   2     include <p18fxxx.inc>
   3
   4     global    _delay10tcy
   5
   6     code
   7
   8 _delay10tcy:
   9       ; polynomial for 10tcy delay is f(x) = 10 * (x-1) + 10
  10       decf      WREG, f
  11       nop
  12
  13       movf      WREG, w
  14       bz        @delay10_end
  15
  16       bra       $+2
  17
  18 @delay10_loop:
  19       bra       $+2
  20       bra       $+2
  21       bra       $+2
  22
  23       nop
  24       decfsz    WREG, f
  25       bra       @delay10_loop
  26
  27 @delay10_end:
  28
  29       return
  30
  31       end