Author: wmb
Date: 2007-08-31 09:52:04 +0200 (Fri, 31 Aug 2007)
New Revision: 595
Modified:
cpu/x86/pc/olpc/setwp.fth
Log:
Added clear-wp capability.
Modified: cpu/x86/pc/olpc/setwp.fth
===================================================================
--- cpu/x86/pc/olpc/setwp.fth 2007-08-31 07:45:02 UTC (rev 594)
+++ cpu/x86/pc/olpc/setwp.fth 2007-08-31 07:52:04 UTC (rev 595)
@@ -3,6 +3,10 @@
\ should not be necessary once mass production systems start coming from
\ the factor with the "wp" tag set.
+\ You can turn "ww" into "wp" just by clearing bits, which doesn't
+\ require a full erase. That is faster and safer than copying out the
+\ data, erasing the block and rewriting it.
+
: set-wp ( -- )
h# fffefffe 2 " wp" $= if ." wp is already set" cr exit then
h# fffefffe 2 " ww" $= 0= abort" No ww tag"
@@ -11,3 +15,49 @@
h# fffefffe 2 " wp" $= if ." Succeeded" cr then
spi-reprogrammed
;
+
+\ Set and clear the write-protect tag by copying, erasing, rewriting
+
+\ Read mfg data from FLASH to RAM
+: get-mfg-data ( -- )
+ rom-pa mfg-data-offset + mfg-data-buf /flash-block lmove
+;
+
+\ Write mfg data from RAM to FLASH
+: put-mfg-data ( -- )
+ spi-start spi-identify
+ mfg-data-buf mfg-data-end-offset mfg-data-offset write-flash-range
+;
+
+\ Find RAM address of tag, given FLASH address
+: tag>ram-adr ( adr len -- ram-adr )
+ drop 2+ ( adr' ) \ Address of "ww" tag
+ rom-pa mfg-data-offset + - ( offset )
+
+ dup /flash-block u>= abort" Bad ww offset" \ Sanity check
+
+ mfg-data-buf + ( ram-adr )
+;
+
+\ Get ready to modify the tag whose name is tag$
+: mfg-data-setup ( tag$ -- ram-adr )
+ get-mfg-data
+ 2dup find-tag 0= if ." No " type ." tag" cr abort then ( tag$ adr len )
+ tag>ram-adr >r ( tag$ r: ram-adr )
+ r@ 2 $= 0= abort" Tag mismatch in RAM" ( r: ram-adr )
+ r>
+;
+
+\ Change the "ww" tag to "wp"
+: hard-set-wp ( -- )
+ " ww" mfg-data-setup ( ram-adr )
+ [char] p swap 1+ c! ( )
+ put-mfg-data
+;
+
+\ Change the "wp" tag to "ww"
+: clear-wp ( -- )
+ " wp" mfg-data-setup ( ram-adr )
+ [char] w swap 1+ c! ( )
+ put-mfg-data
+;
Does anyone happen to know what the dictionary size upper limit
(for openbios) is hardcoded to per device instance?
_____________
Äsif Haswaréy
QLogic Corporation
Segher Boessenkool wrote:
>
>Some Open Firmware implementations have a special FCode x'f4 which
>allows FCode#s up to x'ffff; x'f4 followed by "high" byte, "low" byte.
SmartFirmware currently doesn't allow Fcodes greater than 0xFFF, as per
the (current) spec. But that's only for tokenizing, so that the
resulting image file is 1275-compliant. SF's internal Forth
execution-token representation is mostly Fcode to save memory.
Forth toks that aren't tokenzied/fcodes are limited to 0x3FFF_FFFF. The
vendor-specific marker 0x6 is used to indicate a token value greater
than 0xfff. 2 additional bytes for values 0x1000:0x7fff, 3 more bytes
for 0x8000:0x3fffff, and 4 bytes for 0x400000:0x3fffffff.
The 1st MSB bits of the byte after the 0x06 indicates 4, 3, or 2
additional bytes: 0xC0 == 4; 0x80 == 3; else 2. No reason that
some scheme like this couldn't be used for extending Fcodes too.
(SF also uses the vendor-specific range codes 0x7* as a sort of prefix
for internal use. It's also not used for tokenizing.)
Anyway, just throwing this out, for what it's worth.
--
__
/__)_ _ _ _ "For three days after death hair and fingernails continue
/ (// (/(/ to grow but phone calls taper off." -- Johnny Carson
_/
Author: wmb
Date: 2007-08-31 03:15:01 +0200 (Fri, 31 Aug 2007)
New Revision: 591
Added:
cpu/x86/pc/olpc/setwp.fth
Log:
Added "setwp.fth" file.
Added: cpu/x86/pc/olpc/setwp.fth
===================================================================
--- cpu/x86/pc/olpc/setwp.fth (rev 0)
+++ cpu/x86/pc/olpc/setwp.fth 2007-08-31 01:15:01 UTC (rev 591)
@@ -0,0 +1,14 @@
+\ Set the write protect tag. This is used to convert unlocked prototype
+\ machined to locked machines for testing the firmware security. This
+\ should not be necessary once mass production systems start coming from
+\ the factor with the "wp" tag set.
+
+: set-wp ( -- )
+ h# fffefffe 2 " wp" $= if ." wp is already set" cr exit then
+ h# fffefffe 2 " ww" $= 0= abort" No ww tag"
+ spi-start spi-identify
+ " wp" h# efffe write-spi-flash
+ h# fffefffe 2 " wp" $= if ." Succeeded" cr then
+ spi-reprogrammed
+;
+set-wp
