November 2010 - openfirmware - mail.coreboot.org

[commit] r2052 - cpu/arm cpu/arm/olpc/1.75 cpu/x86 cpu/x86/pc/olpc dev/olpc/kb3700 dev/olpc/touchpad
by repository service Nov. 30, 2010

Nov. 30, 2010

Author: wmb Date: Tue Nov 30 21:50:14 2010 New Revision: 2052 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2052 Log: OLPC XO-1.75 - Omnibus checkin: a) Fix memory available size problem that prevented Linux from booting on Q4A06 b) New touchpad diagnostic that omits all the old ALPS complexity, and works well c) Support EC version commands Added: dev/olpc/touchpad/syntpad.fth Modified: cpu/arm/linux.fth cpu/arm/olpc/1.75/devices.fth cpu/arm/olpc/1.75/fw.bth cpu/x86/adpcm.fth cpu/x86/pc/olpc/sound.fth dev/olpc/kb3700/eccmds.fth dev/olpc/kb3700/spicmd.fth Modified: cpu/arm/linux.fth ============================================================================== --- cpu/arm/linux.fth Fri Nov 26 00:05:18 2010 (r2051) +++ cpu/arm/linux.fth Tue Nov 30 21:50:14 2010 (r2052) @@ -1,7 +1,8 @@ \ See license at end of file purpose: ARM Linux zImage program loading -defer linux-hook ' noop to linux-hook +defer linux-hook ' noop to linux-hook +defer linux-pre-hook ' noop to linux-pre-hook 0 value ramdisk-adr 0 value /ramdisk @@ -170,7 +171,8 @@ init-program linux-loaded? if ['] linux-place-ramdisk to place-ramdisk - memory-limit to linux-memtop \ load-ramdisk may change this + linux-pre-hook + memory-limit 1meg round-down to linux-memtop \ load-ramdisk may change this ['] load-ramdisk guarded linux-fixup then Modified: cpu/arm/olpc/1.75/devices.fth ============================================================================== --- cpu/arm/olpc/1.75/devices.fth Fri Nov 26 00:05:18 2010 (r2051) +++ cpu/arm/olpc/1.75/devices.fth Tue Nov 30 21:50:14 2010 (r2052) @@ -290,10 +290,9 @@ " SN" find-tag if 1- else " Unknown" then " serial-number" string-property [ifdef] notyet ec-api-ver@ " ec-version" integer-property - - XXX Get EC name with an EC command - " ec-name" string-property [then] + + ec-name$ " ec-name" string-property dend " /openprom" find-device Modified: cpu/arm/olpc/1.75/fw.bth ============================================================================== --- cpu/arm/olpc/1.75/fw.bth Fri Nov 26 00:05:18 2010 (r2051) +++ cpu/arm/olpc/1.75/fw.bth Tue Nov 30 21:50:14 2010 (r2052) @@ -150,7 +150,7 @@ 0 value final-test? \ !!! fload ${BP}/cpu/x86/pc/olpc/disptest.fth fload ${BP}/dev/olpc/keyboard/selftest.fth \ Keyboard diagnostic -fload ${BP}/dev/olpc/touchpad/touchpad.fth \ Touchpad diagnostic +fload ${BP}/dev/olpc/touchpad/syntpad.fth \ Touchpad diagnostic fload ${BP}/cpu/x86/pc/olpc/gridmap.fth \ Gridded display tools fload ${BP}/cpu/x86/pc/olpc/via/copynand.fth @@ -187,6 +187,12 @@ fload ${BP}/cpu/x86/pc/olpc/sound.fth fload ${BP}/cpu/x86/pc/olpc/security.fth +: pre-setup-for-linux ( -- ) + [ ' linux-pre-hook behavior compile, ] \ Chain to old behavior + sound-end +; +' pre-setup-for-linux to linux-pre-hook + [ifdef] notyet create use-thinmac fload ${BP}/cpu/x86/bootascall.fth @@ -381,6 +387,9 @@ \ " wifi media lab 802.11" eval \ " flash http:\\18.85.46.172\new.rom" eval ; +: newec + " flash-ec http:\\10.20.0.14\ecimage.bin" eval +; : urom " flash! u:\new.rom" eval ; : erom " flash! ext:\new.rom" eval ; : no-usb-delay " dev /usb false to delay? dend" evaluate ; Modified: cpu/x86/adpcm.fth ============================================================================== --- cpu/x86/adpcm.fth Fri Nov 26 00:05:18 2010 (r2051) +++ cpu/x86/adpcm.fth Tue Nov 30 21:50:14 2010 (r2052) @@ -323,11 +323,15 @@ false ( error? ) ; -: (play-wav) ( adr -- error? ) +: free-wav ( -- ) pcm-base if pcm-base /pcm-output " dma-free" $call-audio 0 to pcm-base then +; + +: (play-wav) ( adr -- error? ) + free-wav parse-wav-ok? not if ." Not a .wav file" cr true exit then audio-ih 0= if Modified: cpu/x86/pc/olpc/sound.fth ============================================================================== --- cpu/x86/pc/olpc/sound.fth Fri Nov 26 00:05:18 2010 (r2051) +++ cpu/x86/pc/olpc/sound.fth Tue Nov 30 21:50:14 2010 (r2052) @@ -39,9 +39,11 @@ ; : sound-end ( -- ) " wait-sound" ['] $call-audio catch if 2drop then + free-wav ; : stop-sound ( -- ) " stop-sound" ['] $call-audio catch if 2drop then + free-wav ; \ LICENSE_BEGIN Modified: dev/olpc/kb3700/eccmds.fth ============================================================================== --- dev/olpc/kb3700/eccmds.fth Fri Nov 26 00:05:18 2010 (r2051) +++ dev/olpc/kb3700/eccmds.fth Tue Nov 30 21:50:14 2010 (r2052) @@ -4,7 +4,10 @@ 0 value ec-ih : $call-ec ( ... adr len -- ... ) ec-ih $call-method ; : do-ec-cmd ( [ args ] #args #results cmd-code -- [ results ] ) - " ec-command" $call-ec abort" EC command failed" + " ec-command" $call-ec +; +: do-ec-cmd-buf ( [ args ] #args #results cmd-code -- buf-adr ) + " ec-command-buf" $call-ec ; stand-init: EC " /ec-spi" open-dev to ec-ih @@ -46,6 +49,18 @@ : autowack-on ( -- ) 1 33 ec-cmd-b! ; : autowack-off ( -- ) 0 33 ec-cmd-b! ; +: cscount-max ( adr maxlen -- adr len ) + dup 0 ?do ( adr maxlen ) + over i + c@ 0= if + drop i unloop exit + then + loop +; +: ec-name$ ( -- adr len ) + 0 d# 16 h# 4a do-ec-cmd-buf ( adr ) + d# 16 cscount-max +; + : bat-gauge@ ( -- w ) h# 4e ec-cmd-w@ ; : ec-echo ( ... n -- ... ) dup h# 52 do-ec-cmd ; Modified: dev/olpc/kb3700/spicmd.fth ============================================================================== --- dev/olpc/kb3700/spicmd.fth Fri Nov 26 00:05:18 2010 (r2051) +++ dev/olpc/kb3700/spicmd.fth Tue Nov 30 21:50:14 2010 (r2052) @@ -50,24 +50,49 @@ \ 5 Event \ 6 EC Debug -5 constant #ports -#ports /n* buffer: port-data -: init-queue ( -- ) port-data #ports /n* bounds ?do -1 i ! /n +loop ; -: enque ( data channel# -- ) - 2- ( data queue# ) - dup #ports >= if 2drop exit then - port-data swap na+ ! ( data adr ) -; -: deque? ( channel# -- false | data true ) - 2- ( queue# ) - port-data swap na+ ( adr ) - dup @ ( adr data ) - dup -1 = if ( adr data ) - 2drop false ( false ) - else ( adr data ) - -1 rot ! ( data ) - true ( data true ) +6 constant #ports +#ports 2- constant #queues + +d# 16 constant /q + +0 value queue# +#queues /n* buffer: heads : head ( -- adr ) heads queue# na+ ; +#queues /n* buffer: tails : tail ( -- adr ) tails queue# na+ ; + +#queues /q * buffer: qs : q ( adr -- ) qs queue# /q * + ; + +/q 1- value q-end + +: init-queues ( -- ) + #queues 0 do + i to queue# + 0 head ! 0 tail ! /q 1- to q-end + loop +; +: inc-q-ptr ( pointer-addr -- ) + dup @ q-end >= if 0 swap ! else /c swap +! then +; + +: select-queue ( channel# -- error? ) + 2- to queue# + queue# #queues >= +; + +: enque ( new-entry channel# -- ) + select-queue if drop exit then ( new-entry ) + tail @ head @ 2dup > if - q-end else 1- then ( new-entry tail head ) + <> if q tail @ ca+ c! tail inc-q-ptr else drop then +; + +: deque? ( channel# -- false | entry true ) + select-queue if false exit then + lock[ + head @ tail @ <> if + q head @ ca+ c@ head inc-q-ptr true + else + false then + ]unlock ; h# d4037000 value ssp-base \ Default to SSP3 @@ -258,7 +283,7 @@ init-gpios init-ssp-in-slave-mode rxflush - init-queue + init-queues clr-cmd prime-fifo clr-ack \ Tell EC that it is okay to send @@ -357,23 +382,22 @@ true abort" EC command result timeout" ; -: get-results ( -- [ results ] ) - ec-respbuf #results bounds ?do - timed-get-results i c! - loop +: ec-command-buf ( [ args ] #args #results cmd-code -- result-buf-adr ) + 0 set-cmdbuf ( ) - #results 0 ?do \ XXX maybe this loop should go backwards? - ec-respbuf i + c@ - loop -; -: ec-command ( [ args ] #args #results cmd-code -- [ results ] error? ) - 0 set-cmdbuf + ec-cmdbuf 8 false no-data-command ( ) - ec-cmdbuf 8 false no-data-command + ec-respbuf #results bounds ?do ( ) + timed-get-results i c! ( ) + loop ( ) - get-results - false + ec-respbuf ( result-buf-adr ) ; +: ec-command ( [ args ] #args #results cmd-code -- [ results ] ) + ec-command-buf ( result-buf-adr ) + #results bounds ?do i c@ loop ( [ results ] ) +; + : put-data ( byte -- ) 1 0 port# case @@ -381,7 +405,7 @@ 4 of h# 47 endof ( default ) 3drop exit endcase ( byte #args #results cmd ) - ec-command drop + ec-command ; : put-get-data ( cmd -- data | -1 ) put-data get-data ; Added: dev/olpc/touchpad/syntpad.fth ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ dev/olpc/touchpad/syntpad.fth Tue Nov 30 21:50:14 2010 (r2052) @@ -0,0 +1,304 @@ +\ See license at end of file +\ Add this code to the existing mouse driver +dev /mouse + +variable 'get-data 'get-data off +variable 'get-data? 'get-data? off + +: setup ( -- ) + 'get-data @ 0= if + " get-data" my-parent ihandle>phandle find-method if + 'get-data ! + then + then + 'get-data? @ 0= if + " get-data?" my-parent ihandle>phandle find-method if + 'get-data? ! + then + then +; + + +h# f800 constant red +h# 07e0 constant green +h# 001f constant blue +h# ffe0 constant yellow +h# f81f constant magenta +h# 07ff constant cyan +h# ffff constant white +h# 0000 constant black + +variable pixcolor + +h# 4 value y-offset +0 value screen-w +0 value screen-h +0 value /line +2 value /pixel + + +\ This program depends on the following routines from the +\ existing Open Firmware mouse driver: + +\ open initializes the port and resets the device +\ cmd sends a command byte and waits for the ack +\ read1 reads 1 response byte +\ read2 reads 2 response bytes +\ mouse1:1 command e6 +\ mouse2:1 command e7 +\ stream-on command f4 +\ stream-off command f5 +\ mouse-status command e9 and reads 3 response bytes +\ set-resolution command e8 then sends another command byte +\ get-data? reads a data byte if one is available +\ get-data waits for and reads a data byte + + +variable ptr +0 value show-raw? + +\ Runs the special Device ID command and checks for the ALPS return code +\ Ref: 5.2.10 (1) of Hybrid-GP2B-T-1.pdf + +\ The Synaptics touchpad version is 64.02.30 + +: touchpad-id ( -- n ) + mouse2:1 mouse2:1 mouse2:1 mouse-status ( 30 02 64 ) + 0 bljoin +; + +\ Put the device into advanced mode and enable it +: start ( -- ) + setup + stream-mode +; + +\ The normal mouse driver uses remote mode, but this device +\ doesn't support remote mode, so patch the mouse driver +\ "open" routine to substitute "noop" for "remote-mode". + +patch start remote-mode open + +\ The following code receives and decodes touchpad packets in the +\ various special formats + +: show-packets ( adr len -- ) + push-hex + bounds ?do + i 6 bounds ?do i c@ 3 u.r loop cr + 6 +loop + pop-base +; +: last-10 ( -- ) + ptr @ load-base - d# 60 > if + ptr @ d# 60 - d# 60 + else + load-base ptr @ over - + then + show-packets +; + +variable mouse-x +variable mouse-y + +: mouse-xy ( -- x y ) mouse-x @ mouse-y @ ; + +: clipx ( delta -- x ) mouse-x @ + 0 max screen-w 1- min dup mouse-x ! ; +: clipy ( delta -- y ) mouse-y @ + 0 max screen-h 1- min dup mouse-y ! ; + +: rel>abs ( dy dy buttons -- x y buttons ) + >r ( dx dy ) + swap clipx swap negate clipy ( x y ) + r> ( buttons ) +; + +\ Try to receive a GS-format packet. If one arrives within +\ 20 milliseconds, return true and the decoded information. +\ Otherwise return false. +: pad? ( -- false | x y buttons true ) + stream-poll? if ( dx dy buttons ) + rel>abs true + else + false + then +; + +\ Switch the device to glide format and display +\ the data that it sends. Stop when a key is typed. +: show-pad ( -- ) + start + begin + pad? if . . . cr then + key? until +; + +: button ( color x -- ) + screen-h d# 50 - d# 200 d# 30 fill-rectangle-noff +; +d# 300 d# 300 2constant target-wh +: left-target ( -- x y w h ) 0 0 target-wh ; +: right-target ( -- x y w h ) screen-w screen-h target-wh xy- target-wh ; +false value left-hit? +false value right-hit? +: inside? ( mouse-x,y x y w h -- flag ) + >r >r ( mouse-x mouse-y x y r: h w ) + xy- ( dx dy ) + swap r> u< ( dy x-inside? ) + swap r> u< ( x-inside? y-inside? ) + and ( flag ) +; + +: draw-left-target ( -- ) green left-target fill-rectangle-noff ; +: draw-right-target ( -- ) red right-target fill-rectangle-noff ; +: ?hit-target ( but -- but ) + dup 1 and if \ Left ( but ) + mouse-xy left-target inside? if ( but ) + yellow left-target fill-rectangle-noff ( but ) + true to left-hit? ( but ) + exit + then ( but ) + then ( but ) + dup 4 and if \ Right ( but ) + mouse-xy right-target inside? if ( but ) + yellow right-target fill-rectangle-noff ( but ) + true to right-hit? ( but ) + exit + then ( but ) + then ( but ) +; + +: track-init ( -- ) + " dimensions" $call-screen to screen-h to screen-w + screen-w 2/ mouse-x ! screen-h 2/ mouse-y ! + screen-ih package( bytes/line )package to /line + load-base ptr ! +; + +: dot ( x y -- ) + swap screen-w 3 - min swap y-offset + screen-h 3 - min ( x' y' ) + pixcolor @ -rot 3 3 ( color x y w h ) + fill-rectangle-noff ( ) +; + +: background ( -- ) + black 0 0 screen-w screen-h fill-rectangle-noff + final-test? if + false to left-hit? + false to right-hit? + draw-left-target + draw-right-target + else + 0 d# 27 at-xy ." Touchpad test. Both buttons clears screen. Type a key to exit" cr + then + mouse-xy dot +; + +: track ( x y buttons -- ) + cyan pixcolor ! ( x y but ) + + dup 5 and 5 = if background load-base ptr ! then + + final-test? if ( x y but ) + ?hit-target ( x y but ) + else ( x y but ) + dup 1 and if green else black then d# 100 button + dup 4 and if red else black then d# 350 button ( x y but ) + then ( x y but ) + drop ( x y ) + + dot +; + +: handle-key ( -- exit? ) + key upc case + [char] P of + cursor-on + cr last-10 + key drop + background + false + endof + + [char] S of suspend stream-on false endof + + ( key ) true swap + endcase +; + +false value selftest-failed? \ Success/failure flag for final test mode +: exit-test? ( -- flag ) + final-test? if ( ) + \ If the targets have been hit, we exit with successa + left-hit? right-hit? and if ( ) + false to selftest-failed? ( ) + true ( flag ) + exit + then ( ) + + \ Otherwise we give the tester a chance to bail out by typing a key, + \ thus indicating failure + key? 0= if false exit then ( ) + key drop ( ) + true to selftest-failed? ( ) + true ( flag ) + exit + then ( ) + + \ If not final test mode, we only exit via a key - no targets + key? if handle-key else false then ( exit ? ) +; +: selftest ( -- error? ) + open 0= if ." PS/2 Mouse (trackpad) open failed" true exit then + + \ Being able to open the touchpad is good enough in SMT mode + smt-test? if close false exit then + + final-test? 0= if + ." Touchpad test will start in 4 seconds" cr + d# 4000 ms + then + + cursor-off track-init start + + \ Consume already-queued keys to prevent premature exit + begin key? while key drop repeat + + background + begin + ['] pad? catch ?dup if .error close true exit then + if track then + exit-test? until + + close + cursor-on + page + final-test? if selftest-failed? else false then +; + +\ We are finished adding code to the mouse driver. +\ Go back to the main forth context +device-end + +\ LICENSE_BEGIN +\ Copyright (c) 2010 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] r2051 - cpu/x86/pc/olpc/via
by repository service Nov. 25, 2010

Nov. 25, 2010

Author: quozl Date: Fri Nov 26 00:05:18 2010 New Revision: 2051 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2051 Log: Q3A61 Modified: cpu/x86/pc/olpc/via/fw-version.fth Modified: cpu/x86/pc/olpc/via/fw-version.fth ============================================================================== --- cpu/x86/pc/olpc/via/fw-version.fth Thu Nov 25 22:27:40 2010 (r2050) +++ cpu/x86/pc/olpc/via/fw-version.fth Fri Nov 26 00:05:18 2010 (r2051) @@ -1,3 +1,3 @@ \ The overall firmware revision macro: FW_MAJOR A -macro: FW_MINOR 60 +macro: FW_MINOR 61

1 0

[commit] r2050 - dev/olpc/kb3700
by repository service Nov. 25, 2010

Nov. 25, 2010

Author: wmb Date: Thu Nov 25 22:27:40 2010 New Revision: 2050 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2050 Log: OLPC XO-1.75 - removed debug-me from rxavail error check in EC SPI driver. Modified: dev/olpc/kb3700/spicmd.fth Modified: dev/olpc/kb3700/spicmd.fth ============================================================================== --- dev/olpc/kb3700/spicmd.fth Thu Nov 25 22:26:25 2010 (r2049) +++ dev/olpc/kb3700/spicmd.fth Thu Nov 25 22:27:40 2010 (r2050) @@ -241,7 +241,7 @@ pulse-ack ; : (upstream) ( -- ) - rxavail 2 <> if ." ec-spi rxavail = " rxavail . cr debug-me then + rxavail 2 <> if ." ec-spi rxavail = " rxavail . cr then ssp-ssdr rl@ ssp-ssdr rl@ ( channel# data ) debug? if ." UP: " over . dup . cr

1 0

[commit] r2049 - cpu/arm/olpc/1.75
by repository service Nov. 25, 2010

Nov. 25, 2010

Author: wmb Date: Thu Nov 25 22:26:25 2010 New Revision: 2049 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2049 Log: OLPC XO-1.75 - cleaned up the display from flash-ec. Modified: cpu/arm/olpc/1.75/ecflash.fth Modified: cpu/arm/olpc/1.75/ecflash.fth ============================================================================== --- cpu/arm/olpc/1.75/ecflash.fth Thu Nov 25 22:01:55 2010 (r2048) +++ cpu/arm/olpc/1.75/ecflash.fth Thu Nov 25 22:26:25 2010 (r2049) @@ -32,9 +32,9 @@ : flash-ec ( "filename" -- ) get-ec-file " enter-updater" $call-ec - ." Erasing ..." " erase-flash" $call-ec cr - ." Writing ..." load-base /ec-flash 0 " write-flash" $call-ec cr - ." Verifying ..." + ." Erasing ..." cr " erase-flash" $call-ec cr + ." Writing ..." cr load-base /ec-flash 0 " write-flash" $call-ec cr + ." Verifying ..." cr load-base /ec-flash + /ec-flash 0 " read-flash" $call-ec load-base load-base /ec-flash + /ec-flash comp abort" Miscompare!"

1 0

[commit] r2048 - cpu/x86/pc/olpc/via
by repository service Nov. 25, 2010

Nov. 25, 2010

Author: rsmith Date: Thu Nov 25 22:01:55 2010 New Revision: 2048 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2048 Log: EC Ver 2.0.1 Modified: cpu/x86/pc/olpc/via/ec-version.fth Modified: cpu/x86/pc/olpc/via/ec-version.fth ============================================================================== --- cpu/x86/pc/olpc/via/ec-version.fth Thu Nov 25 06:47:14 2010 (r2047) +++ cpu/x86/pc/olpc/via/ec-version.fth Thu Nov 25 22:01:55 2010 (r2048) @@ -1,5 +1,5 @@ \ The EC microcode -macro: EC_VERSION 2_0_0 +macro: EC_VERSION 2_0_1 \ Alternate command for getting EC microcode, for testing new versions. \ Temporarily uncomment the line and modify the path as necessary

1 0

[commit] r2047 - dev/olpc/kb3700
by repository service Nov. 25, 2010

Nov. 25, 2010

Author: wmb Date: Thu Nov 25 06:47:14 2010 New Revision: 2047 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2047 Log: OLPC XO-1.75 - Fixed bug in ec-flash introduced by recent changes. Modified: dev/olpc/kb3700/spicmd.fth Modified: dev/olpc/kb3700/spicmd.fth ============================================================================== --- dev/olpc/kb3700/spicmd.fth Thu Nov 25 06:40:16 2010 (r2046) +++ dev/olpc/kb3700/spicmd.fth Thu Nov 25 06:47:14 2010 (r2047) @@ -403,7 +403,7 @@ lbsplit drop ( low mid hi r: template ) r@ 4 + c! r@ 5 + c! r> 6 + c! ; -: flash-command ( datadr datlen in? template -- ) data-command ; +: flash-command ( datadr datlen in? template -- ) 8 true data-command ; : write-flash-chunk ( adr len offset -- ) \ len limited to 16 bytes for now over pgm-cmd set-offset&len ( adr len )

1 0

[commit] r2046 - cpu/arm/olpc/1.75
by repository service Nov. 25, 2010

Nov. 25, 2010

Author: wmb Date: Thu Nov 25 06:40:16 2010 New Revision: 2046 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2046 Log: OLPC XO-1.75 - fixed problem with cursor being off. Modified: cpu/arm/olpc/1.75/fw.bth Modified: cpu/arm/olpc/1.75/fw.bth ============================================================================== --- cpu/arm/olpc/1.75/fw.bth Thu Nov 25 06:12:10 2010 (r2045) +++ cpu/arm/olpc/1.75/fw.bth Thu Nov 25 06:40:16 2010 (r2046) @@ -365,7 +365,7 @@ auto-boot frozen? text-on? 0= and ( no-banner? ) - unfreeze visible ( no-banner? ) + unfreeze visible cursor-on ( no-banner? ) if banner then \ Reissue banner if it was suppressed blue-letters ." Type 'help' for more information." black-letters

1 0

[commit] r2045 - cpu/arm/olpc/1.75
by repository service Nov. 25, 2010

Nov. 25, 2010

Author: wmb Date: Thu Nov 25 06:12:10 2010 New Revision: 2045 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2045 Log: OLPC XO-1.75 - Use board ID 1a1 if board-id@ fails. Modified: cpu/arm/olpc/1.75/boardrev.fth Modified: cpu/arm/olpc/1.75/boardrev.fth ============================================================================== --- cpu/arm/olpc/1.75/boardrev.fth Thu Nov 25 06:02:16 2010 (r2044) +++ cpu/arm/olpc/1.75/boardrev.fth Thu Nov 25 06:12:10 2010 (r2045) @@ -18,7 +18,7 @@ ; stand-init: board revision - ['] board-id@ catch if 0 then + ['] board-id@ catch if h# 1a1 then dup if h# 10 * 8 + then to board-revision ;

1 0

[commit] r2044 - cpu/arm/olpc/1.75
by repository service Nov. 25, 2010

Nov. 25, 2010

Author: wmb Date: Thu Nov 25 06:02:16 2010 New Revision: 2044 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2044 Log: Q4A06 Modified: cpu/arm/olpc/1.75/fw-version.fth Modified: cpu/arm/olpc/1.75/fw-version.fth ============================================================================== --- cpu/arm/olpc/1.75/fw-version.fth Thu Nov 25 05:57:42 2010 (r2043) +++ cpu/arm/olpc/1.75/fw-version.fth Thu Nov 25 06:02:16 2010 (r2044) @@ -1,4 +1,3 @@ \ The overall firmware revision macro: FW_MAJOR A -macro: FW_MINOR 05 - +macro: FW_MINOR 06

1 0

[commit] r2043 - in cpu: arm/olpc/1.75 x86/pc/olpc/via
by repository service Nov. 25, 2010

Nov. 25, 2010

Author: wmb Date: Thu Nov 25 05:57:42 2010 New Revision: 2043 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2043 Log: OLPC XO-1.75 - factored out HDD LED setting code, added game key reading code. Modified: cpu/arm/olpc/1.75/fw.bth cpu/x86/pc/olpc/via/fsupdate.fth cpu/x86/pc/olpc/via/fw.bth Modified: cpu/arm/olpc/1.75/fw.bth ============================================================================== --- cpu/arm/olpc/1.75/fw.bth Thu Nov 25 05:55:14 2010 (r2042) +++ cpu/arm/olpc/1.75/fw.bth Thu Nov 25 05:57:42 2010 (r2043) @@ -76,7 +76,7 @@ disable-interrupts d# 1000 i-key-wait if -\ protect-fw + protect-fw ." Interacting" cr hex interact then \ Turn on USB power here to overlap the time with other startup actions @@ -154,7 +154,15 @@ fload ${BP}/cpu/x86/pc/olpc/gridmap.fth \ Gridded display tools fload ${BP}/cpu/x86/pc/olpc/via/copynand.fth -: game-key@ ( -- n ) 0 ; \ Implement me!!! +: game-key@ ( -- n ) + 0 + d# 16 gpio-pin@ 0= if h# 80 or then \ O + d# 17 gpio-pin@ 0= if h# 02 or then \ Check + d# 18 gpio-pin@ 0= if h# 100 or then \ X + d# 19 gpio-pin@ 0= if h# 01 or then \ Square + d# 20 gpio-pin@ 0= if h# 40 or then \ Rotate +; + fload ${BP}/cpu/x86/pc/olpc/gamekeys.fth : emacs ( -- ) false to already-go? @@ -192,6 +200,10 @@ : show-temperature ; [then] +: hdd-led-off ( -- ) d# 10 gpio-clr ; +: hdd-led-on ( -- ) d# 10 gpio-set ; +: hdd-led-toggle ( -- ) d# 10 gpio-pin@ if hdd-led-off else hdd-led-on then ; + fload ${BP}/cpu/x86/pc/olpc/via/fsupdate.fth fload ${BP}/cpu/x86/pc/olpc/via/fsverify.fth devalias fsdisk int:0 @@ -295,12 +307,11 @@ protect-fw text-on ['] scan-nand guarded then ; +[then] : ?fs-update ( -- ) button-check button-x or button-o or button-square or ( mask ) game-key-mask = if protect-fw try-fs-update then ; -[then] - : startup ( -- ) standalone? 0= if exit then @@ -313,9 +324,7 @@ disable-user-aborts console-start -[ifdef] notyet read-game-keys -[then] factory-test? if text-off then Modified: cpu/x86/pc/olpc/via/fsupdate.fth ============================================================================== --- cpu/x86/pc/olpc/via/fsupdate.fth Thu Nov 25 05:55:14 2010 (r2042) +++ cpu/x86/pc/olpc/via/fsupdate.fth Thu Nov 25 05:57:42 2010 (r2043) @@ -64,20 +64,8 @@ vocabulary nand-commands also nand-commands definitions -: flash-led ( -- ) - h# 4c acpi-l@ - h# 400000 xor - h# 4c acpi-l! -; - -: clear-led ( -- ) - h# 4c acpi-l@ - h# 400000 or - h# 4c acpi-l! -; - : zblocks: ( "eblock-size" "#eblocks" ... -- ) - flash-led + hdd-led-toggle ?compare-spec-line get-hex# to /nand-block get-hex# to #image-eblocks @@ -100,7 +88,7 @@ " write-blocks-end" $call-nand ( error? ) " Write error" ?nand-abort \ #image-eblocks erase-gap - clear-led + hdd-led-off release-inflater fexit ; @@ -229,7 +217,7 @@ dup to last-eblock# ( eblock# ) show-written ( ) show-temperature - flash-led + hdd-led-toggle ; previous definitions Modified: cpu/x86/pc/olpc/via/fw.bth ============================================================================== --- cpu/x86/pc/olpc/via/fw.bth Thu Nov 25 05:55:14 2010 (r2042) +++ cpu/x86/pc/olpc/via/fw.bth Thu Nov 25 05:57:42 2010 (r2043) @@ -521,6 +521,8 @@ fload ${BP}/cpu/x86/pc/olpc/via/nbtx.fth fload ${BP}/cpu/x86/pc/olpc/via/nbrx.fth fload ${BP}/cpu/x86/pc/olpc/via/blockfifo.fth +: hdd-led-toggle ( -- ) h# 4c acpi-l@ h# 400000 xor h# 4c acpi-l! ; +: hdd-led-off ( -- ) h# 4c acpi-l@ h# 400000 or h# 4c acpi-l! ; fload ${BP}/cpu/x86/pc/olpc/via/fsupdate.fth fload ${BP}/cpu/x86/pc/olpc/via/fsverify.fth devalias fsdisk int:0

1 0