{{ ┌──────────────────────────────────────────────────────────────────────────────────────────────────────┐ │ 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ü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änge ab-/anschalten /al 0..100: wav-lautstärke links /ar 0..100: wav-lautstärke rechts /ah 0..15 : hss-lautstä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ü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änge "l": set_lvol '/al - wav-lautstärke links "r": set_rvol '/ar - wav-lautstärke rechts "v": set_hvol '/av - hss-lautstärke "f": ios.admreset '/ab - administra reset, flash wird neu gebootet "t": busTransfer '/at - transfergeschwindigkeit messen "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 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 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ä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 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 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ä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. │ └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘ }}