openfirmware

openfirmware@openfirmware.info

3007 discussions

[commit] r3251 - cpu/arm/mmp2
by repository service 30 Aug '12

30 Aug '12

Author: wmb Date: Thu Aug 30 18:37:19 2012 New Revision: 3251 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3251 Log: OLPC ARM - RTC - Changed the name of the internal RTC from "/rtc" to "/wakeup-rtc" so existing procedures that use "/rtc" to mean the timekeeping RTC will work. OLPC Trac #12072 Modified: cpu/arm/mmp2/rtc.fth Modified: cpu/arm/mmp2/rtc.fth ============================================================================== --- cpu/arm/mmp2/rtc.fth Thu Aug 30 05:04:15 2012 (r3250) +++ cpu/arm/mmp2/rtc.fth Thu Aug 30 18:37:19 2012 (r3251) @@ -2,7 +2,7 @@ purpose: Driver for MMP2 internal RTC 0 0 " d4010000" " /" begin-package - " rtc" name + " wakeup-rtc" name " mrvl,mmp-rtc" +compatible my-address my-space h# 1000 reg

1 0

[commit] r3250 - cpu/arm/olpc
by repository service 30 Aug '12

30 Aug '12

Author: quozl Date: Thu Aug 30 05:04:15 2012 New Revision: 3250 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3250 Log: OLPC XO-4 - Neonode, first pass at showing touch events graphically, multitouch not supported, X coordinate reflected due to a newly detected layout error that is not expected to be fixed. Not yet tested on IR PCB revision B. Modified: cpu/arm/olpc/nn-touchscreen.fth Modified: cpu/arm/olpc/nn-touchscreen.fth ============================================================================== --- cpu/arm/olpc/nn-touchscreen.fth Thu Aug 30 01:33:01 2012 (r3249) +++ cpu/arm/olpc/nn-touchscreen.fth Thu Aug 30 05:04:15 2012 (r3250) @@ -133,8 +133,10 @@ : stream-poll? ( -- false | x y buttons true ) in? if + \ FIXME: only handles one subpacket pbuf 2+ c@ h# 04 = if - pbuf 4 + w@ pbuf 6 + w@ ( x y ) + screen-w pbuf 4 + w@ - ( x ) + pbuf 6 + w@ ( x y ) pbuf 8 + c@ 3 and 0= ( x y down? ) true ( x y buttons true ) exit @@ -521,6 +523,16 @@ key drop ; +: scribble + cursor-off + background + begin + stream-poll? if drop dot then + key? until + cursor-on + \ FIXME: tune the event frequency with set scanning frequency request +; + : selftest ( -- error? ) 0 to faults @@ -569,8 +581,7 @@ then [ifdef] nn-ir-pcb-rev-b - \ FIXME: graphically show data on screen until key - \ ... waiting for revision B of IR PCB + scribble [else] ." dumping events from touchscreen controller, press a key to stop" cr dump-events

1 0

[commit] r3249 - cpu/arm/olpc/cl4
by repository service 29 Aug '12

29 Aug '12

Author: wmb Date: Thu Aug 30 01:33:01 2012 New Revision: 3249 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3249 Log: Q7A09 Modified: cpu/arm/olpc/cl4/fw-version.fth Modified: cpu/arm/olpc/cl4/fw-version.fth ============================================================================== --- cpu/arm/olpc/cl4/fw-version.fth Thu Aug 30 01:29:58 2012 (r3248) +++ cpu/arm/olpc/cl4/fw-version.fth Thu Aug 30 01:33:01 2012 (r3249) @@ -1,7 +1,7 @@ \ The overall firmware revision macro: FW_PREFIX Q7 macro: FW_MAJOR A -macro: FW_MINOR 08 +macro: FW_MINOR 09 \ Create a 2-character build/fw-suffix file to personalize your test builds " fw-suffix" $file-exists? [if]

1 0

[commit] r3248 - dev/olpc/mmp2camera
by repository service 29 Aug '12

29 Aug '12

