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