1920 lines
69 KiB
Plaintext
1920 lines
69 KiB
Plaintext
{{
|
|
┌──────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
│ Autor: Ingo Kripahle │
|
|
│ Copyright (c) 2010 Ingo Kripahle │
|
|
│ See end of file for terms of use. │
|
|
│ Die Nutzungsbedingungen befinden sich am Ende der Datei │
|
|
└──────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
Informationen : hive-project.de
|
|
Kontakt : drohne235@googlemail.com
|
|
System : TriOS
|
|
Name : 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!!!)
|
|
Kommandoliste:
|
|
- siehe regime.txt
|
|
|
|
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
|
|
}}
|
|
|
|
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
|
|
|
|
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
|
|
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++]
|
|
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
|
|
1:printfont(string("Start"),250,0,0,0,29)
|
|
4:printfont(@butOK,250,0,0,buttonx[n],buttony[n])
|
|
|
|
Mouse_Release
|
|
case n
|
|
1:printfont(string("Start"),colors[hcolstatus],0,colors[statustextcol],0,29)
|
|
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
|
|
Status_extern(ios.dcf_sync,dcf_on,170,27,0,colors[titeltextcol],black) 'Anzeige des aktuellen Status in der Titelzeile
|
|
if s<>tmptime
|
|
displaytime
|
|
|
|
PRI displaytime|h,m
|
|
|
|
h:=ios.gethours
|
|
m:=ios.getminutes
|
|
|
|
print_zehner(h,29,34,colors[hcolstatus],colors[statustextcol])
|
|
ios.displaytile(42,colors[hcolstatus],0,colors[statustextcol],29,36)
|
|
|
|
print_zehner(m,29,37,colors[hcolstatus],colors[statustextcol])
|
|
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
|
|
ios.displaytile(tnr_act,colors[Titelhcol],col,f3,y,x) 'Status ok-anzeigen
|
|
else
|
|
if wert2 'Externe Komponente in Settingmenue ausgewählt?
|
|
ios.displaytile(tnr_act,colors[titelhcol],grey,0,y,x) 'Symbol grau
|
|
else
|
|
ios.displaytile(16,colors[Titelhcol],colors[titeltextcol],0,y,x) 'Ohne externe Komponente arbeiten (kein Symbol)
|
|
|
|
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
|
|
|
|
'if open
|
|
device:=numm.FromStr(os_nxtoken1,numm#HEX)
|
|
wert := numm.FromStr(os_nxtoken2,numm#HEX)
|
|
ios.plxOut(device,wert)
|
|
'else
|
|
' ios.print(string("Kein Device geöffnet!"))
|
|
' ios.printnl
|
|
|
|
PRI plx_get
|
|
'################## das funktioniert noch nicht ?! ####################
|
|
'if open
|
|
device:=numm.FromStr(os_nxtoken1,numm#HEX)
|
|
ios.print(string("Get : "))
|
|
ios.printhex(ios.plxIn(device),2)
|
|
ios.printnl
|
|
'else
|
|
' ios.print(string("Kein Device geöffnet!"))
|
|
' ios.printnl
|
|
|
|
PRI plx_test
|
|
|
|
'ios.plxHalt
|
|
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))
|
|
'ios.plxout($3A,!(cnt>>23))
|
|
show_time
|
|
until ios.key
|
|
ios.printnl
|
|
ios.printcursorrate(3)
|
|
'ios.plxRun
|
|
|
|
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
|
|
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 "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
|
|
' 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) '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
|
|
'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
|
|
|
|
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
|
|
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. │
|
|
└──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
}}
|
|
|