-
Notifications
You must be signed in to change notification settings - Fork 9
/
Copy pathwait.S
367 lines (281 loc) · 7.03 KB
/
wait.S
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
/* ************************************************************************
*
* wait functions
*
* based on code from Karl-Heinz Kübbeler
*
* ************************************************************************ */
/*
* local constants
*/
/* source management */
#define WAIT_S
/*
* includes
*/
/* basic includes */
#include <avr/io.h>
/* local includes */
#include "config.h" /* global configuration */
.func wait1000ms
.global wait5s ; wait 5 seconds
.global wait4s ; wait 4 seconds
.global wait3s ; wait 3 seconds
.global wait2s ; wait 2 seconds
.global wait1s ; wait 1 second
.global wait1000ms ; wait 1000ms (identical with wait1s)
.global wait500ms ; wait 500ms
.global wait400ms ; wait 400ms
.global wait300ms ; wait 300ms
.global wait200ms ; wait 200ms
.global wait100ms ; wait 100ms
.global wait50ms ; wait 50ms
.global wait40ms ; wait 40ms
.global wait30ms ; wait 30ms
.global wait20ms ; wait 20ms
.global wait10ms ; wait 10ms
.global wait5ms ; wait 5ms
.global wait4ms ; wait 4ms
.global wait3ms ; wait 3ms
.global wait2ms ; wait 2ms
.global wait1ms ; wait 1ms
.global wait500us ; wait 500µs
.global wait400us ; wait 400µs
.global wait300us ; wait 300µs
.global wait200us ; wait 200µs
.global wait100us ; wait 100µs
.global wait50us ; wait 50µs
.global wait40us ; wait 40µs
.global wait30us ; wait 30µs
.global wait20us ; wait 20µs
.global wait10us ; wait 10µs
; waiting functions for MCU clock rates of 1MHz, 2MHz, 4MHz, 8MHz and 16MHz
; stacked design to minimize flash memory usage:
; - 68 Byte at 1MHz
; - 70 Byte at 2MHz
; - 76 Byte at 4MHz
; - 74 Byte at 8Mhz
; No registers are used, just the stack pointer.
; Maximum RAM usage of 28 bytes for return addresses.
/*
* 20µs and up (clock rate independent)
*/
wait5s:
rcall wait1s ;1s 12+x return addresses
;proceed with wait4s ;+4s
wait4s:
rcall wait1s ;1s 12+x return addresses
;proceed with wait3s ;+3s
wait3s:
rcall wait1s ;1s 12+x return addresses
;proceed with wait2s ;+2s
wait2s:
rcall wait1s ;1s 12+x return addresses
;proceed with wait1s ;+1s
wait1s:
wait1000ms:
rcall wait500ms ;500ms 11+x return addresses
;proceed with wait500ms ;+500ms
wait500ms:
rcall wait100ms ;100ms 10+x return addresses
;proceed with wait400ms ;+400ms
wait400ms:
rcall wait100ms ;100ms 10+x return addresses
;proceed with wait300ms ;+300ms
wait300ms:
rcall wait100ms ;100ms 10+x return addresses
;proceed with wait200ms ;+200ms
wait200ms:
rcall wait100ms ;100ms 10+x return addresses
;proceed with wait100ms ;+100ms
wait100ms:
wdr ;reset watchdog every 100ms!
rcall wait50ms ;50ms 9+x return addresses
;proceed with wait50ms ;+50ms
wait50ms:
rcall wait10ms ;10ms 8+x return addresses
;proceed with wait40ms ;+40ms
wait40ms:
rcall wait10ms ;10ms 8+x return addresses
;proceed with wait30us ;+30ms
wait30ms:
rcall wait10ms ;10ms 8+x return addresses
;proceed with wait20us ;+20ms
wait20ms:
rcall wait10ms ;10ms 8+x return addresses
;proceed with wait10ms ;+10ms
wait10ms:
rcall wait5ms ;5ms 7+x return addresses
;proceed with wait5ms ;+5ms
wait5ms:
rcall wait1ms ;1ms 6+x return addresses
;proceed with wait4ms ;+4ms
wait4ms:
rcall wait1ms ;1ms 6+x return addresses
;proceed with wait3ms ;+3ms
wait3ms:
rcall wait1ms ;1ms 6+x return addresses
;proceed with wait2ms ;+2ms
wait2ms:
rcall wait1ms ;1ms 6+x return addresses
;proceed with wait1ms ;+1ms
wait1ms:
rcall wait500us ;500µs 5+x return addresses
;laeuft in wait500us ;+500µs
wait500us:
rcall wait100us ;100µs 4+x return addresses
;proceed with wait400us ;+400µs
wait400us:
rcall wait100us ;100µs 4+x return addresses
;proceed with wait300us ;+300µs
wait300us:
rcall wait100us ;100µs 4+x return addresses
;proceed with wait200us ;+200µs
wait200us:
rcall wait100us ;100µs 4+x return addresses
;proceed with wait100us ;+100µs
wait100us:
rcall wait50us ;50µs 3+x return addresses
;proceed with wait50us ;+50µs
wait50us:
rcall wait10us ;10µs 2+x return addresses
;proceed with wait40us ;+40µs
wait40us:
rcall wait10us ;10µs 2+x return addresses
;proceed with wait30us ;+30µs
wait30us:
rcall wait10us ;10µs 2+x return addresses
;proceed with wait20us ;+20µs
wait20us:
rcall wait10us ;10µs 2+x return addresses
;proceed with wait10us ;+10µs
/*
* 10µs and below based on MCU clock rate
*/
wait10us: ; 1+x return addresses
#if CPU_FREQ == 1000000
;1MHz version x = 0
;rcall needs 3 clock cycles for ATmega8L
nop ;if call needs 4 clock cycles, remove one nop!
nop
nop
;ret needs 4 clock cycles (1µs each)
#endif
#if CPU_FREQ == 2000000
;2MHz version x = 1
rcall wait5us ;5µs
;proceed with wait5us ;+5µs
.global wait5us ;wait 5µs
wait5us:
nop
nop
nop
#endif
#if CPU_FREQ == 4000000
;4MHz version x = 2
.global wait5us ;wait 5µs
.global wait4us ;wait 4µs
.global wait2us ;wait 2µs
rcall wait5us ;5µs
;proceed with wait5us ;+5µs
wait5us:
nop
nop
nop
nop ;1µs
;proceed with wait4us ;+4µs
wait4us:
rcall wait2us ;2µs
;proceed with wait2us ;+2µs
wait2us:
nop ;2µs
#endif
#if CPU_FREQ == 8000000
;8MHz Version x = 2
.global wait5us ;wait 5µs
.global wait4us ;wait 4µs
.global wait3us ;wait 3µs
.global wait2us ;wait 2µs
.global wait1us ;wait 1µs
rcall wait5us ;5µs
;proceed with wait5us ;+5µs
wait5us:
rcall wait1us ;1µs
;proceed with wait4us ;+4µs
wait4us:
rcall wait1us ;1µs
;proceed with wait3us ;+3us
wait3us:
rcall wait1us ;1µs
;proceed with wait2us ;+2µs
wait2us:
rcall wait1us ;1µs
;proceed with wait1us ;+1µs
wait1us:
nop ;1µs
#endif
#if CPU_FREQ == 16000000
;16MHz Version x = 2
.global wait5us ;wait 5µs
.global wait4us ;wait 4µs
.global wait3us ;wait 3µs
.global wait2us ;wait 2µs
.global wait1us ;wait 1µs
rcall wait5us ;5µs
;proceed with wait5us ;+5µs
wait5us:
rcall wait1us ;1µs
;proceed with wait4us ;+4µs
wait4us:
rcall wait1us ;1µs
;proceed with wait3us ;+3µs
wait3us:
rcall wait1us ;1µs
;proceed with wait2us ;+2µs
wait2us:
rcall wait1us ;1µs
;proceed with wait1us ;+1µs
wait1us:
rcall wait500ns ;500ns
;proceed with wait500ms ;+500ns
wait500ns:
nop ;500ns
#endif
#if CPU_FREQ == 20000000
;20MHz Version x = 2
.global wait5us ;wait 5µs
.global wait4us ;wait 4µs
.global wait3us ;wait 3µs
.global wait2us ;wait 2µs
.global wait1us ;wait 1µs
rcall wait5us ;5µs
;proceed with wait5us ;+5µs
wait5us:
rcall wait1us ;1µs
;proceed with wait4us ;+4µs
wait4us:
rcall wait1us ;1µs
;proceed with wait3us ;+3µs
wait3us:
rcall wait1us ;1µs
;proceed with wait2us ;+2µs
wait2us:
rcall wait1us ;1µs
;proceed with wait1us ;+1µs
wait1us:
rcall wait500ns ;500ns
;proceed with wait500ms ;+500ns
wait500ns:
nop
nop
nop ;500ns
#endif
ret
/* ************************************************************************
* clean-up of local constants
* ************************************************************************ */
/* source management */
#undef WAIT_S
/* ************************************************************************
* EOF
* ************************************************************************ */