openfirmware August 2012

openfirmware@openfirmware.info

1 participants
154 discussions

[commit] r3167 - cpu/arm/olpc
by repository service 14 Aug '12

14 Aug '12

Author: pgf Date: Tue Aug 14 20:48:26 2012 New Revision: 3167 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3167 Log: bsl: add TODO list just some reminders of what could/should be done here. Modified: cpu/arm/olpc/bsl.fth Modified: cpu/arm/olpc/bsl.fth ============================================================================== --- cpu/arm/olpc/bsl.fth Tue Aug 14 01:19:12 2012 (r3166) +++ cpu/arm/olpc/bsl.fth Tue Aug 14 20:48:26 2012 (r3167) @@ -1,6 +1,15 @@ \ See license at end of file purpose: Downloader for TI MSP430 BootStrap Loader (BSL) protocol + +\ TODO: +\ friendlier programming interface ( "ok flash-bsl u:\file.hex") +\ progress indicator during programming +\ print, perhaps in red, the msp430 password after programming, +\ iff the password doesn't match all-ff or the known neonode password. +\ save calibration data in mfg tag, in case it's lost. +\ create msp430 recalibrator programmer + \ devalias bsl /uart@NNNN:9600,8,e,1//bsl-protocol \ the MSP430 BSL has the annoying trait that it will self-erase if

1 0

[commit] r3166 - cpu/arm/olpc
by repository service 13 Aug '12

13 Aug '12

Author: rsmith Date: Tue Aug 14 01:19:12 2012 New Revision: 3166 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3166 Log: OLPC 1.75 - Fix EC programming breakage The changes to support the io3790 on the CL4 broke programming on the 1.75. This fixes up the breakage. It also factors out the dummy read into its own word called edi-start. Not necessary for the fix but was handy during debugging. Modified: cpu/arm/olpc/edi.fth Modified: cpu/arm/olpc/edi.fth ============================================================================== --- cpu/arm/olpc/edi.fth Mon Aug 13 23:21:51 2012 (r3165) +++ cpu/arm/olpc/edi.fth Tue Aug 14 01:19:12 2012 (r3166) @@ -18,10 +18,10 @@ : efcfg ( -- reg# ) kb9010? if h# fead else h# fea0 then ; : efcmd ( -- reg# ) kb9010? if h# feac else h# fea7 then ; -: efdat ( -- reg# ) kb9010? if h# feab else h# feaa then ; +: efdat ( -- reg# ) kb9010? if h# feab else h# feaa then ; \ io3731 has different read and write regs +h# feab constant efdat-in : rst8051 ( -- reg# ) kb9010? if h# ff14 else h# f010 then ; : ecreboot ( -- reg# ) kb9010? if h# ff01 else h# f018 then ; - \ Issues with .py code \ A14:A8 should be A15:A8 several places \ inconsistent use of handle vs gd.handle in edi_erase_chip @@ -140,7 +140,7 @@ ; : finished? ( b -- flag ) - kb9010? if 2 and 0= else h# 80 = then + kb9010? if 2 and 0= else h# 80 and h# 80 = then ; : wait-flash-busy ( -- ) \ Wait for an erase/programming operation to complete get-msecs h# 1000 + ( limit ) @@ -220,8 +220,9 @@ set-offset h# 90 flash-cmd wait-flash-busy - efdat edi-b@ \ reg: efdat + efdat-in edi-b@ \ reg: efdat ; + : trim-tune ( -- ) \ firmware-id 0= if \ Read trim data and write to register (for ENE macros) @@ -334,13 +335,19 @@ ecsts edi-b! ( ) then ; + +\ Does a dummy ready and throws away the result. +\ required to get the EDI interface enabled +: edi-start ( -- ) + h# ff22 ['] edi-b@ catch if noop else drop then +; + : edi-open ( -- ) \ slow-edi-clock \ Target speed between 1 and 2 MHz spi-start - \ dummy read, to activate EDI and can fail so ignore the fail - h# ff22 ['] edi-b@ catch if noop else drop then - + edi-start + set-chip-id \ The first operation often fails so retry it

1 0

[commit] r3157 - cpu/arm/olpc
by repository service 13 Aug '12

13 Aug '12

Author: rsmith Date: Mon Aug 13 21:42:03 2012 New Revision: 3157 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3157 Log: OLPC CL4 - Fix EC flash fail after cold boot After a cold boot the first attempt to flash the EC would fail with a "EC byte in confused" then all attempts after that would fail with a "Bad SPI FLASH ID 0" until you did a warm boot then they would succeed. The EDI interface requires a EDI transaction with a clock between 1 and 8 Mhz for it to enable. Empirically we see that the data you get back from this 1st transaction are zeros and so the 1st read will abort because zero is not a valid response an EDI transaction. The previous did a catch and retry when it ran the select-flash operation but with the introduction of the io3790 a chip ID check has to be run first. The ID command does not be sufficient to enable the EDI interface (also found empirically) it appears to have to be a read. So now when we do the dummy read we ignore it if it fails rather than abort out. This also fixed the "Bat SPI FLASH ID 0" problem so it would seem that if edi-open takes an abort that things are not properly cleaned up or correctly re-initialized on the next attempt. I didn't debug the problem any further. Modified: cpu/arm/olpc/edi.fth Modified: cpu/arm/olpc/edi.fth ============================================================================== --- cpu/arm/olpc/edi.fth Mon Aug 13 09:10:50 2012 (r3156) +++ cpu/arm/olpc/edi.fth Mon Aug 13 21:42:03 2012 (r3157) @@ -72,7 +72,9 @@ unloop exit then ( d ) spi-cs-off ( d ) - h# ff = abort" EDI byte in inactive" + \ The setup in the CL4 has can also report zeros when inactive. + 2dup h# ff = 00 = or abort" EDI byte in inactive" + ." Unknown EDI byte in response: " .h cr true abort" EDI byte in confused" then ( d ) drop @@ -336,8 +338,8 @@ \ slow-edi-clock \ Target speed between 1 and 2 MHz spi-start - \ dummy read, to activate EDI - h# ff22 edi-b@ drop + \ dummy read, to activate EDI and can fail so ignore the fail + h# ff22 ['] edi-b@ catch if noop else drop then set-chip-id

