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.