blob/src ledasm.S,1.1.2.2,1.1.2.3

[Erik M. <er...@us...>]

Update of /cvsroot/blob/blob/src
In directory usw-pr-cvs1:/tmp/cvs-serv30887

Modified Files:
      Tag: blob_1_0_9_hack
	ledasm.S 
Log Message:
- add functions to switch the LED on and off
- minor cleanup


Index: ledasm.S
===================================================================
RCS file: /cvsroot/blob/blob/src/Attic/ledasm.S,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -u -r1.1.2.2 -r1.1.2.3
--- ledasm.S	2001/07/16 14:55:07	1.1.2.2
+++ ledasm.S	2001/07/16 23:19:40	1.1.2.3
@@ -18,6 +18,13 @@
  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  *
  */
+/*
+ * Documentation:
+ * [1] Intel Corporation, "Intel StrongARM SA-1100 Microprocessor
+ *     Developer's Manual", April 1999
+ * [2] Intel Corporation, "Intel StrongARM SA-1110 Microprocessor
+ *     Advanced Developer's manual, December 1999
+ */
 
 .ident "$Id$"
 
@@ -45,15 +52,44 @@
 #warning "FIXME: Include code to turn on one of the LEDs on your board"
 #endif
 
-GPIO_BASE:	.long 0x90040000
 
+
+GPIO_BASE:	.long 0x90040000
+#define	GPDR	0x00000004
+#define GPSR	0x00000008
+#define GPCR	0x0000000c
 	
 	
 	
 .globl ledinit
+	/* initialise LED GPIO and turn LED on.
+	 * clobbers r0 and r1
+	 */
 ledinit:
 	ldr	r0, GPIO_BASE
+	ldr	r1, LED
+	str	r1, [r0, #GPDR]		/* LED GPIO is output */
+	str	r1, [r0, #GPSR]		/* turn LED on */
+	mov	pc, lr
+
+
+
+
+.globl led_on
+	/* turn LED on. clobbers r0 and r1 */
+led_on:
+	ldr	r0, GPIO_BASE
+	ldr	r1, LED
+	str	r1, [r0, #GPSR]
+	mov	pc, lr
+
+
+
+
+.globl led_off
+	/* turn LED off. clobbers r0 and r1 */
+led_off:
+	ldr	r0, GPIO_BASE
 	ldr	r1, LED
-	str	r1, [r0, #0x04]		/* write GPDR (LED GPIO is output) */
-	str	r1, [r0, #0x08]		/* write GPSR to turn LED on */
-	mov	pc,lr
+	str	r1, [r0, #GPCR]
+	mov	pc, lr