projects
/
debian
/
cc1111
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Imported Upstream version 2.9.0
[debian/cc1111]
/
device
/
lib
/
pic16
/
libc
/
delay
/
delay100ktcy.S
1
2
include <p18fxxx.inc>
3
4
extern _delay10tcy
5
extern _delay1ktcy
6
7
global _delay100ktcy
8
9
code
10
11
_delay100ktcy:
12
; polynomial for 100ktcy delay is f(x) = 100000 * (x-1) + 100000
13
decf WREG, f
14
15
movwf POSTDEC1
16
movlw 99
17
call _delay1ktcy
18
19
movlw 99
20
call _delay10tcy
21
22
movf PREINC1, w
23
24
bz @delay100k_end
25
bra $+2
26
27
@delay100k_loop:
28
movwf POSTDEC1
29
30
movlw 99
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 @delay100k_loop
42
43
@delay100k_end:
44
return
45
46
end