Author: wmb Date: Thu Aug 30 01:29:58 2012 New Revision: 3248 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3248 Log: OLPC ARM - Camera device node - The interrupts property needed to change because MMP3 shares the camera IRQ. Modified: dev/olpc/mmp2camera/loadpkg.fth Modified: dev/olpc/mmp2camera/loadpkg.fth ============================================================================== --- dev/olpc/mmp2camera/loadpkg.fth Wed Aug 29 21:00:05 2012 (r3247) +++ dev/olpc/mmp2camera/loadpkg.fth Thu Aug 30 01:29:58 2012 (r3248) @@ -3,7 +3,13 @@ " marvell,mmpcam" +compatible my-address my-space h# 800 reg " /pmua" encode-phandle 2 encode-int encode+ " clocks" property +[ifdef] mmp3 + \ The CCIC interrupt is shared between CCIC1 and CCIC2 on MMP3 + " /interrupt-controller/interrupt-controller@1cc" encode-phandle " interrupt-parent" property + 0 " interrupts" integer-property +[else] d# 42 " interrupts" integer-property +[then] 0 0 encode-bytes cam-pwr-gpio# 0 encode-gpio

1 0

[commit] r3247 - cpu/arm/mmp2
by repository service 29 Aug '12

29 Aug '12

Author: wmb Date: Wed Aug 29 21:00:05 2012 New Revision: 3247 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3247 Log: OLPC ARM - Ensure that the main SDHC clock divisor is set properly when changing the SDH1 clock register. Modified: cpu/arm/mmp2/pmua.fth Modified: cpu/arm/mmp2/pmua.fth ============================================================================== --- cpu/arm/mmp2/pmua.fth Wed Aug 29 20:53:05 2012 (r3246) +++ cpu/arm/mmp2/pmua.fth Wed Aug 29 21:00:05 2012 (r3247) @@ -82,7 +82,7 @@ h# 048 +int h# 19 +int h# 19 +int d# 0 +int \ 0 IRE h# 04c +int h# fffff +int h# 71b +int d# 400,000,000 +int \ 1 DISPLAY1 h# 050 +int h# 3f +int h# 3f +int d# 0 +int \ 2 CCIC -h# 054 +int h# 1b +int h# 1b +int d# 200,000,000 +int \ 3 SDH1 +h# 054 +int h# 1b +int h# 41b +int d# 200,000,000 +int \ 3 SDH1 h# 058 +int h# 1b +int h# 1b +int d# 200,000,000 +int \ 4 SDH2 h# 05c +int h# 09 +int h# 09 +int d# 480,000,000 +int \ 5 USB h# 060 +int h# 1ff +int h# bf +int d# 100,000,000 +int \ 6 NF

1 0

[commit] r3246 - cpu/arm/mmp2
by repository service 29 Aug '12

29 Aug '12

Author: wmb Date: Wed Aug 29 20:53:05 2012 New Revision: 3246 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3246 Log: OLPC CL4 - added a clock speed reporting entry for the 1.067 GHz case. Modified: cpu/arm/mmp2/clocks.fth Modified: cpu/arm/mmp2/clocks.fth ============================================================================== --- cpu/arm/mmp2/clocks.fth Wed Aug 29 19:53:02 2012 (r3245) +++ cpu/arm/mmp2/clocks.fth Wed Aug 29 20:53:05 2012 (r3246) @@ -96,6 +96,7 @@ 0 of d# 400,000,000 pj4-clkdiv 1+ / endof ( hz ) 1 of d# 800,000,000 endof ( hz ) 2 of d# 26,000,000 pll2-fbdiv pll2-refdiv */ endof ( hz ) + 3 of d# 1,067,000,000 endof ( hz ) endcase d# 1,000,000 / ( mhz ) ;

1 0

[commit] r3245 - cpu/arm/olpc
by repository service 29 Aug '12

29 Aug '12

Author: wmb Date: Wed Aug 29 19:53:02 2012 New Revision: 3245 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3245 Log: OLPC ARM - removed spurious null from banner. Modified: cpu/arm/olpc/banner.fth Modified: cpu/arm/olpc/banner.fth ============================================================================== --- cpu/arm/olpc/banner.fth Wed Aug 29 10:44:31 2012 (r3244) +++ cpu/arm/olpc/banner.fth Wed Aug 29 19:53:02 2012 (r3245) @@ -143,7 +143,7 @@ : (xbanner-basics) ( -- ) ?spaces cpu-model type ." , " .cpu-speed ." , " .memory-brief ." , " .storage - ." , S/N " " SN" find-tag if type else ." Unknown" then cr + ." , S/N " " SN" find-tag if ?-null type else ." Unknown" then cr ?spaces .rom ." " .ec ." " .clock check-internal-partitions check-tags

1 0

[commit] r3244 - cpu/arm/mmp3
by repository service 29 Aug '12

29 Aug '12

