[commit] r2439 - cpu/x86/pc/alex

[repository service]

Author: lwalter
Date: Tue Aug  9 20:23:31 2011
New Revision: 2439
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2439

Log:
Add mfgtest support

Added:
   cpu/x86/pc/alex/disptest.fth

Added: cpu/x86/pc/alex/disptest.fth
==============================================================================
--- /dev/null	00:00:00 1970	(empty, because file is newly added)
+++ cpu/x86/pc/alex/disptest.fth	Tue Aug  9 20:23:31 2011	(r2439)
@@ -0,0 +1,236 @@
+purpose: Display test
+\ See license at end of file
+
+\needs final-test?  0 value final-test?
+\needs smt-test?    0 value smt-test?
+
+dev /display
+
+d# 100 constant bar-int
+h# 7 constant test-colors16-mask
+create test-colors16
+\  white  magenta   yellow  red     green    blue    cyan    black
+   ffff w, f81f w,  ffe0 w, f800 w, 07e0 w,  001f w, 07ff w, 0000 w,
+
+: fill-rect  ( -- )  " fill-rectangle" $call-screen  ;
+: dimens     ( -- w h )  " dimensions" $call-screen  ;
+: ht         ( -- h )  " height" $call-screen  ;
+: wth        ( -- w )  " width"  $call-screen  ;
+
+: whole-screen  ( -- x y w h )  0 0 dimens  ;
+
+: black-screen  ( -- )  0  whole-screen  fill-rect  ;
+
+: test-color16  ( n -- color )
+   test-colors16 swap bar-int / test-colors16-mask and wa+ w@
+;
+: .horizontal-bars16  ( -- )
+   dimens				( width height )
+   0  ?do				( width )
+      i test-color16 0 i 3 pick bar-int fill-rect
+   bar-int +loop  drop
+;
+: .vertical-bars16  ( -- )
+   dimens				( width height )
+   swap 0  ?do				( height )
+      i test-color16 i 0 bar-int 4 pick fill-rect
+   bar-int +loop  drop
+;
+
+instance variable rn            	\ Random number
+d# 5,000 constant burnin-time		\ 5 seconds
+
+: random  ( -- n )
+   rn @  d# 1103515245 *  d# 12345 +   h# 7FFFFFFF and  dup rn !
+;
+
+: randomize-color  ( -- c )
+   random h# 1f and d# 11 <<
+   random h# 3f and d#  5 << or
+   random h# 1f and          or
+;
+: randomize-xy  ( -- x y )
+   dimens				( width height )
+   random 3ff and min swap		( y width )
+   random 7ff and min swap		( x y )
+;
+: randomize-wh  ( x y -- w h )
+   dimens				( x y width height )
+   rot - -rot				( max-h x width )
+   swap - swap				( max-w max-h )
+   randomize-xy				( max-w max-h w h )
+   rot min -rot min swap		( w' h' )
+;
+: .random-rect  ( -- )
+   randomize-color			( c )
+   randomize-xy				( c x y )
+   2dup randomize-wh			( c x y w h )
+   " fill-rectangle" $call-screen	( )
+;
+
+: random-selftest  ( -- )
+   get-msecs rn !
+   get-msecs burnin-time +    ( limit )
+   begin
+      get-msecs over u<       ( limit reached? )
+   while                      ( limit )
+      .random-rect            ( limit )
+      key?  if  key 2drop exit  then
+   repeat                     ( limit )
+   drop
+;
+
+0 value xbias
+0 value ybias
+0 value hstripe
+0 value vstripe
+: set-stripes  ( -- )
+   wth  d# 256 /  to hstripe
+   ht   d# 256 /  to vstripe
+   wth  hstripe d# 256 * -  to xbias
+   ht   vstripe d# 256 * -  to ybias
+;
+: half-bias  ( -- )  xbias 2/ to xbias  ybias 2/ to ybias  ;
+: gvsr  ( -- )
+   set-stripes  half-bias  black-screen   ( )
+   d# 256 0  do                ( )
+      d# 256 0  do             ( )
+         i j 0 rgb>565         ( color )
+         hstripe i * xbias +   ( color x )
+         vstripe j * ybias +   ( color x y )
+         hstripe vstripe       ( color x y w h )
+         fill-rect
+      loop
+   loop
+;
+: gvsb  ( -- )
+   set-stripes  half-bias  black-screen   ( )
+   d# 256 0  do                ( )
+      d# 256 0  do             ( )
+         0 j i rgb>565         ( color )
+         hstripe i * xbias +   ( color x )
+         vstripe j * ybias +   ( color x y )
+         hstripe vstripe       ( color x y )
+         fill-rect
+      loop
+   loop
+;
+: hgradient  ( -- )
+   set-stripes  black-screen   ( )
+   d# 256 0  do                ( )
+      i i i rgb>565            ( color )
+      hstripe i * xbias +  0   ( color x y )
+      hstripe  ht              ( color x y sw h )
+      fill-rect                ( )
+   loop                        ( )
+;
+
+: vgradient  ( -- )
+   set-stripes  black-screen   ( )
+   d# 256 0  do                ( )
+      i i i rgb>565            ( color )
+      0  vstripe i * ybias +   ( color x y )
+      wth  vstripe             ( color x y w sh )
+      fill-rect                ( )
+   loop                        ( )
+;
+
+
+h# ff h# ff h# ff rgb>565 constant white-color
+
+: hline  ( y -- )  >r  white-color  0 r>  wth  1  fill-rect  ;
+: vline  ( y -- )  >r  white-color  r> 0  1 ht    fill-rect  ;
+
+: crosshatch  ( -- )
+   black-screen
+   ht    0  do  i hline  d# 10 +loop
+   wth   0  do  i vline  d# 10 +loop
+;
+: short-wait  ( -- )  smt-test?  if  d# 250 ms  else  d# 500 ms  then  ;
+: brightness-ramp  ( -- )
+   0  h# 0f  do  i bright!  short-wait  -1 +loop
+   backlight-off  short-wait  backlight-on
+   h# f bright!
+;
+
+: red-screen  ( -- )
+   load-base  whole-screen  " read-rectangle" $call-screen
+   h# ff 00 00 rgb>565 whole-screen fill-rect
+   d# 1000 ms
+   load-base  whole-screen  fill-rect
+;
+: hold-time  ( -- )
+   smt-test?  if
+      d# 500 ms
+   else
+      final-test?  if  d# 500 ms  else  d# 1000 ms  then
+   then
+;
+
+: hold-time2  ( -- )
+   smt-test?  if
+      d# 500 ms
+   else
+      final-test?  if  key drop  then
+      d# 1000 ms
+   then
+;
+: wait  ( -- )
+   hold-time
+\   0 set-source \ Freeze image
+   hold-time
+\   1 set-source \ Unfreeze image
+   hold-time2
+;
+
+warning @ warning off
+: selftest  ( -- error? )
+   depth d# 16 <  if  false exit  then
+   smt-test? 0=  if
+      .horizontal-bars16   wait
+      .vertical-bars16     wait
+   then
+   gvsr                 wait
+   gvsb                 wait
+   hgradient            wait
+   vgradient            wait
+   crosshatch           wait
+   brightness-ramp
+
+   smt-test?  0=  if
+      burnin-time d# 5000 >  if
+         ." Press a key to stop early." cr
+         d# 1000 ms
+      then
+      random-selftest
+   then
+
+   confirm-selftest?
+;
+warning !
+
+device-end
+
+\ LICENSE_BEGIN
+\ Copyright (c) 2007 FirmWorks
+\ 
+\ Permission is hereby granted, free of charge, to any person obtaining
+\ a copy of this software and associated documentation files (the
+\ "Software"), to deal in the Software without restriction, including
+\ without limitation the rights to use, copy, modify, merge, publish,
+\ distribute, sublicense, and/or sell copies of the Software, and to
+\ permit persons to whom the Software is furnished to do so, subject to
+\ the following conditions:
+\ 
+\ The above copyright notice and this permission notice shall be
+\ included in all copies or substantial portions of the Software.
+\ 
+\ THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+\ EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+\ MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+\ NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+\ LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+\ OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+\ WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+\
+\ LICENSE_END