r403 - cpu/x86/pc/olpc

Author: wmb
Date: 2007-05-20 06:31:54 +0200 (Sun, 20 May 2007)
New Revision: 403

Modified:
   cpu/x86/pc/olpc/copynand.fth
Log:
save-nand - Now can write to raw disks.

Modified: cpu/x86/pc/olpc/copynand.fth
===================================================================
--- cpu/x86/pc/olpc/copynand.fth	2007-05-19 02:01:40 UTC (rev 402)
+++ cpu/x86/pc/olpc/copynand.fth	2007-05-20 04:31:54 UTC (rev 403)
@@ -162,9 +162,17 @@
    cr ." Dumping to " 2dup type  cr

2dup ['] $delete  catch  if  2drop  then  ( name$ )
-   $create-file to fileih
+   2dup ['] $create-file  catch  if
+      2drop
+      " Can't open a file.  Try using the raw disk?" confirm  if
+         open-file
+      else
+         2drop 0
+      then
+   then
+   to fileih

-   fileih 0=  if  nandih close-dev  true abort" Can't open file"  then
+   fileih 0=  if  nandih close-dev  true abort" Can't open output"  then

\ The stack is empty at the end of each line unless otherwise noted
    #nand-pages  0  do