openfirmware

openfirmware@openfirmware.info

3007 discussions

[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

[commit] r2608 - in cpu: arm/olpc/1.75/build x86/pc/alex/build x86/pc/biosload/build
by repository service 15 Oct '11

15 Oct '11

Author: wmb Date: Sat Oct 15 22:46:56 2011 New Revision: 2608 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2608 Log: svn ignore Modified: cpu/arm/olpc/1.75/build/ (props changed) cpu/x86/pc/alex/build/ (props changed) cpu/x86/pc/biosload/build/ (props changed)

1 0

[commit] r2607 - dev/usb2/device/dediprog
by repository service 15 Oct '11

15 Oct '11

Author: wmb Date: Sat Oct 15 18:40:20 2011 New Revision: 2607 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2607 Log: Added poorly-tested Dediprog SF100 SPI FLASH programmer driver - not used in any builds. Added: dev/usb2/device/dediprog/ dev/usb2/device/dediprog/dediprog.fth Added: dev/usb2/device/dediprog/dediprog.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ dev/usb2/device/dediprog/dediprog.fth Sat Oct 15 18:40:20 2011 (r2607) @@ -0,0 +1,167 @@ +\ See license at end of file +purpose: Dediprog SF100 SPI FLASH programmer driver + +\ Mostly untested + +\ VID: 0483 PID: dada + +0 instance value inbuf +0 instance value outbuf + +: alloc-buffers ( -- ) + h# 10 dma-alloc to inbuf + h# 10 dma-alloc to outbuf +; +: free-buffers ( -- ) + inbuf h# 10 dma-free + outbuf h# 10 dma-free +; +: ?error ( usberr -- ) + ?dup if + noop \ Patch debug-me here if desired + push-hex + ." Dediprog: USB error " . cr + pop-base + then +; +: set-millivolts ( mv -- ) + case + 0 of 0 endof + d# 1800 of h# 12 endof + d# 2500 of h# 11 endof + d# 3300 of h# 10 endof + d# 3500 of h# 10 endof + ( -- ) ." Unsupported voltage" cr abort + endcase + >r 0 0 h# ff r> h# 42 9 control-set ?error +; +\ Speed# 0 1 2 3 4 5 6 7 +\ KHz 24000 , 8000 , 12000 , 3000 , 2180 , 1500 , 750 , 375 , +\ Divisor 1 3 2 8 11 16 32 64 +\ Base clock frequency is 24 MHz = 24000 kHz + +: set-speed ( speed# -- ) + >r 0 0 h# ff r> h# 42 h# 61 control-set ?error +; +0 value offset +: seek ( d.offset -- error? ) + if ." Dediprog: seek offset too large" cr drop true exit then + to offset + false +; + +: spi-read ( adr len start -- actual ) + +; +: send ( readadr,len writeadr,len -- ) + 2 pick if 1 else 0 then >r ( readadr,len writeadr,len r: readlen ) + r> h# ff h# 42 1 control-set ?error ( readadr,len ) + dup if + 0 h# bb8 h# c2 1 control-get ?error drop + else + 2drop + then +; +: check-devicestring ( -- error? ) + 0 inbuf c! +\ inbuf 1 h# ef03 0 h# c3 7 control-get ... \ From rsmith snoop + inbuf 1 0 0 h# c3 h# 7 control-get if true exit then ( actual ) + 1 <> if true exit then + inbuf c@ h# ff <> if true exit then + inbuf h# 10 h# ff h# ff h# c2 h# 8 control-get if true exit then + h# 10 <> if true exit then + ." Opened " inbuf h# 10 type cr + " SF100" inbuf swap comp 0= +; +: command-a ( -- ) + 0 inbuf c! inbuf 1 0 0 h# c3 h# b control-get ?error ( n ) + 1 <> ?error + inbuf c@ h# 6f <> ?error +; +: command-c ( -- ) 0 0 0 0 h# 42 4 control-set ?error ; +: write ( adr len -- ) +; +: open ( -- flag ) + set-device? if false exit then + device set-target + reset? if + configuration set-config if + ." userial: set-config failed" cr + false exit + then + bulk-in-pipe bulk-out-pipe reset-bulk-toggles + then + alloc-buffers + inbuf h# 10 bulk-in-pipe begin-bulk-in + command-a + command-a + check-devicstring if free-buffers false exit then + dediprog-command-c + d# 3500 set-millivolts + + true +; +: close ( -- ) + 0 set-millivolts +; +\ Send sequence +\ w 9f r4 ef 30 11 00 +\ w 9f r3 ef 30 11 +\ w 9f r2 ef 30 +\ w 15 r2 00 00 +\ w4 ab 00 00 00 r3 10 10 10 +\ w4 ab 00 00 00 r2 10 10 +\ w4 90 00 00 00 r3 ef 10 ef +\ w4 90 00 00 00 r2 ef 10 +\ set-voltage 0 +\ device string +\ CTL: 42 07 0009 0007 0 +\ set-voltage 0x10 (3V3) +\ set-speed 0x02 +\ set-voltage 0 +\ device string +\ command-a +\ command-a +\ command-a +\ set-voltage 0 +\ command-a +\ device string +\ CTL: 42 07 0009 0005 0 +\ set-voltage 0x10 +\ device string (c3,07 c2,08) +\ CTL: 42 07 0009 0005 0 +\ set-voltage 0x10 + +\ CTL: 42 20 0000 0000 4 Data: 80 00 00 02 +\ Bulk IN EP 82: 512 bytes: 02 01 01 02 01 5d ff ff ff ff 02 ... +\ Bulk IN EP 82: 512 bytes: 09 b5 75 82 ... +\ ... +\ Last one is URB 220, data: ff .. ff 09 b2 c2 54 +\ URB 221: +\ CTL: 42 20 0000 00ff 0 +\ set-voltage 0x10 +\ CTL: 42 01 00ff 0001 1 wdata: 05 -> 00 status (01 bit is write in progress) +\ CTL: 42 01 00ff 0001 1 wdata: 06 write-enable +\ CTL: 42 01 00ff 0001 1 wdata: 05 -> 02 status (02 bit is write-enable) + +\ CTL: 42 01 00ff 0001 4 wdata: d8 00 00 00 erase (adr-hi,mid,lo) +\ CTL: 42 01 00ff 0001 1 wdata: 05 -> 03 status + +\ again again ... eventually returns 00 instead of 03 at URB 264, 266 + +\ CTL: 42 01 00ff 0001 1 wdata: 06 write-enable +\ CTL: 42 01 00ff 0001 1 wdata: 05 -> 02 status + +\ CTL: 42 30 0000 0000 4 wdata: 00 01 00 01 + +\ URB 271 +\ Bulk out EP 02 512 bytes data: 02 01 01 02 01 5d ff ff ff ff ff 02 05 fc ... + +\ many more +\ URB 527 +\ CTL: 42 01 00ff 0001 1 wdata: 05 +\ CTL: C2 01 0bb8 0000 1 rdata: 00 +\ set-voltage 0 +\ CTL: 42 07 0009 0006 0 +\ set-voltage 0 +\ set-voltage 0

1 0

[commit] r2606 - cpu/arm/olpc/1.75
by repository service 15 Oct '11

15 Oct '11

Author: wmb Date: Sat Oct 15 01:53:00 2011 New Revision: 2606 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2606 Log: OLPC XO-1.75 - trac #11314 - suppress CForth complaint when using early serial interaction with OFW. The fix also requires a corresponding change to CForth. Modified: cpu/arm/olpc/1.75/fw.bth Modified: cpu/arm/olpc/1.75/fw.bth ============================================================================== --- cpu/arm/olpc/1.75/fw.bth Fri Oct 14 04:21:56 2011 (r2605) +++ cpu/arm/olpc/1.75/fw.bth Sat Oct 15 01:53:00 2011 (r2606) @@ -120,6 +120,8 @@ \ d# 1000 i-key-wait if rotate-button? if protect-fw + \ Make the frame buffer visible so CForth won't complain about OFW not starting + h# 8009.1100 h# 20.b190 io! ." Interacting" cr hex interact then \ Turn on USB power here to overlap the time with other startup actions

1 0

[commit] r2605 - cpu/x86/pc/olpc
by repository service 14 Oct '11

14 Oct '11

Author: quozl Date: Fri Oct 14 04:21:56 2011 New Revision: 2605 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2605 Log: Q2E48 (note that this version was not svn head at this point, but rather svn 2393 with svn 2585, 2589, 2603 and 2604) Modified: cpu/x86/pc/olpc/versions.fth Modified: cpu/x86/pc/olpc/versions.fth ============================================================================== --- cpu/x86/pc/olpc/versions.fth Fri Oct 14 03:16:49 2011 (r2604) +++ cpu/x86/pc/olpc/versions.fth Fri Oct 14 04:21:56 2011 (r2605) @@ -2,7 +2,7 @@ \ The overall firmware revision macro: FW_MAJOR E -macro: FW_MINOR 47 +macro: FW_MINOR 48 \ The EC microcode macro: EC_VERSION e35

1 0

[commit] r2604 - dev
by repository service 14 Oct '11

14 Oct '11

Author: wmb Date: Fri Oct 14 03:16:49 2011 New Revision: 2604 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2604 Log: OLPC XO-1 - trac # 11335 - keyboard - call olpc-set-ec-keymap to ensure that the right mapping table is used. Modified: dev/pckbd.fth Modified: dev/pckbd.fth ============================================================================== --- dev/pckbd.fth Fri Oct 14 01:48:15 2011 (r2603) +++ dev/pckbd.fth Fri Oct 14 03:16:49 2011 (r2604) @@ -285,6 +285,7 @@ begin d# 50 timed-read 0= while drop true to keyboard-present? + olpc-set-ec-keymap exit repeat keyboard-present? if exit then

1 0

Jump to page:

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

openfirmware