openfirmware

openfirmware@openfirmware.info

3007 discussions

[commit] r3171 - cpu/arm/mmp2
by repository service 14 Aug '12

14 Aug '12

Author: wmb Date: Tue Aug 14 22:42:28 2012 New Revision: 3171 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3171 Log: OLPC - Renamed gpio-prop to gpio-property and changed the argument order for conformance with Forth conventions. Modified: cpu/arm/mmp2/gpio.fth cpu/arm/mmp2/twsi.fth Modified: cpu/arm/mmp2/gpio.fth ============================================================================== --- cpu/arm/mmp2/gpio.fth Tue Aug 14 22:41:15 2012 (r3170) +++ cpu/arm/mmp2/gpio.fth Tue Aug 14 22:42:28 2012 (r3171) @@ -78,11 +78,10 @@ h# 108 make-gpio-mux-node end-package -: gpio-prop ( $gpioname low? gpionum -- ) - " /gpio" encode-phandle ( $gpioname low? gpionum propval$ ) - rot encode-int encode+ ( $gpioname low? propval$' ) - rot encode-int encode+ ( $gpioname propval$' ) - 2swap property +: gpio-property ( gpionum low? gpioname$ -- ) + 2>r swap ( low? gpionum r: gpioname$ ) + " /gpio" encode-phandle ( low? gpionum propval$ r: gpioname$ ) + rot encode-int encode+ ( low? propval$' r: gpioname$ ) + rot encode-int encode+ ( propval$' r: gpioname$ ) + 2r> property ( ) ; - - Modified: cpu/arm/mmp2/twsi.fth ============================================================================== --- cpu/arm/mmp2/twsi.fth Tue Aug 14 22:41:15 2012 (r3170) +++ cpu/arm/mmp2/twsi.fth Tue Aug 14 22:42:28 2012 (r3171) @@ -213,10 +213,10 @@ " touchscreen" name " zforce" +compatible my-address my-space 1 reg - " reset-gpio" 1 d# 98 gpio-prop - " test-gpio" 1 d# 139 gpio-prop - " hd-gpio" 1 d# 12 gpio-prop - " dr-gpio" 1 d# 99 gpio-prop + touch-rst-gpio# 1 " reset-gpio" gpio-property + touch-tck-gpio# 1 " test-gpio" gpio-property + touch-hd-gpio# 1 " hd-gpio" gpio-property + touch-int-gpio# 1 " dr-gpio" gpio-property end-package [then]

1 0

[commit] r3170 - in cpu/arm/olpc: . 1.75 3.0 cl4
by repository service 14 Aug '12

14 Aug '12

Author: wmb Date: Tue Aug 14 22:41:15 2012 New Revision: 3170 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3170 Log: OLPC - Added ec-spi-int-gpio# to gpiopins.fth, renamed touch-scr-gpio# to touch-int-gpio# for specificity. Modified: cpu/arm/olpc/1.75/gpiopins.fth cpu/arm/olpc/3.0/gpiopins.fth cpu/arm/olpc/cl4/gpiopins.fth cpu/arm/olpc/nn-touchscreen.fth Modified: cpu/arm/olpc/1.75/gpiopins.fth ============================================================================== --- cpu/arm/olpc/1.75/gpiopins.fth Tue Aug 14 20:48:32 2012 (r3169) +++ cpu/arm/olpc/1.75/gpiopins.fth Tue Aug 14 22:41:15 2012 (r3170) @@ -8,6 +8,7 @@ d# 46 constant spi-flash-cs-gpio# +d# 154 constant ec-spi-int-gpio# d# 155 constant ec-spi-cmd-gpio# d# 125 constant ec-spi-ack-gpio# @@ -66,4 +67,4 @@ d# 14 constant touch-hd-gpio# d# 98 constant touch-tck-gpio# d# 152 constant touch-rst-gpio# -d# 99 constant touch-scr-gpio# +d# 99 constant touch-int-gpio# Modified: cpu/arm/olpc/3.0/gpiopins.fth ============================================================================== --- cpu/arm/olpc/3.0/gpiopins.fth Tue Aug 14 20:48:32 2012 (r3169) +++ cpu/arm/olpc/3.0/gpiopins.fth Tue Aug 14 22:41:15 2012 (r3170) @@ -9,6 +9,7 @@ d# 46 constant spi-flash-cs-gpio# +d# 154 constant ec-spi-int-gpio# d# 155 constant ec-spi-cmd-gpio# d# 125 constant ec-spi-ack-gpio# Modified: cpu/arm/olpc/cl4/gpiopins.fth ============================================================================== --- cpu/arm/olpc/cl4/gpiopins.fth Tue Aug 14 20:48:32 2012 (r3169) +++ cpu/arm/olpc/cl4/gpiopins.fth Tue Aug 14 22:41:15 2012 (r3170) @@ -8,6 +8,7 @@ d# 46 constant spi-flash-cs-gpio# +d# 154 constant ec-spi-int-gpio# d# 155 constant ec-spi-cmd-gpio# d# 113 constant ec-spi-ack-gpio# @@ -62,7 +63,7 @@ d# 12 constant touch-hd-gpio# d# 139 constant touch-tck-gpio# d# 98 constant touch-rst-gpio# -d# 99 constant touch-scr-gpio# +d# 99 constant touch-int-gpio# d# 3 constant soc-sel-gpio# Modified: cpu/arm/olpc/nn-touchscreen.fth ============================================================================== --- cpu/arm/olpc/nn-touchscreen.fth Tue Aug 14 20:48:32 2012 (r3169) +++ cpu/arm/olpc/nn-touchscreen.fth Tue Aug 14 22:41:15 2012 (r3170) @@ -19,7 +19,7 @@ touch-tck-gpio# dup gpio-clr gpio-dir-out ; : reset ( -- ) touch-rst-gpio# dup gpio-clr gpio-set d# 250 ms ; -: no-data? ( -- no-data? ) touch-scr-gpio# gpio-pin@ ; +: no-data? ( -- no-data? ) touch-int-gpio# gpio-pin@ ; d# 250 constant /pbuf 0 value pbuf

