419 lines
17 KiB
Plaintext
419 lines
17 KiB
Plaintext
{{
|
|
┌──────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
│ Autor: Ingo Kripahle │
|
|
│ Copyright (c) 2010 Ingo Kripahle │
|
|
│ See end of file for terms of use. │
|
|
│ Die Nutzungsbedingungen befinden sich am Ende der Datei │
|
|
└──────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
Informationen : hive-project.de
|
|
Kontakt : drohne235@googlemail.com
|
|
System : TriOS
|
|
Name : HSS-Player
|
|
Chip : Regnatix
|
|
Typ : Programm
|
|
Version : 00
|
|
Subversion : 02
|
|
|
|
Funktion : HSS-Player für die Kommandozeile
|
|
|
|
Logbuch :
|
|
|
|
08-04-2010-dr235 - fork aus regime
|
|
- anpassung an trios
|
|
16-04-2010-dr235 - umwandlung in reine kommandozeilenanwendung
|
|
|
|
Kommandoliste :
|
|
|
|
/? : hilfetext
|
|
/p name.wav : hss-datei abspielen
|
|
/d : verzeichnis abspielen
|
|
/s : wiedergabe stoppen
|
|
/t : anzeige trackerliste
|
|
/r : anzeige engine-register
|
|
/i : anzeige interface-register
|
|
|
|
|
|
}}
|
|
|
|
OBJ
|
|
ios: "reg-ios"
|
|
|
|
CON
|
|
|
|
_CLKMODE = XTAL1 + PLL16X
|
|
_XINFREQ = 5_000_000
|
|
|
|
OS_TIBLEN = 64 'größe des inputbuffers
|
|
ERAM = 1024 * 512 * 2 'größe eram
|
|
HRAM = 1024 * 32 'größe hram
|
|
|
|
RMON_ZEILEN = 16 'speichermonitor - angezeigte zeilen
|
|
RMON_BYTES = 8 'speichermonitor - zeichen pro byte
|
|
|
|
VAR
|
|
|
|
long datcnt 'zeiger für dateiliste
|
|
byte fn[12] 'puffer für dateinamen
|
|
byte parastr[64] 'parameterstring
|
|
byte fl_bye
|
|
byte fl_next
|
|
|
|
DAT 'PARAMETER
|
|
|
|
PUB main
|
|
|
|
ios.start 'ios initialisieren
|
|
ios.parastart 'parameterübergabe starten
|
|
repeat while ios.paranext(@parastr) 'parameter einlesen
|
|
if byte[@parastr][0] == "/" 'option?
|
|
case byte[@parastr][1]
|
|
"?": ios.print(string("help: man hplay")) '/? - hilfetext
|
|
"p": play_hss '/p - hss-datei wiedergeben
|
|
"d": play_dir '/d - verzeichnis wiedergeben
|
|
"t": disp_tracker '/t - anzeige tracker
|
|
"r": disp_reg '/r - anzeige register
|
|
"i": disp_ireg '/i - anzeige interfaceregister
|
|
"s": ios.hss_stop '/s - wiedergabe stoppen
|
|
ios.stop
|
|
|
|
|
|
DAT 'PLAY_FILE
|
|
|
|
PUB play_hss 'hss: player starten
|
|
|
|
if ios.paranext(@parastr) 'parameter?
|
|
ios.hss_playfile(@parastr)
|
|
else 'kein parameter: fehlermeldung
|
|
printErr(@err1)
|
|
|
|
DAT 'PLAY_DIR
|
|
|
|
PUB play_dir | stradr,len,fcnt,i 'hss: alle songs auf der sd-card abspielen
|
|
|
|
ios.sddir 'kommando: verzeichnis öffnen
|
|
hss_startlist 'zum listenanfang
|
|
fcnt := 0 'zähler für dateianzahl
|
|
fl_bye := fl_next := 0
|
|
repeat while (stradr := ios.sdnext) 'dateiliste einlesen
|
|
' ios.print(stradr)
|
|
if str_find(stradr,@ext1)
|
|
' ios.printchar("◀")
|
|
fcnt++
|
|
hss_wrfn(stradr)
|
|
' ios.printnl
|
|
ios.print(string("Anzahl Dateien : "))
|
|
ios.printdec(fcnt)
|
|
ios.printnl
|
|
hss_startlist 'zum listenanfang
|
|
if fcnt
|
|
repeat i from 0 to fcnt-1 'dateiliste abspielen
|
|
ios.printdec(i+1)
|
|
ios.printchar("/")
|
|
ios.printdec(fcnt)
|
|
ios.printchar(" ")
|
|
hss_rdfn(@fn)
|
|
hss_playsong(@fn)
|
|
if fl_bye
|
|
quit
|
|
if fl_next
|
|
fl_next := 0
|
|
else
|
|
hss_fadeout
|
|
ios.hss_stop
|
|
|
|
PUB hss_playsong(stradr) | n,q,key 'hss: spielt die musikdatei bis zum ende
|
|
|
|
ios.curoff
|
|
ios.print(string("PlaySong <q/n> : "))
|
|
ios.print(stradr)
|
|
ios.printnl
|
|
ios.hss_stop
|
|
ios.hss_playfile(stradr)
|
|
repeat
|
|
n := ios.hss_intreg(ios#iRepeat) 'anzahl der schleifendurchläufe abfragen
|
|
q := ios.hss_intreg(ios#iEndFlag)
|
|
ios.curpos1
|
|
ios.print(string("iRepeat : "))
|
|
ios.printdec(n)
|
|
ios.print(string(" iEndFlag : "))
|
|
ios.printdec(q)
|
|
if key := ios.key
|
|
case key
|
|
"n": fl_next := 1
|
|
quit
|
|
"q": fl_bye := 1
|
|
quit
|
|
until n == 3 or q == 1
|
|
ios.printnl
|
|
ios.curon
|
|
|
|
PUB hss_fadeout | i 'hss: song langsam ausblenden
|
|
repeat i from 0 to 15
|
|
ios.hss_vol(15 - i)
|
|
waitcnt(cnt + 60_000_000)
|
|
waitcnt(cnt + 30_000_000)
|
|
|
|
PUB hss_wrfn(stradr) | len,i 'hss: kopiert dateinamen in eram
|
|
len := strsize(stradr)
|
|
repeat i from 0 to len-1
|
|
ios.ram_wrbyte(ios#usrmod,byte[stradr][i],datcnt++)
|
|
ios.ram_wrbyte(ios#usrmod,0,datcnt++)
|
|
|
|
|
|
PUB hss_rdfn(stradr) | i,n 'hss: liest dateinamen aus eram
|
|
i := 0
|
|
repeat
|
|
n := ios.ram_rdbyte(ios#usrmod,datcnt++)
|
|
byte[stradr][i++] := n
|
|
while n <> 0
|
|
|
|
PUB hss_startlist 'hss: zeiger auf listenanfang (dateinamen)
|
|
datcnt := 0
|
|
|
|
|
|
DAT 'DISPLAY
|
|
|
|
PUB disp_tracker | i,n 'disp: trackerliste ausgeben
|
|
repeat
|
|
repeat
|
|
until ios.hss_intreg(ios#iRowFlag) == 0
|
|
repeat
|
|
until ios.hss_intreg(ios#iRowFlag) == 1 'synchronisation bis zeile fertig bearbeitet
|
|
|
|
ios.printhex(ios.hss_intreg(ios#iBeatC),4)
|
|
ios.printchar("-")
|
|
ios.printhex(ios.hss_intreg(ios#iEngineC),4)
|
|
ios.printchar(":")
|
|
ios.printchar(" ")
|
|
|
|
repeat i from 1 to 4
|
|
|
|
hss_printnote(ios.hss_intreg(i*5+ios#iNote)) 'note
|
|
|
|
n := ios.hss_intreg(i*5+ios#iOktave)
|
|
if n
|
|
ios.printhex(n,1) 'oktave
|
|
else
|
|
ios.printchar("-")
|
|
ios.printchar(" ")
|
|
|
|
n := ios.hss_intreg(i*5+ios#iVolume)
|
|
if n
|
|
ios.printhex(n,1) 'volume
|
|
else
|
|
ios.printchar("-")
|
|
ios.printchar(" ")
|
|
|
|
n := ios.hss_intreg(i*5+ios#iEffekt)
|
|
if n
|
|
ios.printhex(n,1) 'effekt
|
|
else
|
|
ios.printchar("-")
|
|
ios.printchar(" ")
|
|
|
|
n := ios.hss_intreg(i*5+ios#iInstrument)
|
|
if n
|
|
ios.printhex(n,1) 'instrument
|
|
else
|
|
ios.printchar("-")
|
|
ios.printchar(" ")
|
|
|
|
|
|
ios.printnl
|
|
|
|
until ios.keystat > 0 'taste gedrückt?
|
|
ios.key
|
|
ios.curon
|
|
ios.printnl
|
|
|
|
PUB hss_printnote(n) 'disp: notenwert ausgeben
|
|
'C1,C#1,D1,D#1,E1,F1,F#1,G1,G#1,A1,A#1,H1
|
|
|
|
case n
|
|
0: ios.print(string(" "))
|
|
1: ios.print(string("C "))
|
|
2: ios.print(string("C#"))
|
|
3: ios.print(string("D "))
|
|
4: ios.print(string("D#"))
|
|
5: ios.print(string("E "))
|
|
6: ios.print(string("F "))
|
|
7: ios.print(string("F#"))
|
|
8: ios.print(string("G "))
|
|
9: ios.print(string("G#"))
|
|
10: ios.print(string("A "))
|
|
11: ios.print(string("A#"))
|
|
12: ios.print(string("H "))
|
|
|
|
|
|
|
|
PUB disp_ireg | i,j,n,wert 'disp: anzeige interfaceregister
|
|
ios.printcls
|
|
repeat
|
|
ios.curhome
|
|
ios.curoff
|
|
ios.printnl
|
|
repeat i from 0 to 4
|
|
ios.printhex(i*8,2)
|
|
ios.printchar(":")
|
|
repeat j from 0 to 4
|
|
n := (i*5)+j
|
|
wert := ios.hss_intreg(n)
|
|
ios.printhex(wert,4)
|
|
ios.printchar(" ")
|
|
ios.printnl
|
|
until ios.keystat > 0 'taste gedrückt?
|
|
ios.key
|
|
ios.curon
|
|
ios.printnl
|
|
|
|
PUB disp_reg | wert,i,j,n 'disp: kontinuierliche anzeige der regsiterwerte
|
|
{{
|
|
8 x 6 register long
|
|
|
|
0 kanal a
|
|
3>>16 f
|
|
4 v
|
|
|
|
8 kanal b
|
|
16 kanal c
|
|
24 kanal d
|
|
|
|
}}
|
|
ios.printcls
|
|
repeat
|
|
ios.curhome
|
|
ios.curoff
|
|
repeat j from 0 to 3
|
|
ios.printnl
|
|
ios.printnl
|
|
ios.printhex(j*8,2)
|
|
ios.printchar(":")
|
|
repeat i from 0 to 3
|
|
n := (j*8)+i
|
|
wert := ios.hss_peek(n)
|
|
ios.printhex(wert,8)
|
|
ios.printchar(" ")
|
|
ios.printnl
|
|
ios.printhex(j*8+4,2)
|
|
ios.printchar(":")
|
|
repeat i from 4 to 7
|
|
n := (j*8)+i
|
|
wert := ios.hss_peek(n)
|
|
ios.printhex(wert,8)
|
|
ios.printchar(" ")
|
|
|
|
ios.printnl
|
|
ios.printnl
|
|
ios.print(string("Channel A F: "))
|
|
wert := ios.hss_peek(0+3)
|
|
ios.printhex(wert>>16,4)
|
|
ios.print(string(" V: "))
|
|
wert := ios.hss_peek(0+4)
|
|
ios.printhex(wert,2)
|
|
|
|
ios.printnl
|
|
ios.print(string("Channel B F: "))
|
|
wert := ios.hss_peek(8+3)
|
|
ios.printhex(wert>>16,4)
|
|
ios.print(string(" V: "))
|
|
wert := ios.hss_peek(8+4)
|
|
ios.printhex(wert,2)
|
|
|
|
ios.printnl
|
|
ios.print(string("Channel C F: "))
|
|
wert := ios.hss_peek(16+3)
|
|
ios.printhex(wert>>16,4)
|
|
ios.print(string(" V: "))
|
|
wert := ios.hss_peek(16+4)
|
|
ios.printhex(wert,2)
|
|
|
|
ios.printnl
|
|
ios.print(string("Channel D F: "))
|
|
wert := ios.hss_peek(24+3)
|
|
ios.printhex(wert>>16,4)
|
|
ios.print(string(" V: "))
|
|
wert := ios.hss_peek(24+4)
|
|
ios.printhex(wert,2)
|
|
|
|
until ios.keystat > 0 'taste gedrückt?
|
|
ios.key
|
|
ios.curon
|
|
ios.printnl
|
|
|
|
DAT 'TOOLS
|
|
|
|
PRI printErr(stradr)
|
|
|
|
ios.print(@err0)
|
|
ios.print(stradr)
|
|
ios.print(string("help: man hplay"))
|
|
|
|
PUB str_find(string1, string2) : buffer | counter 'sys: string suchen
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Searches a string of characters for the first occurence of the specified string of characters. │
|
|
'' │ │
|
|
'' │ Returns the address of that string of characters if found and zero if not found. │
|
|
'' │ │
|
|
'' │ string1 - A pointer to the string of characters to search. │
|
|
'' │ string2 - A pointer to the string of characters to find in the string of characters to search. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
repeat strsize(string1--)
|
|
|
|
if(byte[++string1] == byte[string2])
|
|
|
|
repeat counter from 0 to (strsize(string2) - 1)
|
|
|
|
if(byte[string1][counter] <> byte[string2][counter])
|
|
buffer~~
|
|
|
|
ifnot(buffer~)
|
|
return string1
|
|
|
|
PUB str_lower(characters) '' 4 Stack Longs 'sys: in kleine zeichen wandeln
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Demotes all upper case characters in the set of ("A","Z") to their lower case equivalents. │
|
|
'' │ │
|
|
'' │ Characters - A pointer to a string of characters to convert to lowercase. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
repeat strsize(characters--)
|
|
|
|
result := byte[++characters]
|
|
|
|
if((result => "A") and (result =< "Z"))
|
|
|
|
byte[characters] := (result + 32)
|
|
|
|
|
|
DAT 'strings
|
|
|
|
ext1 byte ".HSS",0
|
|
|
|
err0 byte 13,"Fehler : ",0
|
|
err1 byte "Zu wenig Parameter!",13,0
|
|
|
|
DAT 'lizenz
|
|
{{
|
|
|
|
┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
│ TERMS OF USE: MIT License │
|
|
├──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┤
|
|
│Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation │
|
|
│files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, │
|
|
│modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software│
|
|
│is furnished to do so, subject to the following conditions: │
|
|
│ │
|
|
│The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.│
|
|
│ │
|
|
│THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE │
|
|
│WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR │
|
|
│COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, │
|
|
│ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. │
|
|
└──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
}}
|
|
|