r1575 - cpu/x86/pc/olpc/via

Author: wmb
Date: 2009-12-11 07:21:05 +0100 (Fri, 11 Dec 2009)
New Revision: 1575

Modified:
   cpu/x86/pc/olpc/via/factory.fth
Log:
OLPC Via - made diagnostic-mode? return the test-station value so selftests can distinguish the phases.

Modified: cpu/x86/pc/olpc/via/factory.fth
===================================================================
--- cpu/x86/pc/olpc/via/factory.fth	2009-12-11 06:19:28 UTC (rev 1574)
+++ cpu/x86/pc/olpc/via/factory.fth	2009-12-11 06:21:05 UTC (rev 1575)
@@ -3,7 +3,7 @@

0 value test-station
 : smt-test?    ( -- )  test-station 1 =  ;
-: final-test?  ( -- )  test-station 5 =  ;
+: final-test?  ( -- )  test-station 4 5 between  ;
 : decode-ts  ( adr len -- station# )
    2dup " SMT"    $=  if  2drop 1 exit  then
    2dup " ASSY"   $=  if  2drop 2 exit  then
@@ -25,6 +25,9 @@
       0                       ( station# )
    then                       ( station# )
    to test-station
+   test-station 6 <>  if
+      ['] test-station to (diagnostic-mode?)
+   then
 ;

: set-boot-device  ( -- )