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

Subversion Repositories or1k

[/] [or1k/] [trunk/] [linux/] [linux-2.4/] [drivers/] [acorn/] [scsi/] [acornscsi-io.S] - Blame information for rev 1765

Details | Compare with Previous | View Log


/*
 *  linux/drivers/acorn/scsi/acornscsi-io.S: Acorn SCSI card IO
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License version 2 as
 * published by the Free Software Foundation.
 */
#include 
 
#include 
#include 
 
#if (IO_BASE == (PCIO_BASE & 0xff000000))
#define ADDR(off,reg)                                           \
                tst     off, $0x80000000                        ;\
                mov     reg, $IO_BASE                           ;\
                orreq   reg, reg, $(PCIO_BASE & 0x00ff0000)
#else
#define ADDR(off,reg)                                           \
                tst     off, $0x80000000                        ;\
                movne   reg, $IO_BASE                           ;\
                moveq   reg, $(PCIO_BASE & 0xff000000)		;\
                orreq   reg, reg, $(PCIO_BASE & 0x00ff0000)
#endif
 
@ Purpose: transfer a block of data from the acorn scsi card to memory
@ Proto  : void acornscsi_in(unsigned int addr_start, char *buffer, int length)
@ Returns: nothing
 
                .align
ENTRY(__acornscsi_in)
                stmfd   sp!, {r4 - r7, lr}
                bic     r0, r0, #3
                mov     lr, #0xff
                orr     lr, lr, #0xff00
acornscsi_in16lp:
                subs    r2, r2, #16
                bmi     acornscsi_in8
                ldmia   r0!, {r3, r4, r5, r6}
                and     r3, r3, lr
                orr     r3, r3, r4, lsl #16
                and     r4, r5, lr
                orr     r4, r4, r6, lsl #16
                ldmia   r0!, {r5, r6, r7, ip}
                and     r5, r5, lr
                orr     r5, r5, r6, lsl #16
                and     r6, r7, lr
                orr     r6, r6, ip, lsl #16
                stmia   r1!, {r3 - r6}
                bne     acornscsi_in16lp
                LOADREGS(fd, sp!, {r4 - r7, pc})
 
acornscsi_in8:  adds    r2, r2, #8
                bmi     acornscsi_in4
                ldmia   r0!, {r3, r4, r5, r6}
                and     r3, r3, lr
                orr     r3, r3, r4, lsl #16
                and     r4, r5, lr
                orr     r4, r4, r6, lsl #16
                stmia   r1!, {r3 - r4}
                LOADREGS(eqfd, sp!, {r4 - r7, pc})
                sub     r2, r2, #8
 
acornscsi_in4:  adds    r2, r2, #4
                bmi     acornscsi_in2
                ldmia   r0!, {r3, r4}
                and     r3, r3, lr
                orr     r3, r3, r4, lsl #16
                str     r3, [r1], #4
                LOADREGS(eqfd, sp!, {r4 - r7, pc})
                sub     r2, r2, #4
 
acornscsi_in2:  adds    r2, r2, #2
                ldr     r3, [r0], #4
                and     r3, r3, lr
                strb    r3, [r1], #1
                mov     r3, r3, lsr #8
                strplb  r3, [r1], #1
                LOADREGS(fd, sp!, {r4 - r7, pc})
 
@ Purpose: transfer a block of data from memory to the acorn scsi card
@ Proto  : void acornscsi_in(unsigned int addr_start, char *buffer, int length)
@ Returns: nothing
 
ENTRY(__acornscsi_out)
                stmfd   sp!, {r4 - r6, lr}
                bic     r0, r0, #3
acornscsi_out16lp:
                subs    r2, r2, #16
                bmi     acornscsi_out8
                ldmia   r1!, {r4, r6, ip, lr}
                mov     r3, r4, lsl #16
                orr     r3, r3, r3, lsr #16
                mov     r4, r4, lsr #16
                orr     r4, r4, r4, lsl #16
                mov     r5, r6, lsl #16
                orr     r5, r5, r5, lsr #16
                mov     r6, r6, lsr #16
                orr     r6, r6, r6, lsl #16
                stmia   r0!, {r3, r4, r5, r6}
                mov     r3, ip, lsl #16
                orr     r3, r3, r3, lsr #16
                mov     r4, ip, lsr #16
                orr     r4, r4, r4, lsl #16
                mov     ip, lr, lsl #16
                orr     ip, ip, ip, lsr #16
                mov     lr, lr, lsr #16
                orr     lr, lr, lr, lsl #16
                stmia   r0!, {r3, r4, ip, lr}
                bne     acornscsi_out16lp
                LOADREGS(fd, sp!, {r4 - r6, pc})
 
