[commit] r1833 - dev/geode/ac97

[repository service]

Author: wmb
Date: Fri Jun 25 01:24:48 2010
New Revision: 1833
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/1833

Log:
AC97 selftest - added code for generating tones at frequencies
that are exact submultiples of the sampling frequency.

Modified:
   dev/geode/ac97/selftest.fth

Modified: dev/geode/ac97/selftest.fth
==============================================================================
--- dev/geode/ac97/selftest.fth	Fri Jun 25 01:23:28 2010	(r1832)
+++ dev/geode/ac97/selftest.fth	Fri Jun 25 01:24:48 2010	(r1833)
@@ -88,6 +88,41 @@
    record-base record-len la1+  " dma-free" $call-parent
 ;

+create tone-freqs
+decimal
+200 , 
+250 ,
+296 ,
+400 ,
+500 ,
+666 ,
+800 ,
+1000 ,
+1333 ,
+1600 ,
+2000 ,
+2400 ,
+3000 ,
+3428 ,
+4000 ,
+4800 ,
+5333 ,
+6000 ,
+6857 ,
+8000 ,
+9600 ,
+12000 ,
+16000 ,
+here tone-freqs - /n /  constant #tones
+
+: fr-tones  ( -- )
+   #tones  0  do
+      tone-freqs i na+ @
+      dup .d
+      tone
+   loop
+;
+
 : copy-cycle  ( adr #copies -- adr' )
    1  ?do                      ( adr )
       dup  /cycle -  over      ( adr adr- adr )