Plexus 2.10

This commit is contained in:
Jörg Deckert 2014-11-20 16:36:49 +01:00
parent a2f6f2826d
commit 85cf23b0d3
57 changed files with 3996 additions and 1124 deletions

Binary file not shown.

BIN
data/COLORS/EGG.CLR Normal file

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

Binary file not shown.

BIN
data/Fonts/COMIC.FNT Normal file

Binary file not shown.

BIN
data/Fonts/FUTURE.FNT Normal file

Binary file not shown.

BIN
data/Fonts/KRYPTO.FNT Normal file

Binary file not shown.

BIN
data/Fonts/NEW.FNT Normal file

Binary file not shown.

BIN
data/Fonts/ROUND.FNT Normal file

Binary file not shown.

BIN
data/Fonts/ROUND2.FNT Normal file

Binary file not shown.

BIN
data/Fonts/duenn.fnt Normal file

Binary file not shown.

BIN
data/Fonts/fett.fnt Normal file

Binary file not shown.

BIN
data/Fonts/flame.fnt Normal file

Binary file not shown.

BIN
data/Fonts/frozen.fnt Normal file

Binary file not shown.

BIN
data/Fonts/gothic.fnt Normal file

Binary file not shown.

BIN
data/Fonts/jedi.fnt Normal file

Binary file not shown.

BIN
data/Fonts/outline.fnt Normal file

Binary file not shown.

BIN
data/Fonts/quake.fnt Normal file

Binary file not shown.

BIN
data/Fonts/roman.fnt Normal file

Binary file not shown.

BIN
data/Fonts/stone.fnt Normal file

Binary file not shown.

View File

@ -11,10 +11,12 @@ F8 Color-Settings
F9 Ram-Monitor
F10 Sid-Dmp-Player
F11 Calendar
F12 Reboot
F12 Reboot Plexus
Alt+F1 About-Box
Alt+F2 System-Settings
Alt+F3 extended Titlebar
Alt+F5 Baud-Select
Alt+F12 Reboot TRIOS
M Mount/Unmount
I SD-Card-Info
F Format SD-Card
@ -35,7 +37,7 @@ C Copy File
P Paste File
Cursor Select File
Enter Start File(bin etc)
Entf Delete File
Del Delete File
Y Send File(YMODEM)
Z Receive File(YMODEM)
============================
@ -84,4 +86,4 @@ D Use DCF-Receiver
B Use HC05-Bluetooth
============================
Program Window
1..3 Select Program
1..6 Select Program

BIN
data/NOISE.WVP Normal file

Binary file not shown.

BIN
data/NOISE2.WVP Normal file

Binary file not shown.

View File

@ -1,6 +1,6 @@
PLEXUS for Hive 2.06
PLEXUS for Hive 2.1
Autor:R.Zielinski 04/2014
Autor:R.Zielinski 08/2014
Mail :Zille09@gmail.com
Hive-Project.de

BIN
data/PWM.WVP Normal file

Binary file not shown.

BIN
data/PWM2.WVP Normal file

Binary file not shown.

BIN
data/REG.FNT Normal file

Binary file not shown.

Binary file not shown.

BIN
data/SINUS.WVP Normal file

Binary file not shown.

BIN
data/SQUARE.WVP Normal file

Binary file not shown.

BIN
data/SWEEP.WVP Normal file

Binary file not shown.

BIN
data/TRIANGLE.WVP Normal file

Binary file not shown.

BIN
data/WAVE.INI Normal file

Binary file not shown.

9
data/dll.lst Normal file
View File

@ -0,0 +1,9 @@
ymodem.dll
basrun.dll
sepia.dll
venatrix.dll
dos.dll
dcf.dll
bltooth.dll
font.dll
wave.dll

View File

@ -76,3 +76,4 @@ No Response from Host
Transmission complete
Send File...
Timeout failure!
Reboot Hive whith TRIOS?

14
make.sh
View File

@ -17,9 +17,9 @@ BSTC="bstc"
# Alte Versionen löschen
rm -rf ${sdplex}
##rm -rf ${sdsys}/xxxx
rm -rf ${sdsys}/goplexus.bin
mkdir -p ${sdplex}
##mkdir ${sdsys}
mkdir ${sdsys}
# ----------------------------------------------------------------
@ -58,6 +58,16 @@ mv dos-shell.binary ${sdplex}/dos.dll
${BSTC} -L ${libpath} ${D} -b -O a source/sepia-test.spin
mv sepia-test.binary ${sdplex}/sepia.dll
${BSTC} -L ${libpath} ${D} -b -O a source/SignalGenerator.spin
mv SignalGenerator.binary ${sdplex}/Wave.dll
${BSTC} -L ${libpath} ${D} -b -O a source/font-draw.spin
mv font-draw.binary ${sdplex}/font.dll
${BSTC} -L ${libpath} ${D} -b -O a source/Switch_Plexus.spin
mv Switch_Plexus.binary ${sdsys}/goplexus.bin
# ----------------------------------------------------------------
# Daten kopieren

View File

@ -534,7 +534,7 @@ PRI time|s 'Zeitanzeige in der Statusleiste
if timezaehler>150
timezaehler:=0
s:=ios.getminutes
Status_extern(ios.dcf_sync,dcf_on,170,27,0,colors[titeltextcol],black) 'Anzeige des aktuellen Status in der Titelzeile
Status_extern(ios.dcf_sync,dcf_on,170,34,29,green,black) 'Anzeige des aktuellen Status in der Titelzeile
if s<>tmptime
displaytime
@ -543,10 +543,10 @@ 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(h,29,35,colors[hcolstatus],colors[statustextcol])
ios.displaytile(42,colors[hcolstatus],0,colors[statustextcol],29,37)
print_zehner(m,29,37,colors[hcolstatus],colors[statustextcol])
print_zehner(m,29,38,colors[hcolstatus],colors[statustextcol])
tmptime:=m
date
@ -569,12 +569,12 @@ pri print_zehner(wert,y,x,hin,vor)|a
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
ios.displaytile(tnr_act,colors[hcolstatus],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
ios.displaytile(tnr_act,colors[hcolstatus],grey,0,y,x) 'Symbol grau
else
ios.displaytile(16,colors[Titelhcol],colors[titeltextcol],0,y,x) 'Ohne externe Komponente arbeiten (kein Symbol)
ios.displaytile(16,colors[hcolstatus],colors[statustextcol],0,y,x) 'Ohne externe Komponente arbeiten (kein Symbol)
con'
PRI doppelklick:click 'pseudo-doppelklick
@ -647,6 +647,8 @@ PRI printfont(str1,a,b,c,d,e)|f
repeat strsize(str1)
f:= byte[str1++]
if f >96
f^=32
f-=16 'anderer Zeichensatz, Zeichen um -16 Positionen versetzt
if d>39 'wenn Bildschirmrand erreicht, neue Zeile
d:=0
@ -677,13 +679,16 @@ con '************************************************** Button-Funktionen ******
PRI buttonpress(n)
case n
1:printfont(string("Start"),250,0,0,0,29)
1:printfont(string("Start "),250,0,0,0,29)
ios.displaytile(144,colors[shellhcol],250,colors[shellhcol],29,7)
2:printfont(@Abbr,250,0,0,buttonx[n],buttony[n])
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)
1:printfont(string("Start "),colors[hcolstatus],0,colors[statustextcol],0,29)
ios.displaytile(144,colors[shellhcol],colors[hcolstatus],colors[shellhcol],29,7)
2:printfont(@Abbr,colors[Buttonhcol],0,colors[buttontextcol],buttonx[n],buttony[n])
4:printfont(@butOK,colors[Buttonhcol],0,colors[buttontextcol],buttonx[n],buttony[n])

View File

@ -183,9 +183,9 @@ PRI os_cmdinput | x,y ,i,dk,key,sync,dcferror,bit_tmp,lvl_tmp,bit_num,bit_lvl,gt
printdec(gt_act,15,18,colors[winhcol],colors[act_color])
'####################### DCF-Empfangssymbol in der Titelleiste #########################################################
if sync==1
ios.displaytile(170,colors[Titelhcol],colors[titeltextcol],0,0,27)
ios.displaytile(170,colors[hcolstatus],green,0,29,34)
else
ios.displaytile(170,colors[titelhcol],grey,0,0,27) 'dcf-Symbol grau
ios.displaytile(170,colors[hcolstatus],grey,0,29,34) 'dcf-Symbol grau
'####################### DCF-Zeit anzeigen #############################################################################
dcf_time
@ -349,10 +349,10 @@ PRI displaytime|h,m,x,y
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(h,29,35,colors[hcolstatus],colors[statustextcol])
ios.displaytile(42,colors[hcolstatus],0,colors[statustextcol],29,37)
print_zehner(m,29,37,colors[hcolstatus],colors[statustextcol])
print_zehner(m,29,38,colors[hcolstatus],colors[statustextcol])
tmptime:=m
date
@ -463,6 +463,8 @@ PRI printfont(str1,a,b,c,d,e)|f
repeat strsize(str1)
f:= byte[str1++]
if f >96
f^=32
f-=16 'anderer Zeichensatz, Zeichen um -16 Positionen versetzt
if d>39 'wenn Bildschirmrand erreicht, neue Zeile
d:=0
@ -494,14 +496,14 @@ con '************************************************** Button-Funktionen ******
PRI buttonpress(n)
case n
1:printfont(string("Start "),250,0,0,0,29)
ios.displaytile(164,0,colors[shellhcol],250,29,7)
ios.displaytile(144,colors[shellhcol],250,colors[shellhcol],29,7)
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)
ios.displaytile(164,0,colors[shellhcol],colors[hcolstatus],29,7)
ios.displaytile(144,colors[shellhcol],colors[hcolstatus],colors[shellhcol],29,7)
4:printfont(@butOK,colors[Buttonhcol],0,colors[buttontextcol],buttonx[n],buttony[n])

