OpenCores
URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [uclinux/] [uClinux-2.0.x/] [arch/] [armnommu/] [lib/] [delay.S] - Blame information for rev 1765

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 199 simons
/*
2
 * linux/arch/arm/lib/delay.S
3
 *
4
 * Copyright (C) 1995, 1996 Russell King
5
 */
6
 
7
#include 
8
                .text
9
 
10
LC0:            .word   loops_per_sec
11
 
12
                .global _udelay,udelay
13
udelay:
14
_udelay:        mov     r2, #0x1000
15
                orr     r2, r2, #0x00c6
16
                mul     r1, r0, r2
17
                ldr     r2, LC0
18
                ldr     r2, [r2]
19
                mov     r1, r1, lsr #11
20
                mov     r2, r2, lsr #11
21
                mul     r0, r1, r2
22
                movs    r0, r0, lsr #10
23
                RETINSTR(moveq,pc,lr)
24
 
25
@ Delay routine
26
                .global ___delay,__delay
27
__delay:
28
___delay:       subs    r0, r0, #1
29
                RETINSTR(movcc,pc,lr)
30
                subs    r0, r0, #1
31
                RETINSTR(movcc,pc,lr)
32
                subs    r0, r0, #1
33
                RETINSTR(movcc,pc,lr)
34
                subs    r0, r0, #1
35
                RETINSTR(movcc,pc,lr)
36
                subs    r0, r0, #1
37
                RETINSTR(movcc,pc,lr)
38
                subs    r0, r0, #1
39
                RETINSTR(movcc,pc,lr)
40
                subs    r0, r0, #1
41
                RETINSTR(movcc,pc,lr)
42
                subs    r0, r0, #1
43
                bcs     ___delay
44
                RETINSTR(mov,pc,lr)
45
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.