[openfirmware] [commit] r2522 - forth/lib
repository service
svn at openfirmware.info
Sat Sep 17 00:59:16 CEST 2011
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
More information about the openfirmware
mailing list