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 ( -- )