File diff suppressed because it is too large Load Diff

View File

@ -51,6 +51,8 @@ sndnfo = $21200
prgnfo = $21400
Verz_RAM = $21800
MENU_RAM = $22000
'-------- Speicher für DLL-Namen ----------------
DLL_RAM = $30000
'-------- Speicher für Titelliste ---------------
DMP_RAM = $40000
'-------- Speicher für Screensaver --------------
@ -59,10 +61,10 @@ SCREEN_SV = $63000
SYS_FONT = $66800 '....$693FF ' ab hier liegt der System-Font 11kb
MOUSE_RAM = $69400 '....$6943F ' User-Mouse-Pointer 64byte
'-------- Speicher für Dateiliste ---------------
DIR_RAM = $69440 '....$6AFFF
MOUSE_RAM = $69400 '....$6943F ' User-Mouse-Pointer 64byte
'-------- YMODEM Temp-Speicher ------------------
YMODEM_RAM= $7E400 '... $7E417 Name, der zu sendenden Datei, Was soll gemacht werden(0Empfang,1Senden)+Dirmarker
@ -89,19 +91,20 @@ obj gc:"glob-con"
VAR
'systemvariablen
byte font[25] 'Hilfsstring für Strings aus dem Ram
byte colors[14]
byte colors[15]
long systemdir 'Systemverzeichnis-Marker
dat
ini byte "reg.ini",0 'Ini-Datei für Farbwerte, Dateiverknüpfungen und Systemeinstellungen
errortxt byte "reg.err",0
' Trash byte "TRASH ",0
video_inf byte "VIDEO.NFO",0
prg_inf byte "prg.nfo",0
sound_nfo byte "sound.nfo",0
plexus byte "plexus.dll",0
video_inf byte "VIDEO.NFO",0 'Grafikinfo
prg_inf byte "prg.nfo",0 'Programminfo
sound_nfo byte "sound.nfo",0 'Soundinfo
dll_lst byte "dll.lst",0 'Dll-Namensliste
plexus byte "plexus.dll",0 'Plexus-Hauptprogramm
SYSTEM Byte "PLEXUS ",0 'Plexus-Systemverzeichnis
Version byte "Version 2.06",0
Version byte "Version 2.1",0
sysfont byte "reg.fnt",0
scrsaver byte "plexus.dat",0
@ -130,18 +133,21 @@ PUB main | i,a
ios.ram_fill(TXT_RAM,$2000,0) 'Error-Text-Speicher löschen
ios.ram_fill(LINK_RAM,$ff,0) 'Link-Speicher löschen
ios.ram_fill(MENU_RAM,$500,0) 'Menue-Text-Speicher löschen
ios.ram_fill(dll_RAM,$300,0) 'Dll-Namen löschen
ios.ram_fill(YMODEM_RAM,$30,0) 'YMODEM-RAM löschen
'--------------------------------------------------------------------------------------
activate_dirmarker(systemdir) 'nach dem Neustart von Administra wieder ins Systemverzeichnis springen
ios.sdopen("R",@errortxt)
fileload_err(TXT_RAM) 'Fehler-Texte laden
fileload_err(TXT_RAM,25) 'Fehler-Texte laden
ios.sdopen("R",@video_inf)
fileload(vidnfo) 'Video-Info laden
ios.sdopen("R",@sound_nfo)
fileload(sndnfo) 'Sound-Info laden
ios.sdopen("R",@prg_inf)
fileload(prgnfo) 'Programm-Info laden
ios.sdopen("R",@dll_lst)
fileload_err(DLL_RAM,16) 'dll-namen laden
'***************** Initialisierung ohne Ini-Datei ****************************
if iniload 'wenn keine Ini da ist, standardwerte setzen
colors[0]:=light_blue
@ -202,7 +208,7 @@ PUB main | i,a
ios.setpos(21,12)
ios.print(string("for Hive-Computer"))
ios.printBoxcolor(0,orange,light_red,95)
ios.setpos(24,14)
ios.setpos(24,15)
ios.print(@version)
ios.printBoxcolor(0,orange,light_orange,95)
@ -214,7 +220,7 @@ PUB main | i,a
ios.sdopen("R",@plexus) 'Plexus.Dll öffnen
ios.ldbin(@plexus) 'Plexus laden
ios.stop
{
#$FC, Light_Grey, #$A8, Grey, #$54, Dark_Grey
#$C0, Light_Red, #$80, Red, #$40, Dark_Red
@ -233,7 +239,7 @@ PRI fileload(adr)|cont
ios.sdxgetblk(adr,cont)
ios.sdclose
PRI fileload_err(adr)| cont,c,b,a,i
PRI fileload_err(adr,st)| cont,c,b,a,i
i:=adr
b:=0
@ -242,7 +248,7 @@ PRI fileload_err(adr)| cont,c,b,a,i
if a==$0A
b++
i:=adr+(25*b)
i:=adr+(st*b)
next
else
ios.ram_wrbyte(a,i++)
@ -303,6 +309,8 @@ PRI iniload:err|i,tmp
ios.ram_wrbyte(ios.sdgetc,tmp++)
'---- HC05-Bluetooth-Modul -------------------------
ios.ram_wrbyte(ios.sdgetc,tmp++)
'---- Extended Titlebar-Anzeige --------------------
ios.ram_wrbyte(ios.sdgetc,tmp++)
ios.sdclose

1408
source/SignalGenerator.spin Normal file

File diff suppressed because it is too large Load Diff

66
source/Switch_Plexus.spin Normal file
View File

@ -0,0 +1,66 @@
{{
┌──────────────────────────────────────────────────────────────────────────────────────────────────────┐
│ Autor: Reinhard Zielinski │
│ Copyright (c) 2013 Reinhard Zielinski │
│ See end of file for terms of use. │
│ Die Nutzungsbedingungen befinden sich am Ende der Datei │
└──────────────────────────────────────────────────────────────────────────────────────────────────────┘
Informationen : hive-project.de
Kontakt : zille09@gmail.com
System : TriOS
Name : PLEXUS - Zentrale Kommunikationseinheit der Borg
Chip : Regnatix
Typ : Programm
Version : 01
Subversion : 00
Funktion : "Programm schaltet von TRIOS zu Plexus um
Logbuch :
################################################### Version 1.00 ################################################################################################################
}}
OBJ
ios: "reg-ios"
CON
_CLKMODE = XTAL1 + PLL16X
_XINFREQ = 5_000_000
VAR
'----------- Verzeichnismarker --------------------------------
long rootdir 'root-Dirmarker
long systemdir 'system-Dirmarker
DAT
sys_file byte "reg.sys",0 'Plexus oder Trios-Startdatei
sys_tmp byte "reg.tmp",0 'temporäre Plexus-Startdatei
sys_trs byte "reg.trs",0 'temporäre TRIOS-Startdatei
PUB Main|e,err
activate_dirmarker(0)
ios.sdrename(@sys_file,@sys_trs)
e:=ios.os_error(ios.sdrename(@sys_tmp,@sys_file))
if e 'keine TRIOS-Startdatei vorhanden
ios.sdrename(@sys_trs,@sys_file) 'Tmp-Datei zurück in Sys
else
ios.admreset 'alle chips resetten
ios.belreset
waitcnt(cnt+clkfreq*3)
reboot
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)

110
source/Timer.spin Normal file
View File

@ -0,0 +1,110 @@
'' ===========================================================================
'' VGA High-Res Text UI Elements Base UI Support Functions v1.2
''
'' FILE: Timer.spin
'' Author: Allen Marincak
'' Copyright (c) 2009 Allen MArincak
'' See end of file for terms of use
'' ===========================================================================
''
'' ============================================================================
'' Timer function
'' ============================================================================
''
'' Starts a new cog to provide timing functionality.
''
'' There are 8 timers available, the code running on the new cog simply
'' decrements each timer value at the rate specified in the start() call.
''
'' Only the first object to create this needs to call the START method. That
'' will launch it on a new COG, other objects can reference it in the OBJ
'' section but do not need to start it, just call the public methods.
'' ============================================================================
_CLKMODE = XTAL1 + PLL16X
_XINFREQ = 5_000_000
DAT
' stack size determined StackLengthAJM.spin
cog long 0 'cog execute is running on
stack long 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
timers long 0,0,0,0,0,0,0,0,0,0,0,0 'timer values (16 bit)
PUB start( period ) : okay1|okay2
''
'' Launches TIMER TASK on new cog, returns 0 on error, else the cog that was
'' started up.
'' - period is the fractional part of a second to operate at
'' example: 10 = 1/10th of a second
'' 30 = 1/30th of a second
'' 100 = 1/100th of a second
longfill( @timers, 0, 12 )
cog := cognew( execute( period, @timers ), @stack ) + 1
okay1 := cog
Pub Stop
if Cog==-1
return
cogstop(Cog)
Cog:=-1
PUB set( tmrid, val )
'' Sets a registered timer with a 16 bit value.
timers[tmrid] := val
PUB isClr( tmrid ): clr
'' Checks the status of the registered timer.
'' returns 1 if it has expired (zeroed)
'' 0 if is still running
if timers[tmrid] == 0
clr:= 1
PUB read( tmrid )
'' returns the current count of a registered timer.
return timers[tmrid]
PRI execute( period, ptr_tmrs ) | idx
'' new cog executes this, it just decrements the timers
' __________________ Korrekturwert
repeat '|
waitcnt( cnt + clkfreq / (period))' + 655))
repeat idx from 0 to 11
if idx<8
if long[ptr_tmrs][idx] <> 0
long[ptr_tmrs][idx] -= 1
else
long[ptr_tmrs][idx]+=1
{{
┌────────────────────────────────────────────────────────────────────────────┐
│ 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. │
└────────────────────────────────────────────────────────────────────────────┘
}}

