Plexus/source/Plexus-Start-Trios.spin

331 lines
16 KiB
Plaintext

{{
┌──────────────────────────────────────────────────────────────────────────────────────────────────────┐
│ 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 : Loader-Programm für Plexus - TRIOS-Version
Version : 01
Subversion : 01-TRIOS
Funktion : "Startdatei für PLEXUS - unter TRIOS lauffähig, startet den Administra- und Bellatrixcode von SD-Karte
Logbuch :
'############################################# Version 1.00 #################################################################################################################
04-08-2013 : -Erster Versuch der Herauslösung der Startfunktionen aus der eigentlichen Plexus-Shell, es werden alle Startparameter in den E-Ram geladen und dann
die eigentliche Shell gestartet
-Außerdem wird das Plexus-Logo beim Start angezeigt -> das sieht cool aus ;-)
16-08-2013 -LOGO wurde Borg-mäßig in grün geändert - nu is noch cooler ;-)
-Scrolltext für unser Motto hinzugefügt - nu is aber Schluss mit cool
'############################################# Version 1.01 #################################################################################################################
15-10-2013 -LOGO-Farbgebung geändert, jetzt bunter, weil Plexus Version 2.0 geladen wird
19-10-2013 -Fehler in Iniload behoben, es wurde der Venatrix- und Sepia-Marker an die falsche Stelle im Ram abgelegt
07-11-2013 -Fehldarstellung beim Löschen des Start-Logo's behoben (jetzt wird der Bildschirm mit der aktuellen Shell-Hintergrundfarbe gelöscht)
'############################################# VERSION 1.02 #################################################################################################################
19-03-2014 -Laderoutine für die Error-und Systemtexte geändert, jeder Text hat jetzt eine feste Adresse, ist beim laden zwar langsamer aber die Texte
-werden viel schneller aus dem Ram geladen und angezeigt, egal wieviele Texte vorhanden sind
}}
OBJ
ios: "reg-ios-64"
CON
_CLKMODE = XTAL1 + PLL16X
_XINFREQ = 5_000_000
'-------- Speicher für diverse Texte ------------
TXT_RAM = $20000
vidnfo = $21000
sndnfo = $21200
prgnfo = $21400
Verz_RAM = $21800
MENU_RAM = $22000
'-------- Speicher für Titelliste ---------------
DMP_RAM = $40000
'-------- Speicher für Screensaver --------------
SCREEN_SV = $63000
'-------- Speicher für Systemfont ---------------
SYS_FONT = $66800 '....$693FF ' ab hier liegt der System-Font 11kb
'-------- 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
LINK_RAM = $7FE00
PARA_RAM = $7FE40
SETTING_RAM = $7FF00 'Hier stehen die System-Settings
'Bereich 7FFF1-7FFFF 'Systemflags für Plexus und Basic
START_FLAG = $7FFFF 'Flag das Plexus schonmal gestartet wurde ->Logo unterdrücken
ADM_SPEC = gc#A_FAT|gc#A_LDR|gc#A_SID|gc#A_LAN|gc#A_RTC|gc#A_PLX'%00000000_00000000_00000000_11110011
'******************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
obj gc:"glob-con"
VAR
'systemvariablen
byte font[25] 'Hilfsstring für Strings aus dem Ram
byte colors[14]
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
SYSTEM Byte "PLEXUS ",0 'Plexus-Systemverzeichnis
Version byte "Version 2.06",0
sysfont byte "reg.fnt",0
scrsaver byte "plexus.dat",0
scroll byte "WE ARE BORG! YOU WILL BE ASSIMILATED. RESISTANCE IS FUTIL.",0
PUB main | i,a
ios.start
ios.sdmount 'sd-card mounten
activate_dirmarker(0)
ios.sdchdir(@system) 'in's System-Verzeichnis springen
systemdir:=get_dirmarker 'System-Dirmarker lesen
'activate_dirmarker(0)
if ios.admgetspec<>ADM_SPEC
ios.admload(string("plexus.adm")) 'Administracode laden
activate_dirmarker(systemdir) 'nach dem Neustart von Administra wieder ins Systemverzeichnis springen
if ios.bel_get<>88
ios.belload(string("plexus.bel")) 'Bellatrixcode laden
ios.ram_fill(DIR_RAM,$1BFF,0) 'Dir-Speicher löschen
ios.ram_fill(DMP_RAM,$1FFF,0) 'Dmp-File-Speicher löschen
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(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
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
'***************** Initialisierung ohne Ini-Datei ****************************
if iniload 'wenn keine Ini da ist, standardwerte setzen
colors[0]:=light_blue
colors[1]:=white
colors[2]:=light_blue
colors[3]:=white
colors[4]:=dark_blue
colors[5]:=white
colors[6]:=grey
colors[7]:=white
colors[8]:=white
colors[9]:=dark_blue
colors[10]:=blue
colors[11]:=white
colors[12]:=purple
colors[13]:=black
colors[14]:=grey
i:=SETTING_RAM
a:=0
repeat 15
ios.ram_wrbyte(colors[a++],i++)
ios.ram_wrbyte(7,i++) 'baudrate setzen auf 57600
ios.ram_wrbyte(1,i++) 'show hidden files
ios.ram_wrbyte(1,i++) 'use trash
ios.ram_wrbyte(0,i++) 'Venatrix nicht verwenden
ios.ram_wrbyte(0,i++) 'Sepia nicht verwenden
'****************** Hauptbildschirm ******************************************
ios.printBoxcolor(0,red,orange,95)
ios.printchar(12) 'cls
LoadTiletoRam(@sysfont,SYS_FONT) 'Systemfont auf jeden Fall in den Ram laden
'******************************************************************************
'*Wird Plexus aus beendeten Bin Dateien geladen, wird das Logo nicht angezeigt*
'******************************************************************************
if ios.ram_rdbyte(START_FLAG)<>235
LoadTiletoRam(@scrsaver,SCREEN_SV) 'Plexus-Logo in den Ram laden
loadtile(SCREEN_SV) 'Plexus-Logo nach Bella laden
ios.display2dbox(red,0,0,2,39,0)
ios.display2dbox(light_red,3,0,5,39,0)
ios.display2dbox(orange,6,0,9,39,0)
ios.display2dbox(dark_red,10,0,10,39,0)
ios.display2dbox(light_orange,11,0,18,39,0)
ios.display2dbox(dark_red,19,0,19,39,0)
ios.display2dbox(orange,20,0,23,39,0)
ios.display2dbox(light_red,24,0,26,39,0)
ios.display2dbox(red,27,0,29,39,0)
ios.displaypic(light_orange,black,0,11,10,8,22)'light_orange,0,11,10,8,22) 'Plexus-Logo anzeigen
ios.setpos(7,15)
ios.print(string("Welcome to"))
ios.setpos(21,12)
ios.print(string("for Hive-Computer"))
ios.printBoxcolor(0,orange,light_red,95)
ios.setpos(24,14)
ios.print(@version)
ios.printBoxcolor(0,orange,light_orange,95)
ios.scrollString(@scroll,4, light_orange, red, 27, 0, 39)
'************************* Plexus wird geladen *************************************
ios.printBoxcolor(0,0,ios.ram_rdbyte(SETTING_RAM),0)'ios.ram_rdbyte(0,colors[0],SETTING_RAM)
ios.printchar(12) 'cls
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
#$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
}
con '***************************************************** Diverse Texte in den E-Ram laden **************************************************************************************
PRI fileload(adr)|cont
cont:=ios.sdfattrib(0)
ios.sdxgetblk(adr,cont)
ios.sdclose
PRI fileload_err(adr)| cont,c,b,a,i
i:=adr
b:=0
repeat
a:=ios.sdgetc
if a==$0A
b++
i:=adr+(25*b)
next
else
ios.ram_wrbyte(a,i++)
until ios.sdeof
ios.sdclose
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)
con '********************************* Unterprogramme zur Tile-Verwaltung *********************************************************************************************************
PRI LoadTiletoRam(datei,adress) 'tile:=tilenr,dateiname,xtile-zahl,ytilezahl
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(adress) 'tileset aus eram in bella laden
'anzahl:=2816 'anzahl longs '(16*11*16longs)
ios.loadtilebuffer(adress,2816) 'laden 'Systemfont-Bereich (Basic verwendet den gleichen Bereich)
PRI iniload:err|i,tmp
if ios.sdopen("R",@ini)
err:=1
else
err:=0
i:=SETTING_RAM
'---- SYSTEM-SETTINGS IN DEN RAM LADEN -------------
repeat 18
ios.ram_wrbyte(ios.sdgetc,i++)
tmp:=i
'---- DESKTOP-VERKNÜPFUNGEN IN DEN RAM LADEN -------
i:=LINK_RAM
repeat 51
ios.ram_wrbyte(ios.sdgetc,i++)
'---- USER-MAUSZEIGER IN DEN RAM LADEN -------------
i:=MOUSE_RAM
repeat 64
ios.ram_wrbyte(ios.sdgetc,i++)
ios.Mousepointer(MOUSE_RAM) 'MAUSZEIGER ANWENDEN
ios.displaymouse(0,0)
'---- LINK-PARAMETER IN DEN RAM LADEN --------------
i:=PARA_RAM
repeat 192
ios.ram_wrbyte(ios.sdgetc,i++)
'---- DCF-Empfänger benutzen -----------------------
ios.ram_wrbyte(ios.sdgetc,tmp++)
'---- HC05-Bluetooth-Modul -------------------------
ios.ram_wrbyte(ios.sdgetc,tmp++)
ios.sdclose
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. │
└──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
}}