openfirmware October 2011

openfirmware@openfirmware.info

1 participants
103 discussions

[commit] r2618 - cpu/x86/pc/olpc/via/Notes
by repository service 16 Oct '11

16 Oct '11

Author: wmb Date: Sun Oct 16 02:28:19 2011 New Revision: 2618 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2618 Log: Checked in via/Notes/hdd-led-gpio.patch in case we need it. Added: cpu/x86/pc/olpc/via/Notes/hdd-led-gpio.patch Added: cpu/x86/pc/olpc/via/Notes/hdd-led-gpio.patch ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/x86/pc/olpc/via/Notes/hdd-led-gpio.patch Sun Oct 16 02:28:19 2011 (r2618) @@ -0,0 +1,49 @@ +Index: cpu/x86/pc/olpc/via/devices.fth +=================================================================== +--- cpu/x86/pc/olpc/via/devices.fth (revision 2605) ++++ cpu/x86/pc/olpc/via/devices.fth (working copy) +@@ -66,6 +66,44 @@ + fload ${BP}/dev/pci/isamisc.fth + end-package + ++\ to be placed in new file via/gpio.fth ++\ floaded by via/devices.fth ++\ This implements the HDD LED in the form expected by Linux. ++\ See Documentation/devicetree/bindings/gpio/led.txt ++0 0 " i44b" " /isa" begin-package ++ " gpios" device-name ++ " via,vx855-gpio" +compatible ++ 0 0 " gpio-controller" property ++ 2 " #gpio-cells" integer-property ++ my-address my-space 8 reg ++end-package ++ ++0 0 " " " /" begin-package ++ " gpio-leds" device-name ++ " gpio-leds" +compatible ++ ++ new-device ++ " hdd" device-name ++ " mmc2" " linux,default-trigger" string-property ++ \ gpios property will be added later to avoid relocation/byte-order issues ++ \ with embedding phandles in property values ++ finish-device ++end-package ++ ++\ Create a "gpios" property in the child node. The ++: make-gpios-property ( flags gpio# child-node$ -- ) ++ find-device ( n1 n0 ) ++ " /isa/gpios" locate-device abort" Can't find gpios" ( n1 n0 phandle ) ++ encode-int rot encode-int encode+ rot encode-int encode+ " gpios" property ++ device-end ++; ++ ++stand-init: gpios properties ++ \ HDD LED is on GPIO38 as seen by Linux ++ \ which is GPIO11 in VIA docs. It is active low. ++ 1 d# 38 " /gpio-leds/hdd" make-gpios-property ++; ++ + fload ${BP}/cpu/x86/pc/olpc/timertest.fth \ Selftest for PIT timer + + warning @ warning off

1 0

[commit] r2617 - dev
by repository service 16 Oct '11

16 Oct '11

Author: wmb Date: Sun Oct 16 02:26:37 2011 New Revision: 2617 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2617 Log: lpcflash.fth - write-enable the block if necessary. Modified: dev/lpcflash.fth Modified: dev/lpcflash.fth ============================================================================== --- dev/lpcflash.fth Sun Oct 16 02:24:57 2011 (r2616) +++ dev/lpcflash.fth Sun Oct 16 02:26:37 2011 (r2617) @@ -78,10 +78,17 @@ \ software locking, while SST47LF080A (LPC version) does not. Writing \ the lock register addresses is innocuous on the ones without locking. -: write-enable-block ( offset -- ) +: (write-enable-block) ( offset -- ) h# ffff invert and 2 or ( we-offset ) regs-adr + 0 swap c! ; +: write-enable-block ( offset -- ) + regs-adr if + (write-enable-block) + else + map-regs (write-enable-block) unmap-regs + then +; : write-setup ( -- ) h# aa jedec! h# 55 h# 2aaa >lpc-adr c! ; @@ -125,6 +132,7 @@ ; : flash-write ( adr len offset -- ) + dup write-enable-block ( adr len offset ) -rot bounds ?do ( offset ) i c@ over lpc! 1+ ( offset' ) loop ( offset )

1 0

[commit] r2616 - cpu/x86/pc/olpc/via/Notes
by repository service 16 Oct '11

16 Oct '11

Author: wmb Date: Sun Oct 16 02:24:57 2011 New Revision: 2616 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2616 Log: Checked in i8042-forced-reset patch so the code is not lost, in case we need it later. Added: cpu/x86/pc/olpc/via/Notes/i8042-forced-reset.patch Added: cpu/x86/pc/olpc/via/Notes/i8042-forced-reset.patch ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/x86/pc/olpc/via/Notes/i8042-forced-reset.patch Sun Oct 16 02:24:57 2011 (r2616) @@ -0,0 +1,57 @@ +*** i8042.fth 2011-06-29 22:17:18.000000000 -1000 +--- i8042-forced-reset.fth 2011-06-29 22:16:40.000000000 -1000 +*************** +*** 239,246 **** +--- 239,268 ---- + endcase + ." The keyboard '" type ." ' line is stuck " type ." ." cr + false + ; ++ : consume ( -- ) ++ \ Discard any data that is already queued up ++ begin d# 10 ms stat@ out-buf-full and while ++ data@ drop ++ repeat ++ d# 10 ms ++ ; ++ : reset-ps2 ( -- ) ++ consume ++ ++ \ Reset the mouse if the controller is expecting a mouse command ++ stat@ h# 38 = if h# ff data! consume then ++ ++ \ Reset the mouse if the controller is reporting an aux port ready bit ++ stat@ h# 30 = if ++ h# ff h# d4 put-ctlr-cmd2 consume ++ then ++ ++ \ Reset the keyboard just for good measure ++ h# ff data! consume ++ ; ++ + headerless + 0 value open-count + headers + : open ( -- flag? ) +*************** +*** 248,261 **** +--- 270,288 ---- + data-port 0= if + my-address my-space 5 " map-in" $call-parent is data-port + data-port 4 + is cmd-status-reg + ++ [ifdef] notdef + ctlr-selftest if + ctlr-selftest if \ Retry in case we're out of sync + ." Failed keyboard controller self test" cr + false exit + then + then ++ [else] ++ reset-ps2 ++ [then] ++ + q0 init-q q1 init-q + then + true + ;

1 0

[commit] r2615 - cpu/x86/pc/olpc/via/build
by repository service 16 Oct '11

16 Oct '11

Author: wmb Date: Sun Oct 16 02:21:32 2011 New Revision: 2615 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2615 Log: svn ignore Modified: cpu/x86/pc/olpc/via/build/ (props changed)

1 0

[commit] r2614 - cpu/x86/pc/olpc/via/Notes
by repository service 16 Oct '11

16 Oct '11

Author: wmb Date: Sun Oct 16 02:21:05 2011 New Revision: 2614 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2614 Log: XO-1.5 - Checked in some test code. Added: cpu/x86/pc/olpc/via/Notes/make-rtcreset.sig Added: cpu/x86/pc/olpc/via/Notes/make-rtcreset.sig ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/x86/pc/olpc/via/Notes/make-rtcreset.sig Sun Oct 16 02:21:05 2011 (r2614) @@ -0,0 +1,47 @@ +Added an "a2" tag with a test key for which I have the corresponding private key: + +$ cp testkeys/lease.public /e/lease.pub +ok load u:\lease.pub +ok loaded " a2" $add-tag + +Rolled back the clock by one day and verified that it was detected: + +ok now today swap 1- swap clock-node @ iselect set-time iunselect +ok rtc-rollback? . +ffffffff +ok dev /chosen .properties dend + +Got CURRENTRTC value from rtc-timestamp and NONCE value from rtc-count + +$ CURRENTRTC=20110510T200549Z +$ NONCE=0000000132 + +ok .mfg-data + +Got SERIAL-NUMBER from SN +Got UUID from U# + +$ SN=SHC005007B7 +$ UUID=1273E0EC-AEF1-9FF6-45B2-FB706DC24B8D + +Made a newrtc value by decrementing the month + +$ NEWRTC=20110410T200549Z + +$ echo -n ${SN}:${UUID}:${CURRENTRTC}:${NONCE}:${NEWRTC} >signed-data +$ cat signed-data +SHC005007B7:1273E0EC-AEF1-9FF6-45B2-FB706DC24B8D:20110512T003512Z:0000000135:20110412T003512Z +$ cd /space/bios-crypto/build +$ ./sig01 sha256 testkeys/lease signed-data >sig +$ cat sig +sig01: sha256 e842349e413bfd424426bdacd1cb46fd8e6c5e516ed80a8a849f410203010001 7e65d0d158cbe8b891a099900ab0f8a46618a8208203283b13158103e98ff6deebec8bd0f77534c1a30be0484f49f3b31f78eaaa374329240e7735a68e5c55527c927b7e47d97c9b2d6a145f00e7b1fdbe1e1b8a6d6863079f620a3b8f74c166cdec2a68dcc36a0218e0525b1dcbf95d803f81ef60460ba3fadc468c108f1ded5a941b60fd6896fe694d2abf41945242d4cd36ad42979baf911d70b4f73a76d5afe19a9909870ff244833a80b9d470416a37b03fcf85d79feca21dd4ea3b29741a9801ef567769f945badf625068979bc5635a85a012a381bb1344e7645345ed8df5ca4dccda6b0c5050126716e9d9a8dfdb572f0aa286cb1e71e758e58f5b92 +$ echo -n rtc01: ${SN} ${CURRENTRTC} ${NONCE} ${NEWRTC} "" | cat - sig >rtcreset.sig +$ cat rtcreset.sig +rtc01: SHC005007B7 20110512T003512Z 0000000135 20110412T003512Z sig01: sha256 e842349e413bfd424426bdacd1cb46fd8e6c5e516ed80a8a849f410203010001 7e65d0d158cbe8b891a099900ab0f8a46618a8208203283b13158103e98ff6deebec8bd0f77534c1a30be0484f49f3b31f78eaaa374329240e7735a68e5c55527c927b7e47d97c9b2d6a145f00e7b1fdbe1e1b8a6d6863079f620a3b8f74c166cdec2a68dcc36a0218e0525b1dcbf95d803f81ef60460ba3fadc468c108f1ded5a941b60fd6896fe694d2abf41945242d4cd36ad42979baf911d70b4f73a76d5afe19a9909870ff244833a80b9d470416a37b03fcf85d79feca21dd4ea3b29741a9801ef567769f945badf625068979bc5635a85a012a381bb1344e7645345ed8df5ca4dccda6b0c5050126716e9d9a8dfdb572f0aa286cb1e71e758e58f5b92 +$ mount /e; mkdir -p /e/security; cp rtcreset.sig /e/security; umount /e + +ok get-my-sn . date-bad? . load-crypto . +0 0 0 +ok " u:" dn-buf place filesystem-present? . +ffffffff +ok

1 0

[commit] r2613 - cpu/x86/pc/olpc/via/Notes
by repository service 16 Oct '11

16 Oct '11

Author: wmb Date: Sun Oct 16 02:20:39 2011 New Revision: 2613 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2613 Log: XO-1.5 / XO-1.75 - Checked in tools for recovering XO-1.75 EC code from an XO-1.5. Added: cpu/x86/pc/olpc/via/Notes/fix-ec-175-a1.fth cpu/x86/pc/olpc/via/Notes/fix-ec-175.fth Added: cpu/x86/pc/olpc/via/Notes/fix-ec-175-a1.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/x86/pc/olpc/via/Notes/fix-ec-175-a1.fth Sun Oct 16 02:20:39 2011 (r2613) @@ -0,0 +1,15 @@ +\ This runs on an XO-1.5 and lets you repair the EC code on an XO-1.75 A1 +\ The XO-1.75 A1 EC code is stored in an SPI FLASH that can be tethered +\ to the XO-1.5's auxiliary SPI header. + +: fix-ec + use-bb-spi + spi-start + ab-id h# 10 <> abort" Wrong ID" + ['] common-write to flash-write + " ext:\ecimage.bin" $read-open + flash-buf h# 10000 ifd @ fgets + ifd @ fclose + h# 10000 <> abort" Wrong image length" + flash-buf h# 10000 0 write-flash-range +; Added: cpu/x86/pc/olpc/via/Notes/fix-ec-175.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/x86/pc/olpc/via/Notes/fix-ec-175.fth Sun Oct 16 02:20:39 2011 (r2613) @@ -0,0 +1,355 @@ +purpose: Recover EC FLASH on XO-1.75 using cable from XO-1.5 + +\ HOWTO USE THIS +\ Put this file and ecimage.bin (32768 bytes) on a USB stick, insert into XO-1.5 +\ Connect 6-pin programming cable from XO-1.5 recovery driver port (J3) to +\ XO-1.75 A2 EDI "REFLASH EC HEADER" (J3) +\ Power on XO-1.5 +\ Power on XO-1.75 +\ ok fload u:\fixec175.fth +\ ok select /spi +\ ok recover-ec + +dev /spi + +: pio16mhz ( -- ) + h# 01 h# 6c spi-b! \ 33/(2*1) MHz + h# 00 h# 6e spi-b! \ No special clocking + h# 08 h# 6d spi-b! \ Dynamic clock, PIO mode, command posted write off +; +: pio1.5mhz ( -- ) + d# 11 h# 6c spi-b! \ 33/(2*11) = 1.5 MHz + h# 00 h# 6e spi-b! \ No special clocking + h# 08 h# 6d spi-b! \ Dynamic clock, PIO mode, command posted write off +; + +: edi-go ( -- ) + h# 802 spi-cmd! ( ) \ Set go bit + wait-done ( ) \ Wait for done bit + 0 spi-cmd! ( ) \ Clear go bit + \ The go bit must be cleared before clear-done, otherwise clear-done will not work + clear-done ( ) \ Clear done bit +; + +variable access-count 0 access-count ! +variable out-ptr +variable #in-bytes +: spi-cs-on ( -- ) +\ access-count @ 1 = if pio8mhz 2 access-count ! then +\ access-count @ 0= if pio1.5mhz 1 access-count ! then + 8 out-ptr ! 0 #in-bytes ! +; +: spi-out ( b -- ) out-ptr @ spi-b! 1 out-ptr +! ; +: spi-cs-off ( -- ) + out-ptr @ 8 - ( #out-bytes ) + dup 0= if drop exit then ( #out-bytes ) + #in-bytes @ + 8 lshift 2 or spi-cmd! + wait-done + 0 spi-cmd! + clear-done +; +: spi-in ( -- b ) + 1 #in-bytes ! + spi-cs-off + out-ptr @ spi-b@ + 8 out-ptr ! +; + +: edi-wait-b ( -- b ) + 4 #in-bytes ! + spi-cs-off + out-ptr @ #in-bytes @ bounds ?do + i spi-b@ h# 50 = if + i 1+ spi-b@ unloop exit + then + loop + true abort" Did not receive EDI data ready byte" +; + +\ This cheats by assuming how long it takes for the data to return +\ It's interesting as an example of how fast the hardware can go. +: edi-really-fast-next-b@ ( -- b ) + h# 33 8 spi-b! + h# 402 spi-cmd! wait-done + 0 spi-cmd! + clear-done + b spi-b@ +; + + +\ *** Start of verbatim inclusion of edi.fth + +\ The following code depends on externally-privided low-level SPI bus +\ access primitives that are defined in "bbedi.fth" for the "native" +\ case (EC and CPU on the same machine). They can also be implemented +\ for tethered programming from a different machine like an XO-1.5. +\ +\ Low-level primitives: +\ spi-start ( -- ) - Init SPI bus +\ spi-cs-on ( -- ) - Assert SPI-bus CS# +\ spi-cs-off ( -- ) - Deassert SPI-bus CS# +\ spi-out ( byte -- ) - Send byte +\ spi-in ( -- byte ) - Receive byte + +d# 128 constant /flash-page + +: edi-cmd,adr ( offset cmd -- ) \ Send command plus 3 address bytes + spi-cs-on ( offset cmd ) + spi-out ( offset ) + lbsplit drop spi-out spi-out spi-out ( ) +; +: edi-b! ( byte offset -- ) \ Write byte to address inside EC chip + h# 40 edi-cmd,adr spi-out spi-cs-off +; +[ifndef] edi-wait-b +: edi-wait-b ( -- b ) \ Wait for and receive EC response byte + d# 10 0 do + spi-in h# 50 = if + spi-in ( b ) + spi-cs-off ( b ) + unloop exit + then + loop + spi-cs-off + true abort" EDI byte in timeout" +; +[then] +: edi-b@ ( offset -- b ) \ Read byte from address inside EC chip + h# 30 edi-cmd,adr edi-wait-b +; +: edi-next-b@ ( -- b ) \ Read the next EC byte - auto-increment address + spi-cs-on h# 33 spi-out edi-wait-b +; +: edi-disable ( -- ) \ Turn off the EC EDI interface + spi-cs-on + h# f3 spi-out + spi-in ( b ) + spi-cs-off + h# 8c <> if + ." Unexpected response from edi-disable" cr + then +; + +0 [if] +: edi-w@ ( offset -- w ) \ Read 16-bit word from address inside EC chip + dup 1+ edi-b@ ( offset b.low ) + swap edi-b@ ( b.low b.high ) + bwjoin +; +[else] +: edi-w@ ( offset -- w ) \ Read 16-bit word from address inside EC chip + edi-b@ edi-next-b@ swap bwjoin +; +[then] +: reset-8051 ( -- ) \ Reset 8-5 + h# f010 edi-b@ 1 or h# f010 edi-b! +; +: unreset-8051 ( -- ) \ Reset 8-5 + h# f010 edi-b@ 1 invert and h# f010 edi-b! +; + +\ 0 in bit 0 selects masked ROM as code source for 8051, 1 selects FLASH +\ The 8051 should be in reset mode when changing that bit. +: select-flash ( -- ) \ Setup for access to FLASH inside the EC + h# f011 edi-b@ 1 or h# f011 edi-b! +; + +: probe-rdid ( -- found? ) \ Verify that the EC is the one we think it is + select-flash + h# f01c ['] edi-w@ catch if ( x ) + drop false exit ( -- false ) + then ( id ) + + 1 invert and h# 3730 = +; + +: wait-flash-busy ( -- ) \ Wait for an erase/programming operation to complete + get-msecs h# 1000 + ( limit ) + begin ( limit ) + h# fea0 edi-b@ ( limit b ) + h# 80 and if ( limit ) + drop exit + then ( limit ) + dup get-msecs - 0<= ( limit timeout? ) + until ( limit ) + drop + true abort" EDI FLASH busy timeout" +; + +: flash-cmd ( b -- ) h# fea7 edi-b! ; + +: set-offset ( offset -- ) + wbsplit ( offset-low offset-hi ) + h# fea9 edi-b! h# fea8 edi-b! ( ) +; + +: erase-page ( offset -- ) + wait-flash-busy ( offset ) + set-offset ( ) + h# 20 flash-cmd ( ) +; + +: erase-chip ( -- ) wait-flash-busy h# 60 flash-cmd wait-flash-busy ; + +: send-byte ( b offset -- ) set-offset h# feaa edi-b! 2 flash-cmd ; + +: edi-program-page ( adr offset -- ) + \ Clear HVPL + wait-flash-busy h# 80 flash-cmd ( adr offset ) + + \ Fill the page buffer + swap /flash-page bounds do ( offset ) + i c@ over send-byte ( offset ) + 1+ ( offset' ) + loop ( offset ) + drop ( ) + + \ Commit the buffer to the FLASH memory + wait-flash-busy ( ) \ Redundant wait? + h# 70 flash-cmd ( ) + wait-flash-busy ( ) +; +h# 7e80 constant ec-flags-offset +: edi-program-flash ( adr len offset -- ) + cr ( adr len offset ) + swap 0 ?do ( adr offset ) + (cr i . ( adr offset ) + dup i + ec-flags-offset <> if ( adr offset ) + dup i + erase-page ( adr offset ) + over i + over i + edi-program-page ( adr offset ) + then ( adr offset ) + /flash-page +loop ( adr offset ) + 2drop ( ) +; +: edi-read-flash ( adr len offset -- ) + over 0= if 3drop exit then ( adr len offset ) + edi-b@ ( adr len byte ) + third c! ( adr len ) + 1 /string bounds ?do ( ) + edi-next-b@ i c! ( ) + loop ( ) +; +: trim@ ( offset -- b ) + set-offset + h# 90 flash-cmd + wait-flash-busy + h# feab edi-b@ +; +: trim-tune ( -- ) +\ firmware-id 0= if + \ Read trim data and write to register (for ENE macros) + h# 100 trim@ h# 5a = if + \ Low Voltage Detect TRIM register + h# f035 edi-b@ ( val ) + h# 1f invert and ( val' ) + h# 101 trim@ h# 1f and or ( val' ) + h# f035 edi-b! ( ) + + \ Int Oscillator Control register - HKCOMOS32K + h# f02b edi-b@ ( val ) + h# 0f invert and ( val' ) + h# 102 trim@ h# 0f and or ( val' ) + h# f02b edi-b! ( ) + then + + \ Read trim data and write to register (for HHNEC macros) + h# 1ff trim@ 0<> if + \ XBIMISC register - S[4:0] + h# fea6 edi-b@ ( val ) + h# 1f invert and ( val' ) + h# 1f0 trim@ h# 1f and or ( val' ) + h# fea6 edi-b! ( ) + + \ XBI Pump IP register - Pdac[3:0] | Ndac[3:0] + h# 1f1 trim@ 4 lshift ( val ) + h# 1f2 trim@ h# 0f and or ( val' ) + h# fea3 edi-b! ( ) + + \ XBI Flash IP register - Bdac[3:0] + h# fea4 edi-b@ ( val ) + h# 0f invert and ( val' ) + h# 1f4 trim@ h# 0f and or ( val' ) + h# fea4 edi-b! ( ) + + \ XB VR IP register - Tctrim[3:0] | Abstrim[3:0] (Vref temp coef and absolute value) + h# 1f5 trim@ 4 lshift ( val ) + h# 1f6 trim@ h# 0f and or ( val' ) + h# fea5 edi-b! ( ) + + \ XBI Flash IP register - Itim[3:0] - Must be last + h# fea4 edi-b@ ( val ) + h# f0 invert and ( val' ) + h# 1f4 trim@ 4 lshift or ( val' ) + h# fea4 edi-b! ( ) + + 3 us \ Required after Itim[3:0] update + + \ XBI Embedded Flash Configuration register + h# 10 h# fea0 edi-b! \ Set FLASH clock + + h# fea0 edi-b@ h# d0 = if + ." Warning - XBIECFG is 0xd0" cr + then + then +\ then +; +: edi-open ( -- ) + \ slow-edi-clock \ Target speed between 1 and 2 MHz + spi-start + \ The first operation often fails so retry it + ['] select-flash catch if select-flash then + reset-8051 + trim-tune + \ fast-edi-clock \ Target speed up to 16 MHz + \ reset +; +\ *** End of verbatim inclusion of edi.fth + +: recover-ec ( -- ) + pio1.5mhz + edi-open + " u:\ecimage.bin" $read-file abort" Read error" ( adr len ) + erase-chip ( adr len ) + 2dup 0 edi-program-flash ( adr len ) + load-base 8000 0 edi-read-flash ( adr len ) + 2dup load-base swap comp if ." Different" then ( adr len ) + free-mem ( ) +; + +: read-ec ( -- ) + pio1.5mhz + edi-open + load-base h# 8000 0 edi-read-flash ( ) + ." Writing EC image to u:\ecimage.bin" + " u:\ecimage.bin" $new-file ( ) + load-base h# 8000 ofd @ fputs ( ) + ofd @ fclose ( ) + ." Written" cr +; + +dend + + +\ LICENSE_BEGIN +\ Copyright (c) 2009 FirmWorks +\ +\ Permission is hereby granted, free of charge, to any person obtaining +\ a copy of this software and associated documentation files (the +\ "Software"), to deal in the Software without restriction, including +\ without limitation the rights to use, copy, modify, merge, publish, +\ distribute, sublicense, and/or sell copies of the Software, and to +\ permit persons to whom the Software is furnished to do so, subject to +\ the following conditions: +\ +\ The above copyright notice and this permission notice shall be +\ included in all copies or substantial portions of the Software. +\ +\ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, +\ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF +\ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND +\ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE +\ LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION +\ OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION +\ WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +\ +\ LICENSE_END