View File

@ -1,252 +0,0 @@
{{
┌──────────────────────────────────────────────────────────────────────────────────────────────────────┐
│ Autor: Ingo Kripahle Anpassungen:Reinhard Zielinski │
│ Copyright (c) 2013 Ingo Kripahle │
│ See end of file for terms of use. │
│ Die Nutzungsbedingungen befinden sich am Ende der Datei │
└──────────────────────────────────────────────────────────────────────────────────────────────────────┘
Informationen : hive-project.de
Kontakt : zille9@googlemail.com
System : Hive
Name : Bus-Erweiterung für Hive-Computer
Chip : Venatrix-Bus-Protokoll
Typ : EEProm-Urfile
Version : 00
Subversion : 01
Funktion : Bus-System für Erweiterungsmodule
Der integrierte Loader kann Venatrix mit einem beliebigen Code versorgen
COG's : MANAGMENT 1 COG
-------------------
1 COG
}}
CON
_CLKMODE = XTAL1 + PLL16X
_XINFREQ = 5_000_000
' /cs --------+
' clk -------+|
' /wr ------+||
' /hs -----+||| +------------------------- /cs ->bei Venatrix P24 statt P23
' |||| | -------- d0..d7
DB_IN = %00001000_00000000_00000000_00000000 'maske: dbus-eingabe
DB_OUT = %00001000_00000000_00000000_11111111 'maske: dbus-ausgabe
M1 = %00000010_00000000_00000000_00000000 'busclk=1? & /cs=0?
M2 = %00000011_00000000_00000000_00000000 'maske: busclk & /cs (/prop4)
M3 = %00000000_00000000_00000000_00000000 'busclk=0?
M4 = %00000010_00000000_00000000_00000000 'maske busclk
#24, BUS_CS 'Chip-Select
BUSCLK 'bustakt
BUS_WR '/wr - schreibsignal
BUS_HS ' '/hs - quittungssignal
STRCOUNT =64 'Größe des Stringpuffers
Var
byte proghdr[16] 'puffer für objektkopf
long plen 'länge datenblock loader
byte strpuffer[STRCOUNT] 'stringpuffer
PUB bus_init 'bus: initialisiert bussystem
{{bus_init - bus: initialisierung aller bussignale }}
dira:= db_in ' datenbus auf eingabe schalten
outa[bus_hs] := 1 ' handshake inaktiv ,frida
'outa[23..8] := 0 ' Port 2 und 3 Null setzen
PUB bus_putchar(zeichen) 'chip: ein byte über bus ausgeben
''funktionsgruppe : chip
''funktion : senderoutine für ein byte zu regnatix über den systembus
''eingabe : byte zeichen
''ausgabe : -
waitpeq(M1,M2,0) 'busclk=1? & /prop1=0?
dira := db_out 'datenbus auf ausgabe stellen
outa[7..0] := zeichen 'daten ausgeben
outa[bus_hs] := 0 'daten gültig
waitpeq(M3,M4,0) 'busclk=0?
dira := db_in
outa[bus_hs] := 1 'daten ungültig
PUB bus_getchar : zeichen 'chip: ein byte über bus empfangen
''funktionsgruppe : chip
''funktion : emfangsroutine für ein byte von regnatix über den systembus
''eingabe : -
''ausgabe : byte zeichen
waitpeq(M1,M2,0) 'busclk=1? & prop4=0?
zeichen := ina[7..0] 'daten einlesen
outa[bus_hs] := 0 'daten quittieren
waitpeq(M3,M4,0) 'busclk=0?
outa[bus_hs] := 1
PUB bus_putstr(stradr) | len,i 'bus: string zu administra senden
len := strsize(stradr)
bus_putchar(len)
repeat i from 0 to len - 1
bus_putchar(byte[stradr++])
PUB bus_getstr: stradr | len,i 'bus: string von administra empfangen
len := bus_getchar 'längenbyte empfangen
repeat i from 0 to len - 1 '20 zeichen dateinamen empfangen
strpuffer[i] := bus_getchar
strpuffer[i] := 0
return @strpuffer
PUB bus_getword: wert 'bus: 16 bit von bellatrix empfangen hsb/lsb
wert := bus_getchar << 8
wert := wert + bus_getchar
PUB bus_putword(wert) 'bus: 16 bit an bellatrix senden hsb/lsb
bus_putchar(wert >> 8)
bus_putchar(wert)
PUB bus_getlong: wert 'bus: long von bellatrix empfangen hsb/lsb
wert := bus_getchar << 24 '32 bit empfangen hsb/lsb
wert := wert + bus_getchar << 16
wert := wert + bus_getchar << 8
wert := wert + bus_getchar
PUB bus_putlong(wert) 'bus: long an bellatrix senden hsb/lsb
bus_putchar(wert >> 24) '32bit wert senden hsb/lsb
bus_putchar(wert >> 16)
bus_putchar(wert >> 8)
bus_putchar(wert)
con'------------------------------------------------ Chiploader -------------------------------------------------------------------------------------------------------------------
PUB mgr_getcogs: cogs |i,c,cog[8] 'cmgr: abfragen wie viele cogs in benutzung sind
''funktionsgruppe : cmgr
''funktion : abfrage wie viele cogs in benutzung sind
''eingabe : -
''ausgabe : cogs - anzahl der cogs
''busprotokoll : [097][put.cogs]
'' : cogs - anzahl der belegten cogs
cogs := i := 0
repeat 'loads as many cogs as possible and stores their cog numbers
c := cog[i] := cognew(@entry, 0)
if c=>0
i++
while c => 0
cogs := i
repeat 'unloads the cogs and updates the string
i--
if i=>0
cogstop(cog[i])
while i=>0
PUB mgr_load|i 'cmgr: venatrix-loader
''funktionsgruppe : cmgr
''funktion : funktion um einen neuen code in bellatrix zu laden
''
' kopf der bin-datei einlesen ------------------------------------------------------
repeat i from 0 to 15 '16 bytes --> proghdr
byte[@proghdr][i] := bus_getchar
plen := 0
plen := byte[@proghdr + $0B] << 8
plen := plen + byte[@proghdr + $0A]
plen := plen - 8
' objektlänge an regnatix senden
bus_putchar(plen >> 8) 'hsb senden
bus_putchar(plen & $FF) 'lsb senden
repeat i from 0 to 7 'alle anderen cogs anhalten
ifnot i == cogid
cogstop(i)
dira := 0 'diese cog vom bus trennen
cognew(@loader, plen)
cogstop(cogid) 'cog 0 anhalten
DAT
org 0
loader
mov outa, M_0 'bus inaktiv
mov dira, DINP 'bus auf eingabe schalten
mov reg_a, PAR 'parameter = plen
mov reg_b, #0 'adresse ab 0
' datenblock empfangen
loop
call #get 'wert einlesen
wrbyte in, reg_b 'wert --> hubram
add reg_b, #1 'adresse + 1
djnz reg_a, #loop
' neuen code starten
rdword reg_a, #$A ' Setup the stack markers.
sub reg_a, #4 '
wrlong SMARK, reg_a '
sub reg_a, #4 '
wrlong SMARK, reg_a '
rdbyte reg_a, #$4 ' Switch to new clock mode.
clkset reg_a '
coginit SINT ' Restart running new code.
cogid reg_a
cogstop reg_a 'cog hält sich selbst an
get
waitpeq M_1, M_2 'busclk=1? & /cs=0?
mov in, ina 'daten einlesen
and in, DMASK 'wert maskieren
mov outa, M_3 'hs=0
waitpeq M_3, M_4 'busclk=0?
mov outa, M_0 'hs=1
get_ret ret
' /cs --------+
' clk -------+|
' /wr ------+||
' /hs -----+|||+------------------------- /cs ->geändert auf 24
' ||||| -------- d0..d7
DINP long %00001000000000000000000000000000 'constant dinp hex \ bus input
DOUT long %00001000000000000000000011111111 'constant dout hex \ bus output
M_0 long %00001000000000000000000000000000 'bus inaktiv
M_1 long %00000010000000000000000000000000
M_2 long %00000011000000000000000000000000 'busclk=1? & /cs=0?
M_3 long %00000000000000000000000000000000
M_4 long %00000010000000000000000000000000 'busclk=0?
DMASK long %00000000000000000000000011111111 'datenmaske
SINT long ($0001 << 18) | ($3C01 << 4) ' Spin interpreter boot information.
SMARK long $FFF9FFFF ' Stack mark used for spin code.
in res 1
reg_a res 1
reg_b res 1
Dat
' Entry: dummy-assemblercode fuer cogtest
'
entry jmp entry 'just loops

View File

