94 lines
1.8 KiB
Modula-2
94 lines
1.8 KiB
Modula-2
|
|
|||
|
|
hex
|
|||
|
|
|
|||
|
|
ifnot: mod:wplay
|
|||
|
|
: mod:wplay ;
|
|||
|
|
|
|||
|
|
\ kommandoformate
|
|||
|
|
|
|||
|
|
ifnot: adm:fkt!s!b@ \ ( s fkt -- b )
|
|||
|
|
: adm:fkt!s!b@ b[ [a!] [a.s!] [a@] ]b ;
|
|||
|
|
|
|||
|
|
ifnot: adm:fkt!b!b@ \ ( b fkt -- b )
|
|||
|
|
: adm:fkt!b!b@ b[ [a!] [a!] [a@] ]b ;
|
|||
|
|
|
|||
|
|
ifnot: adm:fkt!b@ \ ( fkt -- b )
|
|||
|
|
: adm:fkt!b@ b[ [a!] [a@] ]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@ ;
|
|||
|
|
|
|||
|
|
\ adm-funktionen
|
|||
|
|
|
|||
|
|
\ adm:setsound ( sfkt -- sstat ) - soundsystem verwalten
|
|||
|
|
\ sfkt:
|
|||
|
|
\ 0: hss-engine abschalten
|
|||
|
|
\ 1: hss-engine anschalten
|
|||
|
|
\ 2: dac-engine abschalten
|
|||
|
|
\ 3: dac-engine anschalten
|
|||
|
|
\ sstat - status/cognr startvorgang
|
|||
|
|
ifnot: adm:setsound
|
|||
|
|
: adm:setsound
|
|||
|
|
5C adm:fkt!b!b@ ;
|
|||
|
|
|
|||
|
|
|
|||
|
|
\ metafunktionen
|
|||
|
|
|
|||
|
|
\ won
|
|||
|
|
ifnot: won
|
|||
|
|
: won
|
|||
|
|
0 adm:setsound 3 adm:setsound 2drop ;
|
|||
|
|
|
|||
|
|
\ woff
|
|||
|
|
ifnot: woff
|
|||
|
|
: woff
|
|||
|
|
2 adm:setsound 1 adm:setsound 2drop ;
|
|||
|
|
|
|||
|
|
\ wend? ( -- t/f )
|
|||
|
|
ifnot: wend?
|
|||
|
|
: wend?
|
|||
|
|
begin 50 delms key? dup if key drop then wav:status 0= or until ;
|
|||
|
|
|
|||
|
|
\ (wplay) ( cstr -- )
|
|||
|
|
ifnot: (wplay)
|
|||
|
|
: (wplay) \ ( cstr -- )
|
|||
|
|
." Datei : " dup .cstr cr wav:start .err wend? wav:stop ;
|
|||
|
|
|
|||
|
|
\ wplay name ( -- )
|
|||
|
|
ifnot: wplay
|
|||
|
|
: wplay
|
|||
|
|
won parsenw (wplay) woff ;
|
|||
|
|
|
|||
|
|
\ files? ( -- cnt ) - anzahl dateien im dir
|
|||
|
|
ifnot: files?
|
|||
|
|
: files?
|
|||
|
|
adm:diropen
|
|||
|
|
0 begin adm:nextfile swap 1+ swap 0= until 3 - padbl ;
|
|||
|
|
|
|||
|
|
\ filenr? ( nr -- )
|
|||
|
|
ifnot: filenr?
|
|||
|
|
: filenr?
|
|||
|
|
adm:diropen
|
|||
|
|
0 do adm:nextfile drop loop ;
|
|||
|
|
|
|||
|
|
\ wdirplay ( -- ) - gesamtes verzeichnis abspielen
|
|||
|
|
\ im verzeichnis d<EFBFBD>rfen nur wav-dateien sein!
|
|||
|
|
ifnot: wdirplay
|
|||
|
|
: wdirplay
|
|||
|
|
won files? dup ." Dateien : " . cr
|
|||
|
|
0 do i dup 1 + . 3 + filenr? pad (wplay) loop padbl woff ;
|