openfirmware March 2010

openfirmware@openfirmware.info

1 participants
15 discussions

[commit] r1764 - dev/mmc/sdhci
by repository service 10 Mar '10

10 Mar '10

Author: wmb Date: Wed Mar 10 10:16:39 2010 New Revision: 1764 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1764 Log: Fixed problem introduced by r1740 - incorrect wait for completion after erase-blocks. Modified: dev/mmc/sdhci/sdhci.fth Modified: dev/mmc/sdhci/sdhci.fth ============================================================================== --- dev/mmc/sdhci/sdhci.fth Mon Mar 8 19:47:40 2010 (r1763) +++ dev/mmc/sdhci/sdhci.fth Wed Mar 10 10:16:39 2010 (r1764) @@ -516,6 +516,8 @@ : unprotect ( group# -- ) h# 1d1b 0 cmd ; \ CMD29 R1b UNTESTED : protected? ( group# -- 32-bits ) h# 1e1a cmd response ; \ CMD30 R1 UNTESTED +0 instance value writing? + : erase-blocks ( block# #blocks -- ) \ UNTESTED intstat-on dup 0= if 2drop exit then @@ -524,6 +526,7 @@ h# 211a 0 cmd ( ) \ CMD33 - R1 0 h# 261b 0 cmd \ CMD38 - R1b (wait for busy) intstat-off + true to writing? ; \ CMD40 is MMC @@ -744,8 +747,6 @@ ; [then] -0 instance value writing? - : .card-error ( value -- ) dup h# 8000.0000 and if ." Address out of range (past end?)" cr then dup h# 4000.0000 and if ." Misaligned address" cr then @@ -792,8 +793,9 @@ : wait-write-done ( -- error? ) writing? 0= if false exit then ( limit ) - get-msecs d# 1000 + ( limit ) - begin get-status dup 9 rshift h# f and 7 = while ( limit status ) + get-msecs d# 4000 + ( limit ) + \ Wait for return to "tran" state (4) + begin get-status dup 9 rshift h# f and 4 <> while ( limit status ) drop ( limit ) dup get-msecs - 0< if ." SDHCI: wait-write-done timeout" cr

1 0

[commit] r1763 - cpu/x86/pc/olpc/via
by repository service 08 Mar '10

08 Mar '10

Author: rsmith Date: Mon Mar 8 19:47:40 2010 New Revision: 1763 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1763 Log: OLPC 1.5: Bump EC and FW version. - EC version 1.9.24 - FW version q3a34 Modified: cpu/x86/pc/olpc/via/ec-version.fth cpu/x86/pc/olpc/via/fw-version.fth Modified: cpu/x86/pc/olpc/via/ec-version.fth ============================================================================== --- cpu/x86/pc/olpc/via/ec-version.fth Fri Mar 5 07:55:23 2010 (r1762) +++ cpu/x86/pc/olpc/via/ec-version.fth Mon Mar 8 19:47:40 2010 (r1763) @@ -1,5 +1,5 @@ \ The EC microcode -macro: EC_VERSION 1_9_22 +macro: EC_VERSION 1_9_24 \ Alternate command for getting EC microcode, for testing new versions. \ Temporarily uncomment the line and modify the path as necessary Modified: cpu/x86/pc/olpc/via/fw-version.fth ============================================================================== --- cpu/x86/pc/olpc/via/fw-version.fth Fri Mar 5 07:55:23 2010 (r1762) +++ cpu/x86/pc/olpc/via/fw-version.fth Mon Mar 8 19:47:40 2010 (r1763) @@ -1,3 +1,3 @@ \ The overall firmware revision macro: FW_MAJOR A -macro: FW_MINOR 33g +macro: FW_MINOR 34

1 0

[commit] r1762 - cpu/x86/pc/olpc dev/hdaudio
by repository service 05 Mar '10

05 Mar '10

Author: wmb Date: Fri Mar 5 07:55:23 2010 New Revision: 1762 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1762 Log: OLPC trac 10053 - XO-1.5 - Flaky audio selftest. Fixed buffer overflow with debugging routine for plotting impulse response. Doesn't affect normal testing. Modified: cpu/x86/pc/olpc/plot.fth dev/hdaudio/noiseburst.fth dev/hdaudio/test.fth Modified: cpu/x86/pc/olpc/plot.fth ============================================================================== --- cpu/x86/pc/olpc/plot.fth Fri Mar 5 05:55:13 2010 (r1761) +++ cpu/x86/pc/olpc/plot.fth Fri Mar 5 07:55:23 2010 (r1762) @@ -38,9 +38,9 @@ fill-rectangle ; : waveform-start ( -- ) 0 wave0 moveto ; -: draw-wave ( adr ) - 0 swap ( last adr ) - screen-width 0 do ( last adr ) +: draw-wave ( adr #samples -- ) + 0 -rot ( last adr #samples ) + 0 do ( last adr ) tuck <w@ ( adr last this-unscaled ) wave-scale >>a ( adr last this ) tuck swap - ( adr this distance ) @@ -49,7 +49,8 @@ loop ( last adr ) 2drop ; -: waveform ( adr -- ) clear-waveform waveform-start draw-wave ; +: waveform ( adr -- ) clear-waveform waveform-start screen-width draw-wave ; +: wave ( adr #samples -- ) clear-waveform waveform-start draw-wave ; : vgrid ( width height interval -- ) rot 0 ?do ( height interval ) i plot0 nip moveto ( height interval ) @@ -67,7 +68,7 @@ dend \ : $call-screen ( ? name$ -- ? ) stdout @ $call-method ; -: wave ( adr -- ) " waveform" $call-screen ; +: wave ( adr #samples -- ) " wave" $call-screen ; : clear-plot ( width height -- ) " clear-plot" $call-screen ; : lineplot ( xt xmin xmax xscale ymin ymax -- ) " plot" $call-screen ; : vgrid ( width height interval -- ) " vgrid" $call-screen ; Modified: dev/hdaudio/noiseburst.fth ============================================================================== --- dev/hdaudio/noiseburst.fth Fri Mar 5 05:55:13 2010 (r1761) +++ dev/hdaudio/noiseburst.fth Fri Mar 5 07:55:23 2010 (r1762) @@ -383,11 +383,12 @@ d# 70 < ; -d# 1024 /w* buffer: impulse-response +d# 1200 constant #impulse-response +#impulse-response /w* buffer: impulse-response : calc-sm-impulse ( offset -- adr ) \ offset is 0 for left or 2 for right pb + rb #samples ( adr1 adr2 #samples ) - d# 1200 0 do + #impulse-response 0 do 3dup swap i wa+ swap stereo-mono-covar ( adr1 adr2 #samples d.covar ) d# 50000000 m/mod nip ( adr1 adr2 #samples n.covar ) impulse-response i wa+ w! ( adr1 adr2 #samples ) @@ -397,7 +398,7 @@ ; : calc-stereo-impulse ( offset -- adr ) \ offset is 0 for left or 2 for right dup pb + swap rb + #samples ( adr1 adr2 #samples ) - d# 1200 0 do + #impulse-response 0 do 3dup swap i wa+ swap stereo-covar ( adr1 adr2 #samples d.covar ) d# 50000000 m/mod nip ( adr1 adr2 #samples n.covar ) impulse-response i wa+ w! ( adr1 adr2 #samples ) Modified: dev/hdaudio/test.fth ============================================================================== --- dev/hdaudio/test.fth Fri Mar 5 05:55:13 2010 (r1761) +++ dev/hdaudio/test.fth Fri Mar 5 07:55:23 2010 (r1762) @@ -101,6 +101,7 @@ ; false value plot? \ Set to true to plot the impulse response, for debugging : plot-impulse ( adr -- ) + d# 600 ( adr #samples ) " 0 set-fg h# ffff set-bg single-drawing clear-drawing wave" evaluate key ascii d = if debug-me then ;

1 0

[commit] r1761 - dev/hdaudio
by repository service 05 Mar '10

05 Mar '10

Author: wmb Date: Fri Mar 5 05:55:13 2010 New Revision: 1761 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1761 Log: OLPC trac 10053 - XO-1.5 - Flaky audio selftest. Use hardware synchronization between the output and input audio streams to make the test insensitive to CPU speed variations that can be caused by thermal throttling or interrupt vagaries. Modified: dev/hdaudio/core.fth dev/hdaudio/noiseburst.fth dev/hdaudio/test.fth Modified: dev/hdaudio/core.fth ============================================================================== --- dev/hdaudio/core.fth Mon Mar 1 06:25:09 2010 (r1760) +++ dev/hdaudio/core.fth Fri Mar 5 05:55:13 2010 (r1761) @@ -56,6 +56,7 @@ : wakeen h# 0c au + ; \ Wake enable : statests h# 0e au + ; \ Wake status : counter h# 30 au + ; \ Wall Clock Counter +: ssync h# 38 au + ; \ Stream synchronization : corblbase h# 40 au + ; : corbubase h# 44 au + ; : corbwp h# 48 au + ; \ CORB write pointer (last valid command) @@ -674,8 +675,10 @@ : out-in ( out-adr out-len in-adr in-len -- ) upsampling? if 2swap scale-factor upsample 2swap then ( out-adr,len in-adr,len ) + 1 out-sd lshift 1 in-sd lshift or ssync rl! \ Block the streams while setting up start-audio-in ( out-adr out-len ) start-audio-out ( ) + 0 ssync rl! ( ) \ Unblock the streams to start them simultaneously begin recording? if ?end-recording then playing? if ?end-playing then Modified: dev/hdaudio/noiseburst.fth ============================================================================== --- dev/hdaudio/noiseburst.fth Mon Mar 1 06:25:09 2010 (r1760) +++ dev/hdaudio/noiseburst.fth Fri Mar 5 05:55:13 2010 (r1761) @@ -339,15 +339,15 @@ 1 max d# 10 swap */ debug? if dup .d cr then ; -\ Reasonable threshold is d# 25 + : fixture-ratio-left ( -- error? ) - left-range d# 240 d# 140 sm-covar-abs-sum nip ( sum1 ) + left-range d# 160 d# 60 sm-covar-abs-sum nip ( sum1 ) left-range d# 400 d# 300 sm-covar-abs-sum nip ( sum1 sum2 ) >ratio d# 25 < ; : fixture-ratio-right ( -- error? ) - right-range d# 240 d# 140 sm-covar-abs-sum nip ( sum1 ) + right-range d# 160 d# 60 sm-covar-abs-sum nip ( sum1 ) right-range d# 400 d# 300 sm-covar-abs-sum nip ( sum1 sum2 ) >ratio d# 25 < @@ -356,14 +356,14 @@ \ This compares the total energy within the impulse response band to the \ total energy in a similar-length band : case-ratio-left ( -- error? ) - left-range d# 200 d# 140 sm-covar-abs-sum nip ( sum1.high ) - left-range d# 540 d# 400 sm-covar-abs-sum nip ( sum1.high sum2.high ) + left-range d# 120 d# 60 sm-covar-abs-sum nip ( sum1.high ) + left-range d# 460 d# 400 sm-covar-abs-sum nip ( sum1.high sum2.high ) >ratio d# 25 < ; : case-ratio-right ( -- error? ) - right-range d# 330 d# 140 sm-covar-abs-sum nip ( sum1.high ) - right-range d# 590 d# 400 sm-covar-abs-sum nip ( sum1.high sum2.high ) + right-range d# 250 d# 60 sm-covar-abs-sum nip ( sum1.high ) + right-range d# 590 d# 400 sm-covar-abs-sum nip ( sum1.high sum2.high ) >ratio d# 14 < ; @@ -371,13 +371,13 @@ \ This compares the total energy within the impulse response band to the \ total energy in a similar-length band : loopback-ratio-left ( -- error? ) - left-stereo-range d# 148 d# 128 ss-covar-abs-sum nip ( sum1.high ) + left-stereo-range d# 68 d# 48 ss-covar-abs-sum nip ( sum1.high ) left-stereo-range d# 220 d# 200 ss-covar-abs-sum nip ( sum1.high sum2.high ) >ratio d# 70 < ; : loopback-ratio-right ( -- error? ) - right-stereo-range d# 148 d# 128 ss-covar-abs-sum nip ( sum1.high ) + right-stereo-range d# 68 d# 48 ss-covar-abs-sum nip ( sum1.high ) right-stereo-range d# 220 d# 200 ss-covar-abs-sum nip ( sum1.high sum2.high ) >ratio d# 70 < @@ -385,14 +385,25 @@ d# 1024 /w* buffer: impulse-response -: calc-sm-impulse ( offset -- ) \ offset is 0 for left or 2 for right +: calc-sm-impulse ( offset -- adr ) \ offset is 0 for left or 2 for right pb + rb #samples ( adr1 adr2 #samples ) - d# 1024 0 do + d# 1200 0 do 3dup swap i wa+ swap stereo-mono-covar ( adr1 adr2 #samples d.covar ) d# 50000000 m/mod nip ( adr1 adr2 #samples n.covar ) impulse-response i wa+ w! ( adr1 adr2 #samples ) loop ( adr1 adr2 len ) 3drop ( ) + impulse-response ( adr ) +; +: calc-stereo-impulse ( offset -- adr ) \ offset is 0 for left or 2 for right + dup pb + swap rb + #samples ( adr1 adr2 #samples ) + d# 1200 0 do + 3dup swap i wa+ swap stereo-covar ( adr1 adr2 #samples d.covar ) + d# 50000000 m/mod nip ( adr1 adr2 #samples n.covar ) + impulse-response i wa+ w! ( adr1 adr2 #samples ) + loop ( adr1 adr2 len ) + 3drop ( ) + impulse-response ( adr ) ; : .samples ( adr end start -- ) do Modified: dev/hdaudio/test.fth ============================================================================== --- dev/hdaudio/test.fth Mon Mar 1 06:25:09 2010 (r1760) +++ dev/hdaudio/test.fth Fri Mar 5 05:55:13 2010 (r1761) @@ -99,6 +99,11 @@ out-in ( ) " analyze-signal" $call-analyzer ( okay? ) ; +false value plot? \ Set to true to plot the impulse response, for debugging +: plot-impulse ( adr -- ) + " 0 set-fg h# ffff set-bg single-drawing clear-drawing wave" evaluate + key ascii d = if debug-me then +; : input-common-settings ( -- ) open-in 48kHz 16bit with-adc d# 73 input-gain ; @@ -114,6 +119,10 @@ ." Testing internal speakers and microphone" cr " setup-case" test-common false to force-speakers? false to force-internal-mic? + plot? if + 0 " calc-sm-impulse" $call-analyzer plot-impulse + 2 " calc-sm-impulse" $call-analyzer plot-impulse + then ; : test-with-fixture ( -- error? ) true to force-speakers? true to force-internal-mic? @@ -122,12 +131,20 @@ ." Testing internal speakers and microphone with fixture" cr " setup-fixture" test-common false to force-speakers? false to force-internal-mic? + plot? if + 0 " calc-sm-impulse" $call-analyzer plot-impulse + 2 " calc-sm-impulse" $call-analyzer plot-impulse + then ; : test-with-loopback ( -- error? ) input-common-settings stereo output-common-settings d# -33 set-volume \ -23 prevents obvious visible clipping ." Testing headphone and microphone jacks with loopback cable" cr " setup-loopback" test-common + plot? if + 0 " calc-stereo-impulse" $call-analyzer plot-impulse + 2 " calc-stereo-impulse" $call-analyzer plot-impulse + then ; 0 value saved-volume

1 0

[commit] r1760 - dev/hdaudio
by repository service 01 Mar '10

01 Mar '10

Author: wmb Date: Mon Mar 1 06:25:09 2010 New Revision: 1760 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1760 Log: OLPC trac 10047 - XO-1.5 - Conexant chip needs ID in node 1. This revision also fixes a problem where the CODEC init table was not being processed properly, due to a table address relocation error. Modified: dev/hdaudio/start-cx2058x.fth Modified: dev/hdaudio/start-cx2058x.fth ============================================================================== --- dev/hdaudio/start-cx2058x.fth Thu Feb 25 23:16:34 2010 (r1759) +++ dev/hdaudio/start-cx2058x.fth Mon Mar 1 06:25:09 2010 (r1760) @@ -117,6 +117,10 @@ 71E00 place-verb \ Undocumented register 71F00 place-verb \ disable software GSMark protection 71F00 place-verb \ disable software GSMark protection - repeat in case of end condition issues + 72033 place-verb \ Low byte of product ID + 72108 place-verb \ High byte of product ID + 7222d place-verb \ Low byte of vendor ID + 72315 place-verb \ High byte of vendor ID end-verb-table \ Subroutine to turn on the HD Audio controller, push the verb table to the codec, @@ -180,7 +184,7 @@ \ Copy the verb table to the CORB DMA area #verbs # cx mov - verb-table # si mov + verb-table asm-base - asm-origin + # si mov corb # di mov rep movs

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

openfirmware March 2010