[openfirmware] [commit] r3451 - cpu/arm/olpc/cl4
repository service
svn at openfirmware.info
Thu Nov 22 08:13:48 CET 2012
Author: quozl
Date: Thu Nov 22 08:13:47 2012
New Revision: 3451
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3451
Log:
OLPC XO-4 - LEDs selftest, try to light all LEDs together until spacebar is pressed, or ten seconds has elapsed.
Modified:
cpu/arm/olpc/cl4/leds.fth
Modified: cpu/arm/olpc/cl4/leds.fth
==============================================================================
--- cpu/arm/olpc/cl4/leds.fth Wed Nov 21 00:28:09 2012 (r3450)
+++ cpu/arm/olpc/cl4/leds.fth Thu Nov 22 08:13:47 2012 (r3451)
@@ -26,18 +26,34 @@
: hdd-led-on ( -- ) led-storage-gpio# gpio-set ;
: hdd-led-toggle ( -- ) led-storage-gpio# gpio-pin@ if hdd-led-off else hdd-led-on then ;
-: selftest ( -- )
- ." Flashing LEDs" cr
-
- d# 10 0 do ols-led-on d# 200 ms ols-led-off d# 200 ms loop
+: (cycle)
+ ols-led-on
+ d# 100 ms
+ hdd-led-on
+ " /wlan:quiet" test-dev
+ d# 100 ms
+ ols-led-off
ols-led-ec-control
ols-assy-mode-on
-
- " /wlan:quiet" test-dev " /wlan:quiet" test-dev \ Twice for longer flashing
-
- d# 20 0 do hdd-led-on d# 100 ms hdd-led-off d# 100 ms loop
+ d# 100 ms
+ hdd-led-off
ols-assy-mode-off
+ d# 100 ms
+;
+
+: (selftest)
+ get-msecs d# 10000 + ( limit )
+ begin
+ (cycle)
+ key? if drop exit then
+ dup get-msecs - 0< ( limit timeout? )
+ until ( limit )
+ drop ( )
+;
+: selftest ( -- error? )
+ ." Testing LEDs" cr
+ (selftest)
confirm-selftest?
;
More information about the openfirmware
mailing list