Author: quozl Date: Wed Aug 29 10:44:31 2012 New Revision: 3244 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3244 Log: OLPC XO-4 - thermal sensor rework Modified: cpu/arm/mmp3/thermal.fth Modified: cpu/arm/mmp3/thermal.fth ============================================================================== --- cpu/arm/mmp3/thermal.fth Wed Aug 29 07:58:31 2012 (r3243) +++ cpu/arm/mmp3/thermal.fth Wed Aug 29 10:44:31 2012 (r3244) @@ -47,12 +47,6 @@ swap h# f and wa+ w@ ; -h# 03.b000 value tsense - -: +ts ( offset -- io-offset ) tsense swap la+ ; -: ts@ ( offset -- l ) +ts io@ ; -: ts! ( l offset -- ) +ts io! ; - : ts-clock ( offset -- ) 7 over apbc! 3 swap apbc! ( n ) ; @@ -64,8 +58,32 @@ h# a0 ts-clock ; -: ts-start ( n -- ) - dup ts@ h# 4000.0000 or swap ts! +h# 03.b000 value tsense \ p2021 + +: +ts ( offset -- io-offset ) tsense swap la+ ; +: ts@ ( offset -- l ) +ts io@ ; +: ts! ( l offset -- ) +ts io! ; + +\ last system reset was caused by thermal sensor? +\ : tsr? ( -- flag ) h# 0028 mpmu@ h# 10 and ; \ p282 +\ : tsr? ( -- flag ) h# 1028 mpmu@ h# 10 and ; \ p311 + +\ last thermal sensor watchdog reset was caused by THSENS1 unit? +\ (polarity differs from documentation) +\ : thsens1? ( -- flag ) h# 00a4 mpmu@ h# 10 and ; \ p345 + +\ thsens1 is requesting interrupt service? (true if auto run enabled) +\ : thsens1-int? ( -- flag ) h# 00a4 mpmu@ h# 1 and ; \ p346 + +\ thermal sensor interrupt is masked? (normally true) +\ : thsens1-int-masked? h# 180 icu@ 800 and ; \ p700 +\ : thsens1-int-status? h# 188 icu@ 800 and ; \ p702 + +\ thermal sensor watchdog to system reset enable (normally already set) +\ : wdtr? h# 200 mpmu@ 1 7 lshift and 0= ; \ p302 + +: ts-auto-read ( n -- ) \ undocumented + dup ts@ h# 20.0000 or swap ts! ; : ts-wait ( n -- ) @@ -80,8 +98,7 @@ : ts-read ( n -- gc ) dup ts-wait ( n ) - dup ts@ ( n gc ) - swap ts-start ( gc ) + ts@ ( gc ) ; : ts-range-low ( n -- ) @@ -92,33 +109,28 @@ dup ts@ h# 0800.0000 invert and swap ts! ; -: init-thermal-sensor ( -- ) - ts-clocks - 3 0 do i ts-range-low i ts-start loop +: ts-watchdog-enable ( n -- ) + dup ts@ h# 0400.0300 or swap ts! \ 85-87.5C ; -\ switch the sensors out of low range - does not work -[ifdef] notyet -: hot +: init-thermal-sensor ( -- ) ts-clocks - 3 0 do i ts-range-high i ts-start loop + 0 ts-range-high + 0 ts-watchdog-enable + 1 ts-range-low + 2 ts-range-low + 3 0 do i ts-auto-read loop ; -[then] -\ read and average the three sensors +\ read and average the two sensors on lowrange duty : cpu-temperature ( -- celcius ) - 0 ts-read gc>c 1 ts-read gc>c 2 ts-read gc>c - + + d# 30 / + + d# 20 / ; : ?thermal ( -- ) - cpu-temperature d# 70 > abort " CPU too hot" - \ FIXME: choose an appropriate limit, because - \ - the sample unit easily reaches 61C, - \ - using the low range we can't see greater than 61C, and - \ - the high range doesn't actually work. + 0 ts-read gc>c d# 850 > abort " CPU too hot" ; : .c.c ( n -- ) 0 <# # [char] . hold #s #> type ." C " ; @@ -129,9 +141,9 @@ push-decimal time&date >unix-seconds . ." sensors: " - 0 ts@ gc>c .c.c \ innermost? - 1 ts@ gc>c .c.c - 2 ts@ gc>c .c.c \ outermost? + 0 ts@ dup h# f and 0= if drop ." <80C " else gc>c .c.c then + 1 ts@ gc>c .c.c \ FIXME: show <n and >n too here + 2 ts@ gc>c .c.c ." cpu: " cpu-temperature .c ." battery: " bat-temp .c pop-base @@ -143,6 +155,74 @@ until key drop cr ; +\ .thermal 0 ts@ f and . d# 1000 ms cr many + +string-array tsense-regx-bits + ," 31=reserved" + ," 30=start" + ," 29=status" + ," 28=over_int" + ," 27=lowrange" + ," 26=en_wdog" + ," 25=temp_int" + ," 24=en_over_int" + ," 23=en_temp_int" + ," 22=reserved" + ," 21=auto_read_en" +end-string-array + +: .tc ( n -- ) + dup . + push-decimal + gc>c .c.c + pop-base +; + +: .tsense ( n -- ) + dup . cr 4 spaces + d# 11 0 do + dup i lshift h# 8000.0000 and if + i tsense-regx-bits count type space + then + loop cr + \ dup d# 12 rshift h# 7ff and dup if 4 spaces ." reserved=" . cr else drop then + 4 spaces dup 8 rshift h# f and ." wdog_tshld=" .tc cr + 4 spaces dup 4 rshift h# f and ." int_tshld=" .tc cr + 4 spaces dup h# f and ." temp_value=" .tc cr + drop +; + +: .ts + 0 ts@ ." tsense_reg[0]=" .tsense + 1 ts@ ." tsense_reg[1]=" .tsense + 2 ts@ ." tsense_reg[2]=" .tsense +; + +: test-thermal + ." press against heat spreader and press a key once temperature is low" + watch-thermal + h# 200 mpmu@ 1 7 lshift and 0= if + ." THRSENS_WDTR_EN was not set" cr + h# 200 mpmu@ 1 7 lshift or h# 200 mpmu! + then + 0 ts@ + 1 d# 27 lshift or \ set the lowrange bit + h# 0020.0000 or \ set the autorun bit (undocumented) + h# 0400.0000 or \ set the watchdog enable bit + h# b h# f and d# 8 lshift or \ set the watchdog temperature (58-60.5C) + b# 0101.1111.1010.0000.0000.1111.1111.0000 + and \ always write zero to reserved bits + 0 ts! + ." thermal watchdog enabled" cr + watch-thermal +; + +: force-thermal-watchdog + h# 200 mpmu@ 1 7 lshift or h# 200 mpmu! \ thrsens_wdtr_en + h# 0c20.0000 h# 03.b000 io! \ lowrange, en_wdog, auto_read_en, wdog_tshld 26C +; + + [ifdef] notyet \ FIXME : test-thermal .thermal cr