acornscsi_out8: adds    r2, r2, #8
                bmi     acornscsi_out4
                ldmia   r1!, {r4, r6}
                mov     r3, r4, lsl #16
                orr     r3, r3, r3, lsr #16
                mov     r4, r4, lsr #16
                orr     r4, r4, r4, lsl #16
                mov     r5, r6, lsl #16
                orr     r5, r5, r5, lsr #16
                mov     r6, r6, lsr #16
                orr     r6, r6, r6, lsl #16
                stmia   r0!, {r3, r4, r5, r6}
                LOADREGS(eqfd, sp!, {r4 - r6, pc})
 
                sub     r2, r2, #8
acornscsi_out4: adds    r2, r2, #4
                bmi     acornscsi_out2
                ldr     r4, [r1], #4
                mov     r3, r4, lsl #16
                orr     r3, r3, r3, lsr #16
                mov     r4, r4, lsr #16
                orr     r4, r4, r4, lsl #16
                stmia   r0!, {r3, r4}
                LOADREGS(eqfd, sp!, {r4 - r6, pc})
 
                sub     r2, r2, #4
acornscsi_out2: adds    r2, r2, #2
                ldr     r3, [r1], #2
                strb    r3, [r0], #1
                mov     r3, r3, lsr #8
                strplb  r3, [r0], #1
                LOADREGS(fd, sp!, {r4 - r6, pc})
 