1 0

[commit] r3156 - cpu/arm/olpc
by repository service 13 Aug '12

13 Aug '12

Author: quozl Date: Mon Aug 13 09:10:50 2012 New Revision: 3156 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3156 Log: OLPC CL4 - Neonode, add low signals test, fix offset to bit array in open short response, indent test results, and print bit numbers in decimal Modified: cpu/arm/olpc/nn-touchscreen.fth Modified: cpu/arm/olpc/nn-touchscreen.fth ============================================================================== --- cpu/arm/olpc/nn-touchscreen.fth Mon Aug 13 03:41:09 2012 (r3155) +++ cpu/arm/olpc/nn-touchscreen.fth Mon Aug 13 09:10:50 2012 (r3156) @@ -117,51 +117,57 @@ : .bits ( addr low high -- addr ) ." ( " swap do ( addr ) i over bittest if - i . fault + i .d fault then loop ." )" cr ( addr ) - \ FIXME: express failed devices in terms of IR PCB component names. ; +: 4sp ." " ; + +: 8sp ." " ; + : test-os-axis ( axis -- ) h# 21 h# 02 h# ee 4 twsi-out h# 21 d# 30 anticipate - pbuf 2+ c@ h# 21 <> abort" o s bad response" + pbuf 2+ c@ h# 21 <> abort" bad response" pbuf 3 + c@ if h# 0a else h# 0e then >r ( r:nleds ) - pbuf 4 + ( r:nleds array ) + pbuf 5 + ( r:nleds array ) \ bit array layout: | open_pd | short_pd | short_led | open_led | \ subarray widths: | npds bits | npds bits | nleds bits | nleds bits | \ npds = nleds+1 - \ 0 npds - ." open_pd=" 0 r@ 1+ .bits - \ npds npds*2 - ." short_pd=" r@ 1+ r@ 1+ 2* .bits - \ npds*2 npds*2+nleds - ." short_led=" r@ 1+ 2* dup r@ + .bits - \ npds*2+nleds npds*2+nleds*2 - ." open_led=" r@ 1+ 2* r@ + dup r@ + .bits + \ FIXME: express failed devices in terms of IR PCB component names. + \ 0 npds + 8sp ." open_pd=" 0 r@ 1+ .bits + \ npds npds*2 + 8sp ." short_pd=" r@ 1+ r@ 1+ 2* .bits + \ npds*2 npds*2+nleds + 8sp ." short_led=" r@ 1+ 2* dup r@ + .bits + \ npds*2+nleds npds*2+nleds*2 + 8sp ." open_led=" r@ 1+ 2* r@ + dup r@ + .bits r> drop drop ( ) cr ; : test-os - 0 test-os-axis - 1 test-os-axis + ." Open and Short" cr + 4sp ." X Axis" cr 0 test-os-axis + 4sp ." Y Axis" cr 1 test-os-axis ; : test-fss-axis ( axis -- ) d# 64 swap h# 0f h# 03 h# ee 5 twsi-out h# 0f d# 20 anticipate - pbuf 2+ c@ h# 0f <> abort" fss bad response" + pbuf 2+ c@ h# 0f <> abort" bad response" + 8sp push-decimal pbuf 4 + c@ 0 do ( ) pbuf 5 + i + c@ dup 0= if fault then 4 .r space - i d# 10 mod d# 9 = if cr then + i d# 10 mod d# 9 = if cr 8sp then loop cr pop-base \ FIXME: using a light guide, characterise a low signal level, @@ -170,8 +176,29 @@ ; : test-fss - ." Signals X Axis" cr 0 test-fss-axis - ." Signals Y Axis" cr 1 test-fss-axis + ." Fixed Signal Strength" cr + 4sp ." X Axis" cr 0 test-fss-axis + 4sp ." Y Axis" cr 1 test-fss-axis +; + +: test-ls-axis ( axis -- ) + h# 0d h# 02 h# ee 4 twsi-out + h# 0d d# 200 anticipate + pbuf 2+ c@ h# 0d <> abort" bad response" + + 8sp + pbuf 4 + c@ >r ( r:nsigs ) + pbuf 5 + ( r:nsigs array ) + 0 r@ 1+ .bits ( r:nsigs array ) + r> drop drop ( ) + cr + \ FIXME: express low signals in terms of IR PCB component names. +; + +: test-ls + ." Low Signals" cr + 4sp ." X Axis" cr 0 test-ls-axis + 4sp ." Y Axis" cr 1 test-ls-axis ; : selftest ( -- error? ) @@ -188,6 +215,7 @@ 0 to faults test-os test-fss + test-ls faults if true exit then then

