[OpenBIOS] r646 - dev/olpc/cafenand
svn at openbios.org
svn at openbios.org
Sat Sep 29 21:16:30 CEST 2007
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.
More information about the OpenBIOS
mailing list