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 ;