55 lines
908 B
Plaintext
55 lines
908 B
Plaintext
|
|
||
|
|
hex
|
||
|
|
|
||
|
|
ifnot: lib:wav
|
||
|
|
: lib:wav ;
|
||
|
|
|
||
|
|
\ kommandoformen
|
||
|
|
|
||
|
|
ifnot: adm:fkt!b@ \ ( fkt -- b )
|
||
|
|
: adm:fkt!b@ b[ [a!] [a@] ]b ;
|
||
|
|
|
||
|
|
ifnot: adm:fkt!s!b@ \ ( s fkt -- b )
|
||
|
|
: adm:fkt!s!b@ b[ [a!] [a.s!] [a@] ]b ;
|
||
|
|
|
||
|
|
ifnot: adm:fkt!l@l@ \ ( fkt -- l l )
|
||
|
|
: adm:fkt!l@l@ b[ [a!] [a.l@] [a.l@] ]b ;
|
||
|
|
|
||
|
|
\ wave-funktionen
|
||
|
|
|
||
|
|
\ wav:start ( cstr -- err )
|
||
|
|
ifnot: wav:start
|
||
|
|
: wav:start
|
||
|
|
96 adm:fkt!s!b@ ;
|
||
|
|
|
||
|
|
\ wav:stop ( -- )
|
||
|
|
ifnot: wav:stop
|
||
|
|
: wav:stop
|
||
|
|
97 adm:fkt!b@ drop ;
|
||
|
|
|
||
|
|
\ wav:status ( -- status )
|
||
|
|
ifnot: wav:status
|
||
|
|
: wav:status
|
||
|
|
98 adm:fkt!b@ ;
|
||
|
|
|
||
|
|
\ wav:leftvol ( vol -- )
|
||
|
|
ifnot: wav:leftvol
|
||
|
|
: wav:leftvol
|
||
|
|
99 adm:fkt!b! ;
|
||
|
|
|
||
|
|
\ wav:rightvol ( vol -- )
|
||
|
|
ifnot: wav:rightvol
|
||
|
|
: wav:rightvol
|
||
|
|
9A adm:fkt!b! ;
|
||
|
|
|
||
|
|
\ wav:pause ( -- )
|
||
|
|
ifnot: wav:pause
|
||
|
|
: wav:pause
|
||
|
|
9B adm:fkt!b@ drop ;
|
||
|
|
|
||
|
|
\ wav:position ( -- len pos )
|
||
|
|
ifnot: wav:position
|
||
|
|
: wav:position
|
||
|
|
9C adm:fkt!l@l@ ;
|
||
|
|
|