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
|
