[openfirmware] r1023 - cpu/x86/pc/olpc

[svn at openfirmware.info]

Author: wmb
Date: 2008-12-05 00:59:50 +0100 (Fri, 05 Dec 2008)
New Revision: 1023

Modified:
   cpu/x86/pc/olpc/nandcastui.fth
   cpu/x86/pc/olpc/wifichannel.fth
Log:
OLPC - tweaks to the NANDblaster command line UI.

Modified: cpu/x86/pc/olpc/nandcastui.fth
===================================================================
--- cpu/x86/pc/olpc/nandcastui.fth	2008-12-04 09:26:55 UTC (rev 1022)
+++ cpu/x86/pc/olpc/nandcastui.fth	2008-12-04 23:59:50 UTC (rev 1023)
@@ -40,7 +40,7 @@
    >r 2>r                             ( placement-filename$ r: channel# image-filename$ )
    $file-to-mem                       ( spec$ r: channel# image-filename$ )
    swap  redundancy  2r> r>           ( speclen specadr redundancy image-filename$ channel# )
-   " rom:nb_tx ether:%d %s 131072 %d %d %d" sprintf boot-load go
+   " rom:nb_tx ether:%d %s %d 131072 %d %d" sprintf boot-load go
 ;
 : #nb-secure  ( zip-filename$ image-filename$ channel# -- )
    depth 5 < abort" #nb-secure-update - too few arguments"
@@ -48,7 +48,7 @@
    load-read  sig$ ?save-string swap  ( siglen sigadr r: channel# image-filename$ )
    img$ ?save-string swap             ( siglen sigadr speclen specadr r: channel# image-filename$ )
    redundancy  2r> r>                 ( siglen sigadr speclen specadr redundancy image-filename$ channel# )
-   " rom:nb_tx ether:%d %s 131072 %d %d %d %d %d" sprintf boot-load go
+   " rom:nb_tx ether:%d %s %d 131072 %d %d %d %d" sprintf boot-load go
 ;
 : t1  " u:\os767.plc" " u:\os767.img" d# 11 #nb-update  ;
 : t2  " u:\fs.zip" " u:\os767.img" d# 11 #nb-secure  ;

Modified: cpu/x86/pc/olpc/wifichannel.fth
===================================================================
--- cpu/x86/pc/olpc/wifichannel.fth	2008-12-04 09:26:55 UTC (rev 1022)
+++ cpu/x86/pc/olpc/wifichannel.fth	2008-12-04 23:59:50 UTC (rev 1023)
@@ -112,6 +112,7 @@
    find-multinand-server abort" No multicast NAND server"  ( chan# )
    #nb
 ;
+alias nb nandblaster
 
 d# 10 constant rssi-threshold
 : nb-clone  ( -- )