1 0

[commit] r3155 - cpu/arm/olpc
by repository service 13 Aug '12

13 Aug '12

Author: quozl Date: Mon Aug 13 03:41:09 2012 New Revision: 3155 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3155 Log: OLPC CL4 - Neonode, reconfigure controller after suspend resume test Modified: cpu/arm/olpc/nn-touchscreen.fth Modified: cpu/arm/olpc/nn-touchscreen.fth ============================================================================== --- cpu/arm/olpc/nn-touchscreen.fth Sat Aug 11 05:10:47 2012 (r3154) +++ cpu/arm/olpc/nn-touchscreen.fth Mon Aug 13 03:41:09 2012 (r3155) @@ -24,6 +24,7 @@ d# 250 constant /pbuf 0 value pbuf 0 value plen +0 value configure? : in? ( -- got-data? ) no-data? if false exit then @@ -33,6 +34,10 @@ dup 2+ to plen ( len ) pbuf 2+ swap twsi-read ( ) + + pbuf 2+ c@ h# 07 = pbuf 3 + c@ 0= and if ( ) + true to configure? + then true ; @@ -60,12 +65,18 @@ : start ( -- ) h# 04 h# 01 h# ee 3 twsi-out ; -: deactivate ( -- ) h# 00 h# 01 h# ee 3 twsi-out h# 00 d# 20 anticipate ; +: deactivate ( -- ) + h# 00 h# 01 h# ee 3 twsi-out h# 00 d# 20 anticipate + true to configure? +; : configure ( -- ) - initialise - set-resolution - start + configure? if + initialise + set-resolution + start + false to configure? + then ; : open ( -- okay? ) @@ -92,12 +103,11 @@ pbuf 4 + w@ pbuf 6 + w@ ( x y ) pbuf 8 + c@ 3 and 0= ( x y down? ) true ( x y buttons true ) - else - false + exit then - else - false then + configure + false ; @@ -105,11 +115,11 @@ : fault faults 1+ to faults ; : .bits ( addr low high -- addr ) - ." ( " swap do ( addr ) + ." ( " swap do ( addr ) i over bittest if - i . fault + i . fault then - loop ." )" cr ( addr ) + loop ." )" cr ( addr ) \ FIXME: express failed devices in terms of IR PCB component names. ;

