116 lines
2.4 KiB
Modula-2
116 lines
2.4 KiB
Modula-2
|
|
|||
|
|
\ achtung: vor verwendung muss der administra-code mit sidcog
|
|||
|
|
\ geladen werden:
|
|||
|
|
\ sys tools.f
|
|||
|
|
\ sys splay.f <--- 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 ;
|
|||
|
|
|