1 0

[commit] r2612 - forth/kernel forth/lib ofw/core
by repository service 16 Oct '11

16 Oct '11

Author: wmb Date: Sun Oct 16 02:01:43 2011 New Revision: 2612 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2612 Log: Core - added deferred time&date to kernel so it can be used uniformly. Modified: forth/kernel/kernel.fth forth/kernel/sysio.fth forth/lib/date.fth ofw/core/date.fth ofw/core/ofwfw.fth Modified: forth/kernel/kernel.fth ============================================================================== --- forth/kernel/kernel.fth Sun Oct 16 01:21:46 2011 (r2611) +++ forth/kernel/kernel.fth Sun Oct 16 02:01:43 2011 (r2612) @@ -3134,6 +3134,10 @@ bye ; [then] +defer time&date ( -- s m h d m y ) +: now ( -- s m h ) time&date 3drop ; +: today ( -- d m y ) time&date >r >r >r 3drop r> r> r> ; + \ LICENSE_BEGIN \ Copyright (c) 2006 FirmWorks Modified: forth/kernel/sysio.fth ============================================================================== --- forth/kernel/sysio.fth Sun Oct 16 01:21:46 2011 (r2611) +++ forth/kernel/sysio.fth Sun Oct 16 02:01:43 2011 (r2612) @@ -169,6 +169,12 @@ $cstr d# 84 syscall drop retval dup if cscount false else drop true then ; +: l@+ ( adr -- l adr' ) dup l@ swap la1+ ; +: sys-time&date ( -- s m h d m y ) + d# 64 syscall retval ( adr ) + l@+ l@+ l@+ l@+ l@+ l@+ drop d# 1900 + ( s m h d m y ) +; + : install-wrapper-alloc ( -- ) \ Don't use "is" in case a relocation map needs to be allocated first ['] sys-alloc-mem ['] alloc-mem >body >user token! @@ -194,6 +200,7 @@ \ init-relocation goes here, for versions that need it install-wrapper-key ['] sys-$getenv is $getenv + ['] sys-time&date is time&date ; headers Modified: forth/lib/date.fth ============================================================================== --- forth/lib/date.fth Sun Oct 16 01:21:46 2011 (r2611) +++ forth/lib/date.fth Sun Oct 16 02:01:43 2011 (r2612) @@ -1,30 +1,7 @@ \ See license at end of file -purpose: Date and Time-of-day access +purpose: Date and Time-of-day display decimal -variable tmstruct -: tmfield \ name ( offset -- offset' ) - create dup , la1+ - does> @ tmstruct @ + -; - -struct \ tm struct returned by 4.2 localtime call -tmfield tm_sec -tmfield tm_min -tmfield tm_hour -tmfield tm_mday -tmfield tm_mon -tmfield tm_year -tmfield tm_wday -tmfield tm_yday -tmfield tm_isdst -drop - -: (today ( -- timeval-struct-adr ) 64 syscall retval tmstruct ! ; -: today ( -- day month year) - (today tm_mday l@ tm_mon l@ 1+ tm_year l@ 1900 + -; -: now ( -- sec min hour ) (today tm_sec l@ tm_min l@ tm_hour l@ ; : time-zone ( -- minutes-west-of-GMT) 68 syscall retval ; : .time-zone ( -- ) 72 syscall retval cscount type ; @@ -76,6 +53,7 @@ ; : .now ( -- ) now .time ; : .today ( -- ) today .date ; + \ LICENSE_BEGIN \ Copyright (c) 2006 FirmWorks \ Modified: ofw/core/date.fth ============================================================================== --- ofw/core/date.fth Sun Oct 16 01:21:46 2011 (r2611) +++ ofw/core/date.fth Sun Oct 16 02:01:43 2011 (r2612) @@ -3,7 +3,7 @@ variable clock-node ' clock-node " clock" chosen-variable -: time&date ( -- s m h d m y ) +: ofw-time&date ( -- s m h d m y ) " get-date" clock-node @ ihandle>phandle find-method if drop " get-time" clock-node @ $call-method swap rot @@ -12,14 +12,16 @@ " get-time" clock-node @ $call-method then ; -: now ( -- s m h ) time&date 3drop ; -: today ( -- d m y ) time&date >r >r >r 3drop r> r> r> ; +stand-init: + ['] ofw-time&date to time&date +; headerless : 2.d ( n -- ) push-decimal (.2) type pop-base ; +: 4.d ( n -- ) push-decimal <# u# u# u# u# u#> type pop-base ; headers -: .date ( d m y -- ) swap 2.d ." /" swap 2.d ." /" d# 100 mod 2.d ; +: .date ( d m y -- ) 4.d ." -" 2.d ." -" 2.d ; : .time ( s m h -- ) 2.d ." :" 2.d ." :" 2.d ; \ Interactive diagnostic Modified: ofw/core/ofwfw.fth ============================================================================== --- ofw/core/ofwfw.fth Sun Oct 16 01:21:46 2011 (r2611) +++ ofw/core/ofwfw.fth Sun Oct 16 02:01:43 2011 (r2612) @@ -4,7 +4,7 @@ variable clock-node ' clock-node " clock" chosen-variable -: time&date ( -- s m h d m y ) +: ofw-time&date ( -- s m h d m y ) " get-date" clock-node @ ihandle>phandle find-method if drop " get-time" clock-node @ $call-method swap rot @@ -13,8 +13,9 @@ " get-time" clock-node @ $call-method then ; -: now ( -- s m h ) time&date 3drop ; -: today ( -- d m y ) time&date >r >r >r 3drop r> r> r> ; +stand-init: + ['] ofw-time&date to time&date +; headerless : 2.d ( n -- ) push-decimal (.2) type pop-base ;