1 0

[commit] r3154 - cpu/arm/olpc
by repository service 11 Aug '12

11 Aug '12

Author: quozl Date: Sat Aug 11 05:10:47 2012 New Revision: 3154 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3154 Log: OLPC CL4 - Neonode, add signal strength and failed component tests Modified: cpu/arm/olpc/nn-touchscreen.fth Modified: cpu/arm/olpc/nn-touchscreen.fth ============================================================================== --- cpu/arm/olpc/nn-touchscreen.fth Sat Aug 11 02:33:01 2012 (r3153) +++ cpu/arm/olpc/nn-touchscreen.fth Sat Aug 11 05:10:47 2012 (r3154) @@ -10,6 +10,10 @@ fload ${BP}/cpu/arm/olpc/touchscreen-common.fth +[ifndef] 2u.x +: 2u.x base @ >r hex 0 <# # # #> type r> base ! ; +[then] + : set-gpios touch-rst-gpio# dup gpio-set gpio-dir-out touch-tck-gpio# dup gpio-clr gpio-dir-out @@ -32,16 +36,10 @@ true ; -: out ( byte ... bytes# -- ) twsi-out ; - -defer process -' noop to process - : anticipate ( id msecs -- ) get-msecs + ( id limit ) begin in? if - process over pbuf 2+ c@ ( id limit received-id ) = if 2drop exit then then ( id limit ) @@ -52,17 +50,17 @@ : read-boot-complete ( -- ) h# 07 d# 20 anticipate ; -: initialise ( -- ) h# 01 h# 01 h# ee 3 out h# 01 d# 20 anticipate ; +: initialise ( -- ) h# 01 h# 01 h# ee 3 twsi-out h# 01 d# 20 anticipate ; : set-resolution ( -- ) set-geometry - screen-h wbsplit swap screen-w wbsplit swap h# 02 h# 05 h# ee 7 out + screen-h wbsplit swap screen-w wbsplit swap h# 02 h# 05 h# ee 7 twsi-out h# 02 d# 20 anticipate ; -: start ( -- ) h# 04 h# 01 h# ee 3 out ; +: start ( -- ) h# 04 h# 01 h# ee 3 twsi-out ; -: deactivate ( -- ) h# 00 h# 01 h# ee 3 out h# 00 d# 20 anticipate ; +: deactivate ( -- ) h# 00 h# 01 h# ee 3 twsi-out h# 00 d# 20 anticipate ; : configure ( -- ) initialise @@ -102,18 +100,94 @@ then ; -: selftest + +0 value faults +: fault faults 1+ to faults ; + +: .bits ( addr low high -- addr ) + ." ( " swap do ( addr ) + i over bittest if + i . fault + then + loop ." )" cr ( addr ) + \ FIXME: express failed devices in terms of IR PCB component names. +; + +: test-os-axis ( axis -- ) + h# 21 h# 02 h# ee 4 twsi-out + h# 21 d# 30 anticipate + pbuf 2+ c@ h# 21 <> abort" o s bad response" + + pbuf 3 + c@ if h# 0a else h# 0e then >r ( r:nleds ) + pbuf 4 + ( r:nleds array ) + + \ bit array layout: | open_pd | short_pd | short_led | open_led | + \ subarray widths: | npds bits | npds bits | nleds bits | nleds bits | + \ npds = nleds+1 + + \ 0 npds + ." open_pd=" 0 r@ 1+ .bits + \ npds npds*2 + ." short_pd=" r@ 1+ r@ 1+ 2* .bits + \ npds*2 npds*2+nleds + ." short_led=" r@ 1+ 2* dup r@ + .bits + \ npds*2+nleds npds*2+nleds*2 + ." open_led=" r@ 1+ 2* r@ + dup r@ + .bits + r> drop drop ( ) + cr +; + +: test-os + 0 test-os-axis + 1 test-os-axis +; + +: test-fss-axis ( axis -- ) + d# 64 swap h# 0f h# 03 h# ee 5 twsi-out + h# 0f d# 20 anticipate + pbuf 2+ c@ h# 0f <> abort" fss bad response" + push-decimal + pbuf 4 + c@ 0 do ( ) + pbuf 5 + i + c@ + dup 0= if fault then + 4 .r space + i d# 10 mod d# 9 = if cr then + loop cr + pop-base + \ FIXME: using a light guide, characterise a low signal level, + \ detect, and fail self test + \ FIXME: express failed signals in terms of IR PCB component names. +; + +: test-fss + ." Signals X Axis" cr 0 test-fss-axis + ." Signals Y Axis" cr 1 test-fss-axis +; + +: selftest ( -- error? ) + + \ skip test during SMT, as the IR PCB is required for controller to + \ respond, issue being worked with Neonode 2012-08. + smt-test? if false exit then + open 0= if ." No touchscreen present" cr false exit then + diagnostic-mode? if + 0 to faults + test-os + test-fss + faults if true exit then + then + ." dumping events from touchscreen controller, press a key to stop" cr \ FIXME: graphically show data on screen until key begin in? if ." rx: " pbuf plen bounds do - i c@ 0 <# # # #> type space + i c@ 2u.x space loop cr then key?

