{{ 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 oder : MANAGMENT 1 COG TV 1 COG KEYB 1 COG ------------------- 3 COG's Logbuch : 23-10-2008-dr235 - erste funktionsfä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ür statustasten eingefügt 05-09-2009-dr235 - abfrage der laufenden cogs eingefügt - deutschen tastaturtreiber mit vollstä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ügt & getestet - hive-logo eingefügt ------------------- 26-01-2011-dr235 - übernahme und anpassung des treibers aus trios 31-01-2011-dr235 - backspace als direktes steuerzeichen ($C8) eingefügt 01-02-2011-dr235 - multiscreenfä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 ü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ür verschiedene zeilenumbrüche in print_char eingefügt 02-10-2012-uheld - verzögertes Scrolling bei abgeschaltetem Cursor 21-10-2012-uheld - Window-Funktionen 28-11-2012-uheld - wahlweise Einbindung von VGA- oder TV-Treiber über #define Notizen: - setheader ACHTUNG: Mit VGA-Treiber ist row nicht die Zeilenposition, da zwei Tiles untereinander ein Zeichen bilden. Vielmehr ist die reale Zeilenposition row/2. ...oder allgemeingültig für VGA und TV: row/vdrv#TLINES_PER_ROW }} {{ 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ösung 0 5D getlong.resy MGR_GETRESY Abfrage der Y-Auflö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ö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ückschritt (Backspace) $09 TAB Tabulatorschritt $0A..FF CHAR Zeichenausgabe }} '#define __TV '#define __VGA 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 ' +---------- ' | +------- system ' | | +---- version (änderungen) ' | | | +- subversion (hinzufügungen) CHIP_VER = $00_01_02_02 ' ' +---------- ' | +-------- window ' | |+------- vektor ' | ||+------ grafik ' | |||+----- text ' | ||||+---- maus ' | |||||+--- tastatur ' | ||||||+-- vga ' | |||||||+- tv #ifdef __TV CHIP_SPEC = %00000000_00000000_00000000_10010101 #endif #ifdef __VGA CHIP_SPEC = %00000000_00000000_00000000_10010110 #endif RESX = vdrv#COLS * 16 RESY = vdrv#ROWS * 16 TILES = vdrv#COLS * vdrv#ROWS USERCHARS = 16 '8x2 logo TABANZ = 8 SCROLLDIFF = vdrv#TLINES_PER_ROW * vdrv#COLS KEYB_DPORT = BEL_KEYBD 'tastatur datenport KEYB_CPORT = BEL_KEYBC 'tastatur taktport CURSORCHAR = $0E 'cursorzeichen SCREENS = 3 'anzahl der screens WIN_P_SCR = 8 'Anzahl der Windows per Screen OBJ #ifdef __TV vdrv : "belf-tv" #endif #ifdef __VGA vdrv : "belf-vga" #endif keyb : "bel-keyb" bus : "bel-bus" 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/vdrv#TLINES_PER_ROW*SCREENS] 'bildschirmpuffer byte tab[TABANZ] 'tabulatorpositionen word user_charbase 'adresse der userzeichen byte wscrnr 'nummer ausgabescreens word lchar 'letztes zeichen byte this_win[SCREENS] 'Nr. des aktuellen Windows pro Screen byte col[SCREENS*WIN_P_SCR] 'spaltenposition byte row[SCREENS*WIN_P_SCR] 'zeilenposition long color[SCREENS*WIN_P_SCR] 'zeichenfarbe byte cursor[SCREENS*WIN_P_SCR] 'cursorzeichen byte curstat[SCREENS*WIN_P_SCR] 'cursorstatus 1 = ein byte needs_nl[SCREENS] 'Flag für verzögertes newline, falls curoff ' needs_nl ist ein Bit-Feld!! WIN_P_SCR darf deshalb nicht >8 sein!! byte nnl_idx 'Bitmaske für Operationen auf needs_nl byte windows[SCREENS*WIN_P_SCR*4] 'Window-Grenzen (x0,y0,xn,yn pro Window) byte ccol, crow 'current... werden durch win_set gefüllt ' long ccolor ' muss in vdrv definiert werden!! 'current... werden durch win_set gefüllt byte ccursor, ccurstat 'current... byte cwcols, cwrows 'current..., Breite und Höhe des aktuellen Window byte cx0, cy0, cxn, cyn 'Koordinaten des aktuellen Windows byte cneeds_nl long plen 'länge datenblock loader byte proghdr[16] 'puffer fü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 7: charblock '7: zeichen-blocktransfer ' ---------------------------------------------- WINDOW 80: win_define 82: win_set(wscrnr) 84: win_getcols 85: win_getrows 86: win_oframe ' ---------------------------------------------- CHIP-MANAGMENT 87: mgr_load 'neuen bellatrix-code laden 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ösung abfragen 93: mgr_getresy 'y-auflö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: reboot 'bellatrix neu starten PUB init_subsysteme|i 'chip: initialisierung des bellatrix-chips ''funktionsgruppe : chip ''funktion : - initialisierung des businterface '' : - vga & keyboard-treiber starten ''eingabe : - ''ausgabe : - bus.init_bus keyb.start(keyb_dport, keyb_cport) 'tastaturport starten wind := dind := wscrnr := 0 'auf ersten screen stellen repeat i from 0 to SCREENS-1 screen_init(i) set_current_win ' wscrnr = 0 --> Window 1 von Screen 0 aktivieren vdrv.start(@array) repeat i from 0 to TABANZ-1 'tabulatoren setzen tab[i] := i * 4 ' Ein schönes Logo gibt's z.Z. nur bei VGA user_charbase := @uchar & $FFC0 'berechnet die nächste 64-byte-grenze hinter dem zeichensatz longmove(user_charbase,@uchar,16*USERCHARS) 'verschiebt den zeichensatz auf die nächste 64-byte-grenze repeat i from 0 to SCREENS-1 wind := TILES*i 'ausgabe-index berechnen _print_logo(0,0) 'hive-logo anzeigen schar(cursor[wscrnr]) 'cursor an wind := 0 PRI screen_init(i) | x, w ' alle Windows von Screen i auf Standardgröße setzen, Window 1 wählen wordfill(@array.word[i*TILES], vdrv#SPACETILE, tiles) ' CLS cursor[i*WIN_P_SCR] := CURSORCHAR 'cursorzeichen setzen curstat[i*WIN_P_SCR] := 1 'cursor anschalten needs_nl[i] := 0 'darf nur am Bildschirmende 1 sein x := i * WIN_P_SCR * 4 windows[x++] := 0 ' x0 windows[x++] := 0 ' y0 windows[x++] := vdrv#COLS - 1 ' xn windows[x++] := vdrv#ROWS - vdrv#TLINES_PER_ROW ' yn repeat w from 1 to WIN_P_SCR - 1 windows[x++] := 0 ' x0 windows[x++] := vdrv#DEFAULT_Y0 ' y0 windows[x++] := vdrv#COLS - 1 ' xn windows[x++] := vdrv#ROWS - vdrv#TLINES_PER_ROW ' yn cursor[i*WIN_P_SCR+w] := CURSORCHAR curstat[i*WIN_P_SCR+w] := 1 row[i*WIN_P_SCR+w] := vdrv#DEFAULT_Y0 'home col[i*WIN_P_SCR+w] := 0 'pos1 color[i*WIN_P_SCR+w] := 0 this_win[i] := 1 CON ''------------------------------------------------- CHIP-MANAGMENT-FUNKTIONEN PRI mgr_wscr|scrnr, oldscr '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 1..SCREENS scrnr := bus.getchar - 1 if scrnr => 0 and scrnr < SCREENS oldscr := wscrnr wscrnr := scrnr wind := TILES*wscrnr 'ausgabe-index berechnen win_set_int(oldscr, this_win[wscrnr]) 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 1..SCREENS scrnr := bus.getchar - 1 if scrnr => 0 and scrnr < SCREENS ' dind := TILES * vdrv#TLINES_PER_ROW * scrnr 'display-index berechnen dind := TILES * 2 * scrnr 'display-index berechnen vdrv.set_dscr(@array+dind) PUB mgr_getcolor|cnr 'cmgr: farbregister auslesen ''funktionsgruppe : cmgr ''funktion : farbregister auslesen ''eingabe : - ''ausgabe : - ''busprotokoll : [0][090][get.cnr][bus.putlong.color] '' : cnr - nummer des farbregisters 0..15 '' : color - erster wert cnr := bus.getchar bus.putlong(vdrv.get_color(cnr)) PUB mgr_setcolor|cnr, colr 'cmgr: farbregister setzen ''funktionsgruppe : cmgr ''funktion : farbregister setzen ''eingabe : - ''ausgabe : - ''busprotokoll : [0][091][get.cnr][bus.getlong.color] '' : cnr - nummer des farbregisters 0..15 '' : color - farbwert cnr := bus.getchar colr := bus.getlong vdrv.set_color(cnr, colr) PUB mgr_getresx 'cmgr: abfrage der x-auflösung ''funktionsgruppe : cmgr ''funktion : abfrage der x-auflösung ''eingabe : - ''ausgabe : - ''busprotokoll : [0][092][put.resx] '' : resx - x-auflösung bus.putlong(RESX) PUB mgr_getresy 'cmgr: abfrage der y-auflösung ''funktionsgruppe : cmgr ''funktion : abfrage der y-auflösung ''eingabe : - ''ausgabe : - ''busprotokoll : [0][093][put.resy] '' : resy - y-auflösung bus.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(vdrv#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(vdrv#ROWS/vdrv#TLINES_PER_ROW) 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][bus.putlong.spec] '' : spec - spezifikation '' '' '' +---------- '' | +-------- window '' | |+------- vektor '' | ||+------ grafik '' | |||+----- text '' | ||||+---- maus '' | |||||+--- tastatur '' | ||||||+-- vga '' | |||||||+- tv ''CHIP_SPEC = %00000000_00000000_00000000_10010110 bus.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][bus.putlong.ver] '' : ver - version '' '' +---------- '' | +------- system '' | | +---- version (änderungen) '' | | | +- subversion (hinzufügungen) ''CHIP_VER = $00_01_02_01 bus.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ö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ä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ä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 ''------------------------------------------------- WINDOW-FUNKTIONEN PUB win_define | w, x0, y0, xn, yn, x w := bus.getchar x0 := bus.getchar #> 0 <# vdrv#COLS-1 y0 := (bus.getchar * vdrv#TLINES_PER_ROW) #> 0 <# vdrv#ROWS-1 xn := bus.getchar #> x0 <# vdrv#COLS-1 yn := (bus.getchar * vdrv#TLINES_PER_ROW) #> y0 <# vdrv#ROWS-1 if w < 1 or w => WIN_P_SCR ' Window 0 wird nicht überschrieben! return x := wscrnr*WIN_P_SCR*4 + w*4 windows[x++] := x0 windows[x++] := y0 windows[x++] := xn windows[x] := yn x := wscrnr*WIN_P_SCR + w col[x] := x0 row[x] := y0 PUB win_set(oldscr) | w w := bus.getchar if w < 0 or w => WIN_P_SCR return win_set_int(oldscr, w) PRI win_set_int(oldscr, w) | x ' current-Werte in altes Window sichern x := oldscr*WIN_P_SCR + this_win[oldscr] col[x] := ccol row[x] := crow color[x] := vdrv.get_ccolor cursor[x] := ccursor curstat[x] := ccurstat needs_nl[oldscr] := cneeds_nl if ccurstat == 1 schar($20) ' current-Werte für neues Window setzen this_win[wscrnr] := w set_current_win if ccurstat == 1 schar(ccursor) PRI set_current_win | x x := wscrnr*WIN_P_SCR + this_win[wscrnr] ccol := col[x] crow := row[x] vdrv.set_ccolor(color[x]) ccursor := cursor[x] ccurstat := curstat[x] x := wscrnr*WIN_P_SCR*4 + this_win[wscrnr]*4 cx0 := windows[x++] cy0 := windows[x++] cxn := windows[x++] cyn := windows[x] cwcols := cxn - cx0 + 1 cwrows := cyn - cy0 + vdrv#TLINES_PER_ROW nnl_idx := 1 << this_win[wscrnr] cneeds_nl := needs_nl[wscrnr] PUB win_getcols bus.putchar(cwcols) PUB win_getrows bus.putchar(cwrows / vdrv#TLINES_PER_ROW) PUB win_oframe | c, r c := ccol ' aktuelle Werte aufheben und am Ende zuruecksetzen r := crow if cy0 ' oberer Rand ist sichtbar crow := cy0 - vdrv#TLINES_PER_ROW if cx0 ccol := cx0 - 1 schar(159) repeat ccol from cx0 to cxn schar(144) '- if cxn < vdrv#COLS-1 ccol := cxn + 1 schar(158) if cx0 ' linke Seite ist sichtbar ccol := cx0 - 1 repeat crow from cy0 to cyn step vdrv#TLINES_PER_ROW schar(145) '| if cxn < vdrv#COLS-1 ' rechte Seite ist sichtbar ccol := cxn + 1 repeat crow from cy0 to cyn step vdrv#TLINES_PER_ROW schar(145) '| if cyn < vdrv#ROWS - vdrv#TLINES_PER_ROW ' unterer Rand ist sichtbar crow := cyn + vdrv#TLINES_PER_ROW if cx0 ccol := cx0 - 1 schar(157) repeat ccol from cx0 to cxn schar(144) '- if cxn < vdrv#COLS-1 ccol := cxn + 1 schar(156) ccol := c crow := r CON ''------------------------------------------------- SCREEN-FUNKTIONEN PRI charblock 'screen: schneller blocktransfer PUB print_char(c) | code,n 'screen: zeichen auf bildschirm ausgeben {{zeichen auf bildschirm ausgeben}} 'anpassung für die verschiedenen zeilenumbrü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 case c $0E..$FF: 'character? pchar(c) if ccurstat == 1 schar(ccursor) return $01: 'clear screen? n := wind + cy0 * vdrv#COLS + cx0 ' links oben repeat cwrows wordfill(@array.word[n], vdrv#SPACETILE, cwcols) n += vdrv#COLS crow := cy0 ccol := cx0 needs_nl[wscrnr] &= !nnl_idx if ccurstat == 1 'cursor einschalten schar(ccursor) $02: 'home? cneeds_nl &= !nnl_idx if ccurstat == 1 schar($20) crow := cy0 ccol := cx0 if ccurstat == 1 schar(ccursor) $03: 'pos1 cneeds_nl &= !nnl_idx if ccurstat == 1 schar($20) ccol := cx0 if ccurstat == 1 schar(ccursor) $04: 'curon if cneeds_nl & nnl_idx newline cneeds_nl ^= nnl_idx ccurstat := 1 schar(ccursor) $05: 'curoff if ccurstat == 1 schar($20) ccurstat := 0 $06: 'scrollup if ccurstat == 1 schar($20) scrollup if ccurstat == 1 schar(ccursor) $07: 'scrolldown if ccurstat == 1 schar($20) scrolldown if ccurstat == 1 schar(ccursor) $08: 'backspace? cneeds_nl &= !nnl_idx if ccol > cx0 if ccurstat == 1 schar($20) ccol-- if ccurstat == 1 schar(ccursor) $09: 'tab repeat n from 0 to TABANZ-1 if ccol < tab[n] + cx0 if ccurstat == 1 schar($20) ccol := tab[n] + cx0 if ccurstat == 1 schar(ccursor) quit $0A: 'LF ausblenden cneeds_nl &= !nnl_idx if ccurstat == 1 schar($20) newline if ccurstat == 1 schar(ccursor) $0D: 'return? if ccurstat == 1 schar($20) newline if ccurstat == 1 schar(ccursor) PUB print_ctrl(c) | code,n,m 'screen: steuerzeichen ausgeben case c $01: 'setcur code := bus.getchar ccursor := code if ccurstat == 1 schar(code) $02: 'setx if ccurstat == 1 schar($20) cneeds_nl &= !nnl_idx ccol := bus.getchar #> 0 <# vdrv#COLS-1 if ccurstat == 1 schar(ccursor) $03: 'sety if ccurstat == 1 schar($20) cneeds_nl &= !nnl_idx crow := (bus.getchar * vdrv#TLINES_PER_ROW) #> 0 <# vdrv#ROWS-vdrv#TLINES_PER_ROW if ccurstat == 1 schar(ccursor) $04: 'getx bus.putchar(ccol) $05: 'gety bus.putchar(crow / vdrv#TLINES_PER_ROW) $06: 'setcolor vdrv.set_ccolor(bus.getchar) $09: 'screeninit screen_init(wscrnr) set_current_win $0A: 'tabulator setzen n := bus.getchar m := bus.getchar if n =< (TABANZ-1) tab[n] := m $0B: 'winsetx if ccurstat == 1 schar($20) cneeds_nl &= !nnl_idx code := bus.getchar ccol := ~code #> -cwcols <# cwcols-1 ' negativ --> Abstand von rechts+1 if code < 0 ccol += cxn + 1 else ccol += cx0 if ccurstat == 1 schar(ccursor) $0C: 'winsety if ccurstat == 1 schar($20) cneeds_nl &= !nnl_idx code := bus.getchar ~code crow := (code * vdrv#TLINES_PER_ROW) #> -cwrows <# cwrows-vdrv#TLINES_PER_ROW '2 tiles pro zeichen! if code < 0 crow += cyn + vdrv#TLINES_PER_ROW else crow += cy0 if ccurstat == 1 schar(ccursor) $0D: 'wingetx bus.putchar(ccol - cx0) $0E: 'wingety bus.putchar((crow - cy0) / vdrv#TLINES_PER_ROW) PRI schar(c) vdrv.schar(crow * vdrv#COLS + ccol + wind, c) PRI pchar(c) 'screen: schreibt zeichen mit cursor an aktuelle position if cneeds_nl & nnl_idx newline cneeds_nl ^= nnl_idx schar(c) if ++ccol > cxn if ccurstat == 1 newline else cneeds_nl |= nnl_idx PUB newline | i 'screen: zeilenwechsel, inkl. scrolling am screenende ccol := cx0 if (crow += vdrv#TLINES_PER_ROW) > cyn crow -= vdrv#TLINES_PER_ROW scrollup PUB scrollup | zadr 'screen: scrollt den screen nach oben ' Start: linke obere Ecke, Breite: Window-Breite, Schrittweite: absolute Screen-Breite zadr := wind + cy0 * vdrv#COLS + cx0 ' links oben repeat cwrows-vdrv#TLINES_PER_ROW wordmove(@array.word[zadr], @array.word[zadr+SCROLLDIFF], cwcols) zadr += vdrv#COLS 'clear new line wordfill(@array.word[zadr], vdrv#SPACETILE, cwcols) if vdrv#TLINES_PER_ROW > 1 wordfill(@array.word[zadr+vdrv#COLS], vdrv#SPACETILE, cwcols) PUB scrolldown | zadr 'screen: scrollt den screen nach unten zadr := wind + (cyn+vdrv#TLINES_PER_ROW-1) * vdrv#COLS + cx0 ' links unten repeat cwrows-vdrv#TLINES_PER_ROW wordmove(@array.word[zadr], @array.word[zadr-SCROLLDIFF], cwcols) zadr -= vdrv#COLS 'clear new line wordfill(@array.word[zadr], vdrv#SPACETILE, cwcols) if vdrv#TLINES_PER_ROW > 1 wordfill(@array.word[zadr-vdrv#COLS], vdrv#SPACETILE, cwcols) PRI print_logo|x,y 'screen: hive-logo ausgeben x := bus.getchar y := bus.getchar _print_logo(x,y) #ifdef __TV PRI _print_logo(x,y)|c, r c := ccol r := crow ccol := x #> 0 <# vdrv#COLS-1 crow := (y * vdrv#TLINES_PER_ROW) #> 0 <# vdrv#ROWS-vdrv#TLINES_PER_ROW '2 tiles pro zeichen! pchar(" ") pchar("H") pchar("i") pchar("v") pchar("e") ccol := c crow := r #endif #ifdef __VGA PRI _print_logo(x,y)|padr padr := @hive+user_charbase-@uchar print_uchar(padr, x, y, 8, 2, 1) 'logo zeichnen #endif 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 * vdrv#COLS + xPos + wind] := pBMP + (c<<6) + clr c++ xPos++ yPos++ xPos:=t DAT org ' ' Entry: dummy-assemblercode fuer cogtest ' entry jmp entry 'just loops DAT padding long 1[16] '64-byte raum fü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. │ └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘ }}