[openfirmware] [commit] r1833 - dev/geode/ac97
repository service
svn at openfirmware.info
Fri Jun 25 01:24:48 CEST 2010
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 )
More information about the openfirmware
mailing list