TriOS-alt/system/regnatix/sysconf.spin

368 lines
23 KiB
Plaintext
Raw Normal View History

2010-11-26 23:58:06 +01:00
<EFBFBD><EFBFBD>{{
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 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 : sysconf
Chip : Regnatix
Typ : Programm
Version :
Subversion :
Funktion : Kommandozeilentool f<00>r TriOS-Systemeinstellungen
Komponenten : -
COG's : -
Logbuch :
16-04-2010-dr235 - erste version
24-10-2010-dr235 - port input/output
Kommandoliste :
/? : Hilfe
/l : list konf
/ap : Konfiguration anzeigen
/ah 0|1 : hss ab-/anschalten
/aw 0|1 : wav ab-/anschalten
/as 0|1 : systemkl<00>nge ab-/anschalten
/al 0..100: wav-lautst<00>rke links
/ar 0..100: wav-lautst<00>rke rechts
/ah 0..15 : hss-lautst<00>rke
/ci : farbtabelle anzeigen
/cs datei : farbtabelle speichern
/cl datei : farbtabelle laden
/po p a : port ausgabe portnummer anzahl impulse
/pi : port eingabe portnummer
Notizen :
}}
OBJ
ios: "ios"
CON
_CLKMODE = XTAL1 + PLL16X
_XINFREQ = 5_000_000
VAR
byte parastr[64]
PUB main
ios.start 'ios initialisieren
ios.parastart 'parameter<00>bergabe starten
repeat while ios.paranext(@parastr) 'parameter einlesen
if byte[@parastr][0] == "/" 'option?
case byte[@parastr][1]
"?": ios.print(@help1) '/?
"l": printConf
"a": case byte[@parastr][2] 'administra
"h": setHSS '/ah - hss
"w": setWAV '/aw - wav
"s": setSYS '/as - systemkl<00>nge
"l": set_lvol '/al - wav-lautst<00>rke links
"r": set_rvol '/ar - wav-lautst<00>rke rechts
"v": set_hvol '/av - hss-lautst<00>rke
"f": ios.admreset '/af - administra reset, flash wird neu gebootet
2010-11-26 23:58:06 +01:00
"t": busTransfer '/at - transfergeschwindigkeit messen
"d": set_datetime '/ad - set date, time
2010-11-26 23:58:06 +01:00
"c": case byte[@parastr][2] 'color
"i": col_info '/ci - farbregister anzeigen
"l": col_load '/cl - farbregister laden
"s": col_save '/cs - farbregister speichern
"p": case byte[@parastr][2] 'portfunktionen
"o": port_out '/po - impulse am port ausgeben
"i": port_in '/pi - portstatus einlesen
ios.stop
DAT 'PORT
PRI port_out|pnr,anz,time,fak
2010-11-26 23:58:06 +01:00
if ios.paranext(@parastr)
pnr := str2dec(@parastr)
if ios.paranext(@parastr)
anz := str2dec(@parastr)
if ios.paranext(@parastr)
fak := str2dec(@parastr)
else
printErr(@err1)
return
else
printErr(@err1)
return
else
printErr(@err1)
return
ios.print(string("Port Nr(0..31): "))
ios.printdec(pnr)
ios.printnl
ios.print(string("Impulse : "))
ios.printdec(anz)
ios.printnl
ios.print(string("Faktor : "))
ios.printdec(fak)
ios.printnl
' ------------------------
dira := 0
outa[0..31] := 0
dira := |< pnr
2010-11-26 23:58:06 +01:00
time := cnt
repeat anz
outa[pnr] := 1
waitcnt(time += clkfreq/fak)
outa[pnr] := 0
waitcnt(time += clkfreq/fak)
ios.bus_init
' ------------------------
PRI port_in|pnr,wert
ios.printnl
' ------------------------
dira := 0
wert := ina[0..31]
ios.bus_init
' ------------------------
ios.print(string("Status : "))
ios.printbin(wert,32)
DAT 'COLOR
PRI col_info|i
repeat i from 0 to 7
ios.printhex(ios.belgetcolor(i*2),8)
ios.printchar(" ")
ios.printhex(ios.belgetcolor(i*2+1),8)
ios.setcolor(i)
ios.print(string(" Farbe : "))
ios.setcolor(0)
ios.printdec(i)
ios.printnl
PRI col_save|i,color
if ios.paranext(@parastr)
ios.printnl
ios.print(string("Farbtabelle speichern : "))
ios.print(@parastr)
ios.sdnewfile(@parastr)
ifnot ios.sdopen("W",@parastr)
repeat i from 0 to 15
color := ios.belgetcolor(i)
ios.sdputc(color >> 24)
ios.sdputc(color >> 16)
ios.sdputc(color >> 8)
ios.sdputc(color )
ios.sdclose
else
printErr(@err1)
PRI col_load|i,color
if ios.paranext(@parastr)
ios.printnl
ios.print(string("Farbtabelle laden : "))
ios.print(@parastr)
ifnot ios.sdopen("R",@parastr)
repeat i from 0 to 15
color := ios.sdgetc << 24
color += ios.sdgetc << 16
color += ios.sdgetc << 8
color += ios.sdgetc
ios.belsetcolor(i,color)
ios.sdclose
else
printErr(@err1)
DAT 'VOLUME
PRI set_lvol
if ios.paranext(@parastr) 'parameter?
ios.wav_lvol(str2dec(@parastr))
else 'kein parameter: fehlermeldung
printErr(@err1)
PRI set_rvol
if ios.paranext(@parastr) 'parameter?
ios.wav_rvol(str2dec(@parastr))
else 'kein parameter: fehlermeldung
printErr(@err1)
PRI set_hvol
if ios.paranext(@parastr) 'parameter?
ios.hss_vol(str2dec(@parastr))
else 'kein parameter: fehlermeldung
printErr(@err1)
DAT 'SOUNDSYSTEM
PRI setHSS
if ios.paranext(@parastr) 'parameter?
case byte[@parastr][0]
"0": ios.admsetsound(0)
ios.print(@msg4)
ios.print(@msg2)
"1": ios.admsetsound(1)
ios.print(@msg4)
ios.print(@msg1)
else
printErr(@err1)
PRI setWAV
if ios.paranext(@parastr) 'parameter?
case byte[@parastr][0]
"0": ios.admsetsound(2)
ios.print(@msg5)
ios.print(@msg2)
"1": ios.admsetsound(3)
ios.print(@msg5)
ios.print(@msg1)
else
printErr(@err1)
PRI setSYS
if ios.paranext(@parastr) 'parameter?
case byte[@parastr][0]
"0": ios.admsetsyssnd(0)
ios.print(@msg7)
ios.print(@msg2)
"1": ios.admsetsyssnd(1)
ios.print(@msg7)
ios.print(@msg1)
else
printErr(@err1)
VAR
long tcnt1,tcnt2 'transferz<00>hler
byte tflag 'transferflag
CON
tbytes = 32768
PRI busTransfer|sec
ios.print(@msg8)
tcnt1 := cnt
repeat tbytes
tcnt1 := cnt - tcnt1
tcnt2 := cnt
repeat tbytes
ios.admgetsndsys
tcnt2 := cnt - tcnt2
ios.print(@msg10)
ios.print(@msg9)
sec := (tcnt2 - tcnt1) / clkfreq
2010-11-26 23:58:06 +01:00
ios.printdec((tbytes*2)/sec)
ios.print(@msg11)
PRI printConf
ios.printnl
ios.print(@msg3) 'soundsystem
case ios.admgetsndsys
0: ios.print(@msg6)
1: ios.print(@msg4)
2: ios.print(@msg5)
ios.printnl
ios.print(@msg12) 'ramdisk
if ios.rd_getinit
ios.print(@msg14)
else
ios.print(@msg15)
ios.printnl
ios.print(@msg13) 'usermem
ios.printdec(ios.ram_getend - ios.ram_getbas)
ios.printnl
PRI printErr(stradr)
ios.print(@err0)
ios.print(stradr)
ios.print(@help1)
PRI str2dec(stradr)|buffer,counter
buffer := byte[stradr]
counter := (strsize(stradr) <# 11)
repeat while(counter--)
result *= 10
result += lookdownz(byte[stradr++]: "0".."9")
if(buffer == "-")
-result
PRI set_datetime
print("to be implemented.")
2010-11-26 23:58:06 +01:00
DAT
msg1 byte "EIN ", 0
msg2 byte "AUS ", 0
msg3 byte "Soundsystem : ",0
msg12 byte "Ramdisk : ",0
msg13 byte "Usermem : ",0
msg14 byte "aktiviert",0
msg15 byte "deaktiviert",0
msg4 byte "HSS-Engine ",0
msg5 byte "WAV-Engine ",0
msg6 byte "Soundsystem deaktiviert ",0
msg7 byte "Systemkl<00>nge ",0
msg8 byte "Transfergeschwindigkeit Regnatix <--> Administra messen... ",0
msg9 byte "Geschwindigkeit : ",0
msg10 byte "ok",13,0
msg11 byte " Bytes/Sekunde",13,0
err0 byte 13,"Fehler : "
err1 byte "Zu wenig Parameter!",13,0
help1 file "sysconf.txt"
byte 13,0
DAT
{{
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 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. %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
}}