1 0

[commit] r3243 - cpu/arm/olpc
by repository service 29 Aug '12

29 Aug '12

Author: quozl Date: Wed Aug 29 07:58:31 2012 New Revision: 3243 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3243 Log: OLPC XO-4 - Neonode, main board SMT test Modified: cpu/arm/olpc/nn-touchscreen.fth Modified: cpu/arm/olpc/nn-touchscreen.fth ============================================================================== --- cpu/arm/olpc/nn-touchscreen.fth Wed Aug 29 07:49:44 2012 (r3242) +++ cpu/arm/olpc/nn-touchscreen.fth Wed Aug 29 07:58:31 2012 (r3243) @@ -525,7 +525,7 @@ 0 to faults - test-station h# 1 = test-station h# 11 = or if \ IR PCB SMT and MB SMT + test-station h# 11 = if \ IR PCB SMT hold-reset connect open if test-os else fault then hold-reset disconnect @@ -538,6 +538,14 @@ hold-reset disconnect faults exit then + + test-station h# 1 = if \ MB SMT + open 0= if true exit then + test-version + close + false exit + then + [ifdef] nn-ir-pcb-rev-b test-station h# 2 = if \ MB ASSY open if test-finger-down-each-edge else fault then

1 0

[commit] r3242 - cpu/arm/olpc
by repository service 29 Aug '12

29 Aug '12

