2014-04-29 16:38:54 +02: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.
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!!!)
2014-06-14 14:57:41 +02:00
2014-04-29 16:38:54 +02:00
25-02-2014 - Integration von Regime in Plexus begonnen -> soll die DOS-Shell von Plexus werden
28-02-2014 - optische Anpassung an Plexus, Handling entsprechend angepasst (Fenster und Menues)
- Ram-Disk-Funktionen entfernt (Plexus benutzt den Ram, daher keine Ram-Disk Funktion möglich)
- Funktionen aus Perplex (Sepia-Karten-Funktionen) übernommen und an die neuen Administra-Sepia-Funktionen angepasst
- 4528 Longs frei
16-03-2014 -DCF-Indikator in Titelleiste eingebaut
-4501 Longs frei
29-03-2014 -Fehler im Aufruf der Hilfe-Funktion behoben, durch das Plexus-Verzeichnis wurde die Hilfe-Datei nicht mehr gefunden
-dies wurde durch Setzen des Systemdirmarkers behoben
-4473 Longs frei
2014-06-14 14:57:41 +02:00
18-05-2014 -direkter Start von Basic-Dateien (.BAS) über Runtime-Modul möglich, dabei ist die Dateiendung wegzulassen
-4480 Longs frei
2014-04-29 16:38:54 +02:00
}}
OBJ
ios: "reg-ios-64"
str: "glob-string"
numm: "glob-numbers"
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
TILE_RAM = $40000 '....$67FFF ' hier beginnt der Tile-Speicher fuer 10 Tiledateien
SYS_FONT = $66800 '....$693FF ' ab hier liegt der System-Font 16kb
MOUSE_RAM = $69400 '....$6943F ' User-Mouse-Pointer 64byte
Hour_Glass = $66800+(167*16*4) ' Sanduhr
'******************Farben ********************************************************
#$FC, Light_Grey, #$A8, Grey, #$54, Dark_Grey
#$C0, Light_Red, #$80, Red, #$40, Dark_Red
#$30, Light_Green, #$20, Green, #$10, Dark_Green
#$1F, Light_Blue, #$09, Blue, #$04, Dark_Blue
#$F0, Light_Orange, #$E6, Orange, #$92, Dark_Orange
#$CC, Light_Purple, #$88, Purple, #$44, Dark_Purple
#$3C, Light_Teal, #$28, Teal, #$14, Dark_Teal
#$FF, White, #$00, Black
'------------- Shell-Farben -----------------------------------------------------
shellhcol =0 'Hauptfensterfarbe
act_color =1 'Schriftfarbe
winhcol =2 'Fensterhintergrundfarbe
winframecol =3 'Fensterrandfarbe
Titelhcol =4 'Titelleistenfarbe
titeltextcol =5 'Titelleistentextfarbe
hcolstatus =6 'statusleiste hintergrundfarbe
statustextcol =7 'Statustextfarbe
buttonhcol =8 'Buttonhintergrundfarbe
buttontextcol =9 'Buttontextfarbe
messagehcol =10 'Messagebox-Hintergrundfarbe
messagetextcol =11 'Messagebox-Textfarbe
selectcol =12 'selektionsfarbe
mousecol =13 'Mauszeigerfarbe
panelcol =14 'Farbe des Utility-Panels
ADM_SPEC = %00000000_00000000_00000000_01010011
SETTING_RAM = $7FF00 'Hier stehen die System-Settings
BRAM = $50000 'Overlay-Puffer
'----Icon-Nummern----------------------------------------------------------------
BEL_PIC =14
ADM_PIC =15
BIN_PIC =9
BAS_PIC =107
DIR_PIC =7
ALL_PIC =8
DMP_PIC =120
TXT_PIC =121
SYS_PIC =122
COG_PIC =75
BACK_PIC =124
VOR_PIC =123
PLAY_PIC =125
STOP_PIC =141
CLR_PIC =155
EXT_PIC =156
'------------- F-Tasten für Zusatzfunktionen -------------------------------------
F1_Key = 208
F2_Key = 209
F3_Key = 210
F4_Key = 211
F5_Key = 212
F6_Key = 213
F7_Key = 214
F8_Key = 215
F9_Key = 216
F10_Key = 217
F11_Key = 218
F12_Key = 219
ESC_KEY = 27
RETURN_KEY = 13
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
long startadresse[16] 'startadresse des tiles im eram
byte xtiles[16] 'xtiles fuer tilenr '
byte ytiles[16] 'ytiles fuer tilenr
byte str0 'String fuer Fontfunktion in Fenstern
byte aktuellestileset 'nummer des aktuellen tilesets
byte mountmarker,tmptime
byte windowx[3]
byte windowy[3]
byte windowxx[3]
byte windowyy[3]
byte menuey[10] 'y-Koordinate für Start-Menue-Einträge
byte popupx,popupxx 'x und
byte popupy,popupyy 'y-Koordinaten des Popupmenues
byte popupmarker 'Marker für Popupmenue
long rootdir 'root-Dirmarker
long userdir 'user-Dirmarker
byte colors[15] 'Farbwerte
byte ma,mb 'Maus-Tasten
byte infomarker
byte buttonx[5],buttony[5]
byte util
'----------- Venatrix Variablen -------------------------------
byte venatrix 'Venatrix-Marker
'----------- Sepia Variablen ----------------------------------
byte sepia 'Sepia-Marker
byte device 'adresse des geöffneten devices
byte polling 'status polling
byte open 'status device
long systemdir 'system-Dirmarker
byte timezaehler
'----------- DCF-Indikator ------------------------------------
byte dcf_on
dat
root byte "..",0
regsys byte "plexus.dll",0 'Reg.sys für Rückkehr aus externem Programm
butOK byte " OK ",0
Abbr byte "Cancel",0
SYSTEM Byte "PLEXUS ",0 'Plexus-Systemverzeichnis
2014-06-14 14:57:41 +02:00
BAS_RT Byte "basrun.dll",0
2014-04-29 16:38:54 +02:00
PUB main | flag ,a,x,y,i,d
ios.start
ios.sdmount 'sd-card mounten
activate_dirmarker(0) 'ins root
ios.sdchdir(@system) 'System-Verzeichnis lesen
systemdir:=get_dirmarker 'Dir-Marker lesen
iniload
2014-06-14 14:57:41 +02:00
ios.mousepointer(MOUSE_RAM)
2014-04-29 16:38:54 +02:00
testfenster
ios.printCursorRate(3)
mountmarker:=1
ios.sddmact(ios#DM_ROOT) 'wieder in userverzeichnis wechseln
rows := 30'ios.belgetrows 'zeilenzahl bei bella abfragen
cols := 40'ios.belgetcols 'spaltenzahl bei bella abfragen
ios.setpos(28,0)
ios.print(@prompt1)
repeat
os_cmdinput 'kommandoeingabe
os_cmdint 'kommandozeileninterpreter
pri testfenster|i,y,a
window(1,3,2,1,27,38,string("DOS-Shell"))
PRI window(num,cntrl,y,x,yy,xx,strg)|i 'ein Fenster erstellen
windowx[num]:=x-1
windowy[num]:=y-2
windowxx[num]:=xx+1
windowyy[num]:=yy+1
ios.window(num,0,colors[winhcol],0,colors[winframecol],colors[titelhcol],colors[titeltextcol],colors[hcolstatus],colors[statustextcol],y-2,x-1,yy+1,xx+1,cntrl,0)
ios.printcursorrate(0)
ios.printchar(12) 'cls
printfont(strg,colors[titelhcol],0,colors[titeltextcol],x,y-2)
ios.printBoxColor(1,colors[act_color],colors[winhcol],0)
con'
PRI doppelklick:click 'pseudo-doppelklick
click:=0
ios.get_window
'Mouse_Release
repeat 800
if ios.mouse_button(0)==255
click++
con'
PRI iniload|i,a
a:=SETTING_RAM
repeat i from 0 to 14
colors[i]:=ios.ram_rdbyte(a++)
dcf_on:=ios.ram_rdbyte(a+3)
PRI activate_dirmarker(mark) 'USER-Marker setzen
ios.sddmput(ios#DM_USER,mark) 'usermarker wieder in administra setzen
ios.sddmact(ios#DM_USER) 'u-marker aktivieren
PRI get_dirmarker:dm 'USER-Marker lesen
ios.sddmset(ios#DM_USER)
dm:=ios.sddmget(ios#DM_USER)
PRI printfont(str1,a,b,c,d,e)|f
repeat strsize(str1)
f:= byte[str1++]
2014-11-20 16:36:49 +01:00
if f >96
f^=32
2014-04-29 16:38:54 +02:00
f-=16 'anderer Zeichensatz, Zeichen um -16 Positionen versetzt
if d>39 'wenn Bildschirmrand erreicht, neue Zeile
d:=0
e++
ios.displayTile(f,a,b,c,e,d) 'einzelnes Tile anzeigen ('displayTile(tnr,pcol,scol,tcol, row, column))
d++
PRI printdec(value,y,xx,hint,vor) | i ,c ,x 'screen: dezimalen zahlenwert auf bildschirm ausgeben
{{printdec(value) - screen: dezimale bildschirmausgabe zahlenwertes}}
' if value < 0 'negativer zahlenwert
' -value
'printchar("-")
i := 1_000_000_000
repeat 10 'zahl zerlegen
if value => i
x:=value / i + "0"
ios.displayTile(x-16,hint,0,vor,y,xx) 'printchar(x)
xx++
c:=value / i + "0"
value //= i
result~~
elseif result or i == 1
printfont(string("0"),hint,0,vor,xx,y) 'printchar("0")
xx++
i /= 10 'nächste stelle
PRI Print_win(strg,x,y)
printfont(strg,colors[winhcol],0,colors[act_color],x,y)
PRI printhex(value, digits,x,y,back,vor)|wert 'screen: hexadezimalen zahlenwert auf bildschirm ausgeben
{{hex(value,digits) - screen: hexadezimale bildschirmausgabe eines zahlenwertes}}
value <<= (8 - digits) << 2
repeat digits
wert:=lookupz((value <-= 4) & $F : "0".."9", "A".."F")
ios.displaytile(wert-16,back,0,vor,y,x++)
PRI Display_Info
infofenster(9,10,33,15,string("Program-Info"),1) 'Info-Fenster anzeigen
Print_win(string("Plexus-DOS-Shell for Hive"),9,10)
Print_win(string("Version 1.0 - 02/2014"),9,11)
Print_win(string("Autor:R.Zielinski"),9,12)
Print_win(string("Hive-Project.de"),9,13)
PRI infofenster(x,y,xx,yy,strg,knopf)'|i
ios.backup_area(x-1,y-2,xx+1,yy+1,BRAM) 'Hintergrund sichern
window(2,4,y,x,yy,xx,strg) 'Fenster erstellen
if knopf==1
button(4,@butOK,((xx-x)/2)+x-2,yy) 'Button 4 gibt es nur im SD-Card-Info-Fenster
if knopf==2
button(2,@Abbr,((xx-x)/2)+x-2,yy)
infomarker:=1
PRI button(n,btext,x,y)
buttonx[n]:=x
buttony[n]:=y
printfont(btext,colors[buttonhcol],0,colors[buttontextcol],x,y)
con '************************************************** Button-Funktionen ********************************************************************************************************
PRI buttonpress(n)
case n
2014-11-20 16:36:49 +01:00
1:printfont(string("Start "),250,0,0,0,29)
ios.displaytile(144,colors[shellhcol],250,colors[shellhcol],29,7)
'ios.displaytile(164,0,colors[shellhcol],250,29,7)
2014-04-29 16:38:54 +02:00
4:printfont(@butOK,250,0,0,buttonx[n],buttony[n])
Mouse_Release
case n
2014-11-20 16:36:49 +01:00
1:printfont(string("Start "),colors[hcolstatus],0,colors[statustextcol],0,29)
ios.displaytile(144,colors[shellhcol],colors[hcolstatus],colors[shellhcol],29,7)
'ios.displaytile(164,0,colors[shellhcol],colors[hcolstatus],29,7)
2014-04-29 16:38:54 +02:00
4:printfont(@butOK,colors[Buttonhcol],0,colors[buttontextcol],buttonx[n],buttony[n])
con '*************************************************** Start-Menue *************************************************************************************************************
PRI Menue(x,y,xx,yy)|i
popup(x,y,xx,yy)
repeat i from x to xx
ios.displaytile(16,colors[Titelhcol],$ff,$ff,y-1,i)
PRI separator(x,y,xx)|i
repeat i from x to xx
ios.displaytile(6,colors[Messagehcol],0,colors[winframecol],y,i)
PRI menueselect(stri,y)
printfont(stri,colors[messagetextcol],0,colors[messagehcol],0,y)
Mouse_Release
printfont(stri,colors[messagehcol],0,colors[messagetextcol],0,y)
popup_info_weg
PRI Startmenue
menue(0,24,9,28)
printfont(string("Startmenue"),colors[titelhcol],0,colors[titeltextcol],0,23)
printfont(string("Info - F2"),colors[messagehcol],0,colors[messagetextcol],0,24)
menuey[0]:=24
printfont(string("Help - F1"),colors[messagehcol],0,colors[messagetextcol],0,25)
menuey[1]:=25
separator(0,26,9)
printfont(string("-EXIT- F12"),colors[messagehcol],0,colors[messagetextcol],0,27)
menuey[2]:=27
con '*************************************************** Popup-Menue *************************************************************************************************************
PRI popup(x,y,xx,yy)
popupx:=x
popupy:=y-1
popupyy:=yy
popupxx:=xx
ios.printCursorRate(0)
ios.backup_area(popupx,popupy,popupxx,popupyy,BRAM)
ios.display2dbox(colors[messagehcol],y,x,yy,xx,0)
PRI Popup_Info_weg
if popupmarker==1 'Popupmenue sichtbar?
ios.restore_area(popupx,popupy,popupxx,popupyy,BRAM) 'Hintergrund wiederherstellen
popupmarker:=0 'Popupmarker loeschen
if infomarker==1
ios.restore_area(windowx[2],windowy[2],windowxx[2],windowyy[2],BRAM) 'Hintergrund wiederherstellen
infomarker:=0
ios.printwindow(1)
ios.setpos(28,0)
ios.printCursorRate(3)
PRI rahmen(x,y,xx,yy)|i
win_tile(137,y,x)
win_tile(136,yy,x)
win_tile(157,y,xx)
win_tile(119,yy,xx)
repeat i from y+1 to yy-1
win_tile(2,i,x)
win_tile(114,i,xx)
line(x+1,y,xx-1)
line(x+1,yy,xx-1)
PRI line(x,y,xx)|i
repeat i from x to xx
win_tile(130,y,i)
PRI Mouse_Release
repeat while ios.mouse_button(0) 'warten bis Maustaste losgelassen wird
con '---------------------------------------------- Ausgaberoutinen ---------------------------------------------------------------------------------------------------------------
PRI Win_Tile(nu,ty,tx)
ios.displaytile(nu,colors[winhcol],0,colors[act_color],ty,tx)
CON ''------------------------------------------------- INTERPRETER
PUB os_cmdinput | charc ,a,status,k,dk,x,y,i '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
repeat 'tibposition auf anfang setzen
ma:=ios.mouse_button(0)
time
charc:=ios.key
if charc
if charc==F12_Key
cmd_exit
if charc==F1_Key
cmd_help
charc:=return_key
if charc==F2_Key
Display_Info
if charc==ESC_KEY or charc==RETURN_KEY
if infomarker==1
popup_info_weg
charc:=return_key
ifnot infomarker 'keine Eingabe bei Anzeige des Info-Fensters
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
other: 'zeicheneingabe
if charc==$0D
quit
else
tib[tibpos++] := charc 'zeichen speichern
ios.printchar(charc) 'zeichen ausgeben
'***************************** linke Maustaste **********************************************************************
if ma==255
dk:=0
x:=ios.mousex
y:=ios.mousey
'****************************** Startmenue anzeigen ************************************************************
if popupmarker==1
if x>10 or y<24 'Menue loeschen, wenn man woanders hinklickt
popup_info_weg
if x=>0 and x=<10 and y=>24 and y=<28
repeat i from 0 to 5
if menuey[i]==y
case i
0:menueselect(string("Info - F2"),menuey[i])
Display_Info
1:menueselect(string("Help - F1"),menuey[i])
cmd_help
2:menueselect(string("-EXIT- F12"),menuey[i])
cmd_exit
'****************************** Globale Funktionstasten ********************************************************
if(x=>buttonx[4]) and (x=<buttonx[4]+5) and (y==buttony[4]) and Infomarker==1 'ok im Infofenster
buttonpress(4)
popup_info_weg
quit
if y==windowy[2] and x==windowx[2] and Infomarker==1 'doppelklick in linke obere ecke des Info-Fensters
if doppelklick>1
popup_info_weg
if y==windowy[2] and x==windowxx[2] and Infomarker==1
ios.get_window
popup_info_weg
if y==0
if (x==39) 'Beenden-Knopf
ios.displaytile(1,250,0,0,0,39) 'Schliessen-Symbol
Mouse_Release 'warten bis Maustaste losgelassen wird
ios.displaytile(1,colors[winhcol],0,colors[winframecol],0,39) 'Schliessen-Symbol
cmd_exit
if (x==0) 'Beenden bei Doppelklick auf linke obere Ecke
if doppelklick>1
cmd_exit
if x>1 and x<20 'Doppelklick in die Titelleiste
if doppelklick>1
popup_info_weg
Display_Info
if ((x=>0) and (x=<5)) and (y==29) 'Start-Knopf
buttonpress(1)
if popupmarker==1
popup_info_weg
ios.printwindow(1)
else
if infomarker==1
popup_info_weg
startmenue
popupmarker:=1
ios.printnl
tib[tibpos] := 0 'string abschließen
tibpos := charc := 0 'werte rücksetzen
con'****************************************************** Datum und Zeitanzeige *************************************************************************************************
PRI time|s 'Zeitanzeige in der Statusleiste
timezaehler++
if timezaehler>150
timezaehler:=0
show_time
pri show_time |s
s:=ios.getminutes
2014-11-20 16:36:49 +01:00
Status_extern(ios.dcf_sync,dcf_on,170,34,29,green,black) 'Anzeige des aktuellen Status in der Titelzeile
2014-04-29 16:38:54 +02:00
if s<>tmptime
displaytime
PRI displaytime|h,m
h:=ios.gethours
m:=ios.getminutes
2014-11-20 16:36:49 +01:00
print_zehner(h,29,35,colors[hcolstatus],colors[statustextcol])
ios.displaytile(42,colors[hcolstatus],0,colors[statustextcol],29,37)
2014-04-29 16:38:54 +02:00
2014-11-20 16:36:49 +01:00
print_zehner(m,29,38,colors[hcolstatus],colors[statustextcol])
2014-04-29 16:38:54 +02:00
tmptime:=m
date
PRI date
print_zehner(ios.getdate,0,29,colors[titelhcol],colors[titeltextcol])
ios.displaytile(30,colors[titelhcol],0,colors[titeltextcol],0,31)
print_zehner(ios.getmonth,0,32,colors[titelhcol],colors[titeltextcol])
ios.displaytile(30,colors[titelhcol],0,colors[titeltextcol],0,34)
printdec(ios.getyear,0,35,colors[titelhcol],colors[titeltextcol])
pri print_zehner(wert,y,x,hin,vor)|a
a:=0
if wert<10
printdec(0,y,x,hin,vor)
a:=1
printdec(wert,y,x+a,hin,vor)
pri Status_extern(wert1,wert2,tnr_act,x,y,col,f3)
if wert1==1
2014-11-20 16:36:49 +01:00
ios.displaytile(tnr_act,colors[hcolstatus],col,f3,y,x) 'Status ok-anzeigen
2014-04-29 16:38:54 +02:00
else
2014-11-20 16:36:49 +01:00
if wert2 'Externe Komponente in Settingmenue ausgewählt?
ios.displaytile(tnr_act,colors[hcolstatus],grey,0,y,x) 'Symbol grau
2014-04-29 16:38:54 +02:00
else
2014-11-20 16:36:49 +01:00
ios.displaytile(16,colors[hcolstatus],colors[statustextcol],0,y,x) 'Ohne externe Komponente arbeiten (kein Symbol)
2014-04-29 16:38:54 +02:00
con'****************************************************** Perplex-Funktionen *************************************************************************************************
PRI plx_map|ack,adr,n,i
ios.plxHalt
n := 0
i := 0
ios.printcursorrate(0)
ios.printcls
repeat
ios.setpos(0,0)
ios.printnl
ios.print(string(" 0123456789ABCDEF"))
ios.printnl
show_time
repeat adr from 0 to 127
ack := ios.plxping(adr)
if n == 0
ios.printhex(adr,2)
ios.printchar(" ")
if ack
ios.printqchar("┼")
else
ios.printqchar("•")
if n++ == 15
ios.printnl
n := 0
ios.printnl
ios.print(string("Scan : "))
ios.printdec(i++)
until ios.key
ios.printnl
ios.printcursorrate(3)
ios.plxRun
PRI plx_scan|ack,adr
ios.plxHalt
ios.printnl
repeat adr from 0 to 127
ack := ios.plxping(adr)
ifnot ack
ios.print(string("Ping : $"))
ios.printhex(adr,2)
ios.print(string(" : "))
ios.printdec(adr)
ios.printnl
ios.printnl
ios.plxRun
PRI plx_put|wert
device:=numm.FromStr(os_nxtoken1,numm#HEX)
wert := numm.FromStr(os_nxtoken2,numm#HEX)
ios.plxOut(device,wert)
PRI plx_get
'################## das funktioniert noch nicht ?! ####################
device:=numm.FromStr(os_nxtoken1,numm#HEX)
ios.print(string("Get : "))
ios.printhex(ios.plxIn(device),2)
ios.printnl
PRI plx_test
ios.printcursorrate(0)
ios.printcls
repeat
ios.setpos(0,0)
ios.printnl
print_port(1,ios.getreg(4))
print_port(2,ios.getreg(5))
print_port(3,ios.getreg(6))
ios.printnl
print_chan(0,ios.getreg(0))
print_chan(1,ios.getreg(1))
print_chan(2,ios.getreg(2))
print_chan(3,ios.getreg(3))
2014-06-14 14:57:41 +02:00
show_time 'Zeitanzeige aktualisieren
2014-04-29 16:38:54 +02:00
until ios.key
ios.printnl
ios.printcursorrate(3)
PRI print_chan(cnr,wert)
ios.print(string("A/D"))
ios.printdec(cnr)
ios.printchar(" ")
ios.printhex(wert,2)
'ios.printchar(" ")
ios.printchar("[")
repeat wert>>3
ios.printqchar("‣")
repeat (255-wert)>>3
ios.printqchar(" ")
ios.printchar("]")
ios.printnl
PRI print_port(pnr,wert)
ios.print(string("Port "))
ios.printdec(pnr)
ios.print(string(" ["))
repeat 8
if wert & 1
ios.printqchar("‣")
else
ios.printqchar(" ")
wert := wert >> 1
ios.printchar("]")
ios.printnl
{PRI print_paddle(cnr,wert)
ios.print(string("Paddle "))
ios.printdec(cnr)
ios.printchar(" ")
ios.printhex(wert,2)
ios.printchar(" ")
ios.printchar("[")
repeat wert>>3
ios.printqchar("‣")
repeat (255-wert)>>3
ios.printqchar(" ")
ios.printchar("]")
ios.printnl
PRI print_joystick(wert)
ios.print(string("Joystick "))
ios.print(string(" ["))
repeat 8
if wert & 1
ios.printqchar("‣")
else
ios.printqchar(" ")
wert := wert >> 1
ios.printchar("]")
ios.printnl
}
con'****************************************************** Befehlstoken lesen *************************************************************************************************
PUB 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)
PUB 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)
PUB 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
PUB 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
PUB 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
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
2014-06-14 14:57:41 +02:00
cmd26 byte "time",0
cmd27 byte "date",0
2014-04-29 16:38:54 +02:00
cmd28 byte "xdir",0
cmd29 byte "xrename",0
cmd30 byte "xdel",0
cmd31 byte "xtype",0
cmd32 byte "forth",0
cmd33 byte "admdmp",0
cmd34 byte "beldmp",0
cmd35 byte "regdmp",0
cmd36 byte "ramdmp",0
cmd37 byte "exit",0
'cmd38 byte "plxadr",0
'cmd39 byte "plxclose",0
cmd40 byte "plxput",0
cmd41 byte "plxget",0
cmd42 byte "plxmap",0
cmd43 byte "plxscan",0
cmd44 byte "plxtest",0
PUB os_cmdexec(stradr) |fehler 'sys: kommando ausführen
{{os_smdexec - das kommando im übergebenen string wird als kommando interpretiert
stradr: adresse einer stringvariable die ein kommando enthält}}
fehler:=0
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(0)
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
ios.setpos(28,0)
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
2014-06-14 14:57:41 +02:00
' settime
2014-04-29 16:38:54 +02:00
'elseif strcomp(stradr,@cmd27) 'xsave
2014-06-14 14:57:41 +02:00
' setdate
2014-04-29 16:38:54 +02:00
'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) 'admdmp
cmd_admdmp
elseif strcomp(stradr,@cmd34) 'beldmp
cmd_beldmp
elseif strcomp(stradr,@cmd35) 'regdmp
cmd_regdmp
elseif strcomp(stradr,@cmd36) 'ramdmp
cmd_ramdmp
elseif strcomp(stradr,@cmd37)
cmd_exit
elseif os_testbin(stradr) '.bin
elseif os_testadm(stradr) '.adm
elseif os_testbel(stradr) '.bel
2014-06-14 14:57:41 +02:00
elseif os_testbas(stradr)
2014-04-29 16:38:54 +02:00
'elseif strcomp(stradr,@cmd38)
' plx_open
'elseif strcomp(stradr,@cmd39)
' plx_close
elseif strcomp(stradr,@cmd40)
plx_put
elseif strcomp(stradr,@cmd41)
plx_get
elseif strcomp(stradr,@cmd42)
plx_map
elseif strcomp(stradr,@cmd43)
plx_scan
elseif strcomp(stradr,@cmd44)
plx_test
else 'kommando nicht gefunden
ios.print(stradr) 'Text mit aktuellen Font darstellen(stradr)
ios.print(@msg3)
fehler:=1
ios.print(@prompt1) 'Text mit aktuellen Font darstellen(@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
PUB 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.belreset
ios.ldbin(os_nxtoken1)
PUB 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
' ios.belreset
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
' ios.belreset
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
PUB os_testadm(stradr): flag | status,i,len 'sys: test ob kommando als adm-datei vorliegt
flag := FALSE
len := strsize(stradr)
repeat i from 0 to 3 '.adm 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
ios.admload(stradr) 'administra-code laden
else 'datei nicht gefunden
ios.sdclose
ios.sddmact(ios#DM_USER) 'u-marker aktivieren
byte[stradr][len] := 0 'extender wieder abschneiden
PUB 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(0,1) '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(0,1) 'systemmeldung
else 'datei nicht gefunden
ios.sdclose
ios.sddmact(ios#DM_USER) 'u-marker aktivieren
2014-06-14 14:57:41 +02:00
byte[stradr][len] := 0 'extender wieder abschneiden
PUB os_testbas(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[@ext4][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.paraset(stradr)
ios.ldbin(@BAS_RT)
else 'datei nicht gefunden
ios.sdclose
2014-11-20 16:36:49 +01:00
2014-06-14 14:57:41 +02:00
ios.sddmact(ios#DM_USER) 'u-marker aktivieren
2014-04-29 16:38:54 +02:00
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
CON ''------------------------------------------------- KOMMANDOS
{PRI rd_dir | stradr,len 'rd: dir anzeigen
if ios.ram_rdbyte(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 '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
ios.printchar(ios.rd_get(fnr))
ios.rd_close(fnr)
}
}
{PUB 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)
}
PUB cmd_dm|wert 'cmd: dir-marker aktivieren
ios.os_error(ios.sddmact(cmd_dm_nr))
PUB cmd_dmset 'cmd: dir-marker setzen
ios.sddmset(cmd_dm_nr)
PUB cmd_dmclr 'cmd: dir-marker löschen
ios.sddmclr(cmd_dm_nr)
PUB cmd_dmlist 'cmd: dir-marker auflisten
ios.printBoxColor(1,colors[act_color],colors[winhcol],0)
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.printBoxColor(1,colors[act_color],colors[winhcol],0)
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
PUB cmd_color 'cmd: zeichenfarbe wählen
'ios.setcolor(str.decimalToNumber(colors[act_color] := os_nxtoken1))
ios.printBoxColor(1,str.decimalToNumber(colors[act_color]:= os_nxtoken1),colors[winhcol],0)
'str.decimalToNumber(colors[act_color] := os_nxtoken1)
PUB cmd_sysinfo 'cmd: systeminformationen anzeigen
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_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_printstr(@msg19,str.numberToBinary(ios.belgetver,32))
os_printstr(@msg20,str.numberToBinary(ios.belgetspec,32))
os_printstr(@msg32,string("40x15"))'str.numberToDecimal(40,4))
'os_printstr(@msg33,str.numberToDecimal(15,4))
'
os_printstr(@msg34,string("640x480"))'str.numberToDecimal(640,4))
'os_printstr(@msg35,str.numberToDecimal(480,4))
PUB cmd_mount(mode) | err 'cmd: mount
repeat 16
err := ios.sdmount
ifnot err
mountmarker:=1
quit
ios.os_error(err)
ifnot err
ifnot mode
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(colors[act_color])
PUB cmd_unmount 'cmd: unmount
ios.os_error(ios.sdunmount)
mountmarker:=0
ios.print(string("SD-Card unmounted"))
PUB 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#RAMBAS),8)
ios.printnl
ios.print(string("REND : $"))
ios.printhex(ios.ram_rdlong(ios#RAMEND),8)
ios.printnl
ios.print(string("USER : $"))
wert := ios.ram_rdlong(ios#RAMEND)
wert := wert - ios.ram_rdlong(ios#RAMBAS)
ios.printhex(wert,8)
ios.printnl
ios.print(string("RAMDRV : $"))
ios.printhex(ios.ram_rdbyte(ios#RAMDRV),2)
ios.printnl
ios.print(string("SYSVAR : $"))
ios.printhex(ios#SYSVAR,8)
ios.printnl
PUB cmd_attrib 'cmd: dateiattribute ändern
ios.os_error(ios.sdchattrib(os_nxtoken1,os_nxtoken2))
PUB cmd_rename 'cmd: datei/verzeichnis umbenennen
ios.os_error(ios.sdrename(os_nxtoken1,os_nxtoken2))
PUB cmd_cd 'cmd: verzeichnis wechseln
ifnot ios.os_error(ios.sdchdir(os_nxtoken1))
userdir:=get_dirmarker
PUB cmd_mkdir 'cmd: verzeichnis erstellen
ios.os_error(ios.sdnewdir(os_nxtoken1))
PUB 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))
PUB 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))
PUB cmd_reboot | key, stradr 'cmd: reboot
ios.print(@msg13)
key := ios.keywait
case key
"c": ios.ram_wrbyte(0,ios#MAGIC)
ios.ram_wrbyte(0,ios#RAMDRV)
ios.admreset
ios.belreset
waitcnt(cnt+clkfreq*3)
reboot
"w": ios.ram_wrbyte(0,ios#SIFLAG)
reboot
pri cmd_exit
'ios.display3DBox(255, colors[winhcol], 0, 12, 8, 14, 28)
'Print_win(string("Return to Plexus..."),9,13)
ios.mousepointer(hour_glass)
cmd_mount(1)
activate_dirmarker(systemdir) 'System-Verzeichnis lesen
ios.sdopen("r",@regsys)
ios.ldbin(@regsys)
PUB 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)
PUB 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(0,1) 'systemmeldung
ios.print(@prog) 'programmversion
else
ios.os_error(status)
PUB 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 == 10
n := 1
if ios.keywait == 27
ios.sdclose
return
until ios.sdeof 'ausgabe bis eof
ios.sdclose 'datei schließen
PUB cmd_help | i,char,n ,x,y ,stradr,c ,a,b 'cmd: textdatei ausgeben
'ios.printwindow(2)
stradr := @help1 'dateinamen von kommandozeile holen
n := 1
b:=0
activate_dirmarker(systemdir)
ifnot ios.os_error(ios.sdopen("r",stradr)) 'datei öffnen
ios.printcls
x:=1
y:=5
repeat
c:=ios.sdgetc
if x==38 or c==10 'zeilenumbruch bei spalte 38
x:=1
y+=1
if y==27
repeat
a:=ios.key
if a==27
b:=1
quit
until a==13 or a==32 'solange bis button 10 gedrückt wurde
if b==1
ios.sdclose
ios.printcls
ios.setpos(28,0)
return
y:=5
ios.printcls
if c==10 or c==13 'return oder linefeed nicht als zeichen anzeigen
next
if c>96
c-=32
ios.displayTile(c-16,colors[winhcol],0,colors[act_color],y,x) 'text mit systemfont anzeigen
x++
until ios.sdeof 'ausgabe bis eof
ios.setpos(28,0)
ios.sdclose
activate_dirmarker(userdir)
PUB 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)
ifnot ios.os_error(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)
else
ios.os_error(1)
PRI cmd_dir_w(hflag):fcnt|stradr,lcnt,wcnt,a,b,k
fcnt := 0
lcnt := (rows - 6)/2
wcnt := 3
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.setx(1)
ios.printBoxColor(1,colors[selectcol],colors[winhcol],0)
ios.printchar("*")
ios.print(stradr)
elseif ios.sdfattrib(ios#F_HIDDEN)
ios.setx(2)
ios.printBoxColor(1,colors[messagetextcol],colors[winhcol],0)
str.charactersToLowerCase(stradr)
ios.print(stradr)
else 'dateiname
ios.setx(2)
ios.printBoxColor(1,colors[act_color],colors[winhcol],0)
str.charactersToLowerCase(stradr)
ios.print(stradr)
ifnot wcnt--
wcnt := 3
ios.printnl
else
fcnt++
ifnot --lcnt
lcnt := (rows - 6) /2
b:=0
repeat
a:=ios.mouse_button(0)
k:=ios.key
if a==255 or k == 27
b:=1
quit
until a==1 or k==32 or k==13
if b==1
return
PRI cmd_dir_l(hflag):fcnt|stradr,lcnt,a,b,tmp,k
fcnt := 0
lcnt := (rows - 6)/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.setx(1)
ios.printBoxColor(1,colors[selectcol],colors[winhcol],0)
ios.printchar("*")
ios.print(stradr)
elseif ios.sdfattrib(ios#F_HIDDEN)
ios.setx(2)
ios.printBoxColor(1,colors[messagetextcol],colors[winhcol],0)
str.charactersToLowerCase(stradr)
ios.print(stradr)
else 'dateiname
ios.setx(2)
ios.printBoxColor(1,colors[act_color],colors[winhcol],0)
str.charactersToLowerCase(stradr)
ios.print(stradr)
ios.print(str.numberToDecimal(ios.sdfattrib(ios#F_SIZE),6)) 'dateigröße
ios.setx(22) '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("-")
ios.setx(27) 'ä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)
fcnt++
ifnot --lcnt
lcnt := (rows - 6)/2
b:=0
repeat
a:=ios.mouse_button(0)
k:=ios.key
if a==255 or k == 27
b:=1
quit
until a==1 or k==32 or k==13
if b==1
return
PRI Scan_Expansion_Card|ack,adr,counter_s,counter_V
'######################################################################################################
'# Durch diverse Versuche hat sich herausgestellt, das die Ping-Funktion allein nicht ausreicht um #
'# das Vorhandensein der Sepia oder Venatrix-Karte zu detektieren, da eine nicht angeschlossene #
'# eine Null zurückgibt, genauso wie ein angeschlossener I2C-Teilnehmer. Deshalb wird beim Scan die #
'# Anzahl Nullen mit der Gesamtanzahl der Adressen verglichen. Ist die Anzahl zurückgegebener Nullen#
'# mit der Anzahl Adressen identisch, so ist offensichtlich keine Karte vorhanden. Diese Methode #
'# verhindert Fehldetektionen und gerade in Verbindung mit der Venatrixkarte ein Festfahren des HIVE#
'# zum Beispiel bei Aufruf der Cog-Anzeige. #
'######################################################################################################
ios.plxHalt
Sepia:=0
venatrix:=0
counter_s:=0
counter_v:=0
repeat adr from 32 to 79 'standard-Sepia-Adressbereich $20-$4f
ack := ios.plxping(adr)
ifnot ack
counter_s++ 'Anzahl der vorhandenen I2C-Teilnehmer
repeat adr from 0 to 5
if ios.plxping(adr)
counter_v++
ios.plxRun
if counter_s<48
sepia:=1
if counter_v==5
Venatrix:=1
PUB 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)
Scan_Expansion_Card 'nach Venatrix-Karte scannen
if venatrix
i := ios.VEN_GETCOGS
cmd_cogs_print(8-i,i,@cogs6)
ios.printBoxColor(1,colors[act_color],colors[winhcol],0)
ios.print(@cogs4)
ios.printnl
ios.print(string(" ("))
ios.printBoxColor(1,$80,colors[winhcol],0)
ios.print(string("•"))
ios.printBoxColor(1,colors[act_color],colors[winhcol],0)
ios.print(@cogs5)
ios.printnl
PRI cmd_cogs_print(used,free,stradr)
ios.print(stradr)
if used > 0
repeat
ios.printBoxColor(1,$80,colors[winhcol],0)
ios.print(string("•"))
used--
until used == 0
if free > 0
repeat
ios.printBoxColor(1,green,colors[winhcol],0)
ios.print(string("•"))
free--
until free == 0
ios.printBoxColor(1,colors[act_color],colors[winhcol],0)
ios.printnl
pri cmd_admdmp |stradr
ifnot (stradr := getanynumber(os_nxtoken1))
' ios.beldmp(stradr)
pri cmd_beldmp |stradr
if (stradr := getanynumber(os_nxtoken1))> -1
' ios.beldmp(stradr)
pri cmd_regdmp|stradr
if (stradr := getanynumber(os_nxtoken1))> -1
ios.Dump(stradr,100,0)
pri cmd_ramdmp|stradr
if (stradr := getanynumber(os_nxtoken1))> -1
ios.Dump(stradr,100,1)
pri cmd_ramdmp1|stradr
Dump(0,$1F400,1)
PUB Dump(adr,lines,mod) |zeile ,a,b 'adresse, anzahl zeilen,ram oder xram
zeile:=0
repeat lines
ios.printnl
ios.printhex(adr,5)
ios.printchar(":")
'printchar(" ")
repeat 8
if mod>0
ios.printhex(ios.ram_rdbyte(adr++),2)
else
ios.printhex(byte[adr++],2)
ios.printchar(" ")
adr := adr - 8
repeat 8
if mod>0
ios.printqchar(ios.ram_rdbyte(adr++))
else
ios.printqchar(byte[adr++])
zeile++
if zeile == 12
ios.printnl
ios.print(string("<WEITER?>"))
b:=0
repeat
a:=ios.mouse_button(0)
if a==255 'ios.keywait == 27
b:=1
quit
' if a==6
' quit
until a==6
if b==1
quit
zeile:=0
PRI getAnyNumber(tp) | c, t,fnumber,i,count,quote
'quote:=34
count:=0
case c := byte[tp]
'quote:
' if result := byte[++tp]
' if byte[++tp] == quote
' tp++
' else
' abort @msg3'string("missing closing quote")
' else
' abort @msg3'string("end of line in string")
"$":
c := byte[++tp]
if (t := hexDigit(c)) < 0
ios.print(@msg3)
result:=-1
result := t
c := byte[++tp]
repeat until (t := hexDigit(c)) < 0
result := result << 4 | t
c := byte[++tp]
"%":
c := byte[++tp]
if not (c == "0" or c == "1")
result:=-1
ios.print( @msg3)
result := c - "0"
c := byte[++tp]
repeat while c == "0" or c == "1"
result := result << 1 | (c - "0")
c := byte[++tp]
"0".."9": 'Originalcode
result := c - "0"
c := byte[++tp]
repeat while c => "0" and c =< "9"
result := result * 10 + c - "0"
c := byte[++tp]
other:
result:=-1
ios.print(@msg3)
PRI hexDigit(c)
'' Convert hexadecimal character to the corresponding value or -1 if invalid.
if c => "0" and c =< "9"
return c - "0"
if c => "A" and c =< "F"
return c - "A" + 10
if c => "a" and c =< "f"
return c - "a" + 10
return -1
DAT 'strings
'system1 byte "▶Hive: Regime", 0
syst byte "Plexus",0
prog byte "DOS-Shell",0
copy byte "20-02-2014 • zille9",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 "Neu starten? <[c]old/[w]arm/*> : ",0
msg14 byte "CLI : ",0
msg15 byte "RegVer:",0
msg16 byte "RegSpc:",0
msg17 byte "AdmVer:",0
msg18 byte "AdmSpc:",0
msg19 byte "BelVer:",0
msg20 byte "BelSpc:",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 Spalten/Zeilen: ",0
'msg33 byte "Bellatrix Textzeilen : ",0
msg34 byte "Bellatrix Auflösung : ",0
'msg35 byte "Bellatrix Auflösung Y : ",0
ext1 byte ".BIN",0
ext2 byte ".ADM",0
ext3 byte ".BEL",0
2014-06-14 14:57:41 +02:00
ext4 byte ".BAS",0
2014-04-29 16:38:54 +02:00
wait1 byte "<WEITER? */q:>",0
cstr byte "••••••••",0
cogs1 byte "Regnatix : ",0
cogs2 byte "Administra: ",0
cogs3 byte "Bellatrix : ",0
cogs6 byte "Venatrix : ",0
cogs4 byte "────────────────────",0
cogs5 byte " = running cog)",0
help1 byte "dos.txt",0
'gdriver byte "bel.sys", 0 'name des grafiktreibers
{
help1 file "regime.txt"
byte 13,0
}
con '********************************* Unterprogramme zur Tile-Verwaltung *********************************************************************************************************
{pri LoadTiletoRam(datei)|c,adress ,count 'tile:=tilenr,dateiname,xtile-zahl,ytilezahl
count:=11264 '(16*11*64 (64 byte sind 16longs))
adress:=$66800 'Systemfont-Bereich (Basic verwendet den gleichen Bereich)
ios.sddmset(ios#DM_ROOT)
os_error(ios.sdopen("R",datei)) 'datei öffnen
ios.sdxgetblk(adress,11264) 'datei in den Speicher schreiben (der blockbefehl ist viel schneller als der char-Befehl)
ios.sdclose
pri loadtile|c,adress,anzahl 'tileset aus eram in bella laden
anzahl:=2816 'anzahl longs '(16*11*16longs)
ios.loadtilebuffer($66800,anzahl) 'laden 'Systemfont-Bereich (Basic verwendet den gleichen Bereich)
}
{pri printfont(str1,a,b,c,d,e)|f,n
repeat strsize(str1)
f:= byte[str1++]
if d>39 'wenn Bildschirmrand erreicht, neue Zeile
d:=0
e++
if f>96
f-=32
ios.displayTile(f,a,b,c,e,d) 'einzelnes Tile anzeigen ('displayTile(tnr,pcol,scol,tcol, row, column))
d++
}
{pri close
sdset(0) 'ins root
ios.sdclose
ios.sdunmount
PRI mount
ios.sdmount
sdset(0)
pri sdset(str1) 'Verzeichniswechsel
ios.sdchdir(str1)
ios.sddmset(str1)
}
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. │
└──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
}}
