Changeset 3451

Timestamp:

Nov 22, 2012 8:13:47 AM (6 months ago)

Author:

quozl

Message:

OLPC XO-4 - LEDs selftest, try to light all LEDs together until spacebar is pressed, or ten seconds has elapsed.

File:

• cpu/arm/olpc/cl4/leds.fth (modified) (1 diff)

cpu/arm/olpc/cl4/leds.fth

@@ -27 +27 @@
 : 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
+   d# 100 ms
+   hdd-led-off
+   ols-assy-mode-off
+   d# 100 ms
+;
 
-   " /wlan:quiet" test-dev  " /wlan:quiet" test-dev  \ Twice for longer flashing
+: (selftest)
+   get-msecs d# 10000 +                 ( limit )
+   begin
+      (cycle)
+      key?  if  drop exit  then
+      dup get-msecs -  0<               ( limit timeout? )
+   until                                ( limit )
+   drop                                 ( )
+;
 
-   d# 20 0 do  hdd-led-on d# 100 ms hdd-led-off d# 100 ms  loop
-   ols-assy-mode-off
-
+: selftest  ( -- error? )
+   ." Testing LEDs" cr
+   (selftest)
    confirm-selftest?
 ;