1 0

[commit] r3169 - cpu/arm/mmp2
by repository service 14 Aug '12

14 Aug '12

Author: pgf Date: Tue Aug 14 20:48:32 2012 New Revision: 3169 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3169 Log: twsi: cl4 has a zforce touchscreen this ifdef (based on "cl2") isn't quite correct, in that while most cl2 boards with touchscreens have raydium screens, the recent cl4-a1 boards, which ofw refers to as cl2-a1, have zforce touchscreens. since we're still using the cl4-a1 boards, i'm disabling the ifdef for now. those boards won't be long-lived. Modified: cpu/arm/mmp2/twsi.fth Modified: cpu/arm/mmp2/twsi.fth ============================================================================== --- cpu/arm/mmp2/twsi.fth Tue Aug 14 20:48:29 2012 (r3168) +++ cpu/arm/mmp2/twsi.fth Tue Aug 14 20:48:32 2012 (r3169) @@ -202,11 +202,23 @@ my-address my-space 1 reg end-package +[ifdef] soon-olpc-cl2 \ this breaks cl4-a1 boards, which ofw calls cl2. 0 0 " 30" " /i2c@d4033000" begin-package \ TWSI4 " touchscreen" name " raydium_ts" +compatible my-address my-space 1 reg end-package +[else] +0 0 " 50" " /i2c@d4033000" begin-package \ TWSI4 + " touchscreen" name + " zforce" +compatible + my-address my-space 1 reg + " reset-gpio" 1 d# 98 gpio-prop + " test-gpio" 1 d# 139 gpio-prop + " hd-gpio" 1 d# 12 gpio-prop + " dr-gpio" 1 d# 99 gpio-prop +end-package +[then] 0 0 " 19" " /i2c@d4034000" begin-package \ TWSI6 " accelerometer" name

1 0

[commit] r3168 - in cpu/arm: mmp2 olpc
by repository service 14 Aug '12

14 Aug '12

Author: pgf Date: Tue Aug 14 20:48:29 2012 New Revision: 3168 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3168 Log: gpio.fth: add gpio-prop word, for declaring gpio pins to device tree also an fload ordering change, to make the new word available in twsi.fth. Modified: cpu/arm/mmp2/gpio.fth cpu/arm/olpc/prefw.fth Modified: cpu/arm/mmp2/gpio.fth ============================================================================== --- cpu/arm/mmp2/gpio.fth Tue Aug 14 20:48:26 2012 (r3167) +++ cpu/arm/mmp2/gpio.fth Tue Aug 14 20:48:29 2012 (r3168) @@ -77,3 +77,12 @@ h# 104 make-gpio-mux-node h# 108 make-gpio-mux-node end-package + +: gpio-prop ( $gpioname low? gpionum -- ) + " /gpio" encode-phandle ( $gpioname low? gpionum propval$ ) + rot encode-int encode+ ( $gpioname low? propval$' ) + rot encode-int encode+ ( $gpioname propval$' ) + 2swap property +; + + Modified: cpu/arm/olpc/prefw.fth ============================================================================== --- cpu/arm/olpc/prefw.fth Tue Aug 14 20:48:26 2012 (r3167) +++ cpu/arm/olpc/prefw.fth Tue Aug 14 20:48:29 2012 (r3168) @@ -228,9 +228,9 @@ fload ${BP}/cpu/arm/mmp2/apbc.fth fload ${BP}/cpu/arm/mmp2/irq.fth fload ${BP}/cpu/arm/mmp2/timer.fth +fload ${BP}/cpu/arm/mmp2/gpio.fth fload ${BP}/cpu/arm/mmp2/twsi.fth fload ${BP}/cpu/arm/mmp2/mfpr.fth -fload ${BP}/cpu/arm/mmp2/gpio.fth \ Uninstall the diag menu from the general user interface vector \ so exiting from emacs doesn't invoke the diag menu.

1 0

[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

Jump to page:

2025

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

openfirmware