HIVE
/
TriOS
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
TriOS/system/regnatix/regime.spin

1160 lines
43 KiB
Plaintext
Raw Normal View History

Initial checkin of TriOS R56
2013-12-10 15:32:47 +01:00
{{
┌──────────────────────────────────────────────────────────────────────────────────────────────────────┐
│ 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 : Regime
Chip : Regnatix
Typ : Programm
Version : 00
Subversion : 02
Funktion : "Regime" ist ein einfacher Kommandozeileninterpreter für das Betriebssystem TriOS.
help - diese hilfe
<sd:dateiname> - bin/adm/bel-datei wird gestartet
mount - sd-card mounten
unmount - sd-card abmelden
dir <wh> - verzeichnis anzeigen
type <sd:fn> - anzeige einer textdatei
aload <sd:fn> - administra-code laden
bload <sd:fn> - bellatrix-treiber laden
rload <sd:fn> - regnatix-code laden
del <sd:fn> - datei löschen
cls - bildschirm löschen
free - freier speicher auf sd-card
attrib <sd:fn> <ashr> - attribute ändern
cd <sd:dir> - verzeichnis wechseln
mkdir <sd:dir> - verzeichnis erstellen
rename <sd:fn1> <sd:fn2> - datei/verzeichnis umbenennen
format <volname> - sd-card formatieren
reboot - hive neu starten
sysinfo - systeminformationen
color <0..7> - farbe wählen
cogs - belegung der cogs anzeigen
dmlist - anzeige der verzeichnis-marker
dm <r/s/u/a/b/c> - in das entsprechende marker-
verzeichnis wechseln
dmset <r/s/u/a/b/c> - setzt den entsprechenden marker
auf das aktuelle verzeichnis
dmclr <r/s/u/a/b/c> - marker löschen
forth - forth starten
marker:
r - root-verzeichnis
s - system-verzeichnis
u - user-verzeichnis
a/b/c - benutzerdefinierte verzeichnismarker
r, s, u-marker werden vom system automatisch gesetzt und
intern verwendet.
RAMDISK:
xload <sd:fn> - datei in ram laden
xsave <x:fn> - datei aus ram speichern
xdir - verzeichnis im ram anzeigen
xrename <x:fn1> <x:fn2> - datei im ram umbenennen
xdel <x:fn> - datei im ram löschen
xtype <x:fn> - text im ram anzeigen
Logbuch :
22-03-2010-dr235 - anpassung trios
10-04-2010-dr235 - alternatives dir-marker-system eingefügt
17-04-2010-dr235 - dm-user wird jetzt auch beim start aus dem aktuellen dir gesetzt
30-04-2010-dr235 - mount robuster gestaltet
19-09-2010-dr235 - integration ramdisk
- kommandos: xdir, xdel, xrename, xload, xsave, xtype
20-09-2010-dr235 - blocktransfer für xload/xsave (wesentlich bessere geschwindigkeit!!!)
07.04.2013-dr235 - div. anpassungen für alternative videomodis (tv)
}}
OBJ
ios: "reg-ios"
str: "glob-string"
CON
_CLKMODE = XTAL1 + PLL16X
_XINFREQ = 5_000_000
OS_TIBLEN = 64 'größe des inputbuffers
OS_MLEN = 8
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
VGA = 0
TV = 1
VAR
'systemvariablen
byte tib[OS_TIBLEN] 'tastatur-input-buffer
byte cmdstr[OS_TIBLEN] 'kommandostring für interpreter
byte token1[OS_TIBLEN] 'parameterstring 1 für interpreter
byte token2[OS_TIBLEN] 'parameterstring 2 für interpreter
byte tibpos 'aktuelle position im tib
byte rows 'aktuelle anzahl der nutzbaren zeilen
byte cols 'aktuelle Anzahl der nutzbaren spalten
byte cog[8] 'array for free-cog counter
byte act_color 'Speicher für gewählte zeichenfarbe
byte vidmod 'videomodus: 0 - vga, 1 - tv
PUB main | flag
flag := ios.start 'ios initialisieren
if flag == 0 'kaltstart?
ios.screeninit 'systemmeldung
ios.ram_wrbyte(0,1,ios#SIFLAG) 'screeninit-flag setzen
ios.os_error(ios.sdmount) 'sd-card mounten
if 0 == ios.ram_rdbyte(0,ios#SIFLAG) 'screen neu initialisieren?
ios.screeninit 'systemmeldung
ios.ram_wrbyte(0,1,ios#SIFLAG)
ios.sddmact(ios#DM_USER) 'wieder in userverzeichnis wechseln
ios.printnl
ios.print(@prompt1)
repeat
os_testvideo 'neuer videomodus?
os_cmdinput 'kommandoeingabe
os_cmdint 'kommandozeileninterpreter
CON ''------------------------------------------------- INTERPRETER
PRI os_cmdinput | charc 'sys: stringeingabe eine zeile
''funktionsgruppe : sys
''funktion : stringeingabe eine zeile
''eingabe : -
''ausgabe : -
''variablen : tib - eingabepuffer zur string
'' : tibpos - aktuelle position im tib
ios.print(@prompt3)
tibpos := 0 'tibposition auf anfang setzen
repeat until (charc := ios.keywait) == $0D 'tasten einlesen bis return
if (tibpos + 1) < OS_TIBLEN 'zeile noch nicht zu lang?
case charc
ios#CHAR_BS: 'backspace
if tibpos > 0 'noch nicht anfang der zeile erreeicht?
tib[tibpos--] := 0 'ein zeichen aus puffer entfernen
ios.printbs 'backspace an terminal senden
ios#KEY_CURUP: os_tibpop
ios#KEY_CURDOWN: os_tibclear
other: 'zeicheneingabe
tib[tibpos++] := charc 'zeichen speichern
ios.printchar(charc) 'zeichen ausgeben
ios.printnl
tib[tibpos] := 0 'string abschließen
tibpos := charc := 0 'werte rücksetzen
if tib[tibpos]
os_tibpush
PRI os_tibpush | i
i := 0
repeat OS_TIBLEN
'tib2[i] := tib[i]
ios.ram_wrbyte(0,tib[i],ios#TIB2+i)
i++
PRI os_tibpop | i
i := 0
os_tibclear
repeat OS_TIBLEN
tib[i] := ios.ram_rdbyte(0,ios#TIB2+i)
i++
ios.curpos1
ios.print(@prompt3)
ios.print(@tib)
tibpos := strsize(@tib)
PRI os_tibclear | i
i := 0
ios.curoff
repeat OS_TIBLEN
tib[i] := 0
i++
ios.curpos1
repeat 63
ios.printchar(" ")
ios.curpos1
ios.print(@prompt3)
ios.print(@tib)
tibpos := strsize(@tib)
ios.curon
PRI os_nxtoken1: stradr 'sys: token 1 von tib einlesen
''funktionsgruppe : sys
''funktion : nächsten token im eingabestring suchen und stringzeiger übergeben
''eingabe : -
''ausgabe : stradr - adresse auf einen string mit dem gefundenen token
''variablen : tib - eingabepuffer zur string
'' : tibpos - aktuelle position im tib
'' : token - tokenstring
stradr := os_tokenize(@token1)
PRI os_nxtoken2: stradr 'sys: token 2 von tib einlesen
''funktionsgruppe : sys
''funktion : nächsten token im eingabestring suchen und stringzeiger übergeben
''eingabe : -
''ausgabe : stradr - adresse auf einen string mit dem gefundenen token
''variablen : tib - eingabepuffer zur string
'' : tibpos - aktuelle position im tib
'' : token - tokenstring
stradr := os_tokenize(@token2)
PRI os_tokenize(token):stradr | i 'sys: liest nächsten token aus tib
i := 0
if tib[tibpos] <> 0 'abbruch bei leerem string
repeat until tib[tibpos] > ios#CHAR_SPACE 'führende leerzeichen ausbenden
tibpos++
repeat until (tib[tibpos] == ios#CHAR_SPACE) or (tib[tibpos] == 0) 'wiederholen bis leerzeichen oder stringende
byte[token][i] := tib[tibpos]
tibpos++
i++
byte[token][i] := 0
stradr := token
PRI os_nextpos: tibpos2 'sys: setzt zeiger auf nächste position
''funktionsgruppe : sys
''funktion : tibpos auf nächstes token setzen
''eingabe : -
''ausgabe : tibpos2 - position des nächsten tokens in tib
''variablen : tib - eingabepuffer zur string
'' : tibpos - aktuelle position im tib
if tib[tibpos] <> 0
repeat until tib[tibpos] > ios#CHAR_SPACE 'führende leerzeichen ausbenden
tibpos++
return tibpos
PRI os_cmdint 'sys: kommandointerpreter
''funktionsgruppe : sys
''funktion : kommandointerpreter; zeichenkette ab tibpos wird als kommando interpretiert
'' : tibpos wird auf position hinter token gesetzt
''eingabe : -
''ausgabe : -
''variablen : tib - eingabepuffer zur string
'' : tibpos - aktuelle position im tib
if tib[tibpos]
repeat 'kommandostring kopieren
cmdstr[tibpos] := tib[tibpos]
tibpos++
until (tib[tibpos] == ios#CHAR_SPACE) or (tib[tibpos] == 0) 'wiederholen bis leerzeichen oder stringende
cmdstr[tibpos] := 0 'kommandostring abschließen
os_cmdexec(@cmdstr) 'interpreter aufrufen
tibpos := 0 'tastaturpuffer zurücksetzen
tib[0] := 0
DAT ''------------------------------------------------- Kommandostrings
cmd1 byte "help",0
cmd2 byte "mount",0
cmd3 byte "dir",0
cmd4 byte "type",0
cmd5 byte "rload",0
cmd6 byte "cls",0
cmd7 byte "bload",0
cmd8 byte "del",0
cmd9 byte "unmount",0
cmd10 byte "free",0
cmd11 byte "attrib",0
cmd12 byte "cd",0
cmd13 byte "aload",0
cmd14 byte "mkdir",0
cmd15 byte "rename",0
cmd16 byte "format",0
cmd17 byte "reboot",0
cmd18 byte "sysinfo",0
cmd19 byte "color",0
cmd20 byte "cogs",0
cmd21 byte "dm",0
cmd22 byte "dmset",0
cmd23 byte "dmclr",0
cmd24 byte "dmlist",0
cmd25 byte "debug",0
cmd26 byte "xload",0
cmd27 byte "xsave",0
cmd28 byte "xdir",0
cmd29 byte "xrename",0
cmd30 byte "xdel",0
cmd31 byte "xtype",0
cmd32 byte "forth",0
cmd33 byte "vga",0
PRI os_cmdexec(stradr) 'sys: kommando ausführen
{{os_smdexec - das kommando im übergebenen string wird als kommando interpretiert
stradr: adresse einer stringvariable die ein kommando enthält}}
if strcomp(stradr,@cmd14) 'mkdir - verzeichnis erstellen
cmd_mkdir
elseif strcomp(stradr,@cmd15) 'rename - datei/verzeichnis umbenennen
cmd_rename
elseif strcomp(stradr,@cmd16) 'format - sd-card formatieren
cmd_format
elseif strcomp(stradr,@cmd17) 'reboot
cmd_reboot
elseif strcomp(stradr,@cmd18) 'sysinfo
cmd_sysinfo
elseif strcomp(stradr,@cmd19) 'color
cmd_color
elseif strcomp(stradr,@cmd20) 'cogs
cmd_cogs
elseif strcomp(stradr,@cmd21) 'dm
cmd_dm
elseif strcomp(stradr,@cmd22) 'dmset
cmd_dmset
elseif strcomp(stradr,@cmd23) 'dmclr
cmd_dmclr
elseif strcomp(stradr,@cmd24) 'dmlist
cmd_dmlist
elseif strcomp(stradr,@cmd25) 'debug
cmd_debug
elseif strcomp(stradr,@cmd1) 'help
cmd_help
elseif strcomp(stradr,@cmd2) 'mount - sd-card mounten
cmd_mount
elseif strcomp(stradr,@cmd3) 'dir - verzeichnis anzeigen
cmd_dir
elseif strcomp(stradr,@cmd4) 'type - textdatei auf bildschirm ausgeben
cmd_type
elseif strcomp(stradr,@cmd5) 'rload - lade regnatix-code
os_load
elseif strcomp(stradr,@cmd6) 'cls - bildschirm löschen
ios.printcls
elseif strcomp(stradr,@cmd7) 'bload - lade bellatrix-code
cmd_bload
elseif strcomp(stradr,@cmd8) 'del - datei löschen
cmd_del
elseif strcomp(stradr,@cmd9) 'unmount - medium abmelden
cmd_unmount
elseif strcomp(stradr,@cmd10) 'free - anzeige datenträgerbelegung
cmd_free
elseif strcomp(stradr,@cmd11) 'attrib - attribute ändern
cmd_attrib
elseif strcomp(stradr,@cmd12) 'cd - verzeichnis wechseln
cmd_cd
elseif strcomp(stradr,@cmd13) 'aload - lade administra-code
cmd_aload
elseif strcomp(stradr,@cmd26) 'xload
rd_load
elseif strcomp(stradr,@cmd27) 'xsave
rd_save
elseif strcomp(stradr,@cmd28) 'xdir
rd_dir
elseif strcomp(stradr,@cmd29) 'xrename
rd_rename
elseif strcomp(stradr,@cmd30) 'xdel
rd_del
elseif strcomp(stradr,@cmd31) 'xtype
rd_type
elseif strcomp(stradr,@cmd32) 'forth
reboot
elseif strcomp(stradr,@cmd33) 'vga
ios.belreset
elseif os_testbin(stradr) '.bin
elseif os_testadm(stradr) '.adm
elseif os_testbel(stradr) '.bel
else 'kommando nicht gefunden
ios.print(stradr)
ios.print(@msg3)
ios.print(@prompt1)
{
PUB os_error(err):error 'sys: fehlerausgabe
if err
ios.printnl
ios.print(@err_s1)
ios.printdec(err)
ios.print(string(" : $"))
ios.printhex(err,2)
ios.printnl
ios.print(@err_s2)
case err
0: ios.print(@err0)
1: ios.print(@err1)
2: ios.print(@err2)
3: ios.print(@err3)
4: ios.print(@err4)
5: ios.print(@err5)
6: ios.print(@err6)
7: ios.print(@err7)
8: ios.print(@err8)
9: ios.print(@err9)
10: ios.print(@err10)
11: ios.print(@err11)
12: ios.print(@err12)
13: ios.print(@err13)
14: ios.print(@err14)
15: ios.print(@err15)
16: ios.print(@err16)
17: ios.print(@err17)
18: ios.print(@err18)
19: ios.print(@err19)
20: ios.print(@err20)
OTHER: ios.print(@errx)
ios.printnl
error := err
}
PRI os_load | len,i,stradr1,stradr2 'sys: startet bin-datei über loader
{{ldbin - startet bin-datei über loader}}
ios.paraset(@tib + os_nextpos) 'parameterstring kopieren
ios.ldbin(os_nxtoken1)
PRI os_testbin(stradr): flag | status,i,len 'sys: testet ob das kommando als bin-datei vorliegt
{{testbin(stradr): flag - testet ob das kommando als bin-datei vorliegt
- string bei stradr wird um .bin erweitert
- flag = TRUE - kommando gefunden}}
flag := FALSE
len := strsize(stradr)
repeat i from 0 to 3 '.bin anhängen
byte[stradr][len + i] := byte[@ext1][i]
byte[stradr][len + i] := 0
' im aktuellen dir suchen
ios.sddmset(ios#DM_USER) 'u-marker setzen
status := ios.sdopen("r",stradr) 'datei vorhanden?
if status == 0 'datei gefunden
flag := TRUE
ios.paraset(@tib + os_nextpos) 'parameterstring kopieren
ios.ldbin(stradr) 'anwendung starten
ios.sdclose
'im system-dir suchen
ios.sddmset(ios#DM_USER) 'u-marker setzen
ios.sddmact(ios#DM_SYSTEM) 's-marker aktivieren
status := ios.sdopen("r",stradr) 'datei vorhanden?
if status == 0 'datei gefunden
flag := TRUE
ios.paraset(@tib + os_nextpos) 'parameterstring kopieren
ios.ldbin(stradr) 'anwendung starten
ios.sdclose
ios.sddmact(ios#DM_USER) 'u-marker aktivieren
'vorbereiten für suche nach anderen dateien
byte[stradr][len] := 0 'extender wieder abschneiden
PRI os_testadm(stradr): flag | status,i,len,dmu 'sys: test ob kommando als adm-datei vorliegt
flag := FALSE
len := strsize(stradr)
repeat i from 0 to 3 '.bel anhängen
byte[stradr][len + i] := byte[@ext2][i]
byte[stradr][len + i] := 0
' im aktuellen dir suchen
status := ios.sdopen("r",stradr) 'datei vorhanden?
if status == 0 'datei gefunden
flag := TRUE
ios.admload(stradr) 'administra-code laden
else 'datei nicht gefunden
ios.sdclose
'im system-dir suchen
ios.sddmset(ios#DM_USER) 'u-marker setzen
ios.sddmact(ios#DM_SYSTEM) 's-marker aktivieren
status := ios.sdopen("r",stradr) 'datei vorhanden?
if status == 0 'datei gefunden
flag := TRUE
dmu := ios.sddmget(ios#DM_USER) 'usermarker von administra holen
ios.admload(stradr) 'administra-code laden
ios.sddmput(ios#DM_USER,dmu) 'usermarker wieder in administra setzen
else 'datei nicht gefunden
ios.sdclose
ios.sddmact(ios#DM_USER) 'u-marker aktivieren
byte[stradr][len] := 0 'extender wieder abschneiden
PRI os_testbel(stradr): flag | status,i,len 'sys: test ob kommando als bel-datei vorliegt
flag := FALSE
len := strsize(stradr)
repeat i from 0 to 3 '.bel anhängen
byte[stradr][len + i] := byte[@ext3][i]
byte[stradr][len + i] := 0
' im aktuellen dir suchen
status := ios.sdopen("r",stradr) 'datei vorhanden?
if status == 0 'datei gefunden
flag := TRUE
ios.belload(stradr) 'bellatrix-code laden
ios.screeninit 'systemmeldung
else 'datei nicht gefunden
ios.sdclose
'im system-dir suchen
ios.sddmset(ios#DM_USER) 'u-marker setzen
ios.sddmact(ios#DM_SYSTEM) 's-marker aktivieren
status := ios.sdopen("r",stradr) 'datei vorhanden?
if status == 0 'datei gefunden
flag := TRUE
ios.belload(stradr) 'bellatrix-code laden
ios.screeninit 'systemmeldung
else 'datei nicht gefunden
ios.sdclose
ios.sddmact(ios#DM_USER) 'u-marker aktivieren
byte[stradr][len] := 0 'extender wieder abschneiden
PRI os_printstr(strptr1,strptr2):strptr3
ios.print(strptr1)
ios.print(strptr2)
ios.printnl
strptr3 := strptr2
PRI os_printdec(strptr, wert):wert2
ios.print(strptr)
ios.printdec(wert)
ios.printnl
wert2 := wert
PRI os_testvideo 'sys: passt div. variablen an videomodus an
vidmod := ios.belgetspec & 1
rows := ios.belgetrows 'zeilenzahl bei bella abfragen
cols := ios.belgetcols 'spaltenzahl bei bella abfragen
PRI os_tvwait
if vidmod == TV
ios.keywait
CON ''------------------------------------------------- KOMMANDOS
PRI rd_dir | stradr,len 'rd: dir anzeigen
if ios.ram_rdbyte(ios#sysmod,ios#RAMDRV)
ios.rd_dir
repeat
len := ios.rd_dlen
stradr := ios.rd_next
if stradr
ios.print(stradr)
ios.printtab
ios.printdec(len)
ios.printnl
until stradr == 0
else
ios.os_error(1)
PRI rd_load | stradr,len,fnr,i 'rd: datei in ramdisk laden
stradr := os_nxtoken1 'dateinamen von kommandozeile holen
ifnot ios.os_error(ios.sdopen("r",stradr)) 'datei öffnen
len := ios.sdfattrib(ios#F_SIZE)
ios.rd_newfile(stradr,len) 'datei erzeugen
fnr := ios.rd_open(stradr)
ios.rd_seek(fnr,0)
ios.print(string("Datei laden... "))
i := 0
ios.sdxgetblk(fnr,len) 'daten als block direkt in ext. ram einlesen
ios.sdclose
ios.rd_close(fnr)
PRI rd_save | stradr,fnr,len,i 'rd: datei aus ramdisk speichern
stradr := os_nxtoken1
fnr := ios.rd_open(stradr)
ifnot fnr == -1
len := ios.rd_len(fnr)
ifnot ios.os_error(ios.sdnewfile(stradr))
ifnot ios.os_error(ios.sdopen("W",stradr))
ios.print(string("Datei schreiben... "))
i := 0
ios.sdxputblk(fnr,len) 'daten als block schreiben
ios.sdclose
ios.printnl
ios.rd_close(fnr)
PRI rd_rename 'rd: datei in ramdisk umbenennen
ios.os_error(ios.rd_rename(os_nxtoken1,os_nxtoken2))
PRI rd_del | adr 'rd: datei löschen
ios.os_error(ios.rd_del(os_nxtoken1))
PRI rd_type | stradr,len,fnr,n 'rd: text ausgeben
stradr := os_nxtoken1 'dateinamen von kommandozeile holen
fnr := ios.rd_open(stradr) 'datei öffnen
ifnot fnr == -1
len := ios.rd_len(fnr)
ios.rd_seek(fnr,0)
repeat len
if ios.printchar(ios.rd_get(fnr)) == ios#CHAR_NL 'zeilenzahl zählen und stop
if ++n == (rows - 2)
n := 1
if ios.keywait == "q"
ios.sdclose
return
ios.rd_close(fnr)
PRI cmd_debug|stradr,len,fnr,i,x 'cmd: temporäre debugfunktion
ios.print(string("Debug : "))
ios.printnl
stradr := os_nxtoken1 'dateinamen von kommandozeile holen
ifnot ios.os_error(ios.sdopen("r",stradr)) 'datei öffnen
len := ios.sdfattrib(ios#F_SIZE)
ios.rd_newfile(stradr,len) 'datei erzeugen
fnr := ios.rd_open(stradr)
ios.rd_seek(fnr,0)
ios.print(string("Datei laden... "))
i := 0
x := ios.curgetx
ios.curoff
ios.sdxgetblk(fnr,len) 'daten als block direkt in ext. ram einlesen
ios.print(string("ok"))
ios.curon
ios.sdclose
ios.rd_close(fnr)
PRI cmd_dm|wert 'cmd: dir-marker aktivieren
ios.os_error(ios.sddmact(cmd_dm_nr))
PRI cmd_dmset 'cmd: dir-marker setzen
ios.sddmset(cmd_dm_nr)
PRI cmd_dmclr 'cmd: dir-marker löschen
ios.sddmclr(cmd_dm_nr)
PRI cmd_dmlist 'cmd: dir-marker auflisten
ios.setcolor(ios#YELLOW)
ios.print(@msg25)
cmd_dm_status(ios#DM_ROOT)
ios.print(@msg24)
cmd_dm_status(ios#DM_SYSTEM)
ios.print(@msg26)
cmd_dm_status(ios#DM_USER)
ios.setcolor(act_color)
ios.print(@msg27)
cmd_dm_status(ios#DM_A)
ios.print(@msg28)
cmd_dm_status(ios#DM_B)
ios.print(@msg29)
cmd_dm_status(ios#DM_C)
PRI cmd_dm_status(markernr)
if ios.sddmget(markernr) == TRUE
ios.print(@msg31)
else
ios.print(@msg30)
PRI cmd_dm_nr:wert
case byte[os_nxtoken1]
"r": wert := 0 'root
"s": wert := 1 'system
"u": wert := 2 'user
"a": wert := 3 'marker a
"b": wert := 4 'marker b
"c": wert := 5 'marker c
other: wert := 0
PRI cmd_color 'cmd: zeichenfarbe wählen
ios.setcolor(str.decimalToNumber(act_color := os_nxtoken1))
update to TriOS R57 changes
2014-06-22 20:08:25 +02:00
PRI cmd_sysinfo|ack,adr 'cmd: systeminformationen anzeigen
Initial checkin of TriOS R56
2013-12-10 15:32:47 +01:00
ios.printnl
os_printstr(@msg22,@syst)
os_printstr(@msg14,@prog)
os_printstr(@msg23,@copy)
if ios.sdcheckmounted 'test ob medium gemounted ist
os_printstr(@msg21,ios.sdvolname)
ios.printnl
os_tvwait
os_printstr(@msg15,str.numberToBinary(ios#CHIP_VER,32))
os_printstr(@msg16,str.numberToBinary(ios#CHIP_SPEC,32))
os_printstr(@msg17,str.numberToBinary(ios.admgetver,32))
os_printstr(@msg18,str.numberToBinary(ios.admgetspec,32))
os_tvwait
os_printstr(@msg19,str.numberToBinary(ios.belgetver,32))
os_printstr(@msg20,str.numberToBinary(ios.belgetspec,32))
os_printstr(@msg32,str.numberToDecimal(ios.belgetcols,4))
os_printstr(@msg33,str.numberToDecimal(ios.belgetrows,4))
os_printstr(@msg34,str.numberToDecimal(ios.belgetresx,4))
os_printstr(@msg35,str.numberToDecimal(ios.belgetresy,4))
if vidmod == VGA
os_printstr(@msg36,@msg37)
else
os_printstr(@msg36,@msg38)
update to TriOS R57 changes
2014-06-22 20:08:25 +02:00
ios.printnl
ios.print(@msg39)
ios.plxHalt
repeat adr from 0 to 127
ack := ios.plxping(adr)
ifnot ack
ios.print(string(" ["))
ios.printhex(adr,2)
ios.print(string("]"))
ios.printnl
ios.plxRun
Initial checkin of TriOS R56
2013-12-10 15:32:47 +01:00
PRI cmd_mount | err 'cmd: mount
repeat 16
err := ios.sdmount
ifnot err
quit
ios.os_error(err)
ifnot err
ios.setcolor(ios#YELLOW)
ios.print(@msg4)
ios.print(ios.sdvolname)
ios.printnl
ios.print(@msg25)
cmd_dm_status(ios#DM_ROOT)
ios.print(@msg24)
cmd_dm_status(ios#DM_SYSTEM)
ios.printnl
ios.setcolor(act_color)
PRI cmd_unmount 'cmd: unmount
ios.os_error(ios.sdunmount)
PRI cmd_free | wert 'cmd: anzeige freier speicher
os_printstr(@msg5,ios.sdvolname)
wert := os_printdec(@msg6,ios.sdcheckfree*512/1024)
wert += os_printdec(@msg7,ios.sdcheckused*512/1024)
os_printdec(@msg8,wert)
ios.printnl
ios.print(string("RBAS : $"))
ios.printhex(ios.ram_rdlong(ios#sysmod,ios#RAMBAS),8)
ios.printnl
ios.print(string("REND : $"))
ios.printhex(ios.ram_rdlong(ios#sysmod,ios#RAMEND),8)
ios.printnl
ios.print(string("USER : $"))
wert := ios.ram_rdlong(ios#sysmod,ios#RAMEND)
wert := wert - ios.ram_rdlong(ios#sysmod,ios#RAMBAS)
ios.printhex(wert,8)
ios.printnl
ios.print(string("RAMDRV : $"))
ios.printhex(ios.ram_rdbyte(ios#sysmod,ios#RAMDRV),2)
ios.printnl
ios.print(string("SYSVAR : $"))
ios.printhex(ios#SYSVAR,8)
ios.printnl
PRI cmd_attrib 'cmd: dateiattribute ändern
' A-Archive, S-System, H-Hidden, R-Read Only.
ios.os_error(ios.sdchattrib(os_nxtoken1,os_nxtoken2))
PRI cmd_rename 'cmd: datei/verzeichnis umbenennen
ios.os_error(ios.sdrename(os_nxtoken1,os_nxtoken2))
PRI cmd_cd 'cmd: verzeichnis wechseln
ios.os_error(ios.sdchdir(os_nxtoken1))
PRI cmd_mkdir 'cmd: verzeichnis erstellen
ios.os_error(ios.sdnewdir(os_nxtoken1))
PRI cmd_del | stradr,char 'cmd: datei auf sdcard löschen
{{sddel - datei auf sdcard löschen}}
stradr := os_nxtoken1 'dateinamen von kommandozeile holen
ios.print(@msg2)
if ios.keywait == "j"
ios.os_error(ios.sddel(stradr))
PRI cmd_format | stradr 'cmd: sd-card formatieren
stradr := os_nxtoken1 'dateinamen von kommandozeile holen
ios.print(@msg12)
if ios.keywait == "j"
ios.os_error(ios.sdformat(stradr))
PRI cmd_reboot | key, stradr 'cmd: reboot
ios.print(@msg13)
key := ios.keywait
case key
"c": ios.ram_wrbyte(ios#sysmod,0,ios#MAGIC)
ios.ram_wrbyte(ios#sysmod,0,ios#RAMDRV)
ios.admreset
ios.belreset
waitcnt(cnt+clkfreq*3)
reboot
"w": ios.ram_wrbyte(ios#sysmod,0,ios#SIFLAG)
reboot
PRI cmd_aload|status,stradr 'cmd: administra-code laden
stradr := os_nxtoken1
status := ios.sdopen("r",stradr)
if status == 0
ios.admload(stradr) 'administra-code laden
else
ios.os_error(status)
PRI cmd_bload | stradr,status 'cmd: bellatrix-code laden
{{bload - treiber für bellatrix laden}}
stradr := os_nxtoken1
status := ios.sdopen("r",stradr)
if status == 0
ios.belload(stradr) 'treiberupload
ios.screeninit 'systemmeldung
ios.print(@prog) 'programmversion
else
ios.os_error(status)
PRI cmd_type | stradr,char,n 'cmd: textdatei ausgeben
{{sdtype <name> - textdatei ausgeben}}
stradr := os_nxtoken1 'dateinamen von kommandozeile holen
n := 1
ifnot ios.os_error(ios.sdopen("r",stradr)) 'datei öffnen
repeat 'text ausgeben
if ios.printchar(ios.sdgetc) == ios#CHAR_NL 'zeilenzahl zählen und stop
if ++n == (rows - 2)
n := 1
if ios.keywait == "q"
ios.sdclose
return
until ios.sdeof 'ausgabe bis eof
ios.sdclose 'datei schließen
PRI cmd_help | i,char,n 'cmd: textdatei ausgeben
ios.print(string("help: man regime"))
{
n := i := 1
repeat until (char := byte[@help1][i++]) == 0 'text ausgeben
ios.printchar(char)
if char == ios#CHAR_NL 'zeilenzahl zählen und stop
if ++n == (rows - 2)
n := 1
if ios.keywait == "q"
return
}
PRI cmd_dir|fcnt,stradr,hflag 'cmd: verzeichnis anzeigen
{{sddir - anzeige verzeichnis}}
if ios.sdcheckmounted 'test ob medium gemounted ist
hflag := 1
stradr := os_nxtoken1 'parameter einlesen
ios.print(@msg10)
ios.print(@msg5)
ios.print(ios.sdvolname)
update to TriOS R57 changes
2014-06-22 20:08:25 +02:00
ios.sddir 'verzeichnis öffnen
if str.findCharacter(stradr,"h")
hflag := 0
if str.findCharacter(stradr,"w")
fcnt := cmd_dir_w(hflag)
else
fcnt := cmd_dir_l(hflag) 'dir l
ios.printnl
ios.print(@msg10)
ios.print(@msg9)
ios.printdec(fcnt)
Initial checkin of TriOS R56
2013-12-10 15:32:47 +01:00
else
ios.os_error(1)
PRI cmd_dir_w(hflag):fcnt|stradr,lcnt,wcnt
fcnt := 0
wcnt := (cols / 14) - 1 '3
lcnt := (rows - 2) * (cols / 15)
ios.printnl
repeat while (stradr := ios.sdnext)
ifnot ios.sdfattrib(ios#F_HIDDEN) & hflag 'versteckte dateien anzeigen?
if ios.sdfattrib(ios#F_DIR) 'verzeichnisname
ios.setcolor(1)
ios.printqchar("▶")
ios.printchar(" ")
ios.print(stradr)
ios.setcolor(0)
elseif ios.sdfattrib(ios#F_HIDDEN)
ios.setcolor(3)
ios.print(string(" "))
str.charactersToLowerCase(stradr)
ios.print(stradr)
ios.setcolor(0)
else 'dateiname
ios.print(string(" "))
str.charactersToLowerCase(stradr)
ios.print(stradr)
ifnot wcnt--
wcnt := (cols / 15) - 1 '3
ios.printnl
else
'ios.printtab
fcnt++
ifnot --lcnt
lcnt := (rows - 2) * (cols / 15)
if ios.keywait == "q"
return
PRI cmd_dir_l(hflag):fcnt|stradr,lcnt
fcnt := 0
lcnt := rows - 2
repeat while (stradr := ios.sdnext)
ifnot ios.sdfattrib(ios#F_HIDDEN) & hflag 'versteckte dateien anzeigen?
ios.printnl
if ios.sdfattrib(ios#F_DIR) 'verzeichnisname
ios.setcolor(1)
ios.printqchar("▶")
ios.printchar(" ")
ios.print(stradr)
ios.setcolor(0)
elseif ios.sdfattrib(ios#F_HIDDEN)
ios.setcolor(3)
ios.print(string(" "))
str.charactersToLowerCase(stradr)
ios.print(stradr)
ios.setcolor(0)
else 'dateiname
ios.print(string(" "))
str.charactersToLowerCase(stradr)
ios.print(stradr)
ios.print(str.numberToDecimal(ios.sdfattrib(ios#F_SIZE),10)) 'dateigröße
ios.printchar(" ") 'attribute
if ios.sdfattrib(ios#F_READONLY)
ios.printchar("r")
else
ios.printchar("-")
if ios.sdfattrib(ios#F_HIDDEN)
ios.printchar("h")
else
ios.printchar("-")
if ios.sdfattrib(ios#F_SYSTEM)
ios.printchar("s")
else
ios.printchar("-")
if ios.sdfattrib(ios#F_ARCHIV)
ios.printchar("a")
else
ios.printchar("-")
if vidmod == TV
ios.printnl
--lcnt
ios.printchar(" ") 'änderungsdatum
ios.print(str.numberToDecimal(ios.sdfattrib(ios#F_CDAY),2))
ios.printchar(".")
ios.print(str.numberToDecimal(ios.sdfattrib(ios#F_CMONTH),2) + 1)
ios.printchar(".")
ios.print(str.numberToDecimal(ios.sdfattrib(ios#F_CYEAR),4) + 1)
ios.print(str.numberToDecimal(ios.sdfattrib(ios#F_CHOUR),2))
ios.printchar(":")
ios.print(str.numberToDecimal(ios.sdfattrib(ios#F_CMIN),2) + 1)
ios.printchar(":")
ios.print(str.numberToDecimal(ios.sdfattrib(ios#F_CSEC),2) + 1)
fcnt++
--lcnt
if lcnt < 1
lcnt := rows - 2
if ios.keywait == "q"
return
PRI cmd_cogs | i,l 'cmd: belegung der cogs anzeigen
ios.print(@cogs4)
ios.printnl
i := ios.reggetcogs 'regnatix
cmd_cogs_print(8-i,i,@cogs1)
i := ios.admgetcogs 'administra
cmd_cogs_print(8-i,i,@cogs2)
i := ios.belgetcogs 'bellatrix
cmd_cogs_print(8-i,i,@cogs3)
ios.setcolor(act_color)
ios.print(@cogs4)
ios.printnl
ios.print(string(" ("))
ios.setcolor(ios#RED)
ios.print(string("•"))
ios.setcolor(act_color)
ios.print(@cogs5)
ios.printnl
PRI cmd_cogs_print(used,free,stradr)
ios.print(stradr)
if used > 0
repeat
ios.setcolor(ios#RED)
ios.print(string("•"))
used--
until used == 0
if free > 0
repeat
ios.setcolor(ios#GREEN)
ios.print(string("•"))
free--
until free == 0
ios.setcolor(act_color)
ios.printnl
DAT 'strings
system1 byte "▶Hive: Regime", 0
syst byte "TriOS • 07-04-2013",0
prog byte "Regime",0
copy byte "drohne235 • 06-04-2012",0
prompt1 byte " ok ", $0d, 0
prompt2 byte "~ ", 0
prompt3 byte "∞ ", 0
msg1 byte "Datei nicht gefunden!",0
msg2 byte "Datei löschen? <j/*> : ",0
msg3 byte " ? ",0
msg4 byte "Volume : ",0
msg5 byte "Datenträger : ",0
msg6 byte "Frei : ",0
msg7 byte "Belegt : ",0
msg8 byte "Gesamt : ",0
msg9 byte "Anzahl der Dateien : ",0
msg10 byte "• ",0
msg11 byte " KB",0
msg12 byte "SD-Card formatieren? <j/*> : ",0
msg13 byte "Hive neu starten? <[c]old/[w]arm/*> : ",0
msg14 byte "CLI : ",0
msg15 byte "Regnatix Version : ",0
msg16 byte "Regnatix Spezifikation : ",0
msg17 byte "Administra Version : ",0
msg18 byte "Administra Spezifikation : ",0
msg19 byte "Bellatrix Version : ",0
msg20 byte "Bellatrix Spezifikation : ",0
msg21 byte "Medium : ",0
msg22 byte "OS : ",0
msg23 byte "Copyright : ",0
msg24 byte "[S]ystem : ",0
msg25 byte "[R]oot : ",0
msg26 byte "[U]ser : ",0
msg27 byte "Marker [A] : ",0
msg28 byte "Marker [B] : ",0
msg29 byte "Marker [C] : ",0
msg30 byte "gesetzt",13,0
msg31 byte "frei",13,0
msg32 byte "Bellatrix Textspalten :",0
msg33 byte "Bellatrix Textzeilen :",0
msg34 byte "Bellatrix Auflösung X :",0
msg35 byte "Bellatrix Auflösung Y :",0
msg36 byte "Bellatrix Videomodus : ",0
msg37 byte "VGA",0
msg38 byte "TV",0
update to TriOS R57 changes
2014-06-22 20:08:25 +02:00
msg39 byte "PlexBus Devices : ",0
Initial checkin of TriOS R56
2013-12-10 15:32:47 +01:00
ext1 byte ".BIN",0
ext2 byte ".ADM",0
ext3 byte ".BEL",0
wait1 byte "<WEITER? */q:>",0
cstr byte "••••••••",0
cogs1 byte "Regnatix : ",0
cogs2 byte "Administra: ",0
cogs3 byte "Bellatrix : ",0
cogs4 byte "────────────────────",0
cogs5 byte " = running cog)",0
gdriver byte "bel.sys", 0 'name des grafiktreibers
{
help1 file "regime.txt"
byte 13,0
}
DAT 'systemfehler
err_s1 byte "Fehlernummer : ",0
err_s2 byte "Fehler : ",0
{
err0 byte "no error",0
err1 byte "fsys unmounted",0
err2 byte "fsys corrupted",0
err3 byte "fsys unsupported",0
err4 byte "not found",0
err5 byte "file not found",0
err6 byte "dir not found",0
err7 byte "file read only",0
err8 byte "end of file",0
err9 byte "end of directory",0
err10 byte "end of root",0
err11 byte "dir is full",0
err12 byte "dir is not empty",0
err13 byte "checksum error",0
err14 byte "reboot error",0
err15 byte "bpb corrupt",0
err16 byte "fsi corrupt",0
err17 byte "dir already exist",0
err18 byte "file already exist",0
err19 byte "out of disk free space",0
err20 byte "disk io error",0
err21 byte "command not found",0
err22 byte "timeout",0
errx byte "undefined",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. │
└──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
}}