@ -329,7 +329,7 @@ PRI time|s 'Zeitanzeige in der Statusleiste
if timezaehler>150
timezaehler:=0
s:=ios.getminutes
Status_extern(ios.dcf_sync,dcf_on,170,27,0,colors[titeltextcol],black) 'Anzeige des aktuellen Status in der Titelzeile
Status_extern(ios.dcf_sync,dcf_on,170,34,29,green,black) 'Anzeige des aktuellen Status in der Titelzeile
if s<>tmptime
displaytime
@ -338,10 +338,10 @@ 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(h,29,35,colors[hcolstatus],colors[statustextcol])
ios.displaytile(42,colors[hcolstatus],0,colors[statustextcol],29,37)
print_zehner(m,29,37,colors[hcolstatus],colors[statustextcol])
print_zehner(m,29,38,colors[hcolstatus],colors[statustextcol])
tmptime:=m
date
@ -364,12 +364,12 @@ pri print_zehner(wert,y,x,hin,vor)|a
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
ios.displaytile(tnr_act,colors[hcolstatus],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
ios.displaytile(tnr_act,colors[hcolstatus],grey,0,y,x) 'Symbol grau
else
ios.displaytile(16,colors[Titelhcol],colors[titeltextcol],0,y,x) 'Ohne externe Komponente arbeiten (kein Symbol)
ios.displaytile(16,colors[hcolstatus],colors[statustextcol],0,y,x) 'Ohne externe Komponente arbeiten (kein Symbol)
'printdec(dcf_on,1,1,colors[winhcol],colors[act_color])
con'
PRI doppelklick:click 'pseudo-doppelklick
@ -431,6 +431,8 @@ PRI printfont(str1,a,b,c,d,e)|f
repeat strsize(str1)
f:= byte[str1++]
if f >96
f^=32
f-=16 'anderer Zeichensatz, Zeichen um -16 Positionen versetzt
if d>39 'wenn Bildschirmrand erreicht, neue Zeile
d:=0
@ -461,12 +463,14 @@ con '************************************************** Button-Funktionen ******
PRI buttonpress(n)
case n
1:printfont(string("Start"),250,0,0,0,29)
1:printfont(string("Start "),250,0,0,0,29)
ios.displaytile(144,colors[shellhcol],250,colors[shellhcol],29,7)
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)
1:printfont(string("Start "),colors[hcolstatus],0,colors[statustextcol],0,29)
ios.displaytile(144,colors[shellhcol],colors[hcolstatus],colors[shellhcol],29,7)
4:printfont(@butOK,colors[Buttonhcol],0,colors[buttontextcol],buttonx[n],buttony[n])

View File

