Author: wmb Date: 2007-08-28 01:08:11 +0200 (Tue, 28 Aug 2007) New Revision: 581
Modified: cpu/x86/pc/olpc/spiflash.bth dev/olpc/spiflash/flashec.fth Log: Added flash-ec to spiflash.dic
Modified: cpu/x86/pc/olpc/spiflash.bth =================================================================== --- cpu/x86/pc/olpc/spiflash.bth 2007-08-27 23:07:37 UTC (rev 580) +++ cpu/x86/pc/olpc/spiflash.bth 2007-08-27 23:08:11 UTC (rev 581) @@ -3,17 +3,22 @@ command: &builder &this build-now
-: null$ " " ; +\needs cdump : cdump ( adr len -- ) push-hex bounds ?do i c@ 3 u.r loop pop-base ;
+\needs null$ : null$ " " ; + +h# fff0.0000 constant rom-pa + fload ${BP}/cpu/x86/pc/olpc/linuxserial.fth fload ${BP}/cpu/x86/ioports.fth \ I/O port access under Linux
+alias root-map-in mmap ( phys len -- virt ) +alias root-map-out munmap ( virt len -- ) + fload ${BP}/cpu/x86/crc32.fth \ Assembly language Zip CRC calculation fload ${BP}/forth/lib/crc32.fth \ High-level portion of CRC calculation +fload ${BP}/forth/lib/wrtime.fth \ Time delays via the wrapper
-: us ( microseconds -- ) drop ; -: ms ( milliseconds -- ) drop ; - : power-off ( -- ) " sync" $sh " kbc-on" eval ;
hex @@ -30,6 +35,7 @@ fload ${BP}/dev/olpc/kb3700/ecserial.fth fload ${BP}/cpu/x86/pc/olpc/mfgdata.fth fload ${BP}/dev/olpc/spiflash/spiui.fth +fload ${BP}/dev/olpc/spiflash/flashec.fth
: os-fw-filename$ ( -- adr len ) " olpc.rom" ;
@@ -63,7 +69,11 @@ ." Verification over the serial line is slow (17 minutes)" cr ." so you might want to skip it and let the" cr ." loaded image verify itself upon booting." cr + ." cr + ." flash-ec filename \ Programs the EC FLASH from the named file + + cr ;
' usage to title
Modified: dev/olpc/spiflash/flashec.fth =================================================================== --- dev/olpc/spiflash/flashec.fth 2007-08-27 23:07:37 UTC (rev 580) +++ dev/olpc/spiflash/flashec.fth 2007-08-27 23:08:11 UTC (rev 581) @@ -2,11 +2,13 @@ \ This will cause the overall CRC near the end of the FLASH to be wrong, \ but that won't prevent the system from working.
-.( EC FLASH Program. Example: ok flash-ec disk:\PQ2B31.bin) cr +\ .( EC FLASH Program. Example: ok flash-ec disk:\PQ2B31.bin) cr
+h# 1.0000 constant /ec + : flash-ec ( "filename" -- ) reading - ec-buf /ec ifd @ fgets ( len ) + flash-buf /ec ifd @ fgets ( len ) ifd @ fclose
/ec <> abort" EC image file is the wrong length" @@ -14,7 +16,7 @@ spi-start spi-identify .spi-id cr
- merge-mfg-data + \ merge-mfg-data
flash-buf /ec 0 write-flash-range \ Write everything ;