[openfirmware] r1685 - cpu/x86/pc/olpc
svn at openfirmware.info
svn at openfirmware.info
Sat Jan 23 05:42:38 CET 2010
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
More information about the openfirmware
mailing list