@ -1,452 +0,0 @@
{{
┌──────────────────────────────────────────────────────────────────────────────────────────────────────┐
│ Autor: Reinhard Zielinski -> Original-Code: Ingo Kripahle │
│ Copyright (c) 2013 Ingo Kripahle │
│ See end of file for terms of use. │
│ Die Nutzungsbedingungen befinden sich am Ende der Datei │
└──────────────────────────────────────────────────────────────────────────────────────────────────────┘
Informationen : hive-project.de
Kontakt : zille9@googlemail.com
System : Hive
Name : Bus-Erweiterung für Hive-Computer
Chip : Venatrix
Typ : Treiber
Version : 01
Subversion : 00
Funktion : Bus-System für Erweiterungsmodule
Der integrierte Loader kann Venatrix mit einem beliebigen Code versorgen
20-11-2013 -I2C-Slave Funktion hinzugefügt, damit die Bus-Karte vom Hive (Plexus) erkannt werden kann (Adresse 5)
22-03-2014 -HC05-Bluetoothmodul-Statuspin-Abfrage an Portpin 16 hinzugefügt
-IP-Stack von Joerg angefangen zu integrieren
-
COG's : MANAGMENT 1 COG
I2C-Slave 1 COG
IP-Stack 1 COG
-------------------
3 COG's
}}
CON
_CLKMODE = XTAL1 + PLL16X
_XINFREQ = 5_000_000
Treiberversion= %00010001
'Treiberdatum = 20122013
' /cs --------+
' clk -------+|
' /wr ------+||
' /hs -----+||| +------------------------- /cs ->bei Venatrix P24 statt P23
' |||| | -------- d0..d7
DB_IN = %00001000_00000000_00000000_00000000 'maske: dbus-eingabe
DB_OUT = %00001000_00000000_00000000_11111111 'maske: dbus-ausgabe
M1 = %00000010_00000000_00000000_00000000 'busclk=1? & /cs=0?
M2 = %00000011_00000000_00000000_00000000 'maske: busclk & /cs (/prop4)
M3 = %00000000_00000000_00000000_00000000 'busclk=0?
M4 = %00000010_00000000_00000000_00000000 'maske busclk
#0, D0,D1,D2,D3,D4,D5,D6,D7 'datenbus (Port A)
#8, B0,B1,B2,B3,B4,B5,B6,B7 'Port B
#16, C0,C1,C2,C3,C4,C5,C6,C7 'Port C
#24, BUS_CS 'Chip-Select
BUSCLK 'bustakt
BUS_WR '/wr - schreibsignal
BUS_HS ' '/hs - quittungssignal
SDA_PIN = 29
SCL_PIN = 28
'Netzwerk-Puffergrößen (müssen Vielfaches von 2 sein!)
rxlen = 2048
txlen = 128
CON 'Signaldefinitionen --------------------------------------------------------------------------
'signaldefinitionen administra (todo: nach glob-con.spin auslagern!!!)
'#20, A_NETCS,A_NETSCK,A_NETSI,A_NETSO 'Pins zum ENC28J60
CON 'NVRAM Konstanten --------------------------------------------------------------------------
' todo: nach glob-con.spin auslagern!!!
{
#4, NVRAM_IPADDR
#8, NVRAM_IPMASK
#12, NVRAM_IPGW
#16, NVRAM_IPDNS
#20, NVRAM_IPBOOT
#24, NVRAM_HIVE ' 4 Bytes
}
txpin = 9
rxpin = 8
Ack = 6
Error =15
obj
bus : "Venatrix-Bus" 'allgemeine Bus-Funktionen
i2c_slave: "i2c_slave_Venatrix"
' sock : "driver_socket" 'LAN
'gc : "glob-con" 'globale konstanten
' num : "glob-numbers" 'Number Engine
' ser : "FullDuplexSerialExtended"
Var
byte proghdr[16] 'puffer für objektkopf
long plen 'länge datenblock loader
' byte lan_started 'LAN gestartet?
' long sockhandle[sock#sNumSockets] 'Handle für mit sock.connect/sock.listen erstellten Socket
' byte bufidx[sock#sNumSockets] 'zum Handle-Index gehörender Puffer-abschnitt
'(zum Socket mit dem Handle 2 gehört der Pufferabschnitt aus bufidx[2])
' byte bufrx[rxlen*sock#sNumSockets] 'LAN Empfangspuffer
' byte buftx[txlen*sock#sNumSockets] 'LAN Sendepuffer
PUB main | zeichen,i 'chip: kommandointerpreter
''funktionsgruppe : chip
''funktion : kommandointerpreter
''eingabe : -
''ausgabe : -
bus.bus_init
'LAN
' lan_started := false 'LAN noch nicht gestartet
i2c_Slave.Start( SCL_PIN, SDA_PIN, $5)
' ser.start(rxpin, txpin, 0, 9600)
repeat
zeichen := bus.bus_getchar 'kommandocode empfangen
'if zeichen
'else
' zeichen:=bus.bus_getchar
case zeichen
10: bus.bus_putchar(Port2_In) 'Sende Port-Zustand 2
20: bus.bus_putchar(Port3_In) 'Sende Portzustand 3
30: Port2_Out(bus.bus_getchar) 'Setze Port 2
40: Port3_Out(bus.bus_getchar) 'Setze Port 3
50: bus.bus_putchar(HC05_Status) 'Status des HC05-Bluetooth-Moduls
' ---------------------------------------------- LAN-FUNKTIONEN
{ 71: lan_start 'Start Network
72: lan_stop 'Stop Network
73: lan_connect 'ausgehende TCP-Verbindung öffnen
74: lan_listen 'auf eingehende TCP-Verbindung lauschen
75: lan_waitconntimeout 'bestimmte Zeit auf Verbindung warten
76: lan_close 'TCP-Verbindung schließen
77: lan_rxtime 'bestimmte Zeit warten auf Byte aus Empfangspuffer
78: lan_rxdata 'Daten aus Empfangspuffer lesen
79: lan_txdata 'Daten senden
80: lan_rxbyte 'wenn vorhanden, Byte aus Empfangspuffer lesen
81: lan_isconnected 'TRUE, wenn Socket verbunden, sonst FALSE
}
' ---------------------------------------------- CHIP-MANAGMENT
96: bus.bus_putchar(bus.mgr_getcogs) 'freie cogs abfragen
97: bus.mgr_load 'neuen Venatrix-code laden
98: bus.bus_putlong(Treiberversion) 'Rückgabe Testwert (Version des Venatrix-Treibers)
99: reboot 'Venatrix neu starten
pri Port2_In:c
dira[8..15]~
c:=ina[15..8]
dira:=db_in
pri Port3_In:c
dira[16..23]~
c:=ina[23..16]
dira:=db_in
pri Port2_Out(char)
dira[8..15]~~
outa[8..15]:=char
dira:=db_in
pri Port3_Out(char)
dira[16..23]~~
outa[16..23]:=char
dira:=db_in
pri HC05_Status:c 'Rueckgabewert des HC05-Statuspin
dira[16]~
c:=ina[16]
dira:=db_in
CON ''------------------------------------------------- LAN-FUNKTIONEN
{PRI lan_start | hiveid, hivestr, strpos, macpos, i, a
''funktionsgruppe : lan
''funktion : Netzwerk starten
''eingabe : -
''ausgabe : -
''busprotokoll : [071]
if (not lan_started)
'Pufferindex zurücksetzen
i := 0
repeat sock#sNumSockets
bufidx[i++] := $FF '0xFF: nicht zugewiesen
'######################### Das hier muss nach Administra ################################
get_ip 'diese funktionen ersetzen den auskommentierten Teil
hiveid:=bus.bus_putchar(72) 'in Administra hiveid ermitteln und übertragen
{
'IP-Parameter setzen
if probeRTC
repeat a from 0 to 15
ip_addr[a] := rtc.getNVSRAM(NVRAM_IPADDR+a) ' fill addresses
hiveid := rtc.getNVSRAM(NVRAM_HIVE)
hiveid += rtc.getNVSRAM(NVRAM_HIVE+1) << 8
hiveid += rtc.getNVSRAM(NVRAM_HIVE+2) << 16
hiveid += rtc.getNVSRAM(NVRAM_HIVE+3) << 24
else
dmarker[UMARKER] := sdfat.getDirCluster 'u-marker setzen
ifnot dmarker[SMARKER] == TRUE 's-marker aktivieren
sdfat.setDirCluster(dmarker[SMARKER])
ifnot \sdfat.openFile(@strNVRAMFile, "R")
\sdfat.setCharacterPosition(NVRAM_IPADDR)
repeat a from 0 to 15
ip_addr[a] := \sdfat.readCharacter 'fill addresses
\sdfat.setCharacterPosition(NVRAM_HIVE)
hiveid := \sdfat.readCharacter
hiveid += \sdfat.readCharacter << 8
hiveid += \sdfat.readCharacter << 16
hiveid += \sdfat.readCharacter << 24
\sdfat.closeFile
ifnot dmarker[UMARKER] == TRUE 'U-marker aktivieren
sdfat.setDirCluster(dmarker[UMARKER])
nach Venatrix senden: ip_addr[0]..[15], hiveid
}
'########################################################################################
hivestr := num.ToStr(hiveid, num#DEC)
strpos := strsize(hivestr)
macpos := 5
repeat while (strpos AND macpos)
strpos--
if(strpos)
strpos--
mac_addr[macpos] := num.FromStr(hivestr+strpos, num#HEX)
byte[hivestr+strpos] := 0
macpos--
sock.start(A_NETCS,A_NETSCK,A_NETSI,A_NETSO, -1, @mac_addr, @ip_addr)
lan_started := true
PRI get_ip|i
bus.bus_putchar(71) 'ip-adresse von Administra empfangen
repeat i from 0 to 15
ip_addr[i]:=bus.bus_getchar
PRI lan_stop
''funktionsgruppe : lan
''funktion : Netzwerk anhalten
''eingabe : -
''ausgabe : -
''busprotokoll : [072]
if lan_started
sock.stop
lan_started := false
PRI lan_connect | ipaddr, remoteport, handle, handleidx, i
''funktionsgruppe : lan
''funktion : ausgehende TCP-Verbindung öffnen (mit Server verbinden)
''eingabe : -
''ausgabe : -
''busprotokoll : [073][sub_getlong.ipaddr][sub_getword.remoteport][put.handleidx]
'' : ipaddr - ipv4 address packed into a long (ie: 1.2.3.4 => $01_02_03_04)
'' : remoteport - port number to connect to
'' : handleidx - lfd. Nr. der Verbindung (index des kompletten handle)
ipaddr := bus.bus_getlong
remoteport := bus.bus_getword
'freien Pufferabschnitt suchen
i := 0
repeat sock#sNumSockets
if bufidx[i] == $FF '0xFF: nicht zugewiesen
quit
i++
ifnot (handle := sock.connect(ipaddr, remoteport, @bufrx[i*rxlen], rxlen, @buftx[i*txlen], txlen)) == -102
sock.resetBuffers(handle)
handleidx := handle.byte[0] 'extract the handle index from the lower 8 bits
sockhandle[handleidx] := handle 'komplettes handle zu handle index speichern
bufidx[i] :=handleidx
bus.bus_putchar(handleidx) 'handleidx senden
else
bus.bus_putchar($FF)
PRI lan_listen | port, handle, handleidx, i
''funktionsgruppe : lan
''funktion : Port für eingehende TCP-Verbindung öffnen
''eingabe : -
''ausgabe : -
''busprotokoll : [074][sub_getword.port][put.handleidx]
'' : port - zu öffnende Portnummer
'' : handleidx - lfd. Nr. der Verbindung (index des kompletten handle)
port := bus.bus_getword
'freien Pufferabschnitt suchen
i := 0
repeat sock#sNumSockets
if bufidx[i] == $FF '0xFF: nicht zugewiesen
quit
i++
ifnot (handle := sock.listen(port, @bufrx[i*rxlen], rxlen, @buftx[i*txlen], txlen)) == -102
handleidx := handle.byte[0] 'extract the handle index from the lower 8 bits
sockhandle[handleidx] := handle 'komplettes handle zu handle index speichern
bufidx[i] :=handleidx
bus.bus_putchar(handleidx) 'handleidx senden
else
bus.bus_putchar($FF)
PRI lan_waitconntimeout | handleidx, timeout, t, connected
''funktionsgruppe : lan
''funktion : bestimmte Zeit auf Verbindung warten
''eingabe : -
''ausgabe : -
''busprotokoll : [075][get.handleidx][sub_getword.timeout][put.connected]
'' : handleidx - lfd. Nr. der zu testenden Verbindung
'' : timeout - Timeout in Millisekunden
'' : connected - True, if connected
handleidx := bus.bus_getchar
timeout := bus.bus_getword
t := cnt
repeat until (connected := sock.isConnected(sockhandle[handleidx])) or (((cnt - t) / (clkfreq / 1000)) > timeout)
bus.bus_putchar(connected)
PRI lan_close | handleidx, i
''funktionsgruppe : lan
''funktion : TCP-Verbindung (ein- oder ausgehend) schließen
''eingabe : -
''ausgabe : -
''busprotokoll : [076][get.handleidx]
'' : handleidx - lfd. Nr. der zu schließenden Verbindung
handleidx := bus.bus_getchar
sock.close(sockhandle[handleidx])
'reservierten Pufferabschnitt freigeben
i := 0
repeat sock#sNumSockets
if bufidx[i++] == handleidx '0xFF: nicht zugewiesen
bufidx[i++] := $FF
quit
PRI lan_rxtime | handleidx, timeout, t, rxbyte
''funktionsgruppe : lan
''funktion : angegebene Zeit auf ASCII-Zeichen warten
'' : nicht verwenden, wenn anderes als ASCII (0 - 127) empfangen wird
''eingabe : -
''ausgabe : -
''busprotokoll : [077][get.handleidx][sub_getword.timeout][put.rxbyte]
'' : handleidx - lfd. Nr. der Verbindung
'' : timeout - Timeout in Millisekunden
'' : rxbyte - empfangenes Zeichen (0 - 127) oder
'' : sock#RETBUFFEREMPTY (-1) wenn Timeout oder keine Verbindung mehr
handleidx := bus.bus_getchar
timeout := bus.bus_getword
t := cnt
repeat until (rxbyte := sock.readByteNonBlocking(sockhandle[handleidx])) => 0 or (not sock.isConnected(sockhandle[handleidx])) or (cnt - t) / (clkfreq / 1000) > timeout
bus.bus_putchar(rxbyte)
PRI lan_rxdata | handleidx, len, rxbyte, error
''funktionsgruppe : lan
''funktion : bei bestehender Verbindung die angegebene Datenmenge empfangen
''eingabe : -
''ausgabe : -
''busprotokoll : [078][get.handleidx][sub_getlong.len][put.byte1][put.byte<len>][put.error]
'' : handleidx - lfd. Nr. der Verbindung
'' : len - Anzahl zu empfangender Bytes
'' : error - ungleich Null bei Fehler
error := FALSE
handleidx := bus.bus_getchar
len := bus.bus_getlong
repeat len
ifnot error
repeat while (rxbyte := sock.readByteNonBlocking(sockhandle[handleidx])) < 0
ifnot sock.isConnected(sockhandle[handleidx])
error := sock#ERRSOCKETCLOSED
quit
bus.bus_putchar(rxbyte)
bus.bus_putchar(error)
PRI lan_txdata | handleidx, len, txbyte, error
''funktionsgruppe : lan
''funktion : bei bestehender Verbindung die angegebene Datenmenge senden
''eingabe : -
''ausgabe : -
''busprotokoll : [079][get.handleidx][sub_getlong.len][get.byte1][get.byte<len>][put.error]
'' : handleidx - lfd. Nr. der Verbindung
'' : len - Anzahl zu sendender Bytes
'' : error - ungleich Null bei Fehler
error := FALSE
handleidx := bus.bus_getchar
len := bus.bus_getlong
repeat len
txbyte := bus.bus_getchar
ifnot error
repeat while sock.writeByteNonBlocking(sockhandle[handleidx], txbyte) < 0
ifnot sock.isConnected(sockhandle[handleidx])
error := sock#ERRSOCKETCLOSED
quit
bus.bus_putchar(error)
PRI lan_rxbyte
''funktionsgruppe : lan
''funktion : wenn vorhanden, ein empfangenes Byte lesen
'' : nicht verwenden, wenn auch $FF empfangen werden kann
''eingabe : -
''ausgabe : -
''busprotokoll : [080][get.handleidx][put.rxbyte]
'' : handleidx - lfd. Nr. der Verbindung
'' : rxbyte - empfangenes Zeichen oder
'' : sock#RETBUFFEREMPTY (-1) wenn kein Zeichen vorhanden
bus.bus_putchar(sock.readByteNonBlocking(sockhandle[bus.bus_getchar]))
PRI lan_isconnected
''funktionsgruppe : lan
''funktion : Returns true if the socket is connected, false otherwise
''eingabe : -
''ausgabe : -
''busprotokoll : [081][get.handleidx][put.connected]
'' : handleidx - lfd. Nr. der Verbindung
'' : connected - TRUE wenn verbunden, sonst FALSE
bus.bus_putchar(sock.isConnected(sockhandle[bus.bus_getchar]))
DAT
long ' long alignment for addresses
ip_addr byte 10, 1, 1, 1 'ip
ip_subnet byte 255, 255, 255, 0 'subnet-maske
ip_gateway byte 10, 1, 1, 254 'gateway
ip_dns byte 10, 1, 1, 254 'dns
ip_boot long 0 'boot-server (IP address in long)
mac_addr byte $c0, $de, $ba, $be, $00, $00 'mac-adresse
}

View File

@ -537,7 +537,6 @@ pri Empfang_file|key,i,packet,crc,j,k,timer,bytes,done,zaehler,tmp,position
ios.sertx(ACK)
ios.sdclose
print_win(@fertig,10,14)
'waitcnt(cnt+clkfreq)
ausstieg
PRI UpdateCRC(data,crc):newcrc|i
@ -585,8 +584,6 @@ PRI Mouse_Release
repeat while ios.mouse_button(0) 'warten bis Maustaste losgelassen wird
pri ausstieg
'ios.restore_Area(8,7,32,15,BRAM)
'ios.display2dbox(colors[shellhcol], 1,1, 25,34,0)
ios.Mousepointer(hour_glass)
cmd_mount
activate_dirmarker(systemdir)
@ -665,6 +662,8 @@ PRI printfont(str1,a,b,c,d,e)|f
repeat strsize(str1)
f:= byte[str1++]
if f >96
f^=32
f-=16 'anderer Zeichensatz, Zeichen um -16 Positionen versetzt
if d>39 'wenn Bildschirmrand erreicht, neue Zeile
d:=0

View File

@ -263,6 +263,8 @@ PRI printfont(str1,a,b,c,d,e)|f
repeat strsize(str1)
f:= byte[str1++]
if f >96
f^=32
f-=16 'anderer Zeichensatz, Zeichen um -16 Positionen versetzt
if d>39 'wenn Bildschirmrand erreicht, neue Zeile
d:=0
@ -325,12 +327,19 @@ con '************************************************** Button-Funktionen ******
PRI buttonpress(n)
case n
1:printfont(string("Start"),250,0,0,0,29)
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)
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)
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)
4:printfont(@butOK,colors[Buttonhcol],0,colors[buttontextcol],buttonx[n],buttony[n])
@ -531,7 +540,7 @@ PRI time|s 'Zeitanzeige in der Statusleiste
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
Status_extern(ios.dcf_sync,dcf_on,170,34,29,green,black) 'Anzeige des aktuellen Status in der Titelzeile
if s<>tmptime
displaytime
@ -540,10 +549,10 @@ 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(h,29,35,colors[hcolstatus],colors[statustextcol])
ios.displaytile(42,colors[hcolstatus],0,colors[statustextcol],29,37)
print_zehner(m,29,37,colors[hcolstatus],colors[statustextcol])
print_zehner(m,29,38,colors[hcolstatus],colors[statustextcol])
tmptime:=m
date
@ -566,12 +575,12 @@ pri print_zehner(wert,y,x,hin,vor)|a
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
ios.displaytile(tnr_act,colors[hcolstatus],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
ios.displaytile(tnr_act,colors[hcolstatus],grey,0,y,x) 'Symbol grau
else
ios.displaytile(16,colors[Titelhcol],colors[titeltextcol],0,y,x) 'Ohne externe Komponente arbeiten (kein Symbol)
ios.displaytile(16,colors[hcolstatus],colors[statustextcol],0,y,x) 'Ohne externe Komponente arbeiten (kein Symbol)
con'****************************************************** Perplex-Funktionen *************************************************************************************************
PRI plx_map|ack,adr,n,i
@ -1090,18 +1099,7 @@ PUB os_testbas(stradr): flag | status,i,len 'sys: test ob kommando a
ios.ldbin(@BAS_RT)
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

582
source/extern.spin Normal file
View File

@ -0,0 +1,582 @@
{{
Template für externe Programme unter Plexus-Shell
}}
obj ios: "reg-ios-64"
con
'------------- 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
'******************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
'----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
'--------------------------------------------------------------------------------
var
byte mountmarker,tmptime
long rootdir 'root-Dirmarker
long userdir 'user-Dirmarker
byte colors[15] 'Farbwerte
byte ma,mb,mz 'Maus-Tasten und Scrollrad
byte buttonx[8] 'Knöpfe
byte buttony[8]
byte windownum[8] 'Arbeits-Windows
byte windowx[8]
byte windowy[8]
byte windowxx[8]
byte windowyy[8]
byte messagex 'x-Position der Messagebox
byte tag,monat,stunde,minute sekunde 'Datum -und Zeit
word jahr
byte menuemarker 'Marker für Startmenue
byte menuey[10] 'y-Koordinate für Start-Menue-Einträge
byte popupx 'x und
byte popupy 'y-Koordinaten des Popupmenues
byte popupmarker 'Marker für Popupmenue
byte menue_nr 'nr des gerade angezeigten Menues
byte infomarker
dat
' ini byte "reg.ini",0 'Ini-Datei für Farbwerte
regsys byte "plexus.dll",0 'Reg.sys für Rückkehr aus externem Programm
butOK byte " OK ",0
Abbr byte "Cancel",0
PUB main
ios.start
ios.sdmount 'sd-card mounten
mountmarker:=1 'mount-marker
if ios.admgetspec<>ADM_SPEC 'ADM-Spezifikation SID?
ios.admreset'ios.admload(@adm) 'Administracode wird im EEPROM erwartet
if ios.bel_get<>64 'BEL-Treiber 64 farben Tile ?
ios.belreset 'Bellatrixcode wird im EEPROM erwartet
'--------------------------------------------------------------------------------------
rootdir:=get_dirmarker 'Dir-Marker für root Verzeichnis lesen
userdir:=rootdir 'User-Dir-Marker erst mal mit root vorbelegen
ios.sdunmount
'--------------------------------------------------------------------------------------
ios.sdmount
iniload 'Ini-Datei mit Farbwerten laden
buttonweg
testfenster
repeat
os_cmdinput 'Hauptprogrammschleife
PRI os_cmdinput | x,y ,i,dk,util
repeat
time 'Zeit und Datum anzeigen
ma:=ios.mouse_button(0) 'linke Maustaste
mb:=ios.mouse_button(1) 'rechte Maustaste
mz:=ios.mousez 'scrollrad
'***************************** linke Maustaste **********************************************************************
if ma==255
dk:=0
x:=ios.mousex
y:=ios.mousey
repeat i from 1 to 7 'Abfrage auf Fensterloeschen
if windownum[i]==1
if (x==windowxx[i]) and (y==windowy[i])
windowloesch(i)
ios.sdopen("r",@regsys)
ios.ldbin(@regsys)
if (x==windowx[i]) and (y==windowy[i])
dk:=doppelklick
if dk>1
windowloesch(i)
ios.sdopen("r",@regsys)
ios.ldbin(@regsys)
'****************************** Startmenue anzeigen ************************************************************
if menuemarker==1
if x>10 or y<14 'Menue loeschen, wenn man woanders hinklickt
menueweg
testfenster
if x=>0 and x=<10 and y=>14 and y=<28
repeat i from 0 to 5
if menuey[i]==y
util:=0 'eventuelle Utilitie-Fenster deaktivieren
case i
0:menueselect(string(" -EXIT- "),menuey[i])
windowloesch(7)
ios.sdopen("r",@regsys)
ios.ldbin(@regsys)
'windowloesch(7)
'****************************** IO-Port-Fenster ****************************************************************
if y==4
if x==3 or x==20
toogle_board(x)
'****************************** Globale Funktionstasten ********************************************************
if (x==39) and (y==0) 'Beenden-Knopf
ios.sdopen("r",@regsys)
ios.ldbin(@regsys)
if (x==0) and (y==0) 'Beenden bei Doppelklick auf linke obere Ecke
dk:=doppelklick
if dk>1
ios.sdopen("r",@regsys)
ios.ldbin(@regsys)
if ((x=>0) and (x=<5)) and (y==29) 'Start-Knopf
buttonpress(3)
if menuemarker==1
'fensterweg
Menueweg
testfenster
else
fensterweg
startmenue
menuemarker:=1
'****************************** Globale Abfrage OK und Cancel-Button *****************************
if(x=>buttonx[1]) and (x=<buttonx[1]+5) and (y==buttony[1]) 'ok
buttonpress(1)
if windownum[2]==1
ios.restore(windowx[2],windowy[2],windowxx[2],windowyy[2])
popup_info_weg
if(x=>buttonx[2]) and (x=<(buttonx[2]+6)) and (y==buttony[2]) 'cancel
buttonpress(2)
fensterweg
testfenster
pri toogle_board(tg)
case tg
3:ios.displaytile(138,colors[winhcol],colors[winhcol],255,4,3)
ios.displaytile(Cog_pic,colors[winhcol],colors[winhcol],255,4,20)
20:ios.displaytile(Cog_pic,colors[winhcol],colors[winhcol],255,4,3)
ios.displaytile(138,colors[winhcol],colors[winhcol],255,4,20)
pri testfenster|i
'dira[24]~
'i:=ina[24]
window(7,4,1,27,38,string("I/O-Card-Test"))
rahmen (1,6,37,25)
rahmen (1,3,37,5)
rahmen (3,8,18,18)
'ios.displaytile(COG_PIC,winhcol,red,0,8+i+i,19+cogs-1)
ios.displaytile(138,colors[winhcol],colors[winhcol],255,4,3)
printfont(string("Sepia-Card"),colors[winhcol],0,colors[act_color],4,4)
'printdec(i,20,20,colors[hcolstatus],colors[statustextcol])
ios.displaytile(Cog_pic,colors[winhcol],colors[winhcol],255,4,20)
printfont(string("Venatrix-Card"),colors[winhcol],0,colors[act_color],21,4)
'y,x
ios.displaytile(COG_PIC,colors[winhcol],green,0,10,6)
ios.displaytile(COG_PIC,colors[winhcol],green,0,11,5)
ios.displaytile(COG_PIC,colors[winhcol],green,0,11,7)
ios.displaytile(COG_PIC,colors[winhcol],green,0,12,6)
ios.displaytile(COG_PIC,colors[winhcol],green,0,14,6)
printfont(string("Port 1"),colors[winhcol],0,colors[act_color],4,16)
ios.displaytile(COG_PIC,colors[winhcol],green,0,10,14)
ios.displaytile(COG_PIC,colors[winhcol],green,0,11,13)
ios.displaytile(COG_PIC,colors[winhcol],green,0,11,15)
ios.displaytile(COG_PIC,colors[winhcol],green,0,12,14)
ios.displaytile(COG_PIC,colors[winhcol],green,0,14,14)
printfont(string("Port 2"),colors[winhcol],0,colors[act_color],12,16)
printfont(string("Joystick-Test"),colors[winhcol],0,colors[act_color],4,8)
'printfont(string("eingebettetes Programm"),colors[winhcol],0,colors[act_color],3,5)
con'****************************************************** Datum und Zeitanzeige *************************************************************************************************
PRI time|s 'Zeitanzeige in der Statusleiste
s:=ios.getminutes
if s<>tmptime
displaytime
PRI displaytime|h,m,x,y
h:=ios.gethours
m:=ios.getminutes
if h<10
printdec(0,29,34,colors[hcolstatus],colors[statustextcol])
y:=1
else
y:=0
printdec(h,29,34+y,colors[hcolstatus],colors[statustextcol])
ios.displaytile(42,colors[hcolstatus],0,colors[statustextcol],29,36)
if m<10
printdec(0,29,37,colors[hcolstatus],colors[statustextcol])
x:=1
else
x:=0
printdec(m,29,37+x,colors[hcolstatus],colors[statustextcol])
tmptime:=m
date
PRI date|t,m,j,y,x
t:=ios.getdate
m:=ios.getmonth
j:=ios.getyear
if t<10
printdec(0,0,29,colors[titelhcol],colors[titeltextcol])
y:=1
else
y:=0
printdec(t,0,29+y,colors[titelhcol],colors[titeltextcol])
ios.displaytile(30,colors[titelhcol],0,colors[titeltextcol],0,31)
if m<10
printdec(0,0,32,colors[titelhcol],colors[titeltextcol])
x:=1
else
x:=0
printdec(m,0,32+x,colors[titelhcol],colors[titeltextcol])
ios.displaytile(30,colors[titelhcol],0,colors[titeltextcol],0,34)
printdec(j,0,35,colors[titelhcol],colors[titeltextcol])
con '*********************************************** Fenster-Lösch-Funktionen ****************************************************************************************************
PRI windowloesch(num) 'einzelnes Fenster löschen
ios.display2dbox(colors[shellhcol], windowy[num], windowx[num], windowyy[num], windowxx[num]) 'Fenster loeschen
'regal(colors[shellhcol],colors[panelcol],0,26,11)
if menuemarker==1
menueweg
win_paraloesch(num)
'muelleimer:=0
'util:=0
PRI win_paraloesch(num) 'Fensterparameter löschen
windownum[num]:=windowx[num]:=windowy[num]:=windowxx[num]:=windowyy[num]:=-1 'Windowwerte loeschen
PRI fensterweg|i 'alle gesetzten Fenster loeschen
repeat i from 1 to 7
if windownum[i]==1
windowloesch(i)
repeat i from 0 to 7
buttonx[i]:=-1
buttony[i]:=-1
con'
PRI doppelklick:click 'pseudo-doppelklick
click:=0
repeat while ios.mouse_button(0)>0
repeat 500
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(0,a++)
' repeat i from 0 to 4
' sys_set[i]:=ios.ram_rdbyte(0,a++)
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 cmd_mount :err 'cmd: mount
repeat 16
err:=ios.sdmount
ifnot err
mountmarker:=1
quit
else
' display_error(err)
quit
PRI cmd_unmount|err 'cmd: unmount
err:=ios.sdunmount
ifnot err
mountmarker:=0
else
'display_error(err)
PRI window(num,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.displaytile(0,colors[winhcol],0,colors[winframecol],y-2,x-1)
repeat i from x to xx
ios.displaytile(16,colors[Titelhcol],$ff,$ff,y-2,i)
ios.displaytile(1,colors[winhcol],0,colors[winframecol],y-2,xx+1)
repeat i from y-1 to yy
ios.displaytile(2,colors[winhcol],0,colors[winframecol],i,x-1)
ios.displaytile(77,colors[winhcol],0,colors[winframecol],i,xx+1)
repeat i from x-1 to xx
ios.displaytile(6,colors[winhcol],0,colors[winframecol],yy+1,i)
ios.displaytile(4,colors[winhcol],0,colors[winframecol],yy+1,x-1)
ios.displaytile(5,colors[winhcol],0,colors[winframecol],y-1,xx+1)
ios.displaytile(3,colors[winhcol],0,colors[winframecol],yy+1,xx+1)
ios.printBoxSize(num,y-1, x, yy, xx)
ios.printBoxColor(num,colors[act_color],colors[winhcol],0)
ios.printcursorrate(0)
ios.printchar(12) 'cls
windownum[num]:=1
printfont(strg,colors[titelhcol],0,colors[titeltextcol],x+1,y-2)
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
con '************************************************** Button-Funktionen ********************************************************************************************************
PRI button(n,btext,x,y)
printfont(btext,colors[buttonhcol],0,colors[buttontextcol],x,y)
buttonx[n]:=x
buttony[n]:=y
PRI buttonpress(n)|s
s:=0
case n
1: printfont(@butOK,250,0,0,buttonx[n],buttony[n])
2: printfont(@Abbr,250,0,0,buttonx[n],buttony[n])
3: printfont(string("START"),250,0,0,0,29)
s:=1
4: printfont(@butOK,250,0,0,buttonx[n],buttony[n])
{
5,6,7,8:ios.displaytile(144,colors[winhcol],250,0,taby[n-4],tabx[n-4])
printfont(@buttontext[n*6],250,0,0,buttonx[n],buttony[n])
ios.displaytile(145,colors[winhcol],250,0,taby[n-4],tabl[n-4])
s:=2
}
repeat while ios.mouse_button(0)>0
case s
1:printfont(string("START"),colors[hcolstatus],0,colors[statustextcol],0,29)
' 2:ios.displaytile(144,colors[winhcol],colors[buttonhcol],0,taby[n-4],tabx[n-4]) 'tab wiederherstellen
' printfont(@buttontext[n*6],colors[buttonhcol],0,colors[buttontextcol],buttonx[n],buttony[n])
' ios.displaytile(145,colors[winhcol],colors[buttonhcol],0,taby[n-4],tabl[n-4])
PRI abfrage:taste|a,x,y
repeat
a:=ios.mouse_button(0)
if a==255
x:=ios.mousex
y:=ios.mousey
if(x=>buttonx[1]) and (x=<buttonx[1]+5) and (y==buttony[1]) 'ok
buttonpress(1)
taste:=1
quit
if(x=>buttonx[2]) and (x=<(buttonx[2]+6)) and (y==buttony[2]) 'cancel
buttonpress(2)
taste:=2
quit
fensterweg
ios.display2dbox(colors[shellhcol], 10, 7, 17, messagex)
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 menueweg
ios.display2dbox(colors[shellhcol],14,0,28,9)
menuemarker:=0
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)
repeat while ios.mouse_button(0)>0
printfont(stri,colors[messagehcol],0,colors[messagetextcol],0,y)
menueweg
PRI Startmenue
menue(0,26,9,28)
menuemarker:=1
printfont(string("Startmenue"),colors[titelhcol],0,colors[titeltextcol],0,25)
separator(0,26,9)
' printfont(string("Files"),messagehcol,0,messagetextcol,0,16)
' menuey[0]:=16
' separator(0,17,9)
' printfont(string("Baud"),messagehcol,0,messagetextcol,0,18)
' menuey[1]:=18
' separator(0,19,9)
' printfont(string("Settings"),messagehcol,0,messagetextcol,0,20)
' menuey[2]:=20
' separator(0,21,9)
' printfont(string("Programs"),messagehcol,0,messagetextcol,0,22)
' menuey[3]:=22
' separator(0,23,9)
' printfont(string("About"),messagehcol,0,messagetextcol,0,24)
' menuey[4]:=24
' separator(0,25,9)
printfont(string(" -EXIT- "),colors[messagehcol],0,colors[messagetextcol],0,27)
menuey[0]:=27
con '*************************************************** Popup-Menue *************************************************************************************************************
PRI popup(x,y,xx,yy)
ios.display2dbox(colors[messagehcol],y,x,yy,xx)
popupx:=x
popupy:=y
PRI popup_entry(num,strg,sep)
if sep==1
separator(popupx,popupy+num,popupx+6)
num+=1
printfont(strg,colors[messagehcol],0,colors[messagetextcol],popupx,popupy+num)
printfont(strg,colors[messagehcol],0,colors[messagetextcol],popupx,popupy+num)
'popentry[num]:=num
PRI Popup_Info_weg
if infomarker==1 'Infofenster sichtbar?
ios.restore(windowx[2],windowy[2],windowxx[2],windowyy[2]) 'Hintergrund wiederherstellen
'win_paraloesch(2) 'Info-Fenster-Parameter loeschen
infomarker:=0 'Marker loeschen
if popupmarker==1 'Popupmenue sichtbar?
ios.restore(popupx,popupy,popupx+6,popupy+7) 'Hintergrund wiederherstellen
popupmarker:=0 'Popupmarker loeschen
PRI popupselect(stri,x,y)
printfont(stri,colors[messagetextcol],0,colors[messagehcol],x,y)
repeat while ios.mouse_button(0)>0
printfont(stri,colors[messagehcol],0,colors[messagetextcol],x,y)
'popupmarker:=0
pri Buttonweg|i
repeat i from 0 to 7
buttonx[i]:=-1
buttony[i]:=-1
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)
con '---------------------------------------------- Ausgaberoutinen ---------------------------------------------------------------------------------------------------------------
PRI Win_Tile(nu,ty,tx)
ios.displaytile(nu,colors[winhcol],0,colors[act_color],ty,tx)
PRI FRAME_TILE(nu,ty,tx)
ios.displaytile(nu,colors[winhcol],0,colors[winframecol],ty,tx)
PRI TITEL_TILE(nu,ty,tx)
ios.displaytile(nu,colors[titelhcol],0,colors[titeltextcol],ty,tx)
PRI print_win(stradr,x,y)
printfont(stradr,colors[winhcol],0,colors[act_color],x,y)
PRI print_titel(stradr,x,y)
printfont(stradr,colors[titelhcol],0,colors[titeltextcol],x,y)
PRI Print_button(stradr,x,y)
printfont(stradr,colors[buttonhcol],0,colors[buttontextcol],x,y)
PRI print_status(stradr,x,y)
printfont(stradr,colors[hcolstatus],0,colors[statustextcol],x,y)
PRI print_message(stradr,x,y)
printfont(stradr,colors[messagehcol],0,colors[messagetextcol],x,y)
PRI printdec_win(n,y,x)
printdec(n,y,x,colors[winhcol],colors[act_color])
PRI printdec_titel(n,y,x)
printdec(n,y,x,colors[titelhcol],colors[titeltextcol])