Line No.	Rev	Author	Line
1	1275	phoenix	`/*`
2			`* linux/drivers/acorn/scsi/acornscsi-io.S: Acorn SCSI card IO`
3			`*`
4			`* This program is free software; you can redistribute it and/or modify`
5			`* it under the terms of the GNU General Public License version 2 as`
6			`* published by the Free Software Foundation.`
7			`*/`
8			`#include`
9
10			`#include`
11			`#include`
12
13			`#if (IO_BASE == (PCIO_BASE & 0xff000000))`
14			`#define ADDR(off,reg) \`
15			`tst off, $0x80000000 ;\`
16			`mov reg, $IO_BASE ;\`
17			`orreq reg, reg, $(PCIO_BASE & 0x00ff0000)`
18			`#else`
19			`#define ADDR(off,reg) \`
20			`tst off, $0x80000000 ;\`
21			`movne reg, $IO_BASE ;\`
22			`moveq reg, $(PCIO_BASE & 0xff000000) ;\`
23			`orreq reg, reg, $(PCIO_BASE & 0x00ff0000)`
24			`#endif`
25
26			`@ Purpose: transfer a block of data from the acorn scsi card to memory`
27			`@ Proto : void acornscsi_in(unsigned int addr_start, char *buffer, int length)`
28			`@ Returns: nothing`
29
30			`.align`
31			`ENTRY(__acornscsi_in)`
32			`stmfd sp!, {r4 - r7, lr}`
33			`bic r0, r0, #3`
34			`mov lr, #0xff`
35			`orr lr, lr, #0xff00`
36			`acornscsi_in16lp:`
37			`subs r2, r2, #16`
38			`bmi acornscsi_in8`
39			`ldmia r0!, {r3, r4, r5, r6}`
40			`and r3, r3, lr`
41			`orr r3, r3, r4, lsl #16`
42			`and r4, r5, lr`
43			`orr r4, r4, r6, lsl #16`
44			`ldmia r0!, {r5, r6, r7, ip}`
45			`and r5, r5, lr`
46			`orr r5, r5, r6, lsl #16`
47			`and r6, r7, lr`
48			`orr r6, r6, ip, lsl #16`
49			`stmia r1!, {r3 - r6}`
50			`bne acornscsi_in16lp`
51			`LOADREGS(fd, sp!, {r4 - r7, pc})`
52
53			`acornscsi_in8: adds r2, r2, #8`
54			`bmi acornscsi_in4`
55			`ldmia r0!, {r3, r4, r5, r6}`
56			`and r3, r3, lr`
57			`orr r3, r3, r4, lsl #16`
58			`and r4, r5, lr`
59			`orr r4, r4, r6, lsl #16`
60			`stmia r1!, {r3 - r4}`
61			`LOADREGS(eqfd, sp!, {r4 - r7, pc})`
62			`sub r2, r2, #8`
63
64			`acornscsi_in4: adds r2, r2, #4`
65			`bmi acornscsi_in2`
66			`ldmia r0!, {r3, r4}`
67			`and r3, r3, lr`
68			`orr r3, r3, r4, lsl #16`
69			`str r3, [r1], #4`
70			`LOADREGS(eqfd, sp!, {r4 - r7, pc})`
71			`sub r2, r2, #4`
72
73			`acornscsi_in2: adds r2, r2, #2`
74			`ldr r3, [r0], #4`
75			`and r3, r3, lr`
76			`strb r3, [r1], #1`
77			`mov r3, r3, lsr #8`
78			`strplb r3, [r1], #1`
79			`LOADREGS(fd, sp!, {r4 - r7, pc})`
80
81			`@ Purpose: transfer a block of data from memory to the acorn scsi card`
82			`@ Proto : void acornscsi_in(unsigned int addr_start, char *buffer, int length)`
83			`@ Returns: nothing`
84
85			`ENTRY(__acornscsi_out)`
86			`stmfd sp!, {r4 - r6, lr}`
87			`bic r0, r0, #3`
88			`acornscsi_out16lp:`
89			`subs r2, r2, #16`
90			`bmi acornscsi_out8`
91			`ldmia r1!, {r4, r6, ip, lr}`
92			`mov r3, r4, lsl #16`
93			`orr r3, r3, r3, lsr #16`
94			`mov r4, r4, lsr #16`
95			`orr r4, r4, r4, lsl #16`
96			`mov r5, r6, lsl #16`
97			`orr r5, r5, r5, lsr #16`
98			`mov r6, r6, lsr #16`
99			`orr r6, r6, r6, lsl #16`
100			`stmia r0!, {r3, r4, r5, r6}`
101			`mov r3, ip, lsl #16`
102			`orr r3, r3, r3, lsr #16`
103			`mov r4, ip, lsr #16`
104			`orr r4, r4, r4, lsl #16`
105			`mov ip, lr, lsl #16`
106			`orr ip, ip, ip, lsr #16`
107			`mov lr, lr, lsr #16`
108			`orr lr, lr, lr, lsl #16`
109			`stmia r0!, {r3, r4, ip, lr}`
110			`bne acornscsi_out16lp`
111			`LOADREGS(fd, sp!, {r4 - r6, pc})`
112
113			`acornscsi_out8: adds r2, r2, #8`
114			`bmi acornscsi_out4`
115			`ldmia r1!, {r4, r6}`
116			`mov r3, r4, lsl #16`
117			`orr r3, r3, r3, lsr #16`
118			`mov r4, r4, lsr #16`
119			`orr r4, r4, r4, lsl #16`
120			`mov r5, r6, lsl #16`
121			`orr r5, r5, r5, lsr #16`
122			`mov r6, r6, lsr #16`
123			`orr r6, r6, r6, lsl #16`
124			`stmia r0!, {r3, r4, r5, r6}`
125			`LOADREGS(eqfd, sp!, {r4 - r6, pc})`
126
127			`sub r2, r2, #8`
128			`acornscsi_out4: adds r2, r2, #4`
129			`bmi acornscsi_out2`
130			`ldr r4, [r1], #4`
131			`mov r3, r4, lsl #16`
132			`orr r3, r3, r3, lsr #16`
133			`mov r4, r4, lsr #16`
134			`orr r4, r4, r4, lsl #16`
135			`stmia r0!, {r3, r4}`
136			`LOADREGS(eqfd, sp!, {r4 - r6, pc})`
137
138			`sub r2, r2, #4`
139			`acornscsi_out2: adds r2, r2, #2`
140			`ldr r3, [r1], #2`
141			`strb r3, [r0], #1`
142			`mov r3, r3, lsr #8`
143			`strplb r3, [r0], #1`
144			`LOADREGS(fd, sp!, {r4 - r6, pc})`
145

Browse

Tools

Subversion Repositories or1k

[/] [or1k/] [trunk/] [linux/] [linux-2.4/] [drivers/] [acorn/] [scsi/] [acornscsi-io.S] - Blame information for rev 1765