1 0

[commit] r2611 - ofw/fs/ext2fs
by repository service 16 Oct '11

16 Oct '11

Author: wmb Date: Sun Oct 16 01:21:46 2011 New Revision: 2611 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2611 Log: Ext2 filesystem - added test script. Added: ofw/fs/ext2fs/ext2test.fth ofw/fs/ext2fs/ext2test.sh Added: ofw/fs/ext2fs/ext2test.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ ofw/fs/ext2fs/ext2test.fth Sun Oct 16 01:21:46 2011 (r2611) @@ -0,0 +1,109 @@ +\ OLPC boot script + +\ dev.laptop.org #6210 test script +\ Exercises several OFW features on an ext2 filesystem on a USB stick +\ see associated test.sh + +visible +no-page +start-logging + +.( test.fth ticket #6210 ofw ext2 filesystem tests ) cr + +show-aborts on + +.( test 0001 define u: ) cr +volume: u: + +.( test 0002 reference u: ) cr +u: + +\ .( test 0003 directory ) cr +\ dir + +\ .( test 0004 directory by name ) cr +\ dir *.fth + +.( test 0005 chdir down ) cr +chdir directory + +.( test 0006 directory of subdirectory after chdir ) cr +dir + +.( test 0007 chdir up ) cr +chdir .. + +.( test 0008 directory of main directory after chdir ) cr +dir + +.( test 0009 disk free ) cr +disk-free u:\ + +.( test 0010 display a file ) cr +more u:\hello + +.( test 0011 display a file with a hyphen in file name ) cr +more u:\hello-world + +.( test 0012 display a link ) cr +more u:\hello-link + +.( test 0013 directory of subdirectory by name ) cr +dir u:\directory + +.( test 0014 display a file in subdirectory ) cr +more u:\directory\hw + +.( test 0015 copy a file ) cr +copy u:\hello-world u:\copy + +.( test 0016 display the copy ) cr +more u:\copy + +.( test 0017 rename the copy ) cr +rename u:\copy u:\renamed + +.( test 0018 delete the renamed copy ) cr +del u:\renamed + +.( test 0019 delete a non-existent file ) cr +del u:\vapour + +: load-file ( "devspec" -- adr len ) + safe-parse-word + open-dev dup 0= abort" Can't open it" ( ih ) + >r ( r: ih ) + load-base " load" r@ $call-method ( len r: ih ) + r> close-dev ( len ) + load-base swap +; + +: calculate-md5 ( adr len -- adr len ) + $md5digest1 ; + +: print-md5 ( adr len -- ) + bounds ?do i c@ (.2) type loop space ; + +: md5sum ( "devspec" -- ) load-file calculate-md5 print-md5 ; + +.( test 0020 calculate md5sum of a test file ) cr +md5sum u:\hello-world cr + +.( test 0021 calculate md5sum of a test file and save to a file ) cr +del u:\hello-world.md5 +load-file u:\hello-world calculate-md5 to-file u:\hello-world.md5 print-md5 + +.( test 0022 dump forth dictionary to file ) cr +del u:\words.txt +to-file u:\words.txt words + +\ reference: forth/lib/tofile.fth +\ to-file u:\words words +\ append-to-file u:\words words + +.( done ) cr +save-log u:\ofw.log +stop-logging + +\ .( boot ) cr +\ boot n:\boot\olpc.fth Added: ofw/fs/ext2fs/ext2test.sh ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ ofw/fs/ext2fs/ext2test.sh Sun Oct 16 01:21:46 2011 (r2611) @@ -0,0 +1,160 @@ +#!/bin/bash +# dev.laptop.org #6210 test script +# +# Creates an ext2 filesystem on a USB stick for testing with OFW +# +# Instructions for use: +# - copy this file and ext2test.fth to a Linux machine +# - turn off X with 'telinit 4', +# - ensure that no USB stick is mounted +# - insert USB stick, wait seven seconds settling time, +# - execute this script "ext2test.sh /dev/sda", +# - remove USB stick, +# - insert in test laptop, +# - power up, +# - examine output. +# +set -e + +function help { + cat <<EOF +Usage: test.sh [options] device + --help display this help + --end N partition end specification for parted, -1s is the + default and means full size, or use a number followed + by s for a given number of sectors, see the parted(8) + unit command. + device the device you wish to write to, e.g. /dev/sdZ +EOF +} + +DEVICE= +END=-1s +while [ ! -z "${1}" ]; do + case "${1}" in + --end) + shift + END=${1} + shift + echo "test.sh: partition end to be set to ${END}" + ;; + --help) + shift + help + exit 0 + ;; + *) + DEVICE=${1} + shift +# if [ ! -e ${DEVICE} ]; then +# echo "test.sh: no such device ${DEVICE}" +# exit 1 +# fi + esac + +done + +if [ -z "${DEVICE}" ]; then + echo "test.sh: no device specified" + help + exit 1 +fi + +if [ ! -b "${DEVICE}" ]; then +echo REMAKING FILE +rm -f "${DEVICE}" +dd if=/dev/zero of=${DEVICE} bs=512 count=1 seek=8388000 2> /dev/null #8388608 +# dd if=/dev/zero of=${DEVICE} bs=512 count=1 seek=4194303 2> /dev/null +#dd if=/dev/zero of=${DEVICE} bs=512 count=1 seek=2097151 2> /dev/null +#dd if=/dev/zero of=${DEVICE} bs=512 count=1 seek=1050000 2> /dev/null +chmod 666 ${DEVICE} +fi +# if [ ! -b "${DEVICE}" -a ! -f "${DEVICE}" ]; then +# Need to parse ${END} to remove the trailing s if it exists, or if not, to change the bs units +# dd if=/dev/zero of=${DEVICE} bs=512 count=1 seek=${END} status=noxfer 2> /dev/null +# fi + +echo -n "zero overwrite partition table ... " +dd if=/dev/zero of=${DEVICE} bs=1024 count=256 status=noxfer conv=notrunc 2> /dev/null +echo "ok" + +echo -n "create new partition table ... " +/sbin/parted --script ${DEVICE} mklabel msdos +echo "ok" + +# if we do not do this, the old partition in /dev does not go away +echo -n "probe partition table ... " +/sbin/partprobe ${DEVICE} +echo "ok" + +# This commented-out block of code is unreliable +# echo -n "wait for old partition to go ... " +# declare -i c +# c=0 +# until [ ! -e ${DEVICE}1 ]; do +# sleep 0.1 +# echo -n . +# c=c+1 +# if [ ${c} -gt 10 ]; then +# # sometimes it needs a harder whack +# /sbin/partprobe -s > /dev/null 2> /dev/null +# sleep 0.1 +# fi +# done +# echo "ok" + +echo -n "create new partition ... " +echo /sbin/parted --script -- ${DEVICE} mkpart primary ext2 0 ${END} +/sbin/parted --script -- ${DEVICE} mkpart primary ext2 0 ${END} || true +echo "ok" + +if [ -b ${DEVICE} ] ; then + PARTITION=${DEVICE}1 + + echo -n "wait for new partition to arrive ... " + until [ -e ${PARTITION} ]; do sleep 0.1; echo -n .; done + echo "ok" +else + OFFSET=512 + PARTITION=`/sbin/losetup -o ${OFFSET} -f -s ${DEVICE}` + echo partition = $PARTITION +fi + +echo -n "make filesystem ... " +#/sbin/mke2fs -n -b 4096 -q ${PARTITION} +# /sbin/mke2fs -n -j -O dir_index,^huge_file -E resize=8G -m 1 -b 4096 -q ${PARTITION} +/sbin/mke2fs -n -j -O dir_index -m 1 -b 1024 -q ${PARTITION} +echo "made" + +# we occasionally get +# mount: you must specify the filesystem type +# despite having just created the filesystem +echo -n "mount filesystem ... " +until mount ${PARTITION} /mnt; do sleep 0.1; done +echo "mounted" + +echo -n "create test content and unmount ... " + +mkdir /mnt/boot +cp ext2test.fth /mnt/boot/olpc.fth + +cd /mnt +touch touched +echo hello > hello +echo hello world > hello-world +date > date +ln -s hello hello-link +mkdir directory +ln -s directory directory-link +touch directory/touched +echo hello world down here > directory/hw +mkfifo fifo +mknod node b 1 1 +cd +umount /mnt + +if [ ! -b ${DEVICE} ] ; then + /sbin/losetup -d ${PARTITION} +fi + +echo "finished"

