r1685 - cpu/x86/pc/olpc

Author: wmb
Date: 2010-01-23 05:42:37 +0100 (Sat, 23 Jan 2010)
New Revision: 1685

Modified:
   cpu/x86/pc/olpc/disptest.fth
Log:
OLPC display test - in final-test mode, wait for the operator to type
a key to cycle from one test to the next.

Modified: cpu/x86/pc/olpc/disptest.fth
===================================================================
--- cpu/x86/pc/olpc/disptest.fth	2010-01-22 08:25:04 UTC (rev 1684)
+++ cpu/x86/pc/olpc/disptest.fth	2010-01-23 04:42:37 UTC (rev 1685)
@@ -154,14 +154,27 @@
    load-base  whole-screen  fill-rect
 ;
 : hold-time  ( -- )
-   smt-test?  if  d# 500 ms  else  d# 1000 ms  then
+   smt-test?  if
+      d# 500 ms
+   else
+      final-test?  if  d# 500 ms  else  d# 1000 ms  then
+   then
 ;
+
+: hold-time2  ( -- )
+   smt-test?  if
+      d# 500 ms
+   else
+      final-test?  if  key drop  then
+      d# 1000 ms
+   then
+;
 : wait  ( -- )
    hold-time
    0 set-source \ Freeze image
    hold-time
    1 set-source \ Unfreeze image
-   hold-time
+   hold-time2
 ;

warning @ warning off