[OpenBIOS] r378 - dev/geode/ac97

[svn at openbios.org]

Author: wmb
Date: 2007-05-14 11:11:19 +0200 (Mon, 14 May 2007)
New Revision: 378

Modified:
   dev/geode/ac97/selftest.fth
Log:
OLPC audio selftest - ramp up on one speaker and down on the other





Modified: dev/geode/ac97/selftest.fth
===================================================================
--- dev/geode/ac97/selftest.fth	2007-05-14 09:10:17 UTC (rev 377)
+++ dev/geode/ac97/selftest.fth	2007-05-14 09:11:19 UTC (rev 378)
@@ -165,13 +165,17 @@
    1  d# 30  do            ( adr )
       i set-period         ( adr )
       make-cycle           ( adr )
-\      d# 42 copy-cycle     ( adr' )
       d# 35 copy-cycle     ( adr' )
    -1 +loop
    drop
 
-   \ Copy the left channel into the right channel
-   record-base   record-base record-len 2/ + wa1+  record-len 2/ /w -  move
+   \ Copy the left channel into the right channel in reverse order
+   record-base   record-len /w -  bounds   ( end start )
+   begin  2dup u>  while                   ( end start )
+      2dup w@ swap w!                      ( end start )
+      swap /w -  swap wa1+                 ( end' start' )
+   repeat                                  ( end start )
+   2drop
 ;