update to TriOS R57 changes
This commit is contained in:
Joerg Deckert
parent
43d016e23e
commit
8374973638
44
README.md
44
README.md
|
|
@ -1,25 +1,33 @@
|
|||
INHALT
|
||||
======
|
||||
|
||||
1. Installation des Grundsystems
|
||||
2. Regime im Überblick
|
||||
3. Forth im Überblick
|
||||
1. Installations-Varianten
|
||||
2. Installation des Grundsystems
|
||||
3. Regime im Überblick
|
||||
4. Forth im Überblick
|
||||
|
||||
|
||||
1. Installations-Varianten
|
||||
==========================
|
||||
|
||||
Zur Installation von TriOS auf dem Hive stehen 3 verschiedene Varianten zur
|
||||
Verfügung, welche am Ende aber dasselbe Ergebnis erzielen:
|
||||
|
||||
1. Installation des Grundsystems:
|
||||
=================================
|
||||
Binäres Archiv: HIVE-TriOS-Rxx-bin.zip
|
||||
Source-Archiv: HIVE-TriOS-Rxx-src.zip
|
||||
Git Repository: https://dev.bitquell.de/summary/HIVE/TriOS.git
|
||||
|
||||
TriOS kann in zwei Versionen installiert werden: Mit oder ohne Forth als
|
||||
integrierte Programmiersprache. Als Standard wird das System ohne Forth
|
||||
installiert. Die Installation ist so für den Einsteiger einfacher. Möchte
|
||||
man auch PropForth installieren, muß nur eine Konfiguration geändert werden
|
||||
und ein Basiswortschatz im Forth selbst kompiliert werden.
|
||||
Das binäre Archiv kann sofort installiert werden. Wer selbst an den Quellen
|
||||
Änderungen vornehmen, sollte stattdessen das Source-Archiv nutzen oder gleich
|
||||
das top-aktuelle Git Repository nutzen.
|
||||
|
||||
Bei Nutzung des Source-Archives oder des Git-Repository müssen die Quellen vor
|
||||
der Installation noch compiliert werden.
|
||||
|
||||
WICHTIG: Das System kann nur mit Brat's Spin Tool - kurz BST - compiliert
|
||||
werden. In den Einstellungen des Compilers (Tools/Compiler
|
||||
Preferences/Search Paths) muss das lib-Verzeichnis eingetragen werden.
|
||||
werden. In den Einstellungen des Compilers
|
||||
(Tools/Compiler Preferences/Search Paths) muss das lib-Verzeichnis eingetragen
|
||||
werden.
|
||||
|
||||
Downloadlink BST: http://www.fnarfbargle.com/bst.html
|
||||
|
||||
|
|
@ -30,6 +38,16 @@ Pfad befindet.
|
|||
Downloadlink BSTC: http://www.fnarfbargle.com/bst/bstc/Latest/
|
||||
|
||||
|
||||
2. Installation des Grundsystems:
|
||||
=================================
|
||||
|
||||
TriOS kann in zwei Versionen installiert werden: Mit oder ohne Forth als
|
||||
integrierte Programmiersprache. Als Standard wird das System ohne Forth
|
||||
installiert. Die Installation ist so für den Einsteiger einfacher. Möchte
|
||||
man auch PropForth installieren, muß nur ein Basiswortschatz im Forth selbst
|
||||
kompiliert werden.
|
||||
|
||||
|
||||
Installation ohne Forth (Standard):
|
||||
-----------------------------------
|
||||
|
||||
|
|
@ -185,7 +203,7 @@ tv.bin - TV-Textmodus 40 x 13 Zeichen
|
|||
|
||||
|
||||
|
||||
2. Forth im Überblick:
|
||||
4. Forth im Überblick:
|
||||
======================
|
||||
|
||||
Einige nützliche Kommandos befinden sich in dem Modul tools.mod. In den meisten
|
||||
|
|
|
|||
|
|
@ -269,14 +269,14 @@ CHIP_SPEC = CHIP_SPEC_FAT|CHIP_SPEC_LDR|CHIP_SPEC_HSS|CHIP_SPEC_WAV|CHIP_SPEC_SI
|
|||
' clk -------+|
|
||||
' /wr ------+||
|
||||
' /hs -----+||| +------------------------- /cs
|
||||
' |||| |+------------------------ adm-p22
|
||||
' |||| ||+----------------------- adm-p21 (io)
|
||||
' |||| |||+---------------------- adm-p20 (rx)
|
||||
' |||| ||||+--------------------- adm-p19 (tx)
|
||||
' |||| |+------------------------ adm-p22 (int2 - port 1/2)
|
||||
' |||| ||+----------------------- adm-p21 (int1 - port 3)
|
||||
' |||| |||+---------------------- adm-p20 (scl)
|
||||
' |||| ||||+--------------------- adm-p19 (sda)
|
||||
' |||| ||||| +------+ d0..d7
|
||||
' |||| ||||| | |
|
||||
DB_IN = %00001001_00100000_00000000_00000000 'dira-wert für datenbuseingabe
|
||||
DB_OUT = %00001001_00100000_00000000_11111111 'dira-wert für datenbusausgabe
|
||||
DB_IN = %00001001_00000000_00000000_00000000 'dira-wert für datenbuseingabe
|
||||
DB_OUT = %00001001_00000000_00000000_11111111 'dira-wert für datenbusausgabe
|
||||
|
||||
M1 = %00000010_00000000_00000000_00000000 'busclk=1? & /prop1=0?
|
||||
M2 = %00000010_10000000_00000000_00000000 'maske: busclk & /cs (/prop1)
|
||||
|
|
@ -347,7 +347,7 @@ OBJ
|
|||
com : "adm-com" 'serielle schnittstelle
|
||||
#endif
|
||||
#ifdef __ADM_LAN
|
||||
sock : "driver_socket" 'LAN
|
||||
sock : "adm-socket" 'LAN
|
||||
num : "glob-numbers" 'Number Engine
|
||||
#endif
|
||||
#ifdef __ADM_PLX
|
||||
|
|
@ -497,7 +497,7 @@ PUB main | cmd,err 'chip: kommandointerpret
|
|||
' ---------------------------------------------- LAN-FUNKTIONEN
|
||||
#ifdef __ADM_LAN
|
||||
gc#a_lanStart: lan_start 'Start Network
|
||||
gc#a_lanStop:lan_stop 'Stop Network
|
||||
gc#a_lanStop: lan_stop 'Stop Network
|
||||
gc#a_lanConnect: lan_connect 'ausgehende TCP-Verbindung öffnen
|
||||
gc#a_lanListen: lan_listen 'auf eingehende TCP-Verbindung lauschen
|
||||
gc#a_lanWaitConnTimeout: lan_waitconntimeout 'bestimmte Zeit auf Verbindung warten
|
||||
|
|
@ -553,7 +553,12 @@ PUB main | cmd,err 'chip: kommandointerpret
|
|||
gc#a_plxPing: plx_ping 'abfrage ob device vorhanden ist
|
||||
gc#a_plxSetAdr: plx_setAddr 'adressen adda/ports für poller setzen
|
||||
' ---------------------------------------------- GAMEDEVICES
|
||||
gc#a_Joy: joy_get 'Joystick abfragen (1 x 8bit Port)
|
||||
gc#a_Joy: plx_get_joy 'Joystick abfragen (1 x 8bit Port)
|
||||
gc#a_Paddle: plx_get_paddle 'Paddle abfragen (1 x 8bit Port 1 x Analog)
|
||||
gc#a_Pad: plx_get_pad 'Pad abfragen (1 x 8bit Port 2 x Analog)
|
||||
' ---------------------------------------------- Venatrix-Plexus
|
||||
gc#a_VexPut: plx_put_vex 'Register im Venatrix-Plexus schreiben
|
||||
gc#a_VexGet: plx_get_vex 'Register im Venatrix-Plexus lesen
|
||||
#endif '__ADM_PLX
|
||||
|
||||
' ---------------------------------------------- WAV-FUNKTIONEN
|
||||
|
|
@ -655,7 +660,7 @@ PRI init_chip | err,i,j 'chip: initialisierung d
|
|||
clr_dmarker 'dir-marker löschen
|
||||
sdfat.FATEngine
|
||||
repeat
|
||||
waitcnt(cnt + clkfreq/10)
|
||||
waitcnt(cnt + clkfreq)
|
||||
until sd_mount("B") == 0
|
||||
'err := sd_mount("B")
|
||||
'siglow(err)
|
||||
|
|
@ -694,6 +699,7 @@ PRI init_chip | err,i,j 'chip: initialisierung d
|
|||
#endif '__ADM_COM
|
||||
|
||||
#ifdef __ADM_PLX
|
||||
'plx-bus initialisieren
|
||||
plx.init 'defaultwerte setzen, poller-cog starten
|
||||
plx.run 'plexbus freigeben (poller läuft)
|
||||
#endif '__ADM_PLX
|
||||
|
|
@ -1378,7 +1384,7 @@ PRI sd_del | err 'sdcard: eine datei oder
|
|||
|
||||
sub_getstr
|
||||
err := \sdfat.deleteEntry(@tbuf)
|
||||
sighigh(err) 'fehleranzeige
|
||||
siglow(err) 'fehleranzeige
|
||||
bus_putchar(err) 'ergebnis der operation senden
|
||||
|
||||
PRI sd_rename | err 'sdcard: datei oder verzeichnis umbenennen
|
||||
|
|
@ -2426,13 +2432,34 @@ PRI plx_setAddr | adda, ports 'adressen adda/ports fü
|
|||
ports := bus_getchar 'address ports
|
||||
plx.setadr(adda,ports)
|
||||
|
||||
PRI joy_get | reg 'Joystick abfragen (1 x 8bit Port)
|
||||
PRI plx_get_joy 'Joystick abfragen (1 x 8bit Port)
|
||||
|
||||
bus_putchar(!plx.getreg(plx#R_INP0))
|
||||
|
||||
PRI plx_get_paddle 'Paddle abfragen (1 x 8bit Port 1 x Analog)
|
||||
|
||||
bus_putchar(!plx.getreg(plx#R_INP0))
|
||||
bus_putchar(plx.getreg(plx#R_PAD0))
|
||||
|
||||
PRI plx_get_pad 'Pad abfragen (1 x 8bit Port 2 x Analog)
|
||||
|
||||
bus_putchar(!plx.getreg(plx#R_INP0))
|
||||
bus_putchar(plx.getreg(plx#R_PAD0))
|
||||
bus_putchar(plx.getreg(plx#R_PAD1))
|
||||
|
||||
PRI plx_put_vex | data, reg, addr 'Register im Venatrix-Plexus schreiben
|
||||
|
||||
data := bus_getchar 'datum empfangen
|
||||
reg := bus_getchar 'registernummer empfangen
|
||||
addr := bus_getchar 'device-adresse ampfangen
|
||||
plx.vexput(data,reg,addr)
|
||||
|
||||
PRI plx_get_vex | reg, addr 'Register im Venatrix-Plexus lesen
|
||||
|
||||
reg := bus_getchar 'registernummer empfangen
|
||||
addr := bus_getchar 'device-adresse empfangen
|
||||
bus_putchar(plx.vexget(reg,addr))
|
||||
|
||||
reg:=bus_getchar '0-6
|
||||
if reg>3 and reg<7
|
||||
bus_putchar(!plx.getreg(reg))
|
||||
else
|
||||
bus_putchar(plx.getreg(reg))
|
||||
|
||||
CON ''------------------------------------------------- End of DCF77 FUNCTIONS
|
||||
|
||||
|
|
|
|||
|
|
@ -72,6 +72,7 @@ Logbuch :
|
|||
21-10-2012-uheld - Window-Funktionen
|
||||
28-11-2012-uheld - wahlweise Einbindung von VGA- oder TV-Treiber über #define
|
||||
15-04-2013-dr235 - konstanten für bellatrix-funktionen komplett ausgelagert
|
||||
22.02.2014-dr235 - per compilerflag wählbare monitorsettings eingefügt (57/60hz)
|
||||
|
||||
Notizen:
|
||||
- setheader
|
||||
|
|
@ -132,6 +133,14 @@ $0A..FF CHAR Zeichenausgabe
|
|||
'#define __TV
|
||||
'#define __VGA
|
||||
|
||||
'Hier sind verschiedene Timings für den Monitor wählbar.
|
||||
'Die Settings selbst befinden sich in der Datei /lib/bel-vga.spin und
|
||||
'können dort auch um weitere Optionen erweitert werden.
|
||||
|
||||
#define __VGA_MONSET1 '60Hz
|
||||
'#define __VGA_MONSET2 '57Hz
|
||||
|
||||
|
||||
CON
|
||||
|
||||
_CLKMODE = XTAL1 + PLL16X
|
||||
|
|
|
|||
|
|
@ -55,9 +55,9 @@ word[7] - DCURR - Stack pointer. This is the initial value of the stack pointer.
|
|||
|
||||
|
||||
CON ' KONFIGURATION
|
||||
{
|
||||
Achtung: Nur eine Konfiguration wählen! Beim Bauen mittels Makefiles keines aktivieren"
|
||||
}
|
||||
|
||||
|
||||
'Achtung: Nur eine Konfiguration wählen! Beim Bauen mittels Makefiles keines aktivieren!
|
||||
|
||||
'#define forth ' forth + spin-loader
|
||||
'#define regime ' spin-loader OHNE FORTH, reg.sys wird sofort automatisch gestartet
|
||||
|
|
|
|||
|
|
@ -481,5 +481,9 @@ wvariable lcog \ nummer interaktiven cog
|
|||
: _ob onboot ;
|
||||
: onboot _ob start ;
|
||||
|
||||
saveforth
|
||||
|
||||
reboot
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -28,26 +28,26 @@ Notizen :
|
|||
|
||||
|
||||
OBJ
|
||||
gc : "m-glob-con"
|
||||
gc : "glob-con"
|
||||
|
||||
|
||||
CON
|
||||
|
||||
SCL = gc#adm_scl
|
||||
SDA = gc#adm_sda
|
||||
' VNX = gc#adm_int1
|
||||
|
||||
' portadressen sepia
|
||||
|
||||
'pcf8574 %0100_ABC_0
|
||||
PORT1 = %0100_000 '$20
|
||||
PORT2 = %0100_001 '$21
|
||||
PORT3 = %0100_010 '$22
|
||||
{
|
||||
|
||||
'pcf8574a %0111_ABC_0
|
||||
PORT1 = %0111_000 '$38
|
||||
PORT2 = %0111_001 '$39
|
||||
PORT3 = %0111_010 '$3A
|
||||
}
|
||||
' PORT1 = %0111_000 '$38
|
||||
' PORT2 = %0111_001 '$39
|
||||
' PORT3 = %0111_010 '$3A
|
||||
|
||||
' ad/da-wandler-adresse
|
||||
|
||||
'pcf8591 %1001_ABC_R
|
||||
|
|
@ -84,7 +84,7 @@ CON
|
|||
R_INP0 = 4
|
||||
R_INP1 = 5
|
||||
R_INP2 = 6
|
||||
' R_VNX = 7
|
||||
|
||||
|
||||
|
||||
VAR
|
||||
|
|
@ -120,11 +120,7 @@ PUB init 'plx: io-system initiali
|
|||
|
||||
'pollcog starten
|
||||
plxcogid := cognew(poller,@plxstack)
|
||||
pub plxstop
|
||||
|
||||
if(plxcogid)
|
||||
cogstop(plxcogid~ - 1)
|
||||
lockret(-1 + plxlock~)
|
||||
PRI poller 'plx: pollcog
|
||||
|
||||
repeat
|
||||
|
|
@ -134,18 +130,14 @@ PRI poller 'plx: pollcog
|
|||
'analoge eingänge pollen
|
||||
plxreg[R_PAD0] := ad_ch(adr_adda,0)
|
||||
plxreg[R_PAD1] := ad_ch(adr_adda,1)
|
||||
lockclr(plxlock) 'bus freigeben
|
||||
|
||||
repeat until not lockset(plxlock) 'auf freien bus warten
|
||||
plxreg[R_PAD2] := ad_ch(adr_adda,2)
|
||||
plxreg[R_PAD3] := ad_ch(adr_adda,3)
|
||||
lockclr(plxlock) 'bus freigeben
|
||||
|
||||
repeat until not lockset(plxlock) 'auf freien bus warten
|
||||
'digitale eingabeports pollen
|
||||
plxreg[R_INP0] := in(adr_port )
|
||||
plxreg[R_INP1] := in(adr_port+1)
|
||||
plxreg[R_INP2] := in(adr_port+2)
|
||||
|
||||
'semaphore freigeben
|
||||
lockclr(plxlock) 'bus freigeben
|
||||
|
||||
|
|
@ -211,11 +203,27 @@ PUB ping(adr):ack 'plx: device anpingen
|
|||
|
||||
PUB setadr(adradda,adrport)
|
||||
|
||||
'halt
|
||||
halt
|
||||
adr_adda := adradda
|
||||
adr_port := adrport
|
||||
ad_init(adr_adda)
|
||||
'run
|
||||
run
|
||||
|
||||
PUB vexput(data,regnr,adr):ack 'plx: register in venatrix-plexus setzen
|
||||
|
||||
start
|
||||
ack := write(adr << 1)
|
||||
ack := (ack << 1) | write(regnr)
|
||||
ack := (ack << 1) | write(data)
|
||||
stop
|
||||
|
||||
PUB vexget(regnr,adr):data|ack 'plx: regsiter aus venatrix-plexus auslesen
|
||||
|
||||
start
|
||||
write((adr << 1) + 1)
|
||||
write(regnr)
|
||||
data := read(0)
|
||||
stop
|
||||
|
||||
CON 'I2C-FUNKTIONEN
|
||||
|
||||
|
|
|
|||
|
|
@ -60,7 +60,7 @@ CON
|
|||
ERRSOCKETCLOSED = ERR - 3 ' socket closed, could not perform operation
|
||||
|
||||
OBJ
|
||||
nic : "driver_enc28j60"
|
||||
nic : "adm-enc28j60"
|
||||
|
||||
'ser : "SerialMirror"
|
||||
'stk : "Stack Length"
|
||||
|
|
@ -20,8 +20,9 @@
|
|||
|
||||
CON
|
||||
|
||||
' 1024 x 768 @ 60Hz settings
|
||||
|
||||
' 1024 x 768 @ H:48KHz V:60Hz settings
|
||||
#ifdef __VGA_MONSET1
|
||||
hp = 1024 'horizontal pixels
|
||||
vp = 768 'vertical pixels
|
||||
hf = 24 'horizontal front porch pixels
|
||||
|
|
@ -31,6 +32,20 @@ CON
|
|||
vs = 6 'vertical sync lines
|
||||
vb = 29 'vertical back porch lines
|
||||
pr = 65 'pixel rate in MHz at 80MHz system clock (5MHz granularity)
|
||||
#endif __VGA_MONSET1
|
||||
|
||||
' 1024 x 768 @ H:45KHz V:57Hz settings
|
||||
#ifdef __VGA_MONSET2
|
||||
hp = 1024 'horizontal pixels
|
||||
vp = 768 'vertical pixels
|
||||
hf = 16 'horizontal front porch pixels
|
||||
hs = 96 'horizontal sync pixels
|
||||
hb = 176 'horizontal back porch pixels
|
||||
vf = 1 'vertical front porch lines
|
||||
vs = 3 'vertical sync lines
|
||||
vb = 28 'vertical back porch lines
|
||||
pr = 60 'pixel rate in MHz at 80MHz system clock (5MHz granularity)
|
||||
#endif __VGA_MONSET2
|
||||
|
||||
ht = hp + hf + hs + hb 'total scan line pixels
|
||||
|
||||
|
|
|
|||
|
|
@ -52,9 +52,6 @@ FL_SEL = %0000_0001 'eintrag ist selektiert
|
|||
|
||||
FL_FOCUS = %0000_0001 'box ist selektiert
|
||||
|
||||
DR_SD = 0
|
||||
DR_RAM = 1
|
||||
DR_BLK = 2
|
||||
|
||||
PUB dummy
|
||||
|
||||
|
|
|
|||
|
|
@ -47,6 +47,12 @@ CON 'Signaldefinitionen --------------------------------------------------------
|
|||
#21, A_Bluetooth_Line 'Key-Line des HC05-Bluetooth-Moduls
|
||||
#23, A_SELECT 'administra-auswahlsignal
|
||||
|
||||
'plexbus
|
||||
adm_sda = 19 'i2c-datenpin
|
||||
adm_scl = 20 'i2c-clockpin
|
||||
adm_int1 = 21 'interrupt port 1&2
|
||||
adm_int2 = 22 'interrupt port 3
|
||||
|
||||
CON 'KEY_CODES -------------------------------------------------------------------------------------
|
||||
|
||||
KEY_CTRL = 2
|
||||
|
|
@ -253,6 +259,14 @@ A_BLT = %00000000_00000000_00001000_00000000
|
|||
a_Pad 'Pad abfragen (1 x 8bit Port 2 x Analog)
|
||||
a_SetJoy 'Port für Joystick setzen
|
||||
a_SetPad '137 'Chan für Pad setzen
|
||||
' ---------------------------------------------- Venatrix-Propeller-Slave
|
||||
a_VexPut 'Register im Venatrix-Plexus schreiben
|
||||
a_VexGet '139 'Register im Venatrix-Plexus lesen
|
||||
|
||||
' ---------------------------------------------- AY-SOUNDFUNKTIONEN
|
||||
#147, a_ayStart
|
||||
a_ayStop
|
||||
a_ayUpdateRegisters '149
|
||||
|
||||
' ---------------------------------------------- WAV-FUNKTIONEN
|
||||
#150, a_sdwStart 'spielt wav-datei direkt von sd-card ab
|
||||
|
|
@ -314,10 +328,8 @@ A_BLT = %00000000_00000000_00001000_00000000
|
|||
a_s_beep
|
||||
a_s_dmpreg '199 'soundinformationen senden
|
||||
|
||||
' ---------------------------------------------- AY-SOUNDFUNKTIONEN
|
||||
#200, a_ayStart
|
||||
a_ayStop
|
||||
a_ayUpdateRegisters
|
||||
' ---------------------------------------------- Eigene Erweiterungen
|
||||
' 200 ... 254 frei für eigene Erweiterungen
|
||||
|
||||
CON 'BELLATRIX-FUNKTIONEN --------------------------------------------------------------------------
|
||||
|
||||
|
|
|
|||
|
|
@ -14,7 +14,7 @@ Chip : Regnatix
|
|||
Typ : Programm
|
||||
Version :
|
||||
Subversion :
|
||||
Funktion :
|
||||
Funktion : Fenster mit Dateiliste
|
||||
Komponenten : -
|
||||
COG's : -
|
||||
Logbuch :
|
||||
|
|
@ -79,10 +79,28 @@ PUB redraw | i
|
|||
i++
|
||||
ios.printnl
|
||||
|
||||
PUB setpos(pos)
|
||||
PUB setpos(npos)|opos,i,col,row
|
||||
|
||||
box_pos := pos
|
||||
redraw
|
||||
opos := box_pos
|
||||
box_pos := npos
|
||||
|
||||
' redrawx(npos,opos)
|
||||
|
||||
ios.winset(box_win)
|
||||
|
||||
'alte position neu zeichnen
|
||||
row := opos / box_cols
|
||||
col := (opos - (row * box_cols)) * (fm#MAX_LEN + 2)
|
||||
ios.wincursety(row)
|
||||
ios.wincursetx(col)
|
||||
print_file(box_view + opos, opos)
|
||||
|
||||
'neue position neu zeichnen
|
||||
row := npos / box_cols
|
||||
col := (npos - (row * box_cols)) * (fm#MAX_LEN + 2)
|
||||
ios.wincursety(row)
|
||||
ios.wincursetx(col)
|
||||
print_file(box_view + npos, npos)
|
||||
|
||||
PUB setview(view)
|
||||
|
||||
|
|
|
|||
|
|
@ -14,7 +14,7 @@ Chip : Regnatix
|
|||
Typ : Programm
|
||||
Version :
|
||||
Subversion :
|
||||
Funktion :
|
||||
Funktion : Eingabedialog String
|
||||
Komponenten : -
|
||||
COG's : -
|
||||
Logbuch :
|
||||
|
|
|
|||
|
|
@ -14,7 +14,7 @@ Chip : Regnatix
|
|||
Typ : Programm
|
||||
Version :
|
||||
Subversion :
|
||||
Funktion :
|
||||
Funktion : Infodialog mit Fortschrittsbalken
|
||||
Komponenten : -
|
||||
COG's : -
|
||||
Logbuch :
|
||||
|
|
|
|||
|
|
@ -14,7 +14,7 @@ Chip : Regnatix
|
|||
Typ : Programm
|
||||
Version :
|
||||
Subversion :
|
||||
Funktion :
|
||||
Funktion : Warndialog mit zwei Buttons
|
||||
Komponenten : -
|
||||
COG's : -
|
||||
Logbuch :
|
||||
|
|
@ -66,8 +66,12 @@ PUB draw(stradr1,stradr2,stradr3):button | key,bnr
|
|||
case key
|
||||
gc#KEY_CURLEFT: bnr := 1
|
||||
gc#KEY_CURRIGHT: bnr := 2
|
||||
gc#KEY_TAB: case bnr
|
||||
1: bnr := 2
|
||||
2: bnr := 1
|
||||
gc#KEY_ESC: bnr := 0
|
||||
|
||||
until key == gc#KEY_RETURN
|
||||
until (key == gc#KEY_RETURN) or (key == gc#KEY_ESC)
|
||||
return bnr
|
||||
|
||||
PRI draw_buttons(stradr2,stradr3,bnr)
|
||||
|
|
|
|||
|
|
@ -46,6 +46,12 @@ con ' signaldefinitionen
|
|||
#10, ADM_SDD0,ADM_SDCLK,ADM_SDCMD,ADM_SDD3 'sd-cardreader (4 pin)
|
||||
#23, ADM_SELECT 'administra-auswahlsignal
|
||||
|
||||
'plexbus
|
||||
adm_sda = 19 'i2c-datenpin
|
||||
adm_scl = 20 'i2c-clockpin
|
||||
adm_int1 = 21 'interrupt port 1&2
|
||||
adm_int2 = 22 'interrupt port 3
|
||||
|
||||
con ' administra-funktionen
|
||||
|
||||
ADM_OPT = 0
|
||||
|
|
@ -85,32 +91,44 @@ ADM_COM_RX = 41 'com: zeichen empfangen
|
|||
|
||||
adm_m_run = 50 'plx: polling aktivieren
|
||||
adm_m_halt = 51 'plx: polling anhalten
|
||||
adm_m_setctrl = 52
|
||||
adm_m_in = 53
|
||||
adm_m_out = 54
|
||||
adm_m_ad_ch = 55
|
||||
adm_m_getreg = 56
|
||||
adm_m_setreg = 57
|
||||
adm_m_start = 58
|
||||
adm_m_stop = 59
|
||||
adm_m_write = 60
|
||||
adm_m_read = 61
|
||||
adm_m_ping = 62
|
||||
adm_m_in = 52
|
||||
adm_m_out = 53
|
||||
adm_m_adch = 54
|
||||
adm_m_getreg = 55
|
||||
adm_m_setreg = 56
|
||||
adm_m_start = 57
|
||||
adm_m_stop = 58
|
||||
adm_m_write = 59
|
||||
adm_m_read = 60
|
||||
adm_m_ping = 61
|
||||
adm_m_setadr = 62
|
||||
adm_m_joy = 63
|
||||
adm_m_paddle = 64
|
||||
adm_m_pad = 65
|
||||
adm_m_setjoy = 66
|
||||
adm_m_setpad = 67
|
||||
|
||||
adm_m_chan = 70
|
||||
adm_m_regclr = 71
|
||||
adm_m_setvol = 72
|
||||
adm_m_play = 73
|
||||
adm_m_noteon = 74
|
||||
adm_m_noteoff = 75
|
||||
adm_m_setfreq = 76
|
||||
adm_m_setwave = 77
|
||||
adm_m_setpw = 78
|
||||
adm_m_setadsr = 79
|
||||
adm_m_setres = 80
|
||||
adm_m_setcoff = 81
|
||||
adm_m_setfmask = 82
|
||||
adm_m_setftype = 83
|
||||
adm_m_ringmod = 84
|
||||
adm_m_sync = 85
|
||||
|
||||
adm_m_getspec = 97 'spezifikation abfragen
|
||||
adm_m_getver = 98 'codeversion abfragen
|
||||
adm_m_reboot = 99 'neu starten
|
||||
|
||||
'plexbus
|
||||
adm_sda = 19 'i2c-datenpin
|
||||
adm_scl = 20 'i2c-clockpin
|
||||
adm_int1 = 21 'interrupt port 1&2
|
||||
adm_int2 = 22 'interrupt port 3
|
||||
|
||||
|
||||
con ' bellatrix-funktionen
|
||||
|
|
|
|||
109
lib/reg-ios.spin
109
lib/reg-ios.spin
|
|
@ -28,6 +28,7 @@ Administra
|
|||
scr : Screeninterface
|
||||
hss : Hydra-Soundsystem
|
||||
sfx : Sound-FX
|
||||
plx : Gamedevices & Plexbus
|
||||
|
||||
Bellatrix
|
||||
key : Keyboardroutinen
|
||||
|
|
@ -484,7 +485,7 @@ PUB admload(stradr)|dmu 'chip-mgr: neuen adminis
|
|||
''busprotokoll : [096][sub_putstr.fn]
|
||||
'' : fn - dateiname des neuen administra-codes
|
||||
|
||||
bus_putchar1(gc#a_mgrALoad) 'aktuelles userdir retten
|
||||
bus_putchar1(gc#a_mgrALoad)
|
||||
bus_putstr1(stradr)
|
||||
waitcnt(cnt + clkfreq*3) 'warte bis administra fertig ist
|
||||
|
||||
|
|
@ -1493,22 +1494,22 @@ PUB sid_sdmpplay(stradr): err 'sid: dmp-datei stereo a
|
|||
bus_putstr1(stradr)
|
||||
err := bus_getchar1
|
||||
|
||||
PUB sid_dmpstop
|
||||
PUB sid_dmpstop 'sid: dmp-player anhalten
|
||||
bus_putchar1(gc#a_s_dmpstop)
|
||||
|
||||
PUB sid_dmppause
|
||||
PUB sid_dmppause 'sid: dmp-player pausieren
|
||||
bus_putchar1(gc#a_s_dmppause)
|
||||
|
||||
PUB sid_dmpstatus: status
|
||||
PUB sid_dmpstatus: status 'sid: dmp-player status abfragen
|
||||
bus_putchar1(gc#a_s_dmpstatus)
|
||||
status := bus_getchar1
|
||||
|
||||
PUB sid_dmppos: wert
|
||||
PUB sid_dmppos: wert 'sid: dmp-player playposition abfragen
|
||||
bus_putchar1(gc#a_s_dmppos)
|
||||
wert := bus_getlong1
|
||||
bus_getlong1
|
||||
|
||||
PUB sid_dmplen: wert
|
||||
PUB sid_dmplen: wert 'sid: dmp-datei länge abfragen
|
||||
bus_putchar1(gc#a_s_dmppos)
|
||||
bus_getlong1
|
||||
wert := bus_getlong1
|
||||
|
|
@ -1726,6 +1727,98 @@ PUB com_rx:char 'com: zeichen empfangen
|
|||
bus_putchar1(gc#a_comRx)
|
||||
char := bus_getchar1
|
||||
|
||||
CON ''------------------------------------------------- Plexbus und Gamedevices
|
||||
|
||||
PUB plxrun 'plx: bus freigeben, poller starten
|
||||
|
||||
bus_putchar1(gc#a_plxRun)
|
||||
|
||||
PUB plxhalt 'plx: bus anfordern, poller anhalten
|
||||
|
||||
bus_putchar1(gc#a_plxHalt)
|
||||
|
||||
PUB plxin(adr):wert 'plx: port einlesen
|
||||
|
||||
bus_putchar1(gc#a_plxIn)
|
||||
bus_putchar1(adr)
|
||||
wert := bus_getchar1
|
||||
|
||||
PUB plxout(adr,wert) 'plx: port ausgeben
|
||||
|
||||
|
||||
bus_putchar1(gc#a_plxOut)
|
||||
bus_putchar1(adr)
|
||||
bus_putchar1(wert)
|
||||
|
||||
PUB plxch(adr,chan):wert 'plx: ad-wandlerkanal abfragen
|
||||
|
||||
bus_putchar1(gc#a_plxCh)
|
||||
bus_putchar1(adr)
|
||||
bus_putchar1(chan)
|
||||
wert := bus_getchar1
|
||||
|
||||
PUB plxgetreg(regnr):wert 'plx: poller-register lesen
|
||||
|
||||
bus_putchar1(gc#a_plxGetReg)
|
||||
bus_putchar1(regnr)
|
||||
wert := bus_getchar1
|
||||
|
||||
PUB plxsetreg(regnr,wert) 'plx: poller-register schreiben
|
||||
|
||||
bus_putchar1(gc#a_plxSetReg)
|
||||
bus_putchar1(regnr)
|
||||
bus_putchar1(wert)
|
||||
|
||||
PUB plxstart 'plx: i2c-dialog starten
|
||||
|
||||
bus_putchar1(gc#a_plxStart)
|
||||
|
||||
PUB plxstop 'plx: i2c-dialog beenden
|
||||
|
||||
bus_putchar1(gc#a_plxStop)
|
||||
|
||||
PUB plxwrite(wert):ack 'plx: i2c byte schreiben
|
||||
|
||||
bus_putchar1(gc#a_plxWrite)
|
||||
bus_putchar1(wert)
|
||||
ack := bus_getchar1
|
||||
|
||||
PUB plxread(ack):wert 'plx: i2c byte lesen
|
||||
|
||||
bus_putchar1(gc#a_plxRead)
|
||||
bus_putchar1(ack)
|
||||
wert := bus_getchar1
|
||||
|
||||
PUB plxping(adr):ack 'plx: device abfragen
|
||||
|
||||
bus_putchar1(gc#a_plxPing)
|
||||
bus_putchar1(adr)
|
||||
ack := bus_getchar1
|
||||
|
||||
PUB plxsetadr(adradda,adrport) 'plx: adressen adda/port für poller setzen
|
||||
|
||||
bus_putchar1(gc#a_plxSetAdr)
|
||||
bus_putchar1(adradda)
|
||||
bus_putchar1(adrport)
|
||||
|
||||
PUB joy:wert 'game: joystick abfragen
|
||||
|
||||
bus_putchar1(gc#a_Joy)
|
||||
wert := bus_getchar1
|
||||
|
||||
PUB paddle:wert 'game: paddle abfrage
|
||||
|
||||
bus_putchar1(gc#a_Paddle)
|
||||
wert := wert + bus_getchar1 << 8
|
||||
wert := wert + bus_getchar1
|
||||
|
||||
PUB pad:wert 'game: pad abfrage
|
||||
|
||||
bus_putchar1(gc#a_Pad)
|
||||
wert := wert + bus_getchar1 << 16
|
||||
wert := wert + bus_getchar1 << 8
|
||||
wert := wert + bus_getchar1
|
||||
|
||||
OBJ '' B E L L A T R I X
|
||||
|
||||
CON ''------------------------------------------------- CHIP-MANAGMENT
|
||||
|
|
@ -1950,6 +2043,10 @@ PUB printcstr(eadr) | i,len 'screen: bildschirmausga
|
|||
eadr++
|
||||
bus_putchar2(ram_rdbyte(1,eadr))
|
||||
|
||||
PUB printblk(stringptr,strlen) 'screen: bildschirmausgabe eines strings definierter länge
|
||||
|
||||
repeat strlen
|
||||
bus_putchar2(byte[stringptr++])
|
||||
|
||||
PUB printdec(value) | i 'screen: dezimalen zahlenwert auf bildschirm ausgeben
|
||||
{{printdec(value) - screen: dezimale bildschirmausgabe zahlenwertes}}
|
||||
|
|
|
|||
2
make.bat
2
make.bat
|
|
@ -28,7 +28,7 @@ REM ----------------------------------------------------------------
|
|||
REM Flashdateien erzeugen
|
||||
REM --> \bin\flash
|
||||
|
||||
%BSTC% -L %libpath% %D% -D __ADM_FAT -D __ADM_HSS -D __ADM_HSS_PLAY -D __ADM_WAV -D __ADM_RTC -D __ADM_COM -b -O a .\flash\administra\admflash.spin
|
||||
%BSTC% -L %libpath% %D% -D __ADM_FAT -D __ADM_HSS -D __ADM_HSS_PLAY -D __ADM_WAV -D __ADM_RTC -D __ADM_COM -D __ADM_PLX -b -O a .\flash\administra\admflash.spin
|
||||
copy admflash.binary %flash%
|
||||
move admflash.binary %sdsys%\admsys.adm
|
||||
|
||||
|
|
|
|||
2
make.sh
2
make.sh
|
|
@ -25,7 +25,7 @@ mkdir ${flash}
|
|||
# Flashdateien erzeugen
|
||||
# --> bin/flash
|
||||
|
||||
${BSTC} -L ${libpath} ${D} -D __ADM_FAT -D __ADM_HSS -D __ADM_HSS_PLAY -D __ADM_WAV -D __ADM_RTC -D __ADM_COM -b -O a flash/administra/admflash.spin
|
||||
${BSTC} -L ${libpath} ${D} -D __ADM_FAT -D __ADM_HSS -D __ADM_HSS_PLAY -D __ADM_WAV -D __ADM_RTC -D __ADM_COM -D __ADM_PLX -b -O a flash/administra/admflash.spin
|
||||
cp admflash.binary ${flash}
|
||||
mv admflash.binary ${sdsys}/admsys.adm
|
||||
|
||||
|
|
|
|||
|
|
@ -0,0 +1,37 @@
|
|||
#! /bin/sh
|
||||
|
||||
# Definitionen
|
||||
VERSION="57"
|
||||
|
||||
# Pfade
|
||||
ARCHIV="HIVE-TriOS-R${VERSION}"
|
||||
MAKE="./make.sh"
|
||||
BIN="Bin"
|
||||
|
||||
# ----------------------------------------------------------------
|
||||
# Alte Versionen löschen
|
||||
|
||||
rm -rf ../${BIN}
|
||||
rm -f "../${ARCHIV}-bin.zip"
|
||||
rm -f "../${ARCHIV}-src.zip"
|
||||
|
||||
# ----------------------------------------------------------------
|
||||
# Binaries erstellen
|
||||
|
||||
${MAKE}
|
||||
|
||||
# ----------------------------------------------------------------
|
||||
# Archive erstellen
|
||||
|
||||
mkdir .tmp
|
||||
for file in *.md ; do cp "$file" .tmp/"${file/.md}".txt ; done
|
||||
cd .tmp
|
||||
zip -r9 ../../${ARCHIV}-bin.zip *
|
||||
zip -r9 ../../${ARCHIV}-src.zip *
|
||||
cd ..
|
||||
rm -rf .tmp
|
||||
|
||||
zip -r9 ../${ARCHIV}-src.zip flash forth lib system make*
|
||||
|
||||
cd ..
|
||||
zip -r9 ${ARCHIV}-bin.zip ${BIN}
|
||||
|
|
@ -18,21 +18,23 @@ Funktion :
|
|||
Komponenten : -
|
||||
COG's : -
|
||||
Logbuch :
|
||||
|
||||
27-04-2013-dr235 - erste version
|
||||
01-11-2013-dr235 - redraw/geschwindigkeit verbessert
|
||||
- div. kleine Optimierungen und Detailverbesserungen
|
||||
|
||||
Kommandoliste :
|
||||
Notizen :
|
||||
|
||||
- view nach f9
|
||||
- tab in wbox
|
||||
|
||||
}}
|
||||
|
||||
OBJ
|
||||
|
||||
ios : "reg-ios"
|
||||
dlbox[2] : "gui-dlbox"
|
||||
pbar : "gui-pbar"
|
||||
wbox : "gui-wbox"
|
||||
input : "gui-input"
|
||||
dlbox[2] : "gui-dlbox" 'die beiden dateifenster
|
||||
pbar : "gui-pbar" 'progress-bar
|
||||
wbox : "gui-wbox" 'warnbox
|
||||
input : "gui-input" 'eingabedialog
|
||||
fm : "fm-con"
|
||||
gc : "glob-con"
|
||||
str : "glob-string"
|
||||
|
|
@ -53,26 +55,20 @@ VAR
|
|||
byte w_pos[2] 'positionen im fenster
|
||||
byte w_view[2] 'startposition des fensters
|
||||
byte w_cols[2] 'anzahl der spalten im fenster
|
||||
byte w_drives[2] 'zugeordnete drives
|
||||
|
||||
byte w0_list[fm#MAX_BUFFER] 'aktuelles verzeichnis
|
||||
byte w0_flags[fm#MAX_FILES] 'selected, directory usw.
|
||||
byte w0_list[fm#MAX_BUFFER] 'verzeichnisliste sdcard
|
||||
byte w0_flags[fm#MAX_FILES] 'flags (selktiert, typ)
|
||||
long w0_len[fm#MAX_FILES] 'dateilängen
|
||||
byte w0_number 'anzahl der files
|
||||
byte w0_number 'anzahl der dateien
|
||||
|
||||
byte w1_list[fm#MAX_BUFFER]
|
||||
byte w1_flags[fm#MAX_FILES]
|
||||
long w1_len[fm#MAX_FILES]
|
||||
byte w1_number
|
||||
byte w1_list[fm#MAX_BUFFER] 'verzeichnisliste ramdrive
|
||||
byte w1_flags[fm#MAX_FILES] 'flags
|
||||
long w1_len[fm#MAX_FILES] 'dateilängen
|
||||
byte w1_number 'anzahl der dateien
|
||||
|
||||
PUB main | key
|
||||
|
||||
init
|
||||
dlbox[0].focus
|
||||
dlbox[0].draw
|
||||
dlbox[1].draw
|
||||
info_print
|
||||
|
||||
repeat
|
||||
key := ios.keywait
|
||||
case key
|
||||
|
|
@ -85,7 +81,7 @@ PUB main | key
|
|||
gc#KEY_RETURN: f_open
|
||||
gc#KEY_BS: f_back
|
||||
gc#KEY_SPACE: f_select
|
||||
gc#KEY_ESC:
|
||||
gc#KEY_ESC: f_menu
|
||||
gc#KEY_TAB: f_focus
|
||||
gc#KEY_POS1: f_pos1
|
||||
gc#KEY_F01: f_view
|
||||
|
|
@ -98,6 +94,9 @@ PUB main | key
|
|||
gc#KEY_F08: f_selall
|
||||
gc#KEY_F09: f_full
|
||||
gc#KEY_F10: f_quit
|
||||
"m": f_menu
|
||||
"q": f_quit
|
||||
|
||||
|
||||
PRI init
|
||||
|
||||
|
|
@ -112,8 +111,6 @@ PRI init
|
|||
w_view[0] := w_view[1] := 0
|
||||
w_cols[0] := (fm#W1X2-fm#W1X1)/(fm#MAX_LEN+2)
|
||||
w_cols[1] := (fm#W2X2-fm#W2X1)/(fm#MAX_LEN+2)
|
||||
w_drives[0] := fm#DR_SD
|
||||
w_drives[1] := fm#DR_RAM
|
||||
fname[0] := 0
|
||||
|
||||
frame_draw
|
||||
|
|
@ -128,19 +125,24 @@ PRI init
|
|||
wbox.define(5,fm#W4X1,fm#W4Y1,fm#W4X2,fm#W4Y2)
|
||||
input.define(6,fm#W4X1,fm#W4Y1,fm#W4X2,fm#W4Y2,12)
|
||||
|
||||
dlbox[0].focus
|
||||
dlbox[0].draw
|
||||
dlbox[1].draw
|
||||
info_print
|
||||
|
||||
PRI f_mount
|
||||
|
||||
PRI f_mount 'fkt: mount/unmount sd-card
|
||||
|
||||
if fl_mounted
|
||||
ios.sdunmount
|
||||
repeat
|
||||
wbox.draw(@str5,@str2,@str3) == 1
|
||||
wbox.draw(@str5,@str2,@str6)
|
||||
while ios.sdmount
|
||||
dlbox[0].draw
|
||||
dlbox[1].draw
|
||||
info_print
|
||||
|
||||
PRI f_mkdir
|
||||
PRI f_mkdir 'fkt: verzeichnis erstellen
|
||||
|
||||
ios.sdnewdir(input.draw(string("Name eingeben : ")))
|
||||
w0_clrlist
|
||||
|
|
@ -149,22 +151,24 @@ PRI f_mkdir
|
|||
dlbox[1].draw
|
||||
info_print
|
||||
|
||||
PRI f_selall | i
|
||||
PRI f_selall | i 'fkt: alle dateien im verzeichnis selektieren
|
||||
|
||||
i := 0
|
||||
case w_sel
|
||||
0: repeat w0_number
|
||||
0: i := 2 'std-einträge . .. auslassen
|
||||
repeat w0_number
|
||||
w0_flags[i++] ^= fm#FL_SEL
|
||||
1: repeat w1_number
|
||||
1: i := 0
|
||||
repeat w1_number
|
||||
w1_flags[i++] ^= fm#FL_SEL
|
||||
dlbox[w_sel].redraw
|
||||
|
||||
PRI f_pos1
|
||||
PRI f_pos1 'fkt: homeposition im fenster
|
||||
|
||||
w_pos[w_sel] := 0
|
||||
dlbox[w_sel].setpos(w_pos[w_sel])
|
||||
|
||||
PRI f_full
|
||||
PRI f_full 'fkt: fenster maximieren
|
||||
|
||||
if w_sel
|
||||
dlbox[1].defocus
|
||||
|
|
@ -181,7 +185,7 @@ PRI f_full
|
|||
dlbox[1].draw
|
||||
w_sel := 0
|
||||
|
||||
PRI f_open
|
||||
PRI f_open 'fkt: verzeichnis öffnen
|
||||
|
||||
'nur fenster 1 und verzeichnisse
|
||||
if (w_sel == 0) & (w0_flags[w_view[w_sel] + w_pos[w_sel]] & fm#FL_DIR)
|
||||
|
|
@ -191,7 +195,7 @@ PRI f_open
|
|||
dlbox[w_sel].draw
|
||||
info_print
|
||||
|
||||
PRI f_back
|
||||
PRI f_back 'fkt: verzeichnisebene zurück
|
||||
|
||||
ios.sdchdir(string(".."))
|
||||
w0_clrlist
|
||||
|
|
@ -199,7 +203,7 @@ PRI f_back
|
|||
dlbox[w_sel].redraw
|
||||
info_print
|
||||
|
||||
PRI f_curup
|
||||
PRI f_curup 'fkt: cursor hoch
|
||||
|
||||
if w_pos[w_sel] > 1
|
||||
w_pos[w_sel] -= dlbox[w_sel].getcols
|
||||
|
|
@ -207,7 +211,7 @@ PRI f_curup
|
|||
info_print
|
||||
dir := 0
|
||||
|
||||
PRI f_curdown
|
||||
PRI f_curdown 'fkt: cursor runter
|
||||
|
||||
if w_pos[w_sel] < (fm#WROWS * w_cols[w_sel] - dlbox[w_sel].getcols)
|
||||
w_pos[w_sel] += dlbox[w_sel].getcols
|
||||
|
|
@ -215,7 +219,7 @@ PRI f_curdown
|
|||
info_print
|
||||
dir := 1
|
||||
|
||||
PRI f_curleft
|
||||
PRI f_curleft 'fkt: cursor links
|
||||
|
||||
if w_pos[w_sel]
|
||||
w_pos[w_sel]--
|
||||
|
|
@ -223,7 +227,7 @@ PRI f_curleft
|
|||
info_print
|
||||
dir := 0
|
||||
|
||||
PRI f_curright
|
||||
PRI f_curright 'fkt: cursor rechts
|
||||
|
||||
if w_pos[w_sel] < (fm#WROWS * w_cols[w_sel] - 1)
|
||||
w_pos[w_sel]++
|
||||
|
|
@ -231,7 +235,7 @@ PRI f_curright
|
|||
info_print
|
||||
dir := 1
|
||||
|
||||
PRI f_pageup
|
||||
PRI f_pageup 'fkt: seite zurück
|
||||
|
||||
if (w_view[w_sel] - fm#WROWS * w_cols[w_sel]) => 0
|
||||
w_view[w_sel] -= fm#WROWS * w_cols[w_sel]
|
||||
|
|
@ -240,7 +244,7 @@ PRI f_pageup
|
|||
w_pos[w_sel] := fm#WROWS * w_cols[w_sel] - 1
|
||||
dlbox[w_sel].setpos(w_pos[w_sel])
|
||||
|
||||
PRI f_pagedown | number
|
||||
PRI f_pagedown | number 'fkt: seite weiter
|
||||
|
||||
case w_sel
|
||||
0: number := w0_number
|
||||
|
|
@ -252,18 +256,22 @@ PRI f_pagedown | number
|
|||
w_pos[w_sel] := 0
|
||||
dlbox[w_sel].setpos(w_pos[w_sel])
|
||||
|
||||
PRI f_select | i
|
||||
PRI f_select | i 'fkt: datei selektieren
|
||||
|
||||
i := w_view[w_sel] + w_pos[w_sel]
|
||||
'flag in liste setzen
|
||||
case w_sel
|
||||
0: w0_flags[i] ^= fm#FL_SEL
|
||||
1: w1_flags[i] ^= fm#FL_SEL
|
||||
dlbox[w_sel].redraw
|
||||
'aktuelle position neu zeichnen
|
||||
dlbox[w_sel].setpos(w_pos[w_sel])
|
||||
'cursor bewegen
|
||||
case dir
|
||||
0: f_curleft
|
||||
1: f_curright
|
||||
dlbox[w_sel].setpos(w_pos[w_sel])
|
||||
|
||||
PRI f_focus
|
||||
PRI f_focus 'fkt: fokus auf anderes fenster
|
||||
|
||||
ifnot fl_full
|
||||
dlbox[w_sel].defocus
|
||||
|
|
@ -274,14 +282,27 @@ ifnot fl_full
|
|||
dlbox[w_sel].focus
|
||||
info_print
|
||||
|
||||
PRI f_quit
|
||||
PRI f_quit 'fkt: fm beenden
|
||||
|
||||
if wbox.draw(@str7,@str3,@str2) == 2
|
||||
ios.sddmset(ios#DM_USER) 'regime soll in diesem verzeichnis landen
|
||||
ios.winset(0)
|
||||
ios.screeninit
|
||||
ios.stop
|
||||
else
|
||||
dlbox[0].draw
|
||||
dlbox[1].draw
|
||||
info_print
|
||||
|
||||
PRI f_load | i
|
||||
PRI f_menu 'fkt: extra-menü aufrufen
|
||||
|
||||
wbox.draw(string("Menü: Nicht implementiert!"),string("ok"),@str6)
|
||||
dlbox[0].draw
|
||||
dlbox[1].draw
|
||||
info_print
|
||||
|
||||
|
||||
PRI f_load | i 'fkt: sdcard --> ramdrive
|
||||
|
||||
pbar.setmaxbar(w0_number)
|
||||
i := 0
|
||||
|
|
@ -297,7 +318,7 @@ PRI f_load | i
|
|||
dlbox[0].draw
|
||||
dlbox[1].draw
|
||||
|
||||
PRI f_save | i
|
||||
PRI f_save | i 'fkt: ramdrive --> sdcard
|
||||
|
||||
pbar.setmaxbar(w1_number)
|
||||
i := 0
|
||||
|
|
@ -313,7 +334,7 @@ PRI f_save | i
|
|||
dlbox[0].draw
|
||||
dlbox[1].draw
|
||||
|
||||
PRI f_del | i
|
||||
PRI f_del | i 'fkt: dateien löschen
|
||||
|
||||
if wbox.draw(@str1,@str2,@str3) == 1
|
||||
pbar.setmaxbar(w0_number)
|
||||
|
|
@ -331,7 +352,7 @@ dlbox[0].draw
|
|||
dlbox[1].draw
|
||||
info_print
|
||||
|
||||
PRI f_empty
|
||||
PRI f_empty 'fkt: ramdrive löschen
|
||||
|
||||
if wbox.draw(@str4,@str2,@str3) == 1
|
||||
ios.ram_wrlong(ios#sysmod,ios#SYSVAR,ios#RAMEND) 'Zeiger auf letzte freie Speicherzelle setzen
|
||||
|
|
@ -348,7 +369,13 @@ dlbox[w_sel].setview(w_view[1])
|
|||
info_print
|
||||
|
||||
|
||||
PRI f_view | n,stradr,ch,lch
|
||||
PRI f_view 'fkt: textdatei anzeigen
|
||||
|
||||
case w_sel
|
||||
0: f_view0
|
||||
1: f_view1
|
||||
|
||||
PRI f_view0 | n,stradr,ch,lch 'fkt: texdatei von sd anzeigen
|
||||
|
||||
ios.winset(3)
|
||||
ios.curoff
|
||||
|
|
@ -370,6 +397,7 @@ PRI f_view | n,stradr,ch,lch
|
|||
ios.sdclose
|
||||
ios.printcls
|
||||
dlbox[0].redraw
|
||||
ifnot fl_full
|
||||
dlbox[1].redraw
|
||||
return
|
||||
else
|
||||
|
|
@ -387,7 +415,49 @@ PRI f_view | n,stradr,ch,lch
|
|||
dlbox[1].draw
|
||||
info_print
|
||||
|
||||
PRI w0_clrlist | i
|
||||
|
||||
PRI f_view1 | n,stradr,fn,len,ch,lch 'fkt: textdatei von ramdrive anzeigen
|
||||
|
||||
ios.winset(3)
|
||||
ios.curoff
|
||||
ios.printcls
|
||||
|
||||
stradr := get_fname(w_view[w_sel] + w_pos[w_sel])
|
||||
n := 1
|
||||
lch := 0
|
||||
fn := ios.rd_open(stradr) 'datei öffnen
|
||||
ifnot fn == -1
|
||||
len := ios.rd_len(fn)
|
||||
repeat len 'text ausgeben
|
||||
ch := ios.printchar(ios.rd_get(fn))
|
||||
if ch == ios#CHAR_NL OR ch == $0a 'CR or NL
|
||||
if ch == lch OR (lch <> ios#CHAR_NL AND lch <> $0a)
|
||||
ios.printnl
|
||||
lch := ch
|
||||
if ++n == (fm#W3Y2 - 2)
|
||||
n := 1
|
||||
if ios.keywait == "q"
|
||||
ios.rd_close(fn)
|
||||
ios.printcls
|
||||
dlbox[0].redraw
|
||||
ifnot fl_full
|
||||
dlbox[1].redraw
|
||||
return
|
||||
else
|
||||
lch := 0
|
||||
else
|
||||
ios.printchar(ch)
|
||||
lch := ch
|
||||
ios.print(string(13,"[EOF]"))
|
||||
ios.keywait
|
||||
ios.sdclose 'datei schließen
|
||||
|
||||
ios.printcls
|
||||
dlbox[0].draw
|
||||
dlbox[1].draw
|
||||
info_print
|
||||
|
||||
PRI w0_clrlist | i 'fenster 0: dateiliste löschen
|
||||
|
||||
i := 0
|
||||
repeat fm#MAX_FILES
|
||||
|
|
@ -400,7 +470,7 @@ PRI w0_clrlist | i
|
|||
i++
|
||||
|
||||
|
||||
PRI w1_clrlist | i
|
||||
PRI w1_clrlist | i 'fenster 1: dateiliste löschen
|
||||
|
||||
i := 0
|
||||
repeat fm#MAX_FILES
|
||||
|
|
@ -412,7 +482,7 @@ PRI w1_clrlist | i
|
|||
w1_list[i] := " "
|
||||
i++
|
||||
|
||||
PRI w0_readdir | stradr,i,j
|
||||
PRI w0_readdir | stradr,i,j 'fenster 0: dateiliste einlesen
|
||||
|
||||
i := 0
|
||||
ios.sddir
|
||||
|
|
@ -429,10 +499,11 @@ PRI w0_readdir | stradr,i,j
|
|||
|
||||
w0_number := i
|
||||
|
||||
PRI w1_readdir | stradr,i,j
|
||||
PRI w1_readdir | stradr,i,j 'fenster 1: dateiliste einlesen
|
||||
|
||||
i := 0
|
||||
ios.rd_dir
|
||||
ios.rd_next 'ramdrive-label überspringen
|
||||
repeat while (stradr := ios.rd_next)
|
||||
j := 0
|
||||
repeat fm#MAX_LEN
|
||||
|
|
@ -442,7 +513,7 @@ PRI w1_readdir | stradr,i,j
|
|||
w1_len[i] := ios.rd_dlen
|
||||
w1_number := i
|
||||
|
||||
PRI get_fname(fnr):adrdat | i,stradr
|
||||
PRI get_fname(fnr):adrdat | i,stradr 'datei: dateinamen aus liste holrn
|
||||
|
||||
i := fm#MAX_LEN * fnr
|
||||
case w_sel
|
||||
|
|
@ -456,7 +527,7 @@ PRI get_fname(fnr):adrdat | i,stradr
|
|||
fname[i] := 0
|
||||
return @fname
|
||||
|
||||
PRI load(stradr) | len,fnr,i
|
||||
PRI load(stradr) | len,fnr,i 'datei: datei --> ramdrive
|
||||
|
||||
ifnot ios.sdopen("r",stradr) 'datei öffnen
|
||||
len := ios.sdfattrib(ios#F_SIZE)
|
||||
|
|
@ -468,7 +539,7 @@ PRI load(stradr) | len,fnr,i
|
|||
ios.sdclose
|
||||
ios.rd_close(fnr)
|
||||
|
||||
PRI save(stradr) | fnr,len,i
|
||||
PRI save(stradr) | fnr,len,i 'datei: ramdrive --> datei
|
||||
|
||||
fnr := ios.rd_open(stradr)
|
||||
ifnot fnr == -1
|
||||
|
|
@ -481,7 +552,7 @@ PRI save(stradr) | fnr,len,i
|
|||
ios.rd_close(fnr)
|
||||
|
||||
|
||||
PRI frame_draw
|
||||
PRI frame_draw 'screen: bildschirmmaske ausgeben
|
||||
|
||||
ios.winset(0)
|
||||
ios.curoff
|
||||
|
|
@ -498,7 +569,7 @@ PRI frame_draw
|
|||
ios.printq(string(" 1: View | 2: Del | 3: SD>>RAM ◀▶ 4: SD<<RAM | 5: RAM Clear "))
|
||||
ios.setcolor(fm#COL_DEFAULT)
|
||||
|
||||
PRI info_print | pos,len
|
||||
PRI info_print | pos,len 'screen: infozeile ausgeben
|
||||
|
||||
pos := w_view[w_sel] + w_pos[w_sel]
|
||||
case w_sel
|
||||
|
|
@ -521,7 +592,7 @@ PRI info_print | pos,len
|
|||
ios.printdec(ios.ram_getfree)
|
||||
ios.print(string(" Bytes free"))
|
||||
|
||||
PRI testvideo 'passt div. variablen an videomodus an
|
||||
PRI testvideo 'screen: passt div. variablen an videomodus an
|
||||
|
||||
vidmod := ios.belgetspec & 1
|
||||
rows := ios.belgetrows 'zeilenzahl bei bella abfragen
|
||||
|
|
@ -531,13 +602,15 @@ PRI pause(sec)
|
|||
|
||||
waitcnt(cnt+clkfreq*sec)
|
||||
|
||||
DAT
|
||||
DAT 'strings
|
||||
|
||||
str1 byte "Dateien löschen?",0
|
||||
str2 byte "Ja",0
|
||||
str3 byte "Nein",0
|
||||
str4 byte "RAMDrive löschen?",0
|
||||
str5 byte "SD-Card mounten?",0
|
||||
str6 byte 0
|
||||
str7 byte "Programm beenden?",0
|
||||
|
||||
DAT
|
||||
|
||||
|
|
|
|||
|
|
@ -39,7 +39,7 @@ OBJ
|
|||
str: "glob-string"
|
||||
num: "glob-numbers" 'Number Engine
|
||||
gc : "glob-con"
|
||||
led: "led-engine"
|
||||
led: "glob-led-engine"
|
||||
|
||||
CON
|
||||
|
||||
|
|
|
|||
|
|
@ -55,6 +55,7 @@ PUB main | i,n,len,ch,lch
|
|||
repeat i from 0 to 3 'extender anhängen
|
||||
byte[@parastr][len + i] := byte[@ext1][i]
|
||||
byte[@parastr][len + i] := 0
|
||||
ios.admsetsyssnd(0) 'systemklänge aus (nervt!)
|
||||
ifnot ios.sdopen("r",@parastr)
|
||||
repeat 'text ausgeben
|
||||
ch := ios.sdgetc
|
||||
|
|
@ -78,6 +79,7 @@ PUB main | i,n,len,ch,lch
|
|||
'ios.print(string("Hilfetexte : ",$0d))
|
||||
cmd_dir_w(1)
|
||||
ios.sdclose 'datei schließen
|
||||
ios.admsetsyssnd(1) 'systemklänge wieder ein
|
||||
ios.sddmact(ios#DM_USER) 'u-marker aktivieren
|
||||
ios.stop
|
||||
|
||||
|
|
|
|||
|
|
@ -0,0 +1,495 @@
|
|||
{{
|
||||
┌──────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
||||
│ 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 : blexbus-tool
|
||||
Chip : Regnatix
|
||||
Typ : Programm
|
||||
Version :
|
||||
Subversion :
|
||||
|
||||
Logbuch :
|
||||
|
||||
31-10-2013-dr235 - erste version
|
||||
|
||||
Kommandoliste:
|
||||
|
||||
Notizen:
|
||||
|
||||
|
||||
|
||||
}}
|
||||
|
||||
OBJ
|
||||
ios: "reg-ios"
|
||||
num: "glob-numbers"
|
||||
|
||||
CON
|
||||
|
||||
_CLKMODE = XTAL1 + PLL16X
|
||||
_XINFREQ = 5_000_000
|
||||
|
||||
OS_TIBLEN = 64 'gr??e des inputbuffers
|
||||
|
||||
|
||||
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
|
||||
long ppos 'puffer für adresse
|
||||
long pcnt 'puffer für zeilenzahl
|
||||
|
||||
byte device 'adresse des geöffneten devices
|
||||
byte polling 'status polling
|
||||
byte open 'status device
|
||||
|
||||
PUB main | wflag
|
||||
|
||||
ios.start 'ios initialisieren
|
||||
polling := 1
|
||||
ios.plxRun
|
||||
ios.printnl
|
||||
|
||||
' ios.print(string("Perplex - PlexBus-Tool - DR235",$0d,$0d))
|
||||
|
||||
repeat
|
||||
os_cmdinput 'kommandoeingabe
|
||||
os_cmdint 'kommandozeileninterpreter
|
||||
|
||||
PUB os_cmdinput | charc 'sys: stringeingabe eine zeile
|
||||
''funktionsgruppe : sys
|
||||
''funktion : stringeingabe eine zeile
|
||||
''eingabe : -
|
||||
''ausgabe : -
|
||||
''variablen : tib - eingabepuffer zur string
|
||||
'' : tibpos - aktuelle position im tib
|
||||
|
||||
ios.print(@prompt2)
|
||||
tibpos := 0 'tibposition auf anfang setzen
|
||||
repeat until (charc := ios.keywait) == $0D 'tasten einlesen bis return
|
||||
if (tibpos + 1) < OS_TIBLEN 'zeile noch nicht zu lang?
|
||||
case charc
|
||||
ios#CHAR_BS: 'backspace
|
||||
if tibpos > 0 'noch nicht anfang der zeile erreeicht?
|
||||
tib[tibpos--] := 0 'ein zeichen aus puffer entfernen
|
||||
ios.printbs 'backspace an terminal senden
|
||||
other: 'zeicheneingabe
|
||||
tib[tibpos++] := charc 'zeichen speichern
|
||||
ios.printchar(charc) 'zeichen ausgeben
|
||||
ios.printnl
|
||||
tib[tibpos] := 0 'string abschließen
|
||||
tibpos := charc := 0 'werte rücksetzen
|
||||
|
||||
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++
|
||||
else
|
||||
token := 0
|
||||
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
|
||||
|
||||
PUB os_cmdexec(stradr) 'sys: kommando im ?bergebenen string wird als kommando interpretiert
|
||||
{{os_smdexec - das kommando im ?bergebenen string wird als kommando interpretiert
|
||||
stradr: adresse einer stringvariable die ein kommando enth?lt}}
|
||||
if strcomp(stradr,string("help")) 'help
|
||||
ios.print(@help1)
|
||||
elseif strcomp(stradr,string("open"))
|
||||
plx_open
|
||||
elseif strcomp(stradr,string("close"))
|
||||
plx_close
|
||||
elseif strcomp(stradr,string("put"))
|
||||
plx_put
|
||||
elseif strcomp(stradr,string("get"))
|
||||
plx_get
|
||||
elseif strcomp(stradr,string("map"))
|
||||
plx_map
|
||||
elseif strcomp(stradr,string("scan"))
|
||||
plx_scan
|
||||
elseif strcomp(stradr,string("test"))
|
||||
plx_test
|
||||
elseif strcomp(stradr,string("test#"))
|
||||
plx_testnr
|
||||
elseif strcomp(stradr,string("game"))
|
||||
plx_game
|
||||
elseif strcomp(stradr,string("setgame"))
|
||||
plx_setgame
|
||||
elseif strcomp(stradr,string("polloff"))
|
||||
plx_polloff
|
||||
elseif strcomp(stradr,string("pollon"))
|
||||
plx_pollon
|
||||
elseif strcomp(stradr,string("debug"))
|
||||
plx_debug
|
||||
elseif strcomp(stradr,string("status"))
|
||||
plx_status
|
||||
elseif strcomp(stradr,string("plexuswr"))
|
||||
plx_plexuswr
|
||||
elseif strcomp(stradr,string("bye"))
|
||||
ios.stop
|
||||
else 'kommando nicht gefunden
|
||||
ios.print(stradr)
|
||||
ios.print(@prompt3)
|
||||
ios.printnl
|
||||
|
||||
PRI plx_debug|wert,i
|
||||
|
||||
' ios.plxOut($22,cnt)
|
||||
|
||||
' irgendwie funktionieren die direkten i2c-operationen noch nicht
|
||||
' von administra aus funktioniert das gleiche konstrukt
|
||||
' ???
|
||||
|
||||
ios.plxHalt
|
||||
repeat
|
||||
ios.plxStart
|
||||
ios.plxWrite($22 << 1)
|
||||
ios.plxWrite(i++)
|
||||
ios.plxStop
|
||||
waitcnt(cnt+clkfreq/3)
|
||||
ios.printhex(i,2)
|
||||
ios.printchar(" ")
|
||||
|
||||
PRI plx_plexuswr|regadr,regval
|
||||
|
||||
device := num.FromStr(os_nxtoken1,num#HEX)
|
||||
regadr := num.FromStr(os_nxtoken1,num#HEX)
|
||||
regval := num.FromStr(os_nxtoken1,num#HEX)
|
||||
|
||||
ios.plxHalt
|
||||
waitcnt(cnt+clkfreq)
|
||||
|
||||
ios.plxStart
|
||||
ios.plxWrite(device << 1)
|
||||
ios.plxWrite(regadr)
|
||||
ios.plxWrite(regval)
|
||||
ios.plxStop
|
||||
|
||||
waitcnt(cnt+clkfreq)
|
||||
ios.plxRun
|
||||
|
||||
PRI plx_status
|
||||
|
||||
ios.printnl
|
||||
ios.print(string("Device : "))
|
||||
ios.printhex(device,2)
|
||||
if open
|
||||
ios.print(string(" open"))
|
||||
else
|
||||
ios.print(string(" close"))
|
||||
ios.printnl
|
||||
ios.print(string("Polling : "))
|
||||
if polling
|
||||
ios.print(string("ON"))
|
||||
else
|
||||
ios.print(string("OFF"))
|
||||
ios.printnl
|
||||
ios.printnl
|
||||
|
||||
|
||||
PRI plx_polloff
|
||||
|
||||
ios.plxHalt
|
||||
ios.print(string("Poller wurde angehalten!",$0d))
|
||||
polling := 0
|
||||
|
||||
PRI plx_pollon
|
||||
|
||||
ios.plxRun
|
||||
ios.print(string("Poller wurde gestartet!",$0d))
|
||||
polling := 1
|
||||
open := 0
|
||||
|
||||
PRI plx_game|dev,i
|
||||
|
||||
i := 0
|
||||
ios.curoff
|
||||
ios.printcls
|
||||
repeat
|
||||
dev := ios.pad
|
||||
ios.curhome
|
||||
ios.printnl
|
||||
ios.print(string("Scan : "))
|
||||
ios.printdec(i++)
|
||||
ios.printnl
|
||||
ios.print(string("Input : ["))
|
||||
ios.printbin(dev,24)
|
||||
ios.printchar("]")
|
||||
ios.printnl
|
||||
ios.printnl
|
||||
print_joystick(dev >> 16 & $FF)
|
||||
ios.printnl
|
||||
print_paddle(0,dev >> 8 & $FF)
|
||||
print_paddle(1,dev & $FF)
|
||||
until ios.key
|
||||
ios.printnl
|
||||
ios.curon
|
||||
|
||||
PRI plx_setgame|adradda,adrport
|
||||
|
||||
adradda := num.FromStr(os_nxtoken1,num#HEX)
|
||||
adrport := num.FromStr(os_nxtoken1,num#HEX)
|
||||
ios.plxsetadr(adradda,adrport)
|
||||
|
||||
PRI plx_test
|
||||
|
||||
testsepia($48,$20)
|
||||
|
||||
PRI plx_testnr|adradda,adrport
|
||||
|
||||
adradda := num.FromStr(os_nxtoken1,num#HEX)
|
||||
adrport := num.FromStr(os_nxtoken1,num#HEX)
|
||||
testsepia(adradda,adrport)
|
||||
|
||||
PRI plx_map|ack,adr,n,i
|
||||
|
||||
ios.plxHalt
|
||||
n := 0
|
||||
i := 0
|
||||
ios.curoff
|
||||
ios.printcls
|
||||
repeat
|
||||
ios.curhome
|
||||
ios.printnl
|
||||
ios.print(string(" 0123456789ABCDEF"))
|
||||
ios.printnl
|
||||
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.curon
|
||||
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_open|ack
|
||||
|
||||
device := num.FromStr(os_nxtoken1,num#HEX)
|
||||
ios.plxHalt
|
||||
ios.plxStart
|
||||
ifnot ios.plxWrite(device << 1)
|
||||
ios.print(string("Device geöffnet, Polling aus!"))
|
||||
polling := 0
|
||||
open := 1
|
||||
else
|
||||
ios.print(string("Device nicht vorhanden!"))
|
||||
ios.plxRun
|
||||
polling := 1
|
||||
open := 0
|
||||
ios.printnl
|
||||
|
||||
PRI plx_close
|
||||
|
||||
ios.plxRun
|
||||
ios.print(string("Device geschlossen, Polling an!"))
|
||||
ios.printnl
|
||||
polling := 1
|
||||
open := 0
|
||||
|
||||
PRI plx_put|wert
|
||||
|
||||
if open
|
||||
wert := num.FromStr(os_nxtoken1,num#HEX)
|
||||
ios.plxOut(device,wert)
|
||||
else
|
||||
ios.print(string("Kein Device geöffnet!"))
|
||||
ios.printnl
|
||||
|
||||
PRI plx_get
|
||||
|
||||
if open
|
||||
ios.print(string("Get : "))
|
||||
ios.printhex(ios.plxIn(device),2)
|
||||
ios.printnl
|
||||
else
|
||||
ios.print(string("Kein Device geöffnet!"))
|
||||
ios.printnl
|
||||
|
||||
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
|
||||
|
||||
PRI testsepia(adda,port)
|
||||
|
||||
ios.plxHalt
|
||||
ios.curoff
|
||||
ios.printcls
|
||||
repeat
|
||||
ios.curhome
|
||||
ios.printnl
|
||||
print_port(1,ios.plxIn(port ))
|
||||
print_port(2,ios.plxIn(port+1))
|
||||
print_port(3,ios.plxIn(port+2))
|
||||
ios.printnl
|
||||
print_chan(0,ios.plxch(adda,0))
|
||||
print_chan(1,ios.plxch(adda,1))
|
||||
print_chan(2,ios.plxch(adda,2))
|
||||
print_chan(3,ios.plxch(adda,3))
|
||||
ios.plxout(port+2,!(cnt>>23))
|
||||
until ios.key
|
||||
ios.printnl
|
||||
ios.curon
|
||||
ios.plxRun
|
||||
|
||||
|
||||
DAT
|
||||
prompt1 byte "ok ", $0d, 0
|
||||
prompt2 byte "plx: ", 0
|
||||
prompt3 byte "? ",0
|
||||
wait1 byte "<WEITER? */q:>",0
|
||||
|
||||
help1 file "perplex.txt"
|
||||
byte $0d,0
|
||||
|
||||
|
||||
|
||||
|
|
@ -0,0 +1,17 @@
|
|||
|
||||
openwr <adr> - slave schreibend öffnen
|
||||
openrd <adr> - slave lesend öffnen
|
||||
close - slave schließen
|
||||
put <wert> - zeichen zu plexus senden
|
||||
get - zeichen von plexus empfangen
|
||||
map - slavemap anzeigen
|
||||
scan - anzeige aller slaveadressen
|
||||
test - test für interne sepia-karte
|
||||
test# adda port - test für spezifische sepia-karte
|
||||
game - gamedevice abfragen (pollregister)
|
||||
setgame adda port - adressen für poller setzen adda/port
|
||||
polloff - polling anhalten
|
||||
pollon - polling starten
|
||||
bye - programm beenden
|
||||
|
||||
Parameter hexadezimal!
|
||||
|
|
@ -79,13 +79,15 @@ PUB main | tast
|
|||
PUB statistik 'ausgabe der fehlerstatistik
|
||||
|
||||
cnt_err := cnt_err + cnt_test1 + cnt_test2 + cnt_test3 + cnt_testx
|
||||
ios.setcolor(4)
|
||||
ios.setcolor(0)
|
||||
ios.printcls
|
||||
ios.printnl
|
||||
ios.print(string("Statistik eRAM-Test:", $0d, $0d))
|
||||
ios.print(string("Testdurchläufe : "))
|
||||
ios.printdec(cnt_loop)
|
||||
ios.printnl
|
||||
ios.printnl
|
||||
ios.setcolor(4)
|
||||
ios.print(string("Fehler Gesamt : "))
|
||||
ios.printdec(cnt_err)
|
||||
ios.printnl
|
||||
|
|
@ -102,9 +104,6 @@ PUB statistik 'ausgabe der fehlerstati
|
|||
ios.printdec(cnt_testx)
|
||||
ios.printnl
|
||||
ios.printnl
|
||||
ios.print(string("Aktueller Test:", $0d))
|
||||
ios.printnl
|
||||
ios.printnl
|
||||
cnt_test1 := 0
|
||||
cnt_test2 := 0
|
||||
cnt_test3 := 0
|
||||
|
|
|
|||
|
|
@ -687,7 +687,7 @@ PRI cmd_color 'cmd: zeichenfarbe wähl
|
|||
|
||||
ios.setcolor(str.decimalToNumber(act_color := os_nxtoken1))
|
||||
|
||||
PRI cmd_sysinfo 'cmd: systeminformationen anzeigen
|
||||
PRI cmd_sysinfo|ack,adr 'cmd: systeminformationen anzeigen
|
||||
|
||||
ios.printnl
|
||||
os_printstr(@msg22,@syst)
|
||||
|
|
@ -716,6 +716,18 @@ PRI cmd_sysinfo 'cmd: systeminformatione
|
|||
else
|
||||
os_printstr(@msg36,@msg38)
|
||||
|
||||
ios.printnl
|
||||
ios.print(@msg39)
|
||||
ios.plxHalt
|
||||
repeat adr from 0 to 127
|
||||
ack := ios.plxping(adr)
|
||||
ifnot ack
|
||||
ios.print(string(" ["))
|
||||
ios.printhex(adr,2)
|
||||
ios.print(string("]"))
|
||||
ios.printnl
|
||||
ios.plxRun
|
||||
|
||||
PRI cmd_mount | err 'cmd: mount
|
||||
|
||||
repeat 16
|
||||
|
|
@ -873,7 +885,7 @@ PRI cmd_dir|fcnt,stradr,hflag 'cmd: verzeichnis anzeig
|
|||
ios.print(@msg10)
|
||||
ios.print(@msg5)
|
||||
ios.print(ios.sdvolname)
|
||||
ifnot ios.os_error(ios.sddir) 'verzeichnis öffnen
|
||||
ios.sddir 'verzeichnis öffnen
|
||||
if str.findCharacter(stradr,"h")
|
||||
hflag := 0
|
||||
if str.findCharacter(stradr,"w")
|
||||
|
|
@ -1076,6 +1088,7 @@ msg35 byte "Bellatrix Auflösung Y :",0
|
|||
msg36 byte "Bellatrix Videomodus : ",0
|
||||
msg37 byte "VGA",0
|
||||
msg38 byte "TV",0
|
||||
msg39 byte "PlexBus Devices : ",0
|
||||
|
||||
ext1 byte ".BIN",0
|
||||
ext2 byte ".ADM",0
|
||||
|
|
|
|||
|
|
@ -1,7 +1,7 @@
|
|||
|
||||
/? : Hilfe
|
||||
/l : Konfiguration anzeigen
|
||||
----------- Administra-Funktionen
|
||||
---------------- Administra-Funktionen
|
||||
/ah 0|1 : hss ab-/anschalten
|
||||
/aw 0|1 : wav ab-/anschalten
|
||||
/as 0|1 : systemklänge ab-/anschalten
|
||||
|
|
@ -10,10 +10,10 @@
|
|||
/ah 0..15 : hss-lautstärke
|
||||
/af : administra reset, flash booten
|
||||
/at : transfergeschwindigkeit messen
|
||||
----------- Bellatrix-Funktionen
|
||||
---------------- Bellatrix-Funktionen
|
||||
/ci : farbtabelle anzeigen
|
||||
/cs datei : farbtabelle speichern
|
||||
/cl datei : farbtabelle laden
|
||||
----------- Port-Funktionen
|
||||
/po nr anz : Impulse an port ausgeben
|
||||
---------------- Port-Funktionen
|
||||
/po nr anz time : Impulse an port ausgeben
|
||||
/pi : Status der Port abfragen
|
||||
Loading…
Reference in New Issue