116 lines
2.3 KiB
Modula-2
116 lines
2.3 KiB
Modula-2
|
||
\ achtung: vor verwendung muss der administra-code mit sidcog
|
||
\ geladen werden:
|
||
\ sys tools.mod
|
||
\ sys splay.mod <--- sid-player laden
|
||
\ aload admsid.adm <--- administra-code mit sidcog laden
|
||
\ splay xyz.dmp <--- sid-datei abspielen
|
||
|
||
|
||
hex
|
||
|
||
ifnot: mod:splay
|
||
: mod:splay ;
|
||
|
||
\ kommandoformen
|
||
|
||
ifnot: adm:fkt! \ ( fkt -- )
|
||
: adm:fkt! b[ [a!] ]b ;
|
||
|
||
ifnot: adm:fkt!b! \ ( b fkt -- )
|
||
: adm:fkt!b! b[ [a!] [a!] ]b ;
|
||
|
||
ifnot: adm:fkt!b@ \ ( fkt -- b )
|
||
: adm:fkt!b@ b[ 0 [a!] [a!] [a@] ]b ;
|
||
|
||
ifnot: adm:fkt!s! \ ( s fkt -- )
|
||
: adm:fkt!s! b[ [a!] [a.s!] ]b ;
|
||
|
||
ifnot: adm:fkt!s!b@ \ ( s fkt -- err )
|
||
: adm:fkt!s! b[ [a!] [a.s!] [b@] ]b ;
|
||
|
||
ifnot: adm:fkt!b!l@ \ ( b fkt -- l )
|
||
: adm:fkt!b!l@ b[ [a!] [a!] [a.l@] ]b ;
|
||
|
||
\ dm-funktionen
|
||
ifnot: adm:dmget \ ( dmnr -- dm ) - marker lesen
|
||
: adm:dmget 1B adm:fkt!b!l@ ;
|
||
|
||
\ adm:dmact ( dmnr -- ) - marker aktivieren
|
||
: adm:dmact 19 adm:fkt!b!b@ drop ;
|
||
|
||
\ adm-funktionen
|
||
|
||
\ adm:aload ( cstr -- ) - neuen administra-code laden
|
||
ifnot: adm:aload
|
||
: adm:aload
|
||
60 adm:fkt!s! ;
|
||
|
||
\ tools
|
||
|
||
ifnot: aload
|
||
: aload
|
||
mount? parsenw dup
|
||
if 1 adm:dmact adm:aload 0 else drop 23 then .err ;
|
||
|
||
\ sid-funktionen
|
||
|
||
ifnot: sid:play
|
||
: sid:play \ ( cstr -- err )
|
||
9E adm:fkt!s!b@ ;
|
||
|
||
ifnot: sid:stop
|
||
: sid:stop \ ( -- )
|
||
9F adm:fkt! ;
|
||
|
||
ifnot: sid:status
|
||
: sid:status \ ( -- status )
|
||
A1 adm:fkt!b@ ;
|
||
|
||
ifnot: sid:mute
|
||
\ 1 - sid1
|
||
\ 2 - sid2
|
||
\ 3 - sid1 & sid2
|
||
: sid:mute \ ( sidnr -- )
|
||
A3 adm:fkt!b! ;
|
||
|
||
\ send? ( -- t/f )
|
||
ifnot: send?
|
||
: send?
|
||
begin 50 delms key? dup if key drop then sid:status 0= or
|
||
until ;
|
||
|
||
\ (splay) ( cstr -- )
|
||
ifnot: (splay)
|
||
: (splay) \ ( cstr -- )
|
||
." Datei : " dup .cstr cr sid:play .err
|
||
send? sid:stop 3 sid:mute adm:close drop ;
|
||
|
||
\ 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 ;
|
||
|
||
\ splay name.dmp ( -- ) - sid-datei abspielen
|
||
ifnot: splay
|
||
: splay
|
||
parsenw (splay) ;
|
||
|
||
\ sdirplay ( -- ) - gesamtes verzeichnis abspielen
|
||
\ im verzeichnis d<EFBFBD>rfen nur sid-dateien sein!
|
||
ifnot: sdirplay
|
||
: sdirplay
|
||
files? dup ." Dateien : " . cr
|
||
0 do i dup 1 + . 3 + filenr? pad (splay) loop padbl ;
|
||
|
||
ifnot: smute
|
||
: smute
|
||
sid:stop 3 sid:mute ;
|
||
|