1 0

[commit] r2610 - ofw/core
by repository service 16 Oct '11

16 Oct '11

Author: wmb Date: Sun Oct 16 00:23:26 2011 New Revision: 2610 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2610 Log: Core - added voc>phandle and phandle>voc defer words, defaulting to noop, to decouple the representation of a phandle from the implementation choice of the address of a Forth wordlist. There is no current need for that decoupling, but the implementation is cleaner with the change. The change should have no functional impact. Modified: ofw/core/ofwcore.fth Modified: ofw/core/ofwcore.fth ============================================================================== --- ofw/core/ofwcore.fth Sat Oct 15 23:56:30 2011 (r2609) +++ ofw/core/ofwcore.fth Sun Oct 16 00:23:26 2011 (r2610) @@ -673,6 +673,9 @@ headers +defer voc>phandle ' noop to voc>phandle +defer phandle>voc ' noop to phandle>voc + \ TODO \ Don't use the system search order; use a private stack \ $find searches through the private stack @@ -680,14 +683,14 @@ \ Either implement a true breadth-first search or don't specify it. 2 actions -action: drop context token@ ; -action: drop context token! definitions ; +action: drop context token@ voc>phandle ; +action: drop phandle>voc context token! definitions ; create current-device use-actions headerless : ufield \ name ( offset size -- offset' ) create over , + - does> @ current-device >body >user + + does> @ current-device phandle>voc >body >user + ; \ Notes for a more abstract searching mechanism: @@ -715,14 +718,17 @@ constant /devnode-extra headers -: >parent ( node -- parent-node ) >voc-link link@ ; +: >parent ( node -- parent-node ) >voc-link link@ voc>phandle ; : parent-device ( -- parent-node ) current-device >parent ; +: (select-package) ( phandle -- ) phandle>voc execute ; +: (push-package) ( phandle -- ) also (select-package) ; +: (pop-package) ( phandle -- ) previous ; : push-package ( phandle -- ) dup 0= if ." Attempting to push null package!!!" abort then - also execute definitions + (push-package) definitions ; -: pop-package ( -- ) previous definitions ; +: pop-package ( -- ) (pop-package) definitions ; : push-device ( acf -- ) to current-device ; : pop-device ( -- ) @@ -945,7 +951,7 @@ : >initial-value ( pfa -- adr ) @ my-self if \ Use current instance's package if there is a current instance - my-voc also execute initial-values previous + my-voc (push-package) initial-values (pop-package) else \ Otherwise use the active package initial-values then @@ -1045,9 +1051,9 @@ \ to a non-existent instance. : destroy-instance ( -- ) - also my-voc execute ( ) + my-voc (push-package) ( ) '#values @ '#buffers @ negate ( value-size variable-size ) - previous ( value-size variable-size ) + (pop-package) ( value-size variable-size ) deallocate-instance ; @@ -1150,6 +1156,9 @@ : $vexecute? ( adr len voc-acf -- true | ??? false) (search-wordlist) if execute false else true then ; +: $package-execute? ( adr len phandle -- true | ??? false) + phandle>voc (search-wordlist) if execute false else true then +; : $vexecute ( adr len voc-acf -- ?? ) $vexecute? drop ; headers @@ -1227,7 +1236,7 @@ : my-#adr-cells ( -- n ) my-self if \ Use current instance's package if there is a current instance - my-voc also execute '#adr-cells @ previous + my-voc (push-package) '#adr-cells @ (pop-package) else \ Otherwise use the active package '#adr-cells @ then @@ -1359,7 +1368,7 @@ : property ( value-adr,len name-adr,len -- ) my-self if - context token@ >r my-voc execute + context token@ >r my-voc (select-package) (property) r> context token! else @@ -1515,7 +1524,7 @@ headers : package-execute ( ?? adr len -- ?? ) - current-device $vexecute? abort" Package method not found" + current-device $package-execute? abort" Package method not found" ; headerless @@ -1788,8 +1797,8 @@ get-unit 0= if ( unit-str ) ." @" unit-str>phys ( phys.lo .. phys.hi ) - " encode-unit" parent-device ( phys.lo .. phys.hi adr,len ph ) - $vexecute? if ( phys.lo .. phys.hi ) + " encode-unit" parent-device ( phys.lo .. phys.hi adr,len phandle ) + $package-execute? if ( phys.lo .. phys.hi ) '#adr-cells @ if .nh then ( phys.lo .. phys.next ) '#adr-cells @ 1- 0 max 0 ?do ." ," .nh loop ( ) else @@ -2132,7 +2141,7 @@ ; : get-package-property ( adr len phandle -- true | adr' len' false ) - also execute get-property previous + (push-package) get-property (pop-package) ; \ Used when executing from an open package instance. Finds a property @@ -2273,7 +2282,7 @@ ; : apply-method ( adr len -- no-such-method? ) - my-voc fm-hook ['] $vexecute? catch ?dup if ( x x x errno ) + my-voc fm-hook ['] $package-execute? catch ?dup if ( x x x errno ) \ executing method caused an error nip nip nip ( errno ) then ( ??? false | true | errno ) @@ -2771,7 +2780,7 @@ " @" encode-bytes+ 2>r ( phys .. ) ( R: $ ) " encode-unit" parent-device ( phys .. adr,len phandle ) ( R: $ ) - $vexecute? if ( phys .. ) ( R: $ ) + $package-execute? if ( phys .. ) ( R: $ ) 2r> ( phys .. adr,len ) ( R: ) '#adr-cells @ if encode-number+ then ( phys . adr,len' ) @@ -3164,9 +3173,9 @@ headerless : (trace) ( adr len phandle -- adr len phandle ) >r >r >r .s r> r> ( adr len ) ( r: phandle ) - also r@ execute ( adr len ) ( r: phandle ) + r@ (push-package) ( adr len ) ( r: phandle ) " name" get-property ( adr len value-str false ) ( r: phandle ) - previous ( adr len value-str false ) ( r: phandle ) + (pop-package) ( adr len value-str false ) ( r: phandle ) drop get-encoded-string type ( adr len ) ( r: phandle ) ." : " 2dup type space cr ( adr len ) ( r: phandle ) r> ( adr len phandle ) @@ -4051,7 +4060,7 @@ ; : setnode ( nodeid | 0 -- ) - dup 0= if drop ['] root-node then also execute + dup 0= if drop ['] root-node then (push-package) ; \ : copyout ( buf adr len -- len ) >r swap r@ cmove r> ; @@ -4124,7 +4133,7 @@ false ( false ) then then ( cstr ) - previous + (pop-package) ; : .cstr ( cstr -- ) begin dup c@ ?dup while emit 1+ repeat drop ; @@ -4150,10 +4159,10 @@ setnode ( ) 0 'child ( last-nodeid &next-nodeid ) begin get-token? while ( last-nodeid next-nodeid ) - nip dup execute ( next-nodeid ) + nip dup (select-package) ( next-nodeid ) 'peer ( last-nodeid' &next-nodeid ) repeat ( last-nodeid' ) - previous ( nodeid ) + (pop-package) ( nodeid ) ; : peer ( phandle -- phandle' ) @@ -4166,8 +4175,8 @@ then ( nodeid ) \ Select the first child of our parent - dup >parent also execute ( nodeid ) - 'child token@ execute ( nodeid ) + dup >parent (push-package) ( nodeid ) + 'child token@ (select-package) ( nodeid ) dup current-device = if ( nodeid ) \ Argument node is first child of parent; return "no more nodes" @@ -4181,7 +4190,7 @@ repeat ( nodeid ) 2drop current-device ( nodeid' ) then ( nodeid | 0 ) - previous ( nodeid | 0 ) + (pop-package) ( nodeid | 0 ) ; : parent ( phandle -- phandle' ) @@ -4203,7 +4212,7 @@ 2drop -1 ( -1 ) then ( len | -1 ) then ( len | -1 ) - previous ( len | -1 ) + (pop-package) ( len | -1 ) ; : instance-to-package ( ihandle -- phandle ) ihandle>phandle ; @@ -4228,7 +4237,7 @@ 2drop 2drop -1 ( -1 ) then ( len|-1 ) then ( len|-1 ) - previous ( len|-1 ) + (pop-package) ( len|-1 ) ; : nextprop ( buf prev phandle -- 1|0|-1 ) @@ -4259,7 +4268,7 @@ 2drop 2drop -1 ( -1 ) then ( len|-1 ) then ( len|-1 ) - previous + (pop-package) ; : finddevice ( cstr -- phandle ) cscount locate-device ?dup drop ; @@ -4325,8 +4334,8 @@ : append-my-unit ( phys.. -- ) " @" canon+ - " encode-unit" parent-device ( phys.. adr,len ph ) - $vexecute? if ( phys.. ) + " encode-unit" parent-device ( phys.. adr,len phandle ) + $package-execute? if ( phys.. ) '#adr-cells @ if (nh.) canon+ then ( phys.lo .. phys.next ) '#adr-cells @ 1- 0 max 0 ?do ( phys.lo .. phys.next ) " ," canon+ (nh.) canon+ ( phys.lo .. phys.next' ) @@ -4424,13 +4433,13 @@ headerless : ?delete-address ( adr len -- adr len ) my-self if ( adr len ) - also my-voc execute ( adr len ) + my-voc (push-package) ( adr len ) " address" get-property 0= if ( adr len value-adr,len ) get-encoded-int 2 pick = if ( adr len ) " address" delete-property ( adr len ) then ( adr len ) then ( adr len ) - previous ( adr len ) + (pop-package) ( adr len ) then ( adr len ) ; headers

1 0

[commit] r2609 - cpu/x86/pc/olpc/via/Notes
by repository service 15 Oct '11

15 Oct '11

Author: wmb Date: Sat Oct 15 23:56:30 2011 New Revision: 2609 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2609 Log: Added via/Notes directory to svn Added: cpu/x86/pc/olpc/via/Notes/ cpu/x86/pc/olpc/via/Notes/CableScramble.txt cpu/x86/pc/olpc/via/Notes/MemoryLines.txt cpu/x86/pc/olpc/via/Notes/RAMinterleave.txt cpu/x86/pc/olpc/via/Notes/flashphoenix.txt cpu/x86/pc/olpc/via/Notes/test-ideas.txt Added: cpu/x86/pc/olpc/via/Notes/CableScramble.txt ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/x86/pc/olpc/via/Notes/CableScramble.txt Sat Oct 15 23:56:30 2011 (r2609) @@ -0,0 +1,42 @@ +Artec End VIA End + +1 RESET 2 +2 LAD0 4 +3 LAD1 6 +4 LAD2 8 +5 LAD3 7 +6 LFRAME# 5 +7 GND1 - +8 CLK 3 +9 GND2 9 +10 3V3 1 + + +ARTEC Positionally looking down onto +the unit with the 7-seg displays +away from you. + +Bot Top +Row Row + +3V3 10 9 GND +CLK 8 7 GND +LFR 6 5 LA3 +LA2 4 3 LA1 +LA0 2 1 RST + + +VIA Positionally looking down onto the +board with the silkscreen right-reading + + G L L C 3 + N A F L V + D 3 R K 3 + + 9 7 5 3 1 + +10 8 6 4 2 + + L L L R + A A A S + 2 1 0 T Added: cpu/x86/pc/olpc/via/Notes/MemoryLines.txt ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/x86/pc/olpc/via/Notes/MemoryLines.txt Sat Oct 15 23:56:30 2011 (r2609) @@ -0,0 +1,22 @@ +From william wong - address muxing for VX855 + +interleave type 001 + +BA2 15 +BA1 14 +BA0 13 +A14 30 +a13 29 +a12 28 +a11 22 +a10 21 AP +a9 27 12 +a8 19 11 +a7 18 10 +a6 17 9 +a5 16 8 +a4 25 7 +a3 24 6 +a2 23 5 +a1 20 4 +a0 26 3 Added: cpu/x86/pc/olpc/via/Notes/RAMinterleave.txt ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/x86/pc/olpc/via/Notes/RAMinterleave.txt Sat Oct 15 23:56:30 2011 (r2609) @@ -0,0 +1,8 @@ +Scramble plan for interleave 001 MA5 + +RAM BA2 BA1 BA0 A14 A13 A12 A11 A10 A09 A08 A07 A06 A05 A04 A03 A02 A01 A00 +ROW 30 29 28 22 21 27 19 18 17 16 25 24 23 20 26 +COL 15 14 13 AP 12 11 10 9 8 7 6 5 4 3 + +BIOS porting guide p 56 (77) - 59 (80) +Programmers manual p 47 (56) - 48 (57) Added: cpu/x86/pc/olpc/via/Notes/flashphoenix.txt ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/x86/pc/olpc/via/Notes/flashphoenix.txt Sat Oct 15 23:56:30 2011 (r2609) @@ -0,0 +1,8 @@ +Phoenix flash recipe + +patch noop ?image-valid $get-file +get-file http:\\10.20.0.14\phoenix.bin +flash-write-enable +flash-buf 10.0000 0 write-flash-range +flash-buf 10.0000 0 verify-flash-range +flash-write-disable Added: cpu/x86/pc/olpc/via/Notes/test-ideas.txt ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ cpu/x86/pc/olpc/via/Notes/test-ideas.txt Sat Oct 15 23:56:30 2011 (r2609) @@ -0,0 +1,11 @@ +attach plastic handles to cables to make insertion easier +display test - show one pattern because operators don't watch the progression +led test - flash all leds at once until operator confirms +audio test - messages before speaker and loopback tests +only one suspend pass +shorten dhcp retry delay +shorter camera test +remind operator to remove internal SD card before finish +AC test did not ask for cable to be removed +led test only flashed one led - maybe because no wlan reception (no antenna) +

1 0

← Newer
1
2
3
4
5
6
7
8
...
11
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

openfirmware October 2011