r646 - dev/olpc/cafenand

Author: wmb
Date: 2007-09-29 21:16:30 +0200 (Sat, 29 Sep 2007)
New Revision: 646

Modified:
   dev/olpc/cafenand/selftest.fth
Log:
CaFe NAND selftest - added some messages detailing which failure modes occurred.

Modified: dev/olpc/cafenand/selftest.fth
===================================================================
--- dev/olpc/cafenand/selftest.fth	2007-09-29 19:12:46 UTC (rev 645)
+++ dev/olpc/cafenand/selftest.fth	2007-09-29 19:16:30 UTC (rev 646)
@@ -51,17 +51,19 @@
 ;
 : read-eblock  ( adr page# -- error? )
    pages/eblock read-blocks pages/eblock <>
+   dup  if  ." SAVE" cr  then
 ;
 : write-eblock  ( adr page# -- error? )
    dup erase-block
    pages/eblock write-blocks pages/eblock <>
+   dup  if  ." RESTORE" cr  then
 ;
 : test-eblock  ( page# pattern -- error? )
    obuf erase-size 2 pick      fill
    ibuf erase-size rot invert  fill
-   obuf over write-eblock  if  drop true exit  then
-   ibuf swap read-eblock   if  true exit  then
-   ibuf obuf erase-size comp
+   obuf over write-eblock  if  ." WRITE " obuf c@ . cr  drop true exit  then
+   ibuf swap read-eblock   if  ." READ " obuf c@ . cr true exit  then
+   ibuf obuf erase-size comp  dup if  ." COMP " obuf c@ . cr  then
 ;

\ Destroy content of flash.  No argument.