[commit] r2522 - forth/lib

[repository service]

Author: wmb
Date: Sat Sep 17 00:59:16 2011
New Revision: 2522
URL: http://tracker.coreboot.org/trac/openfirmware/changeset/2522

Log:
Forth core - added "dump-audio" command.

Modified:
   forth/lib/dump.fth

Modified: forth/lib/dump.fth
==============================================================================
--- forth/lib/dump.fth	Sat Sep 17 00:58:24 2011	(r2521)
+++ forth/lib/dump.fth	Sat Sep 17 00:59:16 2011	(r2522)
@@ -54,6 +54,21 @@
 : dump ( addr len -- )      ['] c@ is dc@ (dump)  ;
 : du   ( addr -- addr+64 )  dup d# 64 dump   d# 64 +  ;

+\ Dumps 16-bit signed samples in decimal
+: dump-audio  ( adr len -- )
+   base @ >r
+   bounds ?do
+      hex
+      i 8 u.r ." : "
+      decimal
+      i d# 16  bounds do
+         i <w@ 7 .r
+      /w +loop
+      cr
+   d# 16 +loop
+   pop-base  
+;
+
 only forth also definitions
 \ LICENSE_BEGIN
 \ Copyright (c) 2006 FirmWorks