[openfirmware] r1273 - cpu/x86

svn at openfirmware.info svn at openfirmware.info
Tue Aug 4 03:42:24 CEST 2009


Author: wmb
Date: 2009-08-04 03:42:24 +0200 (Tue, 04 Aug 2009)
New Revision: 1273

Modified:
   cpu/x86/iirfilter.fth
Log:
Fixed typos in iirfilter.fth



Modified: cpu/x86/iirfilter.fth
===================================================================
--- cpu/x86/iirfilter.fth	2009-08-04 01:33:39 UTC (rev 1272)
+++ cpu/x86/iirfilter.fth	2009-08-04 01:42:24 UTC (rev 1273)
@@ -51,6 +51,7 @@
    si pop     \ Restore SI
    ax push    \ Return value
 c;
+[then]
 
 \ iir-cascade-z1 is the same basic structure as iir-cascade-z2,
 \ but the Z^-2 delays have been replaced by Z^-1.  It is used
@@ -210,7 +211,7 @@
 buflen0 buffer: z0  \ First upsampler even path delay buffer
 buflen0 buffer: z1  \ First upsampler odd path delay buffer
 
-1 1+ 2* /n* constant buflen0  \ 1 stage of Z^-2 plus final feedback
+1 1+ 2* /n* constant buflen1  \ 1 stage of Z^-2 plus final feedback
 
 buflen1 buffer: z2  \ 3x upsampler even path G0 delay buffer
 buflen1 buffer: z3  \ 3x upsampler odd path G1 delay buffer
@@ -264,16 +265,16 @@
    interp3 >r  0 interp3 >r  0 interp3  r> r>
 ;
 
-d# sample-stride
+0 value sample-stride
 variable sample-outp
 : out,  ( value -- )
-   sample-outp @ w!  sample-stride  sample-out +!
+   sample-outp @ w!  sample-stride  sample-outp +!
 ;
 
 \ Stride is 2 for mono, 4 for stereo
 \ For stereo you must call it twice with an offset of 2 for
 \ inbuf and outbuf on the second call
-: 8khz>48khz  ( inbuf #samples stride outbuf -- )
+: 8khz>48khz  ( inbuf #samples outbuf stride -- )
    to sample-stride         ( inbuf #samples outbuf )
    sample-outp !            ( inbuf #samples )
    init-upsample            ( inbuf #samples )
@@ -287,7 +288,7 @@
    drop
 ;
 
-: 16khz>48khz  ( inbuf #samples stride outbuf -- )
+: 16khz>48khz  ( inbuf #samples outbuf stride -- )
    to sample-stride         ( inbuf #samples outbuf )
    sample-outp !            ( inbuf #samples )
    init-upsample            ( inbuf #samples )




More information about the openfirmware mailing list