1 0

[commit] r3153 - cpu/arm/olpc
by repository service 11 Aug '12

11 Aug '12

Author: quozl Date: Sat Aug 11 02:33:01 2012 New Revision: 3153 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3153 Log: OLPC CL4 - Neonode, use heap for packet buffer, correct the byte order of commands, now works for minimal testing on A1. Modified: cpu/arm/olpc/nn-touchscreen.fth Modified: cpu/arm/olpc/nn-touchscreen.fth ============================================================================== --- cpu/arm/olpc/nn-touchscreen.fth Sat Aug 11 02:29:52 2012 (r3152) +++ cpu/arm/olpc/nn-touchscreen.fth Sat Aug 11 02:33:01 2012 (r3153) @@ -17,18 +17,18 @@ : reset ( -- ) touch-rst-gpio# dup gpio-clr gpio-set d# 250 ms ; : no-data? ( -- no-data? ) touch-scr-gpio# gpio-pin@ ; -d# 250 constant /packet -/packet buffer: packet -0 value packet-size +d# 250 constant /pbuf +0 value pbuf +0 value plen : in? ( -- got-data? ) no-data? if false exit then - packet 2 twsi-read ( ) - packet 1+ c@ ( size ) - dup 2+ to packet-size ( size ) + pbuf 2 twsi-read ( ) + pbuf 1+ c@ ( len ) + dup 2+ to plen ( len ) - packet 2+ swap twsi-read ( ) + pbuf 2+ swap twsi-read ( ) true ; @@ -42,7 +42,7 @@ begin in? if process - over packet 2+ c@ ( id limit received-id ) + over pbuf 2+ c@ ( id limit received-id ) = if 2drop exit then then ( id limit ) dup get-msecs - 0< ( id limit timeout? ) @@ -52,17 +52,17 @@ : read-boot-complete ( -- ) h# 07 d# 20 anticipate ; -: initialise ( -- ) h# ee h# 01 h# 01 3 out h# 01 d# 20 anticipate ; +: initialise ( -- ) h# 01 h# 01 h# ee 3 out h# 01 d# 20 anticipate ; : set-resolution ( -- ) set-geometry - h# ee h# 05 h# 02 screen-w wbsplit screen-h wbsplit 7 out + screen-h wbsplit swap screen-w wbsplit swap h# 02 h# 05 h# ee 7 out h# 02 d# 20 anticipate ; -: start ( -- ) h# ee h# 01 h# 04 3 out ; +: start ( -- ) h# 04 h# 01 h# ee 3 out ; -: deactivate ( -- ) h# ee h# 01 h# 00 3 out h# 00 d# 20 anticipate ; +: deactivate ( -- ) h# 00 h# 01 h# ee 3 out h# 00 d# 20 anticipate ; : configure ( -- ) initialise @@ -71,26 +71,28 @@ ; : open ( -- okay? ) + /pbuf alloc-mem to pbuf my-unit set-twsi-target set-gpios no-data? if reset - no-data? if false exit then + no-data? if pbuf /pbuf free-mem false exit then read-boot-complete then - ['] configure catch if false exit then + ['] configure catch if pbuf /pbuf free-mem false exit then true ; : close deactivate + pbuf /pbuf free-mem ; : stream-poll? ( -- false | x y buttons true ) in? if - packet 2+ c@ h# 04 = if - packet 4 + w@ packet 6 + w@ ( x y ) - packet 8 + c@ 3 and 0= ( x y down? ) + pbuf 2+ c@ h# 04 = if + pbuf 4 + w@ pbuf 6 + w@ ( x y ) + pbuf 8 + c@ 3 and 0= ( x y down? ) true ( x y buttons true ) else false @@ -110,7 +112,7 @@ \ FIXME: graphically show data on screen until key begin in? if - ." rx: " packet packet-size bounds do + ." rx: " pbuf plen bounds do i c@ 0 <# # # #> type space loop cr then

