blob/src ledasm.S,1.2,1.3

[Stefan E. <se...@us...>]

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

Modified Files:
	ledasm.S 
Log Message:
- added led_blink


Index: ledasm.S
===================================================================
RCS file: /cvsroot/blob/blob/src/ledasm.S,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- ledasm.S	2001/08/06 22:44:52	1.2
+++ ledasm.S	2001/10/04 12:17:37	1.3
@@ -80,3 +80,33 @@
 	ldr	r1, LED
 	str	r1, [r0, #GPCR]
 	mov	pc, lr
+
+.globl led_blink
+	/* blinks LED r2 times. clobbers r0 and r1, changes r2 */
+
+led_blink:
+loop0:
+	/* led off */
+	ldr	r0, GPIO_BASE
+	ldr	r1, LED
+	str	r1, [r0, #GPSR]
+
+	mov	r0, #0x20000
+wloop1:
+	subs r0, r0, #1
+	bne wloop1
+
+	/* led on */
+	ldr	r0, GPIO_BASE
+	ldr	r1, LED
+	str	r1, [r0, #GPCR]
+	
+	mov	r0, #0x20000
+wloop2:
+	subs r0, r0, #1
+	bne wloop2
+
+	subs r2, r2, #1
+	bne loop0
+
+	mov	pc, lr