TriOS-alt/flash/bellatrix/belflash.spin

1071 lines
90 KiB
Plaintext
Raw Normal View History

2011-11-11 17:41:02 +01:00
<EFBFBD><EFBFBD>{{ VGA-MULTISCREEN
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 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 : Hive
Name : VGA-Text-Treiber 1024x768 Pixel, 64x24 Zeichen
Chip : Bellatrix
Typ : Treiber
Version : 00
Subversion : 01
Funktion : Standard VGA-Text- und Tastatur-Treiber
Dieser Bellatrix-Code kann als Stadardcode im EEPROM gespeichert werden und bietet drei getrennt
ansteuerbare Textbildschirme und Tastaturfunktionen. Mit dem integrierten Loader kann Bellatrix
mit einem beliebigen andern Code geladen werden.
Komponenten : VGA 1024x768 Tile Driver v0.9 Chip Gracey MIT
PS/2 Keyboard Driver v1.0.1 Chip Gracey, ogg MIT
COG's : MANAGMENT 1 COG
VGA 2 COG's
KEYB 1 COG
-------------------
4 COG's
Logbuch :
23-10-2008-dr235 - erste funktionsf<00>hige version erstellt
- cursor eingebaut
06-11-2008-dr235 - keyb auf deutsche zeichenbelegung angepasst (ohne umlaute)
24-11-2008-dr235 - tab, setcur, pos1, setx, sety, getx, gety, setcol, sline, screeninit
curon, curoff
- beltest
13-03-2009-dr235 - LF als Zeichencode ausgeblendet
22-03-2009-dr235 - abfrage f<00>r statustasten eingef<00>gt
05-09-2009-dr235 - abfrage der laufenden cogs eingef<00>gt
- deutschen tastaturtreiber mit vollst<00>ndiger belegung! von ogg eingebunden
22-03-2010-dr235 - anpassung trios
01-05-2010-dr235 - scrollup/scrolldown eingebunden & getestet
03-05-2010-dr235 - settab/getcols/getrows/getresx/getresy eingef<00>gt & getestet
- hive-logo eingef<00>gt
-------------------
26-01-2011-dr235 - <00>bernahme und anpassung des treibers aus trios
31-01-2011-dr235 - backspace als direktes steuerzeichen ($C8) eingef<00>gt
01-02-2011-dr235 - multiscreenf<00>higkeit implementiert
- 88 - mgr_wscr: steuert, in welchen screen zeichen geschrieben werden
- 89 - mgr_dscr: steuert welcher screen angezeigt wird
05-02-2011-dr235 - umwandlung backspace $c8 --> $08
06-03-2011-dr235 - revision der steuercodes; nur noch funktionen mit parameter
werden <00>ber eine 0-sequenz aufgerufen, alle anderen steuerzeichen
werden auf 1-byte-zeichen abgebildet
20-04-2011-dr235 - integration einer kompatiblen loaderroutine, damit kann der treiber
jetzt direkt aus dem rom gestartet und dennoch bella-code nachgeladen
werden kann
31.12.2011-dr235 - anpassung f<00>r verschiedene zeilenumbr<00>che in print_char eingef<00>gt
2011-11-11 17:41:02 +01:00
Notizen:
- setheader
ACHTUNG: row ist nicht die Zeilenposition, da zwei tiles untereinander ein zeichen
bilden. vielmehr ist die reale zeilenposition row/2.
}}
{{ STEUERCODES
Byte1 Byte2 Byte3 Byte4 Byte5
0 1 get.stat KEY_STAT Tastaturstatus abfragen
0 2 get.key KEY_CODE Tastaturcode abfragen
0 3 $01 put.curchar SETCUR Cursorzeichen setzen
0 3 $02 put.col SETX Cursor in Spalte n setzen
0 3 $03 put.row SETY Cursor in Zeile n setzen
0 3 $04 get.col GETX Cursorspalte abfragen
0 3 $05 get.row GETY Cursorzeile abfragen
0 3 $06 put.color SETCOL Farbe setzen
0 3 $07 put.sline SLINE Start Scrollbereich setzen
0 3 $08 put.eline ELINE Ende Scrollbereich setzen
0 3 $09 SINIT Screeninit
0 3 $0A put.tabnr put.tabpos TABSET Tabulatoren setzen
0 4 get.keyspec KEY_SPEC Sondertasten abfragen
0 5 put.x put.y SCR_LOGO Hive-Logo anzeigen
0 6 put.char SCR_CHAR Zeichen ohne Steuerzeichen ausgeben
0 58 put.wscrnr MGR_WSCR Schreibscreen setzen
0 59 put.wscrnr MGR_DSCR Anzeigescreen setzen
0 5A put.cnr getlong.color MGR_GETCOLOR Farbregister auslesen
0 5B put.cnr putlong.color MGR_SETCOLOR Farbregister setzen
0 5C getlong.resx MGR_GETRESX Abfrage der X-Aufl<00>sung
0 5D getlong.resy MGR_GETRESY Abfrage der Y-Aufl<00>sung
0 5E get.cols MGR_GETCOLS Abfrage der Textspalten
0 5F get.rows MGR_GETROWS Abfrage der Textzeilen
0 60 get.cogs MGR_GETCOGS Abfrage der anzahl belegter COG's
0 61 getlong.spec MGR_GETSPEC Abfrage der Funktionsspezifikationen
0 62 getlong.ver MGR_GETVER Abfrage der Version
0 63 MGR_LOAD Bellatrix-Code laden
$01 CLS Bildschirm l<00>schen
$02 HOME Cursor in obere linke Ecke
$03 POS1 Cursor an Zeilenanfang setzen
$04 CURON Cursor anschalten
$05 CUROFF Cursor abschalten
$06 SCRLUP Zeile nach oben scrollen
$07 SCRLDOWN Zeile nach unten scrollen
$08 BS R<00>ckschritt (Backspace)
$09 TAB Tabulatorschritt
$0A..FF CHAR Zeichenausgabe
}}
CON
_CLKMODE = XTAL1 + PLL16X
_XINFREQ = 5_000_000
'signaldefinitionen bellatrixix
#0, D0,D1,D2,D3,D4,D5,D6,D7 'datenbus
#8, BEL_VGABASE 'vga-signale (8pin)
#16, BEL_KEYBC,BEL_KEYBD 'keyboard-signale
#18, BEL_MOUSEC,BEL_MOUSED 'maus-signale
#20, BEL_VIDBASE 'video-signale(3pin)
#23, BEL_SELECT 'belatrix-auswahlsignal
#24, HBEAT 'front-led
BUSCLK 'bustakt
BUS_WR '/wr - schreibsignal
BUS_HS ' '/hs - quittungssignal
' +----------
' | +------- system
' | | +---- version (<00>nderungen)
' | | | +- subversion (hinzuf<00>gungen)
CHIP_VER = $00_01_01_01
'
' +----------
' | +--------
' | |+------- vektor
' | ||+------ grafik
' | |||+----- text
' | ||||+---- maus
' | |||||+--- tastatur
' | ||||||+-- vga
' | |||||||+- tv
CHIP_SPEC = %00000000_00000000_00000000_00010110
COLS = 64
ROWS = 48
TILES = COLS * ROWS
RESX = 1024
RESY = 768
COLORANZ = 8
USERCHARS = 16 '8x2 logo
TAB1 = 16
TAB2 = 32
TAB3 = 48
TABANZ = 8
SPACETILE = $8000 + $20 << 6
VGA_BASPORT = 8 'vga startport
VGA_RESX = COLS * 16 'vga anzahl pixel x
VGA_RESY = ROWS * 16 'vga anzahl pixel y
KEYB_DPORT = BEL_KEYBD 'tastatur datenport
KEYB_CPORT = BEL_KEYBC 'tastatur taktport
CURSORCHAR = $0E 'cursorzeichen
SCREENS = 3 'anzahl der screens
' hbeat --------+
' clk -------+|
' /wr ------+||
' /hs -----+||| +------------------------- /cs
' |||| | -------- d0..d7
DB_IN = %00001001_00000000_00000000_00000000 'maske: dbus-eingabe
DB_OUT = %00001001_00000000_00000000_11111111 'maske: dbus-ausgabe
M1 = %00000010_00000000_00000000_00000000
M2 = %00000010_10000000_00000000_00000000 'busclk=1? & /cs=0?
M3 = %00000000_00000000_00000000_00000000
M4 = %00000010_00000000_00000000_00000000 'busclk=0?
OBJ
vga : "bel-vga"
keyb : "bel-keyb"
VAR
long wind 'index des screens, in welchen aktuell geschrieben wird
long dind 'index des screens, der aktuell dargestellt wird
long keycode 'letzter tastencode
long array[TILES/2*SCREENS] 'bildschirmpuffer
byte tab[TABANZ] 'tabulatorpositionen
word user_charbase 'adresse der userzeichen
byte wscrnr 'nummer ausgabescreens
word lchar 'letztes zeichen
2011-11-11 17:41:02 +01:00
long col[SCREENS] 'spaltenposition
long row[SCREENS] 'zeilenposition
long color[SCREENS] 'zeichenfarbe
byte cursor[SCREENS] 'cursorzeichen
byte curstat[SCREENS] 'cursorstatus 1 = ein
byte sline[SCREENS] 'startzeile des scrollfensters (0 = 1. zeile)
byte eline[SCREENS] 'endzeile des scrollfensters (0 = 1. zeile)
long plen 'l<00>nge datenblock loader
byte proghdr[16] 'puffer f<00>r objektkopf
CON ''------------------------------------------------- BELLATRIX
PUB main | zeichen,n 'chip: kommandointerpreter
''funktionsgruppe : chip
''funktion : kommandointerpreter
''eingabe : -
''ausgabe : -
init_subsysteme 'bus/vga/keyboard/maus initialisieren
repeat
zeichen := bus_getchar '1. zeichen empfangen
if zeichen ' > 0
print_char(zeichen)
else
zeichen := bus_getchar '2. zeichen kommando empfangen
case zeichen
1: key_stat '1: Tastaturstatus senden
2: key_code '2: Tastaturzeichen senden
3: print_ctrl(bus_getchar) '3: Steuerzeichen ($100..$1FF) ausgeben
4: key_spec '4: Statustasten ($100..$1FF) abfragen
5: print_logo '5: hive-logo ausgeben
6: pchar(bus_getchar) '6: zeichen ohne steuerzeichen augeben
' ---------------------------------------------- CHIP-MANAGMENT
88: mgr_wscr 'setzt screen, in welchen geschrieben wird
89: mgr_dscr 'setzt screen, welcher angezeigt wird
90: mgr_getcolor 'farbregister auslesen
91: mgr_setcolor 'farbregister setzen
92: mgr_getresx 'x-aufl<00>sung abfragen
93: mgr_getresy 'y-aufl<00>sung abfragen
94: mgr_getcols 'spaltenanzahl abfragen
95: mgr_getrows 'zeilenanzahl abfragen
96: mgr_getcogs 'freie cogs abfragen
97: mgr_getspec 'spezifikation abfragen
98: mgr_getver 'codeversion abfragen
99: mgr_load 'bellatrix neu starten
2011-11-11 17:41:02 +01:00
PUB init_subsysteme|i 'chip: initialisierung des bellatrix-chips
''funktionsgruppe : chip
''funktion : - initialisierung des businterface
'' : - vga & keyboard-treiber starten
''eingabe : -
''ausgabe : -
dira := db_in 'datenbus auf eingabe schalten
outa[bus_hs] := 1 'handshake inaktiv
keyb.start(keyb_dport, keyb_cport) 'tastaturport starten
'print_ctrl(0) 'bildschirm l<00>schen
wordfill(@array, spacetile, tiles*SCREENS)
wind := dind := wscrnr := 0 'auf ersten screen stellen
vga.start(vga_basport, @array, @vgacolors, 0, 0, 0) 'vga-treiber starten
repeat i from 0 to SCREENS-1
cursor[i] := CURSORCHAR 'cursorzeichen setzen
curstat[i] := 1 'cursor anschalten
sline[i] := 2 'startzeile des scrollbereichs setzen
eline[i] := rows 'enbdzeile des scrollbereichs setzen
repeat i from 0 to TABANZ-1 'tabulatoren setzen
tab[i] := i * 4
user_charbase := @uchar & $FFC0 'berechnet die n<00>chste 64-byte-grenze hinter dem zeichensatz
longmove(user_charbase,@uchar,16*USERCHARS) 'verschiebt den zeichensatz auf die n<00>chste 64-byte-grenze
repeat i from 0 to SCREENS-1
wind := TILES*i 'ausgabe-index berechnen
_print_logo(0,0) 'hive-logo anzeigen
row[i] := sline[wscrnr] 'home
col[i] := 0 'pos1
schar(cursor[wscrnr]) 'cursor an
wind := 0
PUB bus_putchar(zeichen) 'chip: ein byte an regnatix senden
''funktionsgruppe : chip
''funktion : ein byte an regnatix senden
''eingabe : byte
''ausgabe : -
waitpeq(M1,M2,0) 'busclk=1? & prop2=0?
dira := db_out 'datenbus auf ausgabe stellen
outa[7..0] := zeichen 'daten ausgeben
outa[bus_hs] := 0 'daten g<00>ltig
waitpeq(M3,M4,0) 'busclk=0?
dira := db_in 'bus freigeben
outa[bus_hs] := 1 'daten ung<00>ltig
PUB bus_getchar : zeichen 'chip: ein byte von regnatix empfangen
''funktionsgruppe : chip
''funktion : ein byte von regnatix empfangen
''eingabe : -
''ausgabe : byte
waitpeq(M1,M2,0) 'busclk=1? & prop2=0?
zeichen := ina[7..0] 'daten einlesen
outa[bus_hs] := 0 'daten quittieren
waitpeq(M3,M4,0) 'busclk=0?
outa[bus_hs] := 1
CON ''------------------------------------------------- SUBPROTOKOLL-FUNKTIONEN
PUB sub_putlong(wert) 'sub: long senden
''funktionsgruppe : sub
''funktion : subprotokoll um einen long-wert an regnatix zu senden
''eingabe : 32bit wert der gesendet werden soll
''ausgabe : -
''busprotokoll : [put.byte1][put.byte2][put.byte3][put.byte4]
'' : [ hsb ][ ][ ][ lsb ]
bus_putchar(wert >> 24) '32bit wert senden hsb/lsb
bus_putchar(wert >> 16)
bus_putchar(wert >> 8)
bus_putchar(wert)
PUB sub_getlong:wert 'sub: long empfangen
''funktionsgruppe : sub
''funktion : subprotokoll um einen long-wert von regnatix zu empfangen
''eingabe : -
''ausgabe : 32bit-wert der empfangen wurde
''busprotokoll : [get.byte1][get.byte2][get.byte3][get.byte4]
'' : [ 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
CON ''------------------------------------------------- CHIP-MANAGMENT-FUNKTIONEN
PRI mgr_wscr|scrnr 'cmgr: setzt screen, in welchen geschrieben wird
''funktionsgruppe : cmgr
''funktion : schaltet die ausgabe auf einen bestimmten screen
''eingabe : -
''ausgabe : -
''busprotokoll : [0][088][get.wscrnr]
'' : wscrnr - nummer des screens 0..SCREENS
scrnr := bus_getchar - 1
if wscrnr < SCREENS
wscrnr := scrnr
wind := TILES*wscrnr 'ausgabe-index berechnen
PRI mgr_dscr|scrnr 'cmgr: setzt screen, welcher angezeigt wird
''funktionsgruppe : cmgr
''funktion : schaltet die anzeige auf einen bestimmten screen
''eingabe : -
''ausgabe : -
''busprotokoll : [0][089][get.scrnr]
'' : scrnr - nummer des screens 0..SCREENS
scrnr := bus_getchar - 1
if scrnr < SCREENS
dind := TILES*2*scrnr 'display-index berechnen
vga.set_scrpointer(@array+dind) 'screenpointer f<00>r den displaytreiber neu setzen
PUB mgr_getcolor|cnr 'cmgr: farbregister auslesen
''funktionsgruppe : cmgr
''funktion : farbregister auslesen
''eingabe : -
''ausgabe : -
''busprotokoll : [0][090][get.cnr][sub_putlong.color]
'' : cnr - nummer des farbregisters 0..15
'' : color - erster wert
cnr := bus_getchar
sub_putlong(long[@vgacolors][cnr])
PUB mgr_setcolor|cnr 'cmgr: farbregister setzen
''funktionsgruppe : cmgr
''funktion : farbregister setzen
''eingabe : -
''ausgabe : -
''busprotokoll : [0][091][get.cnr][sub_getlong.color]
'' : cnr - nummer des farbregisters 0..15
'' : color - farbwert
cnr := bus_getchar
long[@vgacolors][cnr] := sub_getlong
PUB mgr_getresx 'cmgr: abfrage der x-aufl<00>sung
''funktionsgruppe : cmgr
''funktion : abfrage der x-aufl<00>sung
''eingabe : -
''ausgabe : -
''busprotokoll : [0][092][put.resx]
'' : resx - x-aufl<00>sung
sub_putlong(RESX)
PUB mgr_getresy 'cmgr: abfrage der y-aufl<00>sung
''funktionsgruppe : cmgr
''funktion : abfrage der y-aufl<00>sung
''eingabe : -
''ausgabe : -
''busprotokoll : [0][093][put.resy]
'' : resy - y-aufl<00>sung
sub_putlong(RESY)
PUB mgr_getcols 'cmgr: abfrage der Textspalten
''funktionsgruppe : cmgr
''funktion : abfrage der textspalten
''eingabe : -
''ausgabe : -
''busprotokoll : [0][094][put.cols]
'' : cols - anzahl der textspalten
bus_putchar(COLS)
PUB mgr_getrows 'cmgr: abfrage der textzeilen
''funktionsgruppe : cmgr
''funktion : abfrage der textzeilen
''eingabe : -
''ausgabe : -
''busprotokoll : [0][095][put.rows]
'' : rows - anzahl der textzeilen
bus_putchar(ROWS/2)
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 : [0][096][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
bus_putchar(cogs)
PUB mgr_getspec 'cmgr: abfrage der spezifikation des chips
''funktionsgruppe : cmgr
''funktion : abfrage der version und spezifikation des chips
''eingabe : -
''ausgabe : cogs - anzahl der cogs
''busprotokoll : [097][sub_putlong.spec]
'' : spec - spezifikation
''
''
'' +----------
'' | +--------
'' | |+------- vektor
'' | ||+------ grafik
'' | |||+----- text
'' | ||||+---- maus
'' | |||||+--- tastatur
'' | ||||||+-- vga
'' | |||||||+- tv
''CHIP_SPEC = %00000000_00000000_00000000_00010110
sub_putlong(CHIP_SPEC)
PUB mgr_getver 'cmgr: abfrage der version
''funktionsgruppe : cmgr
''funktion : abfrage der version und spezifikation des chips
''eingabe : -
''ausgabe : cogs - anzahl der cogs
''busprotokoll : [098][sub_putlong.ver]
'' : ver - version
''
'' +----------
'' | +------- system
'' | | +---- version (<00>nderungen)
'' | | | +- subversion (hinzuf<00>gungen)
''CHIP_VER = $00_01_01_01
sub_putlong(CHIP_VER)
PUB mgr_load|i 'cmgr: bellatrix-loader
''funktionsgruppe : cmgr
''funktion : funktion um einen neuen code in bellatrix zu laden
''
''bekanntes problem: einige wenige bel-dateien werden geladen aber nicht korrekt gestartet
''l<00>sung: diese datei als eeprom-image speichern
' 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]
' objektl<00>nge an regnatix senden
bus_putchar(plen >> 8) 'hsb senden
bus_putchar(plen & $FF) 'lsb senden
repeat i from 1 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<00>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
' hbeat --------+
' clk -------+|
' /wr ------+||
' /hs -----+|||+------------------------- /cs
' ||||| -------- d0..d7
DINP long %00001001000000000000000000000000 'constant dinp hex \ bus input
DOUT long %00001001000000000000000011111111 'constant dout hex \ bus output
M_0 long %00001000000000000000000000000000 'bus inaktiv
M_1 long %00000010000000000000000000000000
M_2 long %00000010100000000000000000000000 '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
CON ''------------------------------------------------- KEYBOARD-FUNKTIONEN
PUB key_stat 'key: tastaturstatus abfragen
bus_putchar(keyb.gotkey)
PUB key_code 'key: tastencode abfragen
keycode := keyb.key
case keycode
$c8: keycode := $08 'backspace wandeln
bus_putchar(keycode)
PUB key_spec 'key: statustaten vom letzten tastencode abfragen
bus_putchar(keycode >> 8)
CON ''------------------------------------------------- SCREEN-FUNKTIONEN
PUB print_char(c) | code,n 'screen: zeichen auf bildschirm ausgeben
{{zeichen auf bildschirm ausgeben}}
'anpassung f<00>r die verschiedenen zeilenumbr<00>che
'damit sollten alle drei versionen funktionieren:
'dos/win: $0d $0a
'unix/linux: $0a
'mac: $0d
if c == $0a and lchar == $0d
c := 0
lchar := c
2011-11-11 17:41:02 +01:00
case c
$01: 'clear screen?
if curstat[wscrnr] == 1 'cursor ausschalten?
schar($20)
n := sline[wscrnr] * cols
wordfill(@array.word[n+wind], spacetile, tiles-n)
row[wscrnr] := sline[wscrnr]
col[wscrnr] := 0
if curstat[wscrnr] == 1 'cursor einschalten
schar(cursor[wscrnr])
$02: 'home?
if curstat[wscrnr] == 1
schar($20)
row[wscrnr] := sline[wscrnr]
col[wscrnr] := 0
if curstat[wscrnr] == 1
schar(cursor[wscrnr])
$03: 'pos1
if curstat[wscrnr] == 1
schar($20)
col[wscrnr] := 0
if curstat[wscrnr] == 1
schar(cursor[wscrnr])
$04: 'curon
curstat[wscrnr] := 1
schar(cursor[wscrnr])
$05: 'curoff
if curstat[wscrnr] == 1
schar($20)
curstat[wscrnr] := 0
$06: 'scrollup
scrollup
$07: 'scrolldown
scrolldown
$08: 'backspace?
if col[wscrnr]
if curstat[wscrnr] == 1
schar($20)
col[wscrnr]--
if curstat[wscrnr] == 1
schar(cursor[wscrnr])
$09: 'tab
repeat n from 0 to TABANZ-1
if col[wscrnr] < tab[n]
if curstat[wscrnr] == 1
schar($20)
col[wscrnr] := tab[n]
if curstat[wscrnr] == 1
schar(cursor[wscrnr])
quit
$0A: 'LF ausblenden
if curstat[wscrnr] == 1
schar($20)
newline
if curstat[wscrnr] == 1
schar(cursor[wscrnr])
2011-11-11 17:41:02 +01:00
$0D: 'return?
if curstat[wscrnr] == 1
schar($20)
newline
if curstat[wscrnr] == 1
schar(cursor[wscrnr])
$0E..$FF: 'character?
pchar(c)
if curstat[wscrnr] == 1
schar(cursor[wscrnr])
PUB print_ctrl(c) | code,n,m 'screen: steuerzeichen ausgeben
case c
$01: 'setcur
code := bus_getchar
cursor[wscrnr] := code
if curstat[wscrnr] == 1
schar(code)
$02: 'setx
if curstat[wscrnr] == 1
schar($20)
col[wscrnr] := bus_getchar
if curstat[wscrnr] == 1
schar(cursor[wscrnr])
$03: 'sety
if curstat[wscrnr] == 1
schar($20)
row[wscrnr] := bus_getchar * 2 + sline[wscrnr] '2 tiles pro zeichen!
if curstat[wscrnr] == 1
schar(cursor[wscrnr])
$04: 'getx
bus_putchar(col[wscrnr])
$05: 'gety
bus_putchar(row[wscrnr] / 2)
$06: 'setcolor
color[wscrnr] := bus_getchar
$07: 'sline
sline[wscrnr] := bus_getchar * 2
$08: 'eline
eline[wscrnr] := bus_getchar * 2
$09: 'screeninit
wordfill(@array.word[wind], spacetile, tiles)
row[wscrnr] := 0
col[wscrnr] := 0
sline[wscrnr] := 0
$0A: 'tabulator setzen
n := bus_getchar
m := bus_getchar
if n =< (TABANZ-1)
tab[n] := m
PRI schar(c)| i,k 'screen: schreibt zeichen an aktuelle position ohne cursor
k := color[wscrnr] << 1 + c & 1
i := $8000 + (c & $FE) << 6 + k
array.word[row[wscrnr]*cols+col[wscrnr]+wind] := i 'oberes tile setzen
array.word[(row[wscrnr]+1)*cols+col[wscrnr]+wind] := i | $40 'unteres tile setzen
PRI pchar(c) 'screen: schreibt zeichen mit cursor an aktuelle position
schar(c)
if ++col[wscrnr] == cols
newline
PUB newline | i 'screen: zeilenwechsel, inkl. scrolling am screenende
col[wscrnr] := 0
if (row[wscrnr] += 2) => eline[wscrnr]
row[wscrnr] -= 2
'scroll lines
repeat i from sline[wscrnr] to eline[wscrnr]-3
wordmove(@array.word[i*cols+wind], @array.word[(i+2)*cols+wind], cols) 'wordmove(dest,src,cnt)
'clear new line
wordfill(@array.word[(eline[wscrnr]-2)*cols+wind], spacetile, cols<<1)
PUB scrollup | i 'screen: scrollt den screen nach oben
'scroll lines
wordmove(@array.word[sline[wscrnr]*cols+wind],@array.word[(sline[wscrnr]+2)*cols+wind],(eline[wscrnr]-1-sline[wscrnr])*cols) 'wordmove(dest,src,cnt)
'clear new line
wordfill(@array.word[(eline[wscrnr]-2)*cols+wind], spacetile, cols<<1)
PUB scrolldown | i 'screen: scrollt den screen nach unten
'scroll lines
i := eline[wscrnr] - 1
repeat eline[wscrnr]-sline[wscrnr]-1
wordmove(@array.word[i*cols+wind], @array.word[(i-2)*cols+wind], cols) 'wordmove(dest,src,cnt)
i--
'clear new line
wordfill(@array.word[(sline[wscrnr])*cols+wind], spacetile, cols<<1)
PRI print_logo|x,y 'screen: hive-logo ausgeben
x := bus_getchar
y := bus_getchar
_print_logo(x,y)
PRI _print_logo(x,y)|padr
padr := @hive+user_charbase-@uchar
print_uchar(padr, x, y, 8, 2, 1) 'logo zeichnen
PRI print_uchar(pBMP,xPos,yPos,xSize,ySize,clr)|c,i,j,t 'screen: zeichnet ein einzelnes tilefeld
{
- setzt in der tilemap des vga-treibers die adressen auf das entsprechende zeichen
- setzt mehrer tiles je nach xSize und ySize
- jedes tile besteht aus 16x16 pixel, weshalb die adresse jedes tiles mit c<<6 gebildet wird
- alle 64 byte (c<<6) beginnt im bitmap ein tile
}
t:=xPos
c:=0
repeat j from 0 to (ySize-1)
repeat i from 0 to (xSize-1)
array.word[yPos * cols + xPos + wind] := pBMP + (c<<6) + clr
c++
xPos++
yPos++
xPos:=t
DAT
{{
'' array_ptr = Pointer to 3,072 long-aligned words, organized as 64 across by 48 down,
'' which will serve as the tile array. Each word specifies a tile bitmap and
'' a color palette for its tile area. The top 10 bits of each word form the
'' base address of a 16-long tile bitmap, while the lower 6 bits select a
'' color palette for the bitmap. For example, $B2E5 would specify the tile
'' bitmap spanning $B2C0..$B2FF and color palette $25.
'' color_ptr = Pointer to 64 longs which will define the 64 color palettes. The RGB data
'' in each long is arranged as %%RGBx_RGBx_RGBx_RGBx with the sub-bytes 3..0
'' providing the color data for pixel values %11..%00, respectively:
''
'' %%3330_0110_0020_3300: %11=white, %10=dark cyan, %01=blue, %00=gold
''
%% ist quaternary-darstellung; jedes digit von 0 bis 3, also 4-wertigkeit
bildaufbau: 24 zeilen zu je 64 zeichen; jedes zeichen wird durch zwei tiles gebildet
die ?bereinander liegen.
jedes tile belegt ein word: 10 bit bitmap und 6 bit color. zwei tiles ein long.
'0 %%RGBx_RGBx_RGBx_RGBx
long %%0330_0010_0330_0010
long %%0330_0330_0010_0010
long $3C043C04 'grau/blau erste - hive-version
long $3C3C0404
Color-Calculator:
http://www.rayslogic.com/propeller/Programming/Colors.htm
For the 1024x768 VGA tile driver:
2 longs are required for each text foreground/background color combo, arranged as:
$ff_bb_ff_bb
$ff_ff_bb_bb
where 'ff' is the foreground color and 'bb' is the background color
2 longs needed because characters are in an interleaved pair
The first long is the color for the first character in a pair, the second long is for the second character in a pair.
Demo routine "print()" only allows for 8 fore/back combinations (using longs 0 to 15)
1 long required for box colors, arranged as:
$tl_br_fi_bb
where 'tl' is top-left edge, 'br' is bottom-right edge, 'fi' is focus indicators, and 'bb' is background color
The demo "box()" procedure hardwired to add 16 to input color number to pick box color and adds 5 to input
color number to pick text color for box...
So, "box(left,top,clr,str)" uses color number 16+clr for box colors and 5+clr for text color. You probably want
the 'bb' background colors of these two to match! Note that this limits you to 4 box colors.
1 long used for graphics colors, arranged as
$00_11_22_33
where 00,11,22,33 are the selectable graphics colors 0,1,2,3
Demo hardwired to use the 21st long (last one) for the graphics colors
The Propeller's "tile driver" video uses 32-bit (long) values to define a four color palette
The "color_ptr" parameter, given to the tile driver, specifies the location of the data block of up to 64 different
long palette values
Each long palette represents 4 different colors, one byte each. Each color byte uses 2 bits for each primary colors,
RGB, arranged as RGBx. The "x" represents the two least significant bits, which are ignored.
Parallax gives this example of a 32-bit long palette, represented as a 16-digit quaternary (2-bit) number:
%%3330_0110_0020_3300 or $FC1408F0
The first byte, %%3330 (binary %11111100), is the color white
The second byte, %%0110, is the color dark cyan
}}
org
'
' Entry: dummy-assemblercode fuer cogtest
'
entry jmp entry 'just loops
vgacolors long 'farbpalette
'============================================================
' v h v h ' v=Vordergrund, h=Hintergrund
' long $ 3C 04 3C 04 'Muster
' v v h h
' long $ 3C 3C 04 04 'Muster
'0 %%RGBx_RGBx_RGBx_RGBx
' long %%0330_0010_0330_0010
' long %%0330_0330_0010_0010
'============================================================
'set 1 - grau auf wei<00>
long $54FC54FC 'grau/wei<00>
long $5454FCFC
long $58FC58FC 'hellblau/wei<00>
long $5858FCFC
long $64FC64FC 'hellgr<00>n/wei<00>
long $6464FCFC
long $94FC94FC 'hellrot/wei<00>
long $9494FCFC
long $00FC00FC 'schwarz/wei<00>
long $0000FCFC
long $0CFC0CFC 'blau/wei<00>
long $0C0CFCFC
long $30FC30FC 'gr<00>n/wei<00>
long $3030FCFC
long $C0FCC0FC 'rot/wei<00>
long $C0C0FCFC
long $C0408080 'redbox
long $CC440088 'magentabox
long $3C142828 'cyanbox
long $FC54A8A8 'greybox
long $3C14FF28 'cyanbox+underscore
long $F030C050 'graphics colors
long $881430FC
long $8008FCA4
'set 2 - wei<00> auf schwarz
{
long $FC00FC00 'schwarz/wei<00>
long $FCFC0000
long $A800A800 'schwarz/hellgrau
long $A8A80000
long $54005400 'schwarz/dunkelgrau
long $54540000
long $30043004 'gr<00>n/blau
long $30300404
long $043C043C 'Color 0 reverse
long $04043C3C
long $FC04FC04 'weiss/blau
long $FCFC0404
long $FF80FF80 'red/white
long $FFFF8080
long $88048804 'magenta/blau
long $88880404
long $C0408080 'redbox
long $CC440088 'magentabox
long $3C142828 'cyanbox
long $FC54A8A8 'greybox
long $3C14FF28 'cyanbox+underscore
long $F030C050 'graphics colors
long $881430FC
long $8008FCA4
}
'set 3 - hellblau auf dunkelblau
{
long $3C043C04 'grau/blau erste - hive-version
long $3C3C0404
long $F004F004 'yellow/blue
long $F0F00404
long $C004C004 'rot/blau
long $C0C00404
long $30043004 'gr<00>n/blau
long $30300404
long $043C043C 'Color 0 reverse
long $04043C3C
long $FC04FC04 'weiss/blau
long $FCFC0404
long $FF80FF80 'red/white
long $FFFF8080
long $88048804 'magenta/blau
long $88880404
long $C0408080 'redbox
long $CC440088 'magentabox
long $3C142828 'cyanbox
long $FC54A8A8 'greybox
long $3C14FF28 'cyanbox+underscore
long $F030C050 'graphics colors
long $881430FC
long $8008FCA4
}
'set 4 - chess
{
'0..1: text color 0:
long $F010F010 '0: Yellow on Green
long $F0F01010
'2..3: text color 1:
long $C0FCC0FC '1: red on white
long $C0C0FCFC
'4..5: text color 2:
long $00FC00FC '2: black on white
long $0000FCFC
'6..7: text color 3:
long $F010F010 '3: Yellow on Green
long $F0F01010
long $043C043C 'Color 0 reverse
long $04043C3C
long $FC04FC04 'weiss/blau
long $FCFC0404
long $FF80FF80 'red/white
long $FFFF8080
long $88048804 'magenta/blau
long $88880404
long $C0408080 'redbox
long $CC440088 'magentabox
long $3C142828 'cyanbox
long $FC54A8A8 'greybox
long $3C14FF28 'cyanbox+underscore
long $F030C050 'graphics colors
long $881430FC
long $8008FCA4
}
' alte definitionen
{
long $F010F010 'yellow on dk green
long $F0F01010
long $C000C000 'red
long $C0C00000
long $30003000 'green
long $30300000
long $0C000C00 'blue
long $0C0C0000
long $FC04FC04 'white
long $FCFC0404
long $FF88FF88 'magenta/white
long $FFFF8888
long $C0408080 'redbox
long $CC440088 'magentabox
long $3C142828 'cyanbox
long $FC54A8A8 'greybox
long $3C14FF28 'cyanbox+underscore
long $F030C050 'graphics colors
long $881430FC
long $8008FCA4
}
DAT
padding long 1[16] '64-byte raum f<00>r die ausrichtung des zeichensatzes
uchar long
hive long
file "logo-hive-8x2.dat" '8x2=16
DAT
{{
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 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. %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
}}