Author: quozl Date: Wed Aug 29 07:49:44 2012 New Revision: 3242 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3242 Log: OLPC XO-4 - Neonode, rework test coverage based on new requirements, vendor recommends forced LED levels test Modified: cpu/arm/olpc/nn-touchscreen.fth Modified: cpu/arm/olpc/nn-touchscreen.fth ============================================================================== --- cpu/arm/olpc/nn-touchscreen.fth Wed Aug 29 07:04:41 2012 (r3241) +++ cpu/arm/olpc/nn-touchscreen.fth Wed Aug 29 07:49:44 2012 (r3242) @@ -4,6 +4,17 @@ 0 0 " 4,50" " /twsi" begin-package my-space encode-int my-address encode-int encode+ " reg" property +create nn-os \ open short test +create nn-fll \ forced led levels test +create nn-version \ version display + +\ create nn-fss \ optional fixed signal strength test +\ create nn-ls \ optional low signals test + +\ create nn-components \ isolate test results to failed component identifier + +\ create nn-ir-pcb-rev-b \ support for revision b of the ir pcb assembly + \ XXX these are really platform-related, not touchscreen-related : targets? ( -- flag ) final-test? ; : .tsmsg ( -- ) 0 d# 27 at-xy ." Touchscreen test. Type a key to exit" cr ; @@ -65,6 +76,8 @@ 2drop ( ) ; + + : read-boot-complete ( -- ) h# 07 d# 0 anticipate ; : initialise ( -- ) h# 01 h# 01 h# ee 3 twsi-out h# 01 d# 20 anticipate ; @@ -132,6 +145,17 @@ ; + +0 value faults +: fault faults 1+ to faults ; + +: 4sp ." " ; + +: 8sp ." " ; + + + +[ifdef] nn-version \ version display : (.version) ( addr -- ) dup c@ over 1+ c@ bwjoin ( addr version ) (.) type @@ -154,14 +178,11 @@ .version cr ; +[then] -0 value faults -: fault faults 1+ to faults ; -: 4sp ." " ; - -: 8sp ." " ; +[ifdef] nn-os \ open short test [ifdef] nn-components \ optional decoding of component identifiers @@ -352,6 +373,11 @@ 4sp ." X Axis" cr 0 test-os-axis 4sp ." Y Axis" cr 1 test-os-axis ; +[then] + + + +[ifdef] nn-fss \ fixed signal strength test [ifdef] nn-components d# 11 constant x-ir-0 \ first X axis IR component identifier @@ -383,8 +409,6 @@ \ Y axis, IR11 PD12, IR11 PD11, IR10 PD11 ... IR1 PD1 \ X axis, IR12 PD13, IR12 PD14, IR13 PD14 ... IR26 PD28 [then] - \ FIXME: using a light guide, characterise a low signal level, - \ detect, and fail self test ; : test-fss @@ -392,6 +416,9 @@ 4sp ." X Axis" cr 0 test-fss-axis 4sp ." Y Axis" cr 1 test-fss-axis ; +[then] + + [ifdef] nn-ls \ low signals test : test-ls-axis ( axis -- ) @@ -424,6 +451,8 @@ ; [then] + + [ifdef] nn-fll \ forced LED levels test : test-fll-signal ( signal# signal-value led-level -- ) dup 0= if @@ -442,7 +471,11 @@ cr exit then - 2drop ." pass on axis signal " .d cr + \ 2drop ." pass on axis signal " .d cr + 3drop +[ifdef] nn-components + \ FIXME: express forced led levels faults in terms of IR PCB component names. +[then] ; : test-fll-axis ( axis -- ) @@ -464,6 +497,8 @@ ; [then] + + : press ( line$ -- ) type ." , press a key" @@ -474,41 +509,64 @@ : connect " Connect IR PCB" press ; : disconnect " Disconnect IR PCB" press ; +: dump-events + begin + in? if + ." rx: " pbuf plen bounds do + i c@ 2u.x space + loop cr + then + key? + until + key drop +; + : selftest ( -- error? ) - smt-test? if + 0 to faults + + test-station h# 1 = test-station h# 11 = or if \ IR PCB SMT and MB SMT hold-reset connect - 0 to faults open if test-os else fault then hold-reset disconnect faults exit then + test-station h# 12 = if \ IR PCB ASSY + hold-reset connect + open if test-fll else fault then + hold-reset disconnect + faults exit + then +[ifdef] nn-ir-pcb-rev-b + test-station h# 2 = if \ MB ASSY + open if test-finger-down-each-edge else fault then + faults exit + then +[then] + + \ MB FINAL + \ MB SHIP open 0= if ." No touchscreen present" cr false exit then diagnostic-mode? if 0 to faults - test-version - test-os - test-fss + [ifdef] nn-version test-version [then] + [ifdef] nn-os test-os [then] + [ifdef] nn-fss test-fss [then] + [ifdef] nn-fll test-fll [then] faults if close true exit then then - ." dumping events from touchscreen controller, press a key to stop" cr - +[ifdef] nn-ir-pcb-rev-b \ FIXME: graphically show data on screen until key \ ... waiting for revision B of IR PCB - begin - in? if - ." rx: " pbuf plen bounds do - i c@ 2u.x space - loop cr - then - key? - until - key drop +[else] + ." dumping events from touchscreen controller, press a key to stop" cr + dump-events +[then] close false ;

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

openfirmware