| Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 1 | /* | 
 | 2 |  *  linux/arch/arm/lib/io-writesw-armv3.S | 
 | 3 |  * | 
 | 4 |  *  Copyright (C) 1995-2000 Russell King | 
 | 5 |  * | 
 | 6 |  * This program is free software; you can redistribute it and/or modify | 
 | 7 |  * it under the terms of the GNU General Public License version 2 as | 
 | 8 |  * published by the Free Software Foundation. | 
 | 9 |  */ | 
 | 10 | #include <linux/linkage.h> | 
 | 11 | #include <asm/assembler.h> | 
 | 12 | #include <asm/hardware.h> | 
 | 13 |  | 
| Nicolas Pitre | a9c4814 | 2005-11-11 21:51:48 +0000 | [diff] [blame] | 14 | .Loutsw_bad_alignment: | 
 | 15 | 		adr	r0, .Loutsw_bad_align_msg | 
| Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 16 | 		mov	r2, lr | 
 | 17 | 		b	panic | 
| Nicolas Pitre | a9c4814 | 2005-11-11 21:51:48 +0000 | [diff] [blame] | 18 | .Loutsw_bad_align_msg: | 
| Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 19 | 		.asciz	"outsw: bad buffer alignment (0x%p, lr=0x%08lX)\n" | 
 | 20 | 		.align | 
 | 21 |  | 
| Nicolas Pitre | a9c4814 | 2005-11-11 21:51:48 +0000 | [diff] [blame] | 22 | .Loutsw_align:	tst	r1, #1 | 
 | 23 | 		bne	.Loutsw_bad_alignment | 
| Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 24 |  | 
 | 25 | 		add	r1, r1, #2 | 
 | 26 |  | 
 | 27 | 		ldr	r3, [r1, #-4] | 
 | 28 | 		mov	r3, r3, lsr #16 | 
 | 29 | 		orr	r3, r3, r3, lsl #16 | 
 | 30 | 		str	r3, [r0] | 
 | 31 | 		subs	r2, r2, #1 | 
| Russell King | 7999d8d | 2006-06-25 11:17:23 +0100 | [diff] [blame] | 32 | 		moveq	pc, lr | 
| Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 33 |  | 
 | 34 | ENTRY(__raw_writesw) | 
 | 35 | 		teq	r2, #0		@ do we have to check for the zero len? | 
 | 36 | 		moveq	pc, lr | 
 | 37 | 		tst	r1, #3 | 
| Nicolas Pitre | a9c4814 | 2005-11-11 21:51:48 +0000 | [diff] [blame] | 38 | 		bne	.Loutsw_align | 
| Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 39 |  | 
| Nicolas Pitre | a9c4814 | 2005-11-11 21:51:48 +0000 | [diff] [blame] | 40 | 		stmfd	sp!, {r4, r5, r6, lr} | 
| Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 41 |  | 
 | 42 | 		subs	r2, r2, #8 | 
| Nicolas Pitre | a9c4814 | 2005-11-11 21:51:48 +0000 | [diff] [blame] | 43 | 		bmi	.Lno_outsw_8 | 
| Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 44 |  | 
| Nicolas Pitre | a9c4814 | 2005-11-11 21:51:48 +0000 | [diff] [blame] | 45 | .Loutsw_8_lp:	ldmia	r1!, {r3, r4, r5, r6} | 
| Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 46 |  | 
 | 47 | 		mov	ip, r3, lsl #16 | 
 | 48 | 		orr	ip, ip, ip, lsr #16 | 
 | 49 | 		str	ip, [r0] | 
 | 50 |  | 
 | 51 | 		mov	ip, r3, lsr #16 | 
 | 52 | 		orr	ip, ip, ip, lsl #16 | 
 | 53 | 		str	ip, [r0] | 
 | 54 |  | 
 | 55 | 		mov	ip, r4, lsl #16 | 
 | 56 | 		orr	ip, ip, ip, lsr #16 | 
 | 57 | 		str	ip, [r0] | 
 | 58 |  | 
 | 59 | 		mov	ip, r4, lsr #16 | 
 | 60 | 		orr	ip, ip, ip, lsl #16 | 
 | 61 | 		str	ip, [r0] | 
 | 62 |  | 
 | 63 | 		mov	ip, r5, lsl #16 | 
 | 64 | 		orr	ip, ip, ip, lsr #16 | 
 | 65 | 		str	ip, [r0] | 
 | 66 |  | 
 | 67 | 		mov	ip, r5, lsr #16 | 
 | 68 | 		orr	ip, ip, ip, lsl #16 | 
 | 69 | 		str	ip, [r0] | 
 | 70 |  | 
 | 71 | 		mov	ip, r6, lsl #16 | 
 | 72 | 		orr	ip, ip, ip, lsr #16 | 
 | 73 | 		str	ip, [r0] | 
 | 74 |  | 
 | 75 | 		mov	ip, r6, lsr #16 | 
 | 76 | 		orr	ip, ip, ip, lsl #16 | 
 | 77 | 		str	ip, [r0] | 
 | 78 |  | 
 | 79 | 		subs	r2, r2, #8 | 
| Nicolas Pitre | a9c4814 | 2005-11-11 21:51:48 +0000 | [diff] [blame] | 80 | 		bpl	.Loutsw_8_lp | 
| Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 81 |  | 
 | 82 | 		tst	r2, #7 | 
| Russell King | 1b93a71 | 2006-06-25 11:23:45 +0100 | [diff] [blame] | 83 | 		ldmeqfd	sp!, {r4, r5, r6, pc} | 
| Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 84 |  | 
| Nicolas Pitre | a9c4814 | 2005-11-11 21:51:48 +0000 | [diff] [blame] | 85 | .Lno_outsw_8:	tst	r2, #4 | 
 | 86 | 		beq	.Lno_outsw_4 | 
| Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 87 |  | 
 | 88 | 		ldmia	r1!, {r3, r4} | 
 | 89 |  | 
 | 90 | 		mov	ip, r3, lsl #16 | 
 | 91 | 		orr	ip, ip, ip, lsr #16 | 
 | 92 | 		str	ip, [r0] | 
 | 93 |  | 
 | 94 | 		mov	ip, r3, lsr #16 | 
 | 95 | 		orr	ip, ip, ip, lsl #16 | 
 | 96 | 		str	ip, [r0] | 
 | 97 |  | 
 | 98 | 		mov	ip, r4, lsl #16 | 
 | 99 | 		orr	ip, ip, ip, lsr #16 | 
 | 100 | 		str	ip, [r0] | 
 | 101 |  | 
 | 102 | 		mov	ip, r4, lsr #16 | 
 | 103 | 		orr	ip, ip, ip, lsl #16 | 
 | 104 | 		str	ip, [r0] | 
 | 105 |  | 
| Nicolas Pitre | a9c4814 | 2005-11-11 21:51:48 +0000 | [diff] [blame] | 106 | .Lno_outsw_4:	tst	r2, #2 | 
 | 107 | 		beq	.Lno_outsw_2 | 
| Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 108 |  | 
 | 109 | 		ldr	r3, [r1], #4 | 
 | 110 |  | 
 | 111 | 		mov	ip, r3, lsl #16 | 
 | 112 | 		orr	ip, ip, ip, lsr #16 | 
 | 113 | 		str	ip, [r0] | 
 | 114 |  | 
 | 115 | 		mov	ip, r3, lsr #16 | 
 | 116 | 		orr	ip, ip, ip, lsl #16 | 
 | 117 | 		str	ip, [r0] | 
 | 118 |  | 
| Nicolas Pitre | a9c4814 | 2005-11-11 21:51:48 +0000 | [diff] [blame] | 119 | .Lno_outsw_2:	tst	r2, #1 | 
| Linus Torvalds | 1da177e | 2005-04-16 15:20:36 -0700 | [diff] [blame] | 120 |  | 
 | 121 | 		ldrne	r3, [r1] | 
 | 122 |  | 
 | 123 | 		movne	ip, r3, lsl #16 | 
 | 124 | 		orrne	ip, ip, ip, lsr #16 | 
 | 125 | 		strne	ip, [r0] | 
 | 126 |  | 
| Russell King | 1b93a71 | 2006-06-25 11:23:45 +0100 | [diff] [blame] | 127 | 		ldmfd	sp!, {r4, r5, r6, pc} |