[openfirmware] r1608 - dev/hdaudio

[svn at openfirmware.info]

Author: wmb
Date: 2009-12-15 05:16:21 +0100 (Tue, 15 Dec 2009)
New Revision: 1608

Modified:
   dev/hdaudio/test.fth
Log:
HDaudio selftest - fixed channel format problem that was causing low
volume for speaker playback test.


Modified: dev/hdaudio/test.fth
===================================================================
--- dev/hdaudio/test.fth	2009-12-15 02:55:53 UTC (rev 1607)
+++ dev/hdaudio/test.fth	2009-12-15 04:16:21 UTC (rev 1608)
@@ -15,6 +15,7 @@
 ;
 : speaker-test  ( -- )
    h# 19 to node
+   2 to #channels
    pin-sense?  if
       ." Disconnect headphones to continue.. "
       begin  ?key-abort  pin-sense? 0=  until  cr
@@ -25,6 +26,7 @@
 
 : headphones-test  ( -- )
    h# 19 to node
+   2 to #channels
    pin-sense? 0= if
       ." Connect headphones to continue.. "
       begin  ?key-abort  pin-sense?  until  cr
@@ -34,6 +36,13 @@
    h# 1f to node  power-on   \ turn speaker back on
 ;
 
+: louder-mic-test  ( -- )
+   ." Recording ..." cr
+   record
+   ." Playing ..." cr
+   d# 0 set-volume  play
+;
+
 : builtin-mic-test  ( -- )
    h# 1a to node
    pin-sense?  if
@@ -42,7 +51,7 @@
    then
    ." Press a key to test recording / playback on the built-in microphone.. "
    key drop cr
-   mic-test
+   louder-mic-test
 ;
 
 : external-mic-test  ( -- )