1 0

[commit] r3152 - cpu/arm/olpc
by repository service 11 Aug '12

11 Aug '12

Author: wmb Date: Sat Aug 11 02:29:52 2012 New Revision: 3152 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3152 Log: OLPC ARM - refactor svn 3148 for stylistic consistency with other ec-version-dependent addresses. Should be no substantive difference. Modified: cpu/arm/olpc/ecflash.fth cpu/arm/olpc/edi.fth Modified: cpu/arm/olpc/ecflash.fth ============================================================================== --- cpu/arm/olpc/ecflash.fth Fri Aug 10 15:54:46 2012 (r3151) +++ cpu/arm/olpc/ecflash.fth Sat Aug 11 02:29:52 2012 (r3152) @@ -26,11 +26,7 @@ load-base swap ?ec-image-valid ; \ Tells the EC to auto-restart after power cycling -: set-ec-reboot ( -- ) - 1 - kb9010? if h# ff01 else h# f018 then - edi-b! -; +: set-ec-reboot ( -- ) 1 ecreboot edi-b! ; : ?reflash-ec-flags ( adr -- ) use-edi-spi ( adr ) edi-open-active ( adr ) \ avoids holding EC in reset Modified: cpu/arm/olpc/edi.fth ============================================================================== --- cpu/arm/olpc/edi.fth Fri Aug 10 15:54:46 2012 (r3151) +++ cpu/arm/olpc/edi.fth Sat Aug 11 02:29:52 2012 (r3152) @@ -20,6 +20,7 @@ : efcmd ( -- reg# ) kb9010? if h# feac else h# fea7 then ; : efdat ( -- reg# ) kb9010? if h# feab else h# feaa then ; : rst8051 ( -- reg# ) kb9010? if h# ff14 else h# f010 then ; +: ecreboot ( -- reg# ) kb9010? if h# ff01 else h# f018 then ; \ Issues with .py code \ A14:A8 should be A15:A8 several places

1 0

[commit] r3151 - cpu/arm/olpc
by repository service 10 Aug '12

10 Aug '12