1081
source/font-draw.spin Normal file

File diff suppressed because it is too large Load Diff

View File

@ -338,8 +338,6 @@ PUB start: wflag 'system: ios initialisieren
serial:=0 'serielle Schnittstelle geschlossen
ram_wrlong($7f54,$FFFFB)
'ram_wrbyte(0,$7f,$FFFFC)
sddmact(DM_USER) 'wieder in userverzeichnis wechseln
lflagadr := ram_rdlong(LOADERPTR) 'adresse der loader-register setzen
@ -809,16 +807,8 @@ PUB sdxgetblk(adr,count)|i 'sd-card: block lesen --
bus_putchar1(gc#a_SDGETBLK)
bus_putlong1(count) 'laenge der Datei in byte
repeat count
'rd_put(fnr,bus_getchar1)
ram_wrbyte(bus_getchar1,adr++)
'PUB rd_put(adr,wert) | adr,fix 'ramdisk: nächstes byte in datei schreiben
'********** muss modifiziert werden ********************
'fix := fnr * FTCNT
'adr := ftab[fix+0] + ftab[fix+2]
' ram_wrbyte(0,wert,adr)
'rd_seek(fnr,ftab[fix+2]+1)
con '*********************************************** Blocktransfer test **************************************************************************************************
PUB sdxputblk(adr,count) 'sd-card: block schreiben <-- eRAM
''funktionsgruppe : sdcard
@ -1124,7 +1114,33 @@ pub Set_Bluetooth_Command_Mode
bus_putchar1(gc#a_bl_Command_On)
pub Clear_Bluetooth_Command_Mode
bus_putchar1(gc#a_bl_Command_Off)
con'--------------------------------------------------- Funktionsgenerator --------------------------------------------------------------------------------------------------------
PUB Gen_Start_FunctionGenerator
bus_putchar1(gc#a_startFunctionGenerator)
PUB GEN_Stop_FunctionGenerator
bus_putchar1(gc#a_stopFunctionGenerator)
PUB Gen_SetPulseWidth(n)
bus_putchar1(gc#a_PulseWidth)
bus_putlong1(n)
PUB Gen_Frequency(n)
bus_putchar1(gc#a_Frequency_HZ)
bus_putlong1(n)
PUB Gen_DeziFrequency(n)
bus_putchar1(gc#a_Frequency_Centihz)
bus_putlong1(n)
PUB Gen_Waveform(n)
bus_putchar1(gc#a_SetWaveform)
bus_putchar1(n)
PUB Gen_DampLevel(n)
bus_putchar1(gc#a_SetDampLevel)
bus_putlong1(n)
PUB Gen_SetParameter(WaveformType, frequencyInHertz, dampLev, pulseWidthValue)
bus_putchar1(gc#a_setParameter)
bus_putchar1(WaveformType)
bus_putlong1(frequencyInHertz)
bus_putlong1(dampLev)
bus_putlong1(pulseWidthValue)
CON ''------------------------------------------------- LAN_FUNKTIONEN
PUB lanstart 'LAN starten
@ -2423,10 +2439,8 @@ PUB bus_getlong1: wert 'bus: long von administr
PUB bus_putlong1(wert) 'bus: long zu administra senden hsb/lsb
bus_putchar1(wert >> 24) '32bit wert senden hsb/lsb
bus_putchar1(wert >> 16)
bus_putchar1(wert >> 8)
bus_putchar1(wert)
repeat 4
bus_putchar1(wert <-= 8) '32bit wert senden hsb/lsb
PUB bus_getstr1: stradr | len,i 'bus: string von administra empfangen
@ -2537,11 +2551,14 @@ PUB bus_getlong2: wert 'bus: long von bellatrix
wert := wert + bus_getchar2
PUB bus_putlong2(wert) 'bus: long an bellatrix senden hsb/lsb
repeat 4
bus_putchar2(wert <-= 8) '32bit wert senden hsb/lsb
{
bus_putchar2(wert >> 24) '32bit wert senden hsb/lsb
bus_putchar2(wert >> 16)
bus_putchar2(wert >> 8)
bus_putchar2(wert)
}
PUB bus_getword3: wert 'bus: 16 bit von venatrix empfangen hsb/lsb
wert := bus_getchar3 << 8
@ -2560,11 +2577,14 @@ PUB bus_getlong3: wert 'bus: long von venatrix
wert := wert + bus_getchar3
PUB bus_putlong3(wert) 'bus: long an venatrix senden hsb/lsb
repeat 4
bus_putchar3(wert <-= 8) '32bit wert senden hsb/lsb
{
bus_putchar3(wert >> 24) '32bit wert senden hsb/lsb
bus_putchar3(wert >> 16)
bus_putchar3(wert >> 8)
bus_putchar3(wert)
}
PUB bus_getstr3: stradr | len,i 'bus: string von administra empfangen
len := bus_getchar3 'längenbyte empfangen

View File

@ -591,7 +591,7 @@ PRI time|s 'Zeitanzeige in der Statusleiste
if timezaehler>50
timezaehler:=0
s:=ios.getminutes
Status_extern(ios.dcf_sync,dcf_on,170,27,0,colors[titeltextcol],black) 'Anzeige des aktuellen Status in der Titelzeile
Status_extern(ios.dcf_sync,dcf_on,170,34,29,green,black) 'Anzeige des aktuellen Status in der Titelzeile
if s<>tmptime
displaytime
@ -600,10 +600,10 @@ 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(h,29,35,colors[hcolstatus],colors[statustextcol])
ios.displaytile(42,colors[hcolstatus],0,colors[statustextcol],29,37)
print_zehner(m,29,37,colors[hcolstatus],colors[statustextcol])
print_zehner(m,29,38,colors[hcolstatus],colors[statustextcol])
tmptime:=m
date
@ -626,12 +626,12 @@ pri print_zehner(wert,y,x,hin,vor)|a
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
ios.displaytile(tnr_act,colors[hcolstatus],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
ios.displaytile(tnr_act,colors[hcolstatus],grey,0,y,x) 'Symbol grau
else
ios.displaytile(16,colors[Titelhcol],colors[titeltextcol],0,y,x) 'Ohne externe Komponente arbeiten (kein Symbol)
ios.displaytile(16,colors[hcolstatus],colors[statustextcol],0,y,x) 'Ohne externe Komponente arbeiten (kein Symbol)
con'
PRI doppelklick:click 'pseudo-doppelklick
@ -692,6 +692,8 @@ PRI printfont(str1,a,b,c,d,e)|f
repeat strsize(str1)
f:= byte[str1++]
if f >96
f^=32
f-=16 'anderer Zeichensatz, Zeichen um -16 Positionen versetzt
if d>39 'wenn Bildschirmrand erreicht, neue Zeile
d:=0
@ -722,12 +724,14 @@ con '************************************************** Button-Funktionen ******
PRI buttonpress(n)
case n
1:printfont(string("Start"),250,0,0,0,29)
1:printfont(string("Start "),250,0,0,0,29)
ios.displaytile(144,colors[shellhcol],250,colors[shellhcol],29,7)
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)
1:printfont(string("Start "),colors[hcolstatus],0,colors[statustextcol],0,29)
ios.displaytile(144,colors[shellhcol],colors[hcolstatus],colors[shellhcol],29,7)
4:printfont(@butOK,colors[Buttonhcol],0,colors[buttontextcol],buttonx[n],buttony[n])