Author: quozl Date: Wed Mar 13 03:33:30 2013 New Revision: 3604 URL: http://tracker.coreboot.org/trac/openfirmware/changeset/3604
Log: OLPC XO-4 - touchscreen tests. FINAL test phase: remove the existing adjacent axes test, use the new nonlinearity test. SHIP test phase: restore scribble for general use by field.
Modified: cpu/arm/olpc/nn-touchscreen.fth
Modified: cpu/arm/olpc/nn-touchscreen.fth ============================================================================== --- cpu/arm/olpc/nn-touchscreen.fth Wed Mar 13 03:21:56 2013 (r3603) +++ cpu/arm/olpc/nn-touchscreen.fth Wed Mar 13 03:33:30 2013 (r3604) @@ -919,6 +919,10 @@ ['] (.tsmsg) to .tsmsg ;
+: scribble + ev( ['] dot ev )ev +; + \ Nonlinearity test
d# 2000 constant #pts-max @@ -1147,7 +1151,7 @@ \ 2) Establish threshold for nonlinearity and fail if exceeded \ 3) Perhaps integrate the nonlinearity test with the targets test?
-: scribble +: test-nonlinearity alloc-bufs begin ev( 0 to #pts @@ -1166,10 +1170,6 @@ free-bufs ;
-\ : scribble -\ ev( ['] dot ev )ev -\ ; -
0 value dx 0 value dy @@ -1332,6 +1332,14 @@ faults ;
+: mb-final ( -- error? ) + open 0= if true exit then + d# 86400.000 to test-timeout + ['] test-nonlinearity catch ?dup if .error fault then + close + faults +; + : selftest ( -- error? ) absent? if ." No touchscreen expected" cr false exit then
@@ -1340,7 +1348,7 @@ test-station case h# 1 of mb-smt exit endof h# 2 of mb-assy exit endof - h# 4 of mb-assy exit endof + h# 4 of mb-final exit endof h# 11 of ir-pcb-smt exit endof h# 12 of ir-pcb-assy exit endof h# 13 of lg-tooling exit endof