Author: quozl Date: Fri Aug 10 15:54:46 2012 New Revision: 3151 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3151 Log: OLPC CL4 - Neonode, change reset method, fix call parent misuse Modified: cpu/arm/olpc/nn-touchscreen.fth Modified: cpu/arm/olpc/nn-touchscreen.fth ============================================================================== --- cpu/arm/olpc/nn-touchscreen.fth Fri Aug 10 07:23:01 2012 (r3150) +++ cpu/arm/olpc/nn-touchscreen.fth Fri Aug 10 15:54:46 2012 (r3151) @@ -24,20 +24,20 @@ : in? ( -- got-data? ) no-data? if false exit then - packet 2 " twsi-read" $call-parent ( ) + packet 2 twsi-read ( ) packet 1+ c@ ( size ) dup 2+ to packet-size ( size ) - packet 2+ swap " twsi-read" $call-parent ( ) + packet 2+ swap twsi-read ( ) true ; -: out ( byte ... bytes# -- ) " twsi-out" $call-parent ; +: out ( byte ... bytes# -- ) twsi-out ; defer process ' noop to process -: expect ( id msecs -- ) +: anticipate ( id msecs -- ) get-msecs + ( id limit ) begin in? if @@ -50,32 +50,34 @@ 2drop ( ) ; -: read-boot-complete ( -- ) h# 07 d# 10 expect ; +: read-boot-complete ( -- ) h# 07 d# 20 anticipate ; -: initialise ( -- ) h# ee h# 01 h# 01 3 out h# 01 d# 10 expect ; +: initialise ( -- ) h# ee h# 01 h# 01 3 out h# 01 d# 20 anticipate ; : set-resolution ( -- ) set-geometry h# ee h# 05 h# 02 screen-w wbsplit screen-h wbsplit 7 out - h# 02 d# 10 expect + h# 02 d# 20 anticipate ; : start ( -- ) h# ee h# 01 h# 04 3 out ; -: deactivate ( -- ) h# ee h# 01 h# 00 3 out h# 00 d# 10 expect ; +: deactivate ( -- ) h# ee h# 01 h# 00 3 out h# 00 d# 20 anticipate ; : configure ( -- ) - read-boot-complete initialise set-resolution start ; : open ( -- okay? ) - my-unit " set-address" $call-parent + my-unit set-twsi-target set-gpios - no-data? if reset then - no-data? if false exit then + no-data? if + reset + no-data? if false exit then + read-boot-complete + then ['] configure catch if false exit then true ; @@ -103,6 +105,8 @@ ." No touchscreen present" cr false exit then + ." dumping events from touchscreen controller, press a key to stop" cr + \ FIXME: graphically show data on screen until key begin in? if

1 0

[commit] r3150 - cpu/arm/olpc
by repository service 10 Aug '12

10 Aug '12

Author: quozl Date: Fri Aug 10 07:23:01 2012 New Revision: 3150 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3150 Log: OLPC CL4 - Neonode, set GPIO directions, add missing early exit Modified: cpu/arm/olpc/nn-touchscreen.fth Modified: cpu/arm/olpc/nn-touchscreen.fth ============================================================================== --- cpu/arm/olpc/nn-touchscreen.fth Fri Aug 10 07:20:13 2012 (r3149) +++ cpu/arm/olpc/nn-touchscreen.fth Fri Aug 10 07:23:01 2012 (r3150) @@ -10,15 +10,19 @@ fload ${BP}/cpu/arm/olpc/touchscreen-common.fth +: set-gpios + touch-rst-gpio# dup gpio-set gpio-dir-out + touch-tck-gpio# dup gpio-clr gpio-dir-out +; : reset ( -- ) touch-rst-gpio# dup gpio-clr gpio-set d# 250 ms ; -: no-data? ( -- false | true ) touch-scr-gpio# gpio-pin@ ; +: no-data? ( -- no-data? ) touch-scr-gpio# gpio-pin@ ; d# 250 constant /packet /packet buffer: packet 0 value packet-size -: in? ( -- false | true ) - no-data? if false then +: in? ( -- got-data? ) + no-data? if false exit then packet 2 " twsi-read" $call-parent ( ) packet 1+ c@ ( size ) @@ -69,6 +73,7 @@ : open ( -- okay? ) my-unit " set-address" $call-parent + set-gpios no-data? if reset then no-data? if false exit then ['] configure catch if false exit then

1 0

← Newer
1
...
8
9
10
11
12
13
14
15
16
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

openfirmware August 2012