Basic/source/reg-ios-bas.spin

2883 lines
107 KiB
Plaintext

{{
┌──────────────────────────────────────────────────────────────────────────────────────────────────────┐
│ 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 : [I]nput-[O]utput-[S]ystem - System-API
Chip : Regnatix
Typ : Objekt
Version : 01
Subversion : 1
Funktion : System-API - Schnittstelle der Anwendungen zu allen Systemfunktionen
Regnatix
system : Systemübergreifende Routinen
loader : Routinen um BIN-Dateien zu laden
ramdisk : Strukturierte Speicherverwaltung: Ramdisk
eram : Einfache Speicherverwaltung: Usermem
bus : Kommunikation zu Administra und Bellatrix
Administra
sd-card : FAT16 Dateisystem auf SD-Card
scr : Screeninterface
hss : Hydra-Soundsystem
sfx : Sound-FX
Bellatrix
key : Keyboardroutinen
screen : Bildschirmsteuerung
g0 : grafikmodus 0,TV-Modus 256 x 192 Pixel, Vektorengine
Venatrix diverse Buserweiterungen
Komponenten : -
COG's : -
Logbuch :
13-03-2009-dr235 - string für parameterübergabe zwischen programmen im eram eingerichtet
19-11-2008-dr235 - erste version aus dem ispin-projekt extrahiert
26-03-2010-dr235 - errormeldungen entfernt (mount)
05-08-2010-dr235 - speicherverwaltung für eram eingefügt
18-09-2010-dr235 - fehler in bus_init behoben: erste eram-zelle wurde gelöscht durch falsche initialisierung
25-11-2011-dr235 - funktionsset für grafikmodus 0 eingefügt
28-11-2011-dr235 - sfx_keyoff, sfx_stop eingefügt
01-12-2011-dr235 - printq zugefügt: ausgabe einer zeichenkette ohne steuerzeichen
25-01-2012-dr235 - korrektur char_ter_bs
15-09-2013-zille9 - erste Venatrix-Routinen bus_getchar3 und bus_putchar3 ,put/getword,long hinzugefügt
Notizen :
--------------------------------------------------------------------------------------------------------- }}
CON 'Signaldefinitionen
'signaldefinition regnatix
#0, D0,D1,D2,D3,D4,D5,D6,D7 'datenbus
#8, A0,A1,A2,A3,A4,A5,A6,A7,A8,A9,A10 'adressbus
#19, REG_RAM1,REG_RAM2 'selektionssignale rambank 1 und 2
#21, REG_PROP1,REG_PROP2 'selektionssignale für administra und bellatrix
#23, REG_AL 'strobesignal für adresslatch
#24, REG_PROP3 'Venatrix-Chipselect Signal
BUSCLK 'bustakt
BUS_WR '/wr - schreibsignal
BUS_HS ' '/hs - quittungssignal
CON 'Zeichencodes
'zeichencodes
CHAR_RETURN = $0D 'eingabezeichen
CHAR_NL = $0D 'newline
CHAR_SPACE = $20 'leerzeichen
CHAR_BS = $08 'tastaturcode backspace
CHAR_TER_BS = $08 'terminalcode backspace
CHAR_ESC = $1B
CHAR_LEFT = $02
CHAR_RIGHT = $03
CHAR_UP = $0B
CHAR_DOWN = $0A
KEY_CTRL = $02
KEY_ALT = $04
KEY_OS = $08
CON 'Systemvariablen
'systemvariablen
LOADERPTR = $0FFFFB '4 Byte 'Zeiger auf Loader-Register im hRAM
MAGIC = $0FFFFA '1 Byte 'Warmstartflag
SIFLAG = $0FFFF9 '1 byte 'Screeninit-Flag
BELDRIVE = $0FFFED '12 Byte 'Dateiname aktueller Grafiktreiber
PARAM = $0FFFAD '64 Byte 'Parameterstring
RAMDRV = $0FFFAC '1 Byte 'Ramdrive-Flag
RAMEND = $0FFFA8 '4 Byte 'Zeiger auf oberstes freies Byte (einfache Speicherverwaltung)
RAMBAS = $0FFFA4 '4 Byte 'Zeiger auf unterstes freies Byte (einfache Speicherverwaltung)
SYSVAR = $0FFFA3 'Adresse des obersten freien Bytes, darüber folgen Systemvariablen
CON 'Sonstiges
'CNT_HBEAT = 5_000_0000 'blinkgeschw. front-led
DB_IN = %00000111_11111111_11111111_00000000 'maske: dbus-eingabe
DB_OUT = %00000111_11111111_11111111_11111111 'maske: dbus-ausgabe
OS_TIBLEN = 64 'größe des inputbuffers
ERAM = 1024 * 512 * 2 'größe eram
HRAM = 1024 * 32 'größe hram
RMON_ZEILEN = 16 'speichermonitor - angezeigte zeilen
RMON_BYTES = 8 'speichermonitor - zeichen pro byte
STRCOUNT = 64 'größe des stringpuffers
CON 'ADMINISTRA-FUNKTIONEN --------------------------------------------------------------------------
'dateiattribute
#0, F_SIZE
F_CRDAY
F_CRMONTH
F_CRYEAR
F_CRSEC
F_CRMIN
F_CRHOUR
F_ADAY
F_AMONTH
F_AYEAR
F_CDAY
F_CMONTH
F_CYEAR
F_CSEC
F_CMIN
F_CHOUR
F_READONLY
F_HIDDEN
F_SYSTEM
F_DIR
F_ARCHIV
'dir-marker
#0, DM_ROOT
DM_SYSTEM
DM_USER
DM_A
DM_B
DM_C
CON 'BELLATRIX-FUNKTIONEN --------------------------------------------------------------------------
' einzeichen-steuercodes
#$0, BEL_CMD 'esc-code für zweizeichen-steuersequenzen
BEL_LEFT
BEL_HOME
BEL_POS1
BEL_CURON
BEL_CUROFF
BEL_SCRLUP
BEL_SCRLDOWN
BEL_BS
BEL_TAB
' zweizeichen-steuersequenzen
' [BEL_CMD][...]
#$1, BEL_KEY_STAT
BEL_KEY_CODE
BEL_DPL_SETY'SCRCMD 'esc-code für dreizeichen-sequenzen
BEL_KEY_SPEC
BEL_DPL_MOUSE
BEL_SCR_CHAR
BEL_BLKTRANS
BEL_DPL_SETX
BEL_LD_MOUSEBOUND
BEL_MOUSEX
BEL_MOUSEY
BEL_MOUSEZ
BEL_MOUSE_PRESENT
BEL_MOUSE_BUTTON
BEL_BOXSIZE
BEL_CURSORCOLOR
BEL_CURSORRATE
BEL_BOXCOLOR
BEL_ERS_3DBUTTON
BEL_SCOLLUP
BEL_SCOLLDOWN
BEL_DPL_3DBOX
BEL_DPL_3DFRAME
BEL_DPL_2DBOX
BEL_Send_BUTTON
BEL_SCROLLSTRING
BEL_DPL_STRING
BEL_DPL_SETXalt
BEL_DPL_SETYalt
BEL_LD_MOUSEPOINTER
BEL_DPL_SETPOS
BEL_DPL_TILE
BEL_DPL_WIN
BEL_DPL_TCOL
BEL_LD_TILESET
BEL_DPL_PIC
BEL_GETX
BEL_GETY
BEL_DPL_LINE
BEL_DPL_PIXEL
BEL_SPRITE_PARAM
BEL_SPRITE_POS
BEL_ACTOR
BEL_ACTORPOS
BEL_ACT_KEY
BEL_SPRITE_RESET
BEL_SPRITE_MOVE
BEL_SPRITE_SPEED
BEL_GET_COLLISION
BEL_GET_ACTOR_POS
BEL_SEND_BLOCK
BEL_FIRE_PARAM
BEL_FIRE
BEL_DPL_PALETTE
BEL_DEL_WINDOW
BEL_SET_TITELSTATUS
BEL_BACK
Bel_REST
BEL_WINDOW
BEL_GET_WINDOW
BEL_CHANGE_BACKUP
BEL_PRINTFONT
BEL_PUT
#$50, BMGR_WIN_DEFINE
BMGR_FREI
BMGR_WIN_SET
BMGR_FREI2
BMGR_WIN_GETCOLS
BMGR_WIN_GETROWS
BMGR_WIN_OFRAME
BMGR_LOAD
BMGR_WSCR
BMGR_DSCR
BMGR_GETCOLOR
BMGR_SETCOLOR
BMGR_GETRESX
BMGR_GETRESY
BMGR_GETCOLS
BMGR_GETROWS
BMGR_GETCOGS
BMGR_GETSPEC
BMGR_GETVER
BMGR_REBOOT
' dreizeichen-steuersequenzen
' [BEL_CMD][BEL_SCRCMD][...]
#$1, BEL_SETCUR
BEL_SETX
BEL_SETY
BEL_GETXalt
BEL_GETYalt
BEL_SETCOL
BEL_SLINE
BEL_ELINE
BEL_SINIT
BEL_TABSET
CON 'Venatrix-Funktionen -------------------------------------
#$0, VEN_CMD
#96, VEN_GETCGS
VEN_LOAD
VEN_GETVER
VEN_REBOOT
#220, VEN_PORT_RESET
VEN_PORT_WR
VEN_PORT_RD
VEN_JOYSTICK
' +----------
' | +------- system
' | | +---- version (änderungen)
' | | | +- subversion (hinzufügungen)
CHIP_VER = $00_01_01_01
'
' +----------
' | +--------
' | |+-------
' | ||+------
' | |||+-----
' | ||||+----
' | |||||+---
' | ||||||+-- multi
' | |||||||+- loader
CHIP_SPEC = %00000000_00000000_00000000_00000001
{
LIGHTBLUE = 0
YELLOW = 1
RED = 2
GREEN = 3
BLUE_REVERSE = 4
WHITE = 5
RED_INVERSE = 6
MAGENTA = 7
}
' konstante parameter für die sidcog's
{
scog_pal = 985248.0
scog_ntsc = 1022727.0
scog_maxf = 1031000.0
scog_triangle = 16
scog_saw = 32
scog_square = 64
scog_noise = 128
}
obj
ram_rw :"ram"
ser :"BasicSerial"'"SerialMirror" "RS232_ComEngine","JDCogSerial"
gc :"glob-con"
VAR
long lflagadr 'adresse des loaderflag
byte strpuffer[STRCOUNT] 'stringpuffer
byte tmptime
byte serial 'serielle Schnittstelle geöffnet?
byte parapos
PUB start: wflag 'system: ios initialisieren
''funktionsgruppe : system
''funktion : ios initialisieren
''eingabe : -
''ausgabe : wflag - 0: kaltstart
'' : 1: warmstart
''busprotokoll : -
bus_init 'bus initialisieren
ram_rw.start 'Ram-Treiber starten
serial:=0 'serielle Schnittstelle geschlossen
ram_wrlong($7f54,$FFFFB)
'ram_wrbyte(0,$7f,$FFFFC)
sddmact(DM_USER) 'wieder in userverzeichnis wechseln
lflagadr := ram_rdlong(LOADERPTR) 'adresse der loader-register setzen
if ram_rdbyte(MAGIC) == 235
'warmstart
wflag := 1
else
'kaltstart
ram_wrbyte(235,MAGIC)
' ram_wrlong(sysmod,SYSVAR,RAMEND) 'Zeiger auf letzte freie Speicherzelle setzen
' ram_wrlong(sysmod,$80000,RAMBAS) 'Zeiger auf erste freie Speicherzelle setzen
wflag := 0
ram_wrbyte(0,RAMDRV) 'Ramdrive ist abgeschaltet
'rbas := ram_rdlong(sysmod,RAMBAS)
'rend := ram_rdlong(sysmod,RAMEND)
'rd_init
PUB stop 'loader: beendet anwendung und startet os
''funktionsgruppe : system
''funktion : beendet die laufende anwendung und kehrt zum os (reg.sys) zurück
''eingabe : -
''ausgabe : -
''busprotokoll : -
ram_rw.stop
ser.stop
'sd_mount
sddmact(DM_ROOT)
sdopen("r",@regsys)
ldbin(@regsys)
repeat
'PUB startram 'system: initialisierung des systems bei ram-upload
''funktionsgruppe : system
''funktion : ios initialisieren - wenn man zu testzwecken das programm direkt in den ram
'' : überträgt und startet, bekommen alle props ein reset, wodurch bellatrix auf
'' : einen treiber wartet. für testzwecke erledigt diese routine den upload des
'' : standard-vga-treibers.
''eingabe : -
''ausgabe : -
''busprotokoll : -
' sdmount 'sd-karte mounten
' bload(@belsys) 'vga-treiber zu bellatrix übertragen
PUB paraset(stradr) | i,c 'system: parameter --> eram
''funktionsgruppe : system
''funktion : parameter --> eram - werden programme mit dem systemloader gestartet, so kann
'' : mit dieser funktion ein parameterstring im eram übergeben werden. das gestartete
'' : programm kann diesen dann mit "parastart" & "paranext" auslesen und verwenden
''eingabe : -
''ausgabe : stradr - adresse des parameterstrings
''busprotokoll : -
paradel 'parameterbereich löschen
repeat i from 0 to 63 'puffer ist mx. 64 zeichen lang
c := byte[stradr+i]
ram_wrbyte(c,PARAM+i)
if c == 0 'bei stringende vorzeitig beenden
return
pub paracopy(adr)|i,c
paradel 'parameterbereich löschen
repeat i from 0 to 63 'puffer ist mx. 64 zeichen lang
c := ram_rdbyte(adr++)
ram_wrbyte(c,PARAM+i)
if c == 0 'bei stringende vorzeitig beenden
return
PUB paradel | i 'system: parameterbereich löschen
''funktionsgruppe : system
''funktion : parameterbereich im eram löschen
''eingabe : -
''ausgabe : -
''busprotokoll : -
repeat i from 0 to 63
ram_wrbyte(0,PARAM+i)
PUB parastart 'system: setzt den zeiger auf parameteranfangsposition
''funktionsgruppe : system
''funktion : setzt den index auf die parameteranfangsposition
''eingabe : -
''ausgabe : -
''busprotokoll : -
parapos := 0
PUB paranext(stradr): err | i,c 'system: überträgt den nächsten parameter in stringdatei
''funktionsgruppe : system
''funktion : überträgt den nächsten parameter in stringdatei
''eingabe : stradr - adresse einer stringvariable für den nächsten parameter
''ausgabe : err - 0: kein weiterer parameter
'' : 1: parameter gültig
''busprotokoll : -
if ram_rdbyte(PARAM+parapos) <> 0 'stringende?
repeat until ram_rdbyte(PARAM+parapos) > CHAR_SPACE 'führende leerzeichen ausblenden
parapos++
i := 0
repeat 'parameter kopieren
c := ram_rdbyte(PARAM + parapos++)
if c <> CHAR_SPACE 'space nicht kopieren
byte[stradr++] := c
until (c == CHAR_SPACE) or (c == 0)
byte[stradr] := 0 'string abschließen
return 1
else
return 0
PUB reggetcogs:regcogs |i,c,cog[8] 'system: fragt freie cogs von regnatix ab
''funktionsgruppe : system
''funktion : fragt freie cogs von regnatix ab
''eingabe : -
''ausgabe : regcogs - anzahl der belegten cogs
''busprotokoll : -
regcogs := 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
regcogs := i
repeat 'unloads the cogs and updates the string
i--
if i=>0
cogstop(cog[i])
while i=>0
PUB ldbin(stradr) | len,i,stradr2 'loader: startet bin-datei über loader
''funktionsgruppe : system
''funktion : startet bin-datei über den systemloader
''eingabe : stradr - adresse eines strings mit dem dateinamen der bin-datei
''ausgabe : -
''busprotokoll : -
len := strsize(stradr)
stradr2 := lflagadr + 1 'adr = flag, adr + 1 = string
repeat i from 0 to len - 1 'string in loadervariable kopieren
byte[stradr2][i] := byte[stradr][i]
byte[stradr2][++i] := 0 'string abschließen
byte[lflagadr][0] := 1 'loader starten
PUB os_error(err):error 'sys: fehlerausgabe
{if err
printnl
print(string("Fehlernummer : "))
printdec(err)
print(string(" : $"))
printhex(err,2)
printnl
print(string("Fehler : "))
case err
0: print(string("no error"))
1: print(string("fsys unmounted"))
2: print(string("fsys corrupted"))
3: print(string("fsys unsupported"))
4: print(string("not found"))
5: print(string("file not found"))
6: print(string("dir not found"))
7: print(string("file read only"))
8: print(string("end of file"))
9: print(string("end of directory"))
10: print(string("end of root"))
11: print(string("dir is full"))
12: print(string("dir is not empty"))
13: print(string("checksum error"))
14: print(string("reboot error"))
15: print(string("bpb corrupt"))
16: print(string("fsi corrupt"))
17: print(string("dir already exist"))
18: print(string("file already exist"))
19: print(string("out of disk free space"))
20: print(string("disk io error"))
21: print(string("command not found"))
22: print(string("timeout"))
23: print(string("out of memory"))
OTHER: print(string("undefined"))}
'printnl
error := err
OBJ' SERIAL-FUNKTIONEN
CON' -------------------------------------------------- Funktionen der seriellen Schnittstelle -----------------------------------------------------------
pub seropen(baud) 'ser. Schnittstelle virtuell öffnen
ser.start(31, 30,0,baud)'0, baud) 'serielle Schnittstelle starten
serial:=1
pub serclose 'ser. Schnittstelle virtuell schliessen
serial:=0
ser.stop
pub serget:c 'warten bis Zeichen an ser. Schnittstelle anliegt
c:=ser.rx
pub serread:c ' Zeichen von ser. Schnittstelle lesen ohne zu warten -1 wenn kein Zeichen da ist
c:=ser.rxcheck
pub sertx(c)
ser.tx(c)
pub serdec(c)
ser.dec(c)
pub serstr(strg)
ser.str(strg)
pub serflush
ser.rxflush
OBJ '' A D M I N I S T R A
CON ''------------------------------------------------- CHIP-MANAGMENT
{PUB admsetsound(sndfunktion):sndstat 'chip-mgr: soundsubsysteme verwalten
''funktionsgruppe : cmgr
''funktion : soundsubsysteme an- bzw. abschalten
''busprotokoll : [150][put.funktion][get.sndstat]
'' : funktion - 0: hss-engine abschalten SND_HSSOFF
'' : 1: hss-engine anschalten SND_HSSON
'' : 2: dac-engine abschalten SND_WAVOFF
'' : 3: dac-engine anschalten SND_WAVON
'' : sndstat - status/cognr startvorgang
bus_putchar1(AMGR_SETSOUND)
bus_putchar1(sndfunktion)
sndstat := bus_getchar1
PUB admsetsyssnd(status) 'chip-mgr: systemklänge ein/ausschalten
''funktionsgruppe : cmgr
''funktion : systemklänge steuern
''busprotokoll : [094][put.fl_syssnd]
'' : fl_syssnd - flag zur steuerung der systemsounds
'' : 0 - systemtöne aus
'' : 1 - systemtöne an
bus_putchar1(AMGR_SETSYSSOUND)
bus_putchar1(status)
PUB admgetsndsys: status 'chip-mgr: status des soundsystems abfragen
''funktionsgruppe : cmgr
''funktion : abfrage welches soundsystem aktiv ist
''busprotokoll : [095][get.status]
'' : status - status des soundsystems
'' : 0 - sound aus
'' : 1 - hss
'' : 2 - wav
bus_putchar1(AMGR_GETSOUNDSYS)
status := bus_getchar1
}
PUB admload(stradr) 'chip-mgr: neuen administra-code booten
''funktionsgruppe : cmgr
''funktion : administra mit neuem code booten
''busprotokoll : [096][sub_putstr.fn]
'' : fn - dateiname des neuen administra-codes
bus_putchar1(gc#a_mgrALoad) 'aktuelles userdir retten
bus_putstr1(stradr)
waitcnt(cnt + clkfreq*3) 'warte bis administra fertig ist
PUB admgetver:ver 'chip-mgr: version abfragen
''funktionsgruppe : cmgr
''funktion : abfrage der version und spezifikation des chips
''busprotokoll : [098][sub_getlong.ver]
'' : ver - version
'' +----------
'' | +------- system
'' | | +---- version (änderungen)
'' | | | +- subversion (hinzufügungen)
''version : $00_00_00_00
''
bus_putchar1(gc#a_mgrGetVer)
ver := bus_getlong1
PUB admgetspec:spec 'chip-mgr: spezifikation abfragen
''funktionsgruppe : cmgr
''funktion : abfrage der version und spezifikation des chips
''busprotokoll : [089][sub_getlong.spec]
'' : spec - spezifikation
''
'' +---------- com
'' | +-------- i2c
'' | |+------- rtc
'' | ||+------ lan
'' | |||+----- sid
'' | ||||+---- wav
'' | |||||+--- hss
'' | ||||||+-- bootfähig
'' | |||||||+- dateisystem
''spezifikation : %00000000_00000000_00000000_01001111
bus_putchar1(gc#a_mgrGetSpec)
spec := bus_getlong1
PUB admgetcogs:cogs 'chip-mgr: verwendete cogs abfragen
''funktionsgruppe : cmgr
''funktion : abfrage wie viele cogs in benutzung sind
''busprotokoll : [097][get.cogs]
'' : cogs - anzahl der belegten cogs
bus_putchar1(gc#a_mgrGetCogs)
cogs := bus_getchar1
PUB admreset 'chip-mgr: administra reset
''funktionsgruppe : cmgr
''funktion : reset im administra-chip auslösen - loader aus dem eeprom wird neu geladen
''busprotokoll : -
bus_putchar1(gc#a_mgrReboot)
'PUB admdebug: wert 'chip-mgr: debug-funktion
' bus_putchar1(AMGR_DEBUG)
' wert := bus_getlong1
CON ''------------------------------------------------- SD_LAUFWERKSFUNKTIONEN
PUB sdmount: err 'sd-card: mounten
''funktionsgruppe : sdcard
''funktion : eingelegtes volume mounten
''busprotokoll : [001][get.err]
'' : err - fehlernummer entspr. list
bus_putchar1(gc#a_SDMOUNT)
err := bus_getchar1
PUB sddir 'sd-card: verzeichnis wird geöffnet
''funktionsgruppe : sdcard
''funktion : verzeichnis öffnen
''busprotokoll : [002]
bus_putchar1(gc#a_SDOPENDir)
PUB sdnext: stradr | flag 'sd-card: nächster dateiname aus verzeichnis
''funktionsgruppe : sdcard
''funktion : nächsten eintrag aus verzeichnis holen
''busprotokoll : [003][get.status=0]
'' : [003][get.status=1][sub_getstr.fn]
'' : status - 1 = gültiger eintrag
'' : 0 = es folgt kein eintrag mehr
'' : fn - verzeichniseintrag string
bus_putchar1(gc#a_SDNEXTFILE) 'kommando: nächsten eintrag holen
flag := bus_getchar1 'flag empfangen
if flag
return bus_getstr1
else
return 0
PUB sdopen(modus,stradr):err | len,i 'sd-card: datei öffnen
''funktionsgruppe : sdcard
''funktion : eine bestehende datei öffnen
''busprotokoll : [004][put.modus][sub_putstr.fn][get.error]
'' : modus - "A" Append, "W" Write, "R" Read (Großbuchstaben!)
'' : fn - name der datei
'' : error - fehlernummer entspr. list
bus_putchar1(gc#a_SDOPEN)
bus_putchar1(modus)
len := strsize(stradr)
bus_putchar1(len)
repeat i from 0 to len - 1
bus_putchar1(byte[stradr++])
err := bus_getchar1
PUB sdclose:err 'sd-card: datei schließen
''funktionsgruppe : sdcard
''funktion : die aktuell geöffnete datei schließen
''busprotokoll : [005][get.error]
'' : error - fehlernummer entspr. list
bus_putchar1(gc#a_SDCLOSE)
err := bus_getchar1
PUB sdgetc: char 'sd-card: zeichen aus datei lesen
''funktionsgruppe : sdcard
''funktion : zeichen aus datei lesen
''busprotokoll : [006][get.char]
'' : char - gelesenes zeichen
bus_putchar1(gc#a_SDGETC)
char := bus_getchar1
PUB sdputc(char) 'sd-card: zeichen in datei schreiben
{{sdputc(char) - sd-card: zeichen in datei schreiben}}
bus_putchar1(gc#a_SDPUTC)
bus_putchar1(char)
PUB sdgetstr(stringptr,len) 'sd-card: eingabe einer zeichenkette
repeat len
byte[stringptr++] := bus_getchar1
PUB sdputstr(stringptr) 'sd-card: ausgabe einer zeichenkette (0-terminiert)
{{sdstr(stringptr) - sd-card: ausgabe einer zeichenkette (0-terminiert)}}
repeat strsize(stringptr)
sdputc(byte[stringptr++])
PUB sddec(value) | i 'sd-card: dezimalen zahlenwert auf bildschirm ausgeben
{{sddec(value) - sd-card: dezimale bildschirmausgabe zahlenwertes}}
if value < 0 'negativer zahlenwert
-value
sdputc("-")
i := 1_000_000_000
repeat 10 'zahl zerlegen
if value => i
sdputc(value / i + "0")
value //= i
result~~
elseif result or i == 1
sdputc("0")
i /= 10 'n?chste stelle
PUB sdeof: eof 'sd-card: eof abfragen
''funktionsgruppe : sdcard
''funktion : eof abfragen
''busprotokoll : [030][get.eof]
'' : eof - eof-flag
bus_putchar1(gc#a_SDEOF)
eof := bus_getchar1
pub sdpos:c
bus_putchar1(gc#a_SDPOS)
c:=bus_getlong1
pub sdcopy(cm,pm,source)
bus_putchar1(gc#a_SDCOPY)
bus_putlong1(cm)
bus_putlong1(pm)
bus_putstr1(source)
PUB sdgetblk(count,bufadr) | i 'sd-card: block lesen
''funktionsgruppe : sdcard
''funktion : block aus datei lesen
''busprotokoll : [008][sub_putlong.count][get.char(1)]..[get.char(count)]
'' : count - anzahl der zu lesenden zeichen
'' : char - gelesenes zeichen
i := 0
bus_putchar1(gc#a_SDGETBLK)
bus_putlong1(count)
repeat count
byte[bufadr][i++] := bus_getchar1
PUB sdputblk(count,bufadr) | i 'sd-card: block schreiben
''funktionsgruppe : sdcard
''funktion : zeichen in datei schreiben
''busprotokoll : [007][put.char]
'' : char - zu schreibendes zeichen
i := 0
bus_putchar1(gc#a_SDPUTBLK)
bus_putlong1(count)
repeat count
bus_putchar1(byte[bufadr][i++])
con'************************************************ Blocktransfer test modifizieren fuer Tiledateien und Datendateien (damit es schneller geht ;-) **************************************
PUB sdxgetblk(adr,count)|i 'sd-card: block lesen --> eRAM
''funktionsgruppe : sdcard
''funktion : block aus datei lesen und in ramdisk speichern
''busprotokoll : [008][sub_putlong.count][get.char(1)]..[get.char(count)]
'' : count - anzahl der zu lesenden zeichen
'' : char - gelesenes zeichen
i := 0
bus_putchar1(gc#a_SDGETBLK)
bus_putlong1(count) 'laenge der Datei in byte
repeat count
'rd_put(fnr,bus_getchar1)
ram_wrbyte(bus_getchar1,adr++)
'PUB rd_put(adr,wert) | adr,fix 'ramdisk: nächstes byte in datei schreiben
'********** muss modifiziert werden ********************
'fix := fnr * FTCNT
'adr := ftab[fix+0] + ftab[fix+2]
' ram_wrbyte(0,wert,adr)
'rd_seek(fnr,ftab[fix+2]+1)
con '*********************************************** Blocktransfer test **************************************************************************************************
PUB sdxputblk(adr,count) 'sd-card: block schreiben <-- eRAM
''funktionsgruppe : sdcard
''funktion : zeichen aus ramdisk in datei schreiben
''busprotokoll : [007][put.char]
'' : char - zu schreibendes zeichen
bus_putchar1(gc#a_SDPUTBLK)
bus_putlong1(count)
repeat count
bus_putchar1(ram_rdbyte(adr++))'rd_get(fnr))
PUB sdseek(wert) 'sd-card: zeiger auf byteposition setzen
''funktionsgruppe : sdcard
''funktion : zeiger in datei positionieren
''busprotokoll : [010][sub_putlong.pos]
'' : pos - neue zeichenposition in der datei
bus_putchar1(gc#a_SDSEEK)
bus_putlong1(wert)
PUB sdfattrib(anr): attrib 'sd-card: dateiattribute abfragen
''funktionsgruppe : sdcard
''funktion : dateiattribute abfragen
''busprotokoll : [011][put.anr][sub_getlong.wert]
'' : anr - 0 = Dateigröße
'' : 1 = Erstellungsdatum - Tag
'' : 2 = Erstellungsdatum - Monat
'' : 3 = Erstellungsdatum - Jahr
'' : 4 = Erstellungsdatum - Sekunden
'' : 5 = Erstellungsdatum - Minuten
'' : 6 = Erstellungsdatum - Stunden
'' : 7 = Zugriffsdatum - Tag
'' : 8 = Zugriffsdatum - Monat
'' : 9 = Zugriffsdatum - Jahr
'' : 10 = Änderungsdatum - Tag
'' : 11 = Änderungsdatum - Monat
'' : 12 = Änderungsdatum - Jahr
'' : 13 = Änderungsdatum - Sekunden
'' : 14 = Änderungsdatum - Minuten
'' : 15 = Änderungsdatum - Stunden
'' : 16 = Read-Only-Bit
'' : 17 = Hidden-Bit
'' : 18 = System-Bit
'' : 19 = Direktory
'' : 20 = Archiv-Bit
'' : wert - wert des abgefragten attributes
bus_putchar1(gc#a_SDFATTRIB)
bus_putchar1(anr)
attrib := bus_getlong1
PUB sdvolname: stradr 'sd-card: volumelabel abfragen
''funktionsgruppe : sdcard
''funktion : name des volumes überragen
''busprotokoll : [012][sub_getstr.volname]
'' : volname - name des volumes
'' : len - länge des folgenden strings
bus_putchar1(gc#a_SDVOLNAME) 'kommando: volumelabel abfragen
return bus_getstr1
PUB sdcheckmounted: flag 'sd-card: test ob volume gemounted ist
''funktionsgruppe : sdcard
''funktion : test ob volume gemounted ist
''busprotokoll : [013][get.flag]
'' : flag - 0: unmounted
'' : 1: mounted
bus_putchar1(gc#a_SDCHECKMOUNTED)
return bus_getchar1
PUB sdcheckopen: flag 'sd-card: test ob datei geöffnet ist
''funktionsgruppe : sdcard
''funktion : test ob eine datei geöffnet ist
''busprotokoll : [014][get.flag]
'' : flag - 0: not open
'' : 1: open
bus_putchar1(gc#a_SDCHECKOPEN)
return bus_getchar1
PUB sdcheckused 'sd-card: abfrage der benutzten sektoren
''funktionsgruppe : sdcard
''funktion : anzahl der benutzten sektoren senden
''busprotokoll : [015][sub_getlong.used]
'' : used - anzahl der benutzten sektoren
bus_putchar1(gc#a_SDCHECKUSED)
return bus_getlong1
PUB sdcheckfree 'sd_card: abfrage der freien sektoren
''funktionsgruppe : sdcard
''funktion : anzahl der freien sektoren senden
''busprotokoll : [016][sub_getlong.free]
'' : free - anzahl der freien sektoren
bus_putchar1(gc#a_SDCHECKFREE)
return bus_getlong1
PUB sdnewfile(stradr):err 'sd_card: neue datei erzeugen
''funktionsgruppe : sdcard
''funktion : eine neue datei erzeugen
''busprotokoll : [017][sub_putstr.fn][get.error]
'' : fn - name der datei
'' : error - fehlernummer entspr. liste
bus_putchar1(gc#a_SDNEWFILE)
bus_putstr1(stradr)
err := bus_getchar1
PUB sdnewdir(stradr):err 'sd_card: neues verzeichnis erzeugen
''funktionsgruppe : sdcard
''funktion : ein neues verzeichnis erzeugen
''busprotokoll : [018][sub_putstr.fn][get.error]
'' : fn - name des verzeichnisses
'' : error - fehlernummer entspr. liste
bus_putchar1(gc#a_SDNEWDIR)
bus_putstr1(stradr)
err := bus_getchar1
PUB sddel(stradr):err 'sd_card: datei/verzeichnis löschen
''funktionsgruppe : sdcard
''funktion : eine datei oder ein verzeichnis löschen
''busprotokoll : [019][sub_putstr.fn][get.error]
'' : fn - name des verzeichnisses oder der datei
'' : error - fehlernummer entspr. liste
bus_putchar1(gc#a_SDDEL)
bus_putstr1(stradr)
err := bus_getchar1
PUB sdrename(stradr1,stradr2):err 'sd_card: datei/verzeichnis umbenennen
''funktionsgruppe : sdcard
''funktion : datei oder verzeichnis umbenennen
''busprotokoll : [020][sub_putstr.fn1][sub_putstr.fn2][get.error]
'' : fn1 - alter name
'' : fn2 - neuer name
'' : error - fehlernummer entspr. liste
bus_putchar1(gc#a_SDRENAME)
bus_putstr1(stradr1)
bus_putstr1(stradr2)
err := bus_getchar1
PUB sdchattrib(stradr1,stradr2):err 'sd-card: attribute ändern
''funktionsgruppe : sdcard
''funktion : attribute einer datei oder eines verzeichnisses ändern
''busprotokoll : [021][sub_putstr.fn][sub_putstr.attrib][get.error]
'' : fn - dateiname
'' : attrib - string mit attributen (AHSR)
'' : error - fehlernummer entspr. liste
bus_putchar1(gc#a_SDCHATTRIB)
bus_putstr1(stradr1)
bus_putstr1(stradr2)
err := bus_getchar1
PUB sdchdir(stradr):err 'sd-card: verzeichnis wechseln
''funktionsgruppe : sdcard
''funktion : verzeichnis wechseln
''busprotokoll : [022][sub_putstr.fn][get.error]
'' : fn - name des verzeichnisses
'' : error - fehlernummer entspr. list
bus_putchar1(gc#a_SDCHDIR)
bus_putstr1(stradr)
err := bus_getchar1
PUB sdformat(stradr):err 'sd-card: medium formatieren
''funktionsgruppe : sdcard
''funktion : medium formatieren
''busprotokoll : [023][sub_putstr.vlabel][get.error]
'' : vlabel - volumelabel
'' : error - fehlernummer entspr. list
bus_putchar1(gc#a_SDFORMAT)
bus_putstr1(stradr)
err := bus_getchar1
PUB sdunmount:err 'sd-card: medium abmelden
''funktionsgruppe : sdcard
''funktion : medium abmelden
''busprotokoll : [024][get.error]
'' : error - fehlernummer entspr. list
bus_putchar1(gc#a_SDUNMOUNT)
err := bus_getchar1
PUB sddmact(marker):err 'sd-card: dir-marker aktivieren
''funktionsgruppe : sdcard
''funktion : ein ausgewählter dir-marker wird aktiviert
''busprotokoll : [025][put.dmarker][get.error]
'' : dmarker - dir-marker
'' : error - fehlernummer entspr. list
bus_putchar1(gc#a_SDDMACT)
bus_putchar1(marker)
err := bus_getchar1
PUB sddmset(marker) 'sd-card: dir-marker setzen
''funktionsgruppe : sdcard
''funktion : ein ausgewählter dir-marker mit dem aktuellen verzeichnis setzen
''busprotokoll : [026][put.dmarker]
'' : dmarker - dir-marker
bus_putchar1(gc#a_SDDMSET)
bus_putchar1(marker)
PUB sddmget(marker):status 'sd-card: dir-marker abfragen
''funktionsgruppe : sdcard
''funktion : den status eines ausgewählter dir-marker abfragen
''busprotokoll : [027][put.dmarker][sub_getlong.dmstatus]
'' : dmarker - dir-marker
'' : dmstatus - status des markers
bus_putchar1(gc#a_SDDMGET)
bus_putchar1(marker)
status := bus_getlong1
PUB sddmclr(marker) 'sd-card: dir-marker löschen
''funktionsgruppe : sdcard
''funktion : ein ausgewählter dir-marker löschen
''busprotokoll : [028][put.dmarker]
'' : dmarker - dir-marker
bus_putchar1(gc#a_SDDMCLR)
bus_putchar1(marker)
PUB sddmput(marker,status) 'sd-card: dir-marker status setzen
''funktionsgruppe : sdcard
''funktion : dir-marker status setzen
''busprotokoll : [027][put.dmarker][sub_putlong.dmstatus]
'' : dmarker - dir-marker
'' : dmstatus - status des markers
bus_putchar1(gc#a_SDDMPUT)
bus_putchar1(marker)
bus_putlong1(status)
con'--------------------------------------------------- DCF77-Funktionen --------------------------------------------------------------------------------------------------------
pub dcf_sync:on
bus_putchar1(gc#a_DCF_INSYNC)
on:=bus_getchar1
pub dcf_update
bus_putchar1(gc#a_DCF_UPDATE_CLOCK)
pub dcf_geterror:on
bus_putchar1(gc#a_DCF_GETBITERROR)
on:=bus_getchar1
pub dcf_getdatacount:on
bus_putchar1(gc#a_DCF_GETDatacount)
on:=bus_getchar1
pub dcf_getbitnumber:on
bus_putchar1(gc#a_DCF_GetBitNumber)
on:=bus_getchar1
pub dcf_getbitlevel:on
bus_putchar1(gc#a_DCF_GetBitLevel)
on:=bus_getchar1
pub dcf_gettimezone:on
bus_putchar1(gc#a_DCF_GetTimeZone)
on:=bus_getchar1
pub dcf_getactive:on
bus_putchar1(gc#a_DCF_GetActiveSet)
on:=bus_getchar1
pub dcf_startup
bus_putchar1(gc#a_DCF_start)
pub dcf_down
bus_putchar1(gc#a_DCF_stop)
pub dcf_status:on
bus_putchar1(gc#a_DCF_dcfon)
on:=bus_getchar1
pub dcf_getseconds:on
bus_putchar1(gc#a_DCF_Getseconds)
on:=bus_getchar1
pub dcf_getminutes:on
bus_putchar1(gc#a_DCF_GetMinutes)
on:=bus_getchar1
pub dcf_gethours:on
bus_putchar1(gc#a_DCF_Gethours)
on:=bus_getchar1
pub dcf_getweekday:on
bus_putchar1(gc#a_DCF_GetWeekDay)
on:=bus_getchar1
pub dcf_getday:on
bus_putchar1(gc#a_DCF_GetDay)
on:=bus_getchar1
pub dcf_getmonth:on
bus_putchar1(gc#a_DCF_GetMonth)
on:=bus_getchar1
pub dcf_getyear:on
bus_putchar1(gc#a_DCF_GetYear)
on:=bus_getword1
con'--------------------------------------------------- Bluetooth-Funktionen -----------------------------------------------------------------------------------------------------
pub Set_Bluetooth_Command_Mode
bus_putchar1(gc#a_bl_Command_On)
pub Clear_Bluetooth_Command_Mode
bus_putchar1(gc#a_bl_Command_Off)
CON ''------------------------------------------------- LAN_FUNKTIONEN
PUB lanstart 'LAN starten
''funktionsgruppe : lan
''funktion : Netzwerk starten
''eingabe : -
''ausgabe : -
''busprotokoll : [071]
bus_putchar1(gc#a_lanStart)
waitcnt(cnt + clkfreq) '1sek warten (nach ios.lanstart dauert es, bis der Stack funktioniert)
PUB lanstop 'LAN beenden
''funktionsgruppe : lan
''funktion : Netzwerk anhalten
''eingabe : -
''ausgabe : -
''busprotokoll : [072]
bus_putchar1(gc#a_lanStop)
waitcnt(cnt + clkfreq) '1sek warten, bis in Administra wirklich beendet
PUB lan_connect(ipaddr, remoteport): handleidx
''funktionsgruppe : lan
''funktion : ausgehende TCP-Verbindung öffnen (mit Server verbinden)
'' : Da hier feste Puffer (bufrxconn,buftxconn) verwendet werden,
'' : darf diese Funktion nur einmal aufgerufen werden
'' : (driver_socket.spin handelt per default bis 4 Sockets)
''eingabe : -
''ausgabe : -
''busprotokoll : [073][sub_putlong.ipaddr][sub_putword.remoteport][get.handleidx]
'' : ipaddr - ipv4 address packed into a long (ie: 1.2.3.4 => $01_02_03_04)
'' : remoteport - port number to connect to
'' : handleidx - lfd. Nr. der Verbindung
bus_putchar1(gc#a_lanConnect)
bus_putlong1(ipaddr)
bus_putword1(remoteport)
handleidx := bus_getchar1
PUB lan_listen(port): handleidx
''funktionsgruppe : lan
''funktion : Port für eingehende TCP-Verbindung öffnen
''eingabe : -
''ausgabe : -
''busprotokoll : [074][sub_putword.port][get.handleidx]
'' : port - zu öffnende Portnummer
'' : handleidx - lfd. Nr. der Verbindung (index des kompletten handle)
bus_putchar1(gc#a_lanListen)
bus_putword1(port)
handleidx := bus_getchar1
PUB lan_waitconntimeout(handleidx, timeout): connected
''funktionsgruppe : lan
''funktion : bestimmte Zeit auf Verbindung warten
''eingabe : -
''ausgabe : -
''busprotokoll : [075][put.handleidx][sub_putword.timeout][get.connected]
'' : handleidx - lfd. Nr. der zu testenden Verbindung
'' : timeout - Timeout in Millisekunden
'' : connected - True, if connected
bus_putchar1(gc#a_lanWaitConnTimeout)
bus_putchar1(handleidx)
bus_putword1(timeout)
connected := bus_getchar1
PUB lan_close(handleidx)
''funktionsgruppe : lan
''funktion : TCP-Verbindung (ein- oder ausgehend) schließen
''eingabe : -
''ausgabe : -
''busprotokoll : [076][put.handleidx]
'' : handleidx - lfd. Nr. der zu schließenden Verbindung
bus_putchar1(gc#a_lanClose)
bus_putchar1(handleidx)
PUB lan_rxtime(handleidx, timeout): rxbyte
''funktionsgruppe : lan
''funktion : angegebene Zeit auf ASCII-Zeichen warten
'' : nicht verwenden, wenn anderes als ASCII (0 - 127) empfangen wird
''eingabe : -
''ausgabe : -
''busprotokoll : [077][sub_putlong.handleidx][sub_putword.timeout][get.rxbyte]
'' : handleidx - lfd. Nr. der Verbindung
'' : timeout - Timeout in Millisekunden
'' : rxbyte - empfangenes Zeichen (0 - 127) oder
'' : sock#RETBUFFEREMPTY (-1) wenn Timeout oder keine Verbindung mehr
bus_putchar1(gc#a_lanRXTime)
bus_putchar1(handleidx)
bus_putword1(timeout)
rxbyte := bus_getchar1
rxbyte := ~rxbyte
{PUB lan_rxdata(handleidx, filename, len): error | fnr
''funktionsgruppe : lan
''funktion : bei bestehender Verbindung die angegebene Datenmenge in File der RAM-Disk schreiben
''eingabe : -
''ausgabe : -
''busprotokoll : [078][put.handleidx][sub_putlong.len][get.byte1][get.byte<len>][get.error]
'' : handleidx - lfd. Nr. der Verbindung
'' : byte1 ... byte<len> - zu empfangende Bytes
'' : len - Anzahl zu empfangende Bytes
'' : error - ungleich Null bei Fehler
rd_del(filename) 'File aus RAM-Disk löschen (falls vorhanden)
rd_newfile(filename,len)
fnr := rd_open(filename)
ifnot fnr == -1
bus_putchar1(gc#a_lanRXData)
bus_putchar1(handleidx)
bus_putlong1(len)
repeat len
rd_put(fnr,bus_getchar1)
rd_close(fnr)
error := bus_getchar1
error := ~error
}
PUB lan_txdata(handleidx, ptr, len): error
''funktionsgruppe : lan
''funktion : bei bestehender Verbindung die angegebene Datenmenge senden
''eingabe : -
''ausgabe : -
''busprotokoll : [079][put.handleidx][sub_putlong.len][put.byte1][put.byte<len>][get.error]
'' : handleidx - lfd. Nr. der Verbindung
'' : byte1 ... byte<len> - zu sendende Bytes
'' : len - Anzahl zu sendender Bytes
'' : error - ungleich Null bei Fehler
bus_putchar1(gc#a_lanTXData)
bus_putchar1(handleidx)
bus_putlong1(len)
repeat len
bus_putchar1(byte[ptr++])
error := bus_getchar1
error := ~error
PUB lan_rxbyte(handleidx): rxbyte
''funktionsgruppe : lan
''funktion : wenn vorhanden, ein empfangenes Byte lesen
'' : nicht verwenden, wenn auch $FF empfangen werden kann
''eingabe : -
''ausgabe : -
''busprotokoll : [080][sub_putlong.handleidx]][get.rxbyte]
'' : handleidx - lfd. Nr. der Verbindung
'' : rxbyte - empfangenes Zeichen oder
'' : sock#RETBUFFEREMPTY (-1) wenn Empfangspuffer leer
bus_putchar1(gc#a_lanRXByte)
bus_putchar1(handleidx)
rxbyte := bus_getchar1
rxbyte := ~rxbyte
PUB lan_isconnected(handleidx): connected
''funktionsgruppe : lan
''funktion : TRUE, wenn Socket verbunden, sonst FALSE
''eingabe : -
''ausgabe : -
''busprotokoll : [081][sub_putlong.handleidx]][get.connected]
'' : handleidx - lfd. Nr. der Verbindung
'' : connected - TRUE, wenn Socket verbunden, sonst FALSE
bus_putchar1(gc#a_lanIsConnected)
bus_putchar1(handleidx)
connected := bus_getchar1
connected := ~connected
CON ''------------------------------------------------- DATE TIME FUNKTIONEN
pub time(x,y)|h,m,s
setpos(y,x)
s:=getSeconds
if s<>tmptime
h:=gethours
m:=getMinutes
if h<10
printchar("0")
printdec(h)
printchar(":")
if m<10
printchar("0")
printdec(m)
printchar(":")
if s<10
printchar("0")
printdec(s)
tmptime:=s
PUB getSeconds 'Returns the current second (0 - 59) from the real time clock.
bus_putchar1(gc#a_rtcGetSeconds)
return bus_getlong1
PUB getMinutes 'Returns the current minute (0 - 59) from the real time clock.
bus_putchar1(gc#a_rtcGetMinutes)
return bus_getlong1
PUB getHours 'Returns the current hour (0 - 23) from the real time clock.
bus_putchar1(gc#a_rtcGetHours)
return bus_getlong1
PUB getDay 'Returns the current day (1 - 7) from the real time clock.
bus_putchar1(gc#a_rtcGetDay)
return bus_getlong1
PUB getDate 'Returns the current date (1 - 31) from the real time clock.
bus_putchar1(gc#a_rtcGetDate)
return bus_getlong1
PUB getMonth 'Returns the current month (1 - 12) from the real time clock.
bus_putchar1(gc#a_rtcGetMonth)
return bus_getlong1
PUB getYear 'Returns the current year (2000 - 2099) from the real time clock.
bus_putchar1(gc#a_rtcGetYear)
return bus_getlong1
PUB setSeconds(seconds) 'Sets the current real time clock seconds.
'seconds - Number to set the seconds to between 0 - 59.
if seconds => 0 and seconds =< 59
bus_putchar1(gc#a_rtcSetSeconds)
bus_putlong1(seconds)
PUB setMinutes(minutes) 'Sets the current real time clock minutes.
'minutes - Number to set the minutes to between 0 - 59.
if minutes => 0 and minutes =< 59
bus_putchar1(gc#a_rtcSetMinutes)
bus_putlong1(minutes)
PUB setHours(hours) 'Sets the current real time clock hours.
'hours - Number to set the hours to between 0 - 23.
if hours => 0 and hours =< 23
bus_putchar1(gc#a_rtcSetHours)
bus_putlong1(hours)
PUB setDay(day) 'Sets the current real time clock day.
'day - Number to set the day to between 1 - 7.
if day => 1 and day =< 7
bus_putchar1(gc#a_rtcSetDay)
bus_putlong1(day)
PUB setDate(date) 'Sets the current real time clock date.
'date - Number to set the date to between 1 - 31.
if date => 1 and date =< 31
bus_putchar1(gc#a_rtcSetDate)
bus_putlong1(date)
PUB setMonth(month) 'Sets the current real time clock month.
'month - Number to set the month to between 1 - 12.
if month => 1 and month =< 12
bus_putchar1(gc#a_rtcSetMonth)
bus_putlong1(month)
PUB setYear(year) 'Sets the current real time clock year.
'year - Number to set the year to between 2000 - 2099.
if year => 2000 and year =< 2099
bus_putchar1(gc#a_rtcSetYear)
bus_putlong1(year)
PUB setNVSRAM(index, value) 'Sets the NVSRAM to the selected value (0 - 255) at the index (0 - 55).
'index - The location in NVRAM to set (0 - 55).
'value - The value (0 - 255) to change the location to.
if index => 0 AND index =< 55 AND value => 0 AND value =< 255
bus_putchar1(gc#a_rtcSetNVSRAM)
bus_putlong1(index)
bus_putlong1(value)
PUB getNVSRAM(index) 'Gets the selected NVSRAM value at the index (0 - 55).
'Returns the selected location's value (0 - 255).
'index - The location in NVRAM to get (0 - 55).
bus_putchar1(gc#a_rtcGetNVSRAM)
bus_putlong1(index)
return bus_getlong1
{
PUB pauseForSeconds(number) 'Pauses execution for a number of seconds.
'number - Number of seconds to pause for between 0 and 2,147,483,647.
bus_putchar1(gc#a_rtcPauseForSec)
return bus_getlong1
PUB pauseForMilliseconds(number) 'Pauses execution for a number of milliseconds.
'Returns a puesdo random value derived from the current clock frequency and the time when called.
'number - Number of milliseconds to pause for between 0 and 2,147,483,647.
bus_putchar1(gc#a_rtcPauseForMSec)
return bus_getlong1
}
con'--------------------------------------------------- AY-DMP-Player--------------------------------------------------------------------------------------------------------------
{PUB ay_sdmpplay(stradr): err 'sid: dmp-datei stereo auf beiden sid's abspielen
''funktionsgruppe : sid
''funktion : sid: dmp-datei stereo auf beiden sid's abspielen
''busprotokoll : [158][sub.putstr][get.err]
'' : err - fehlernummer entspr. liste
bus_putchar1(AYCOG_SDMPPLAY)
bus_putstr1(stradr)
err := bus_getchar1
}
CON ''------------------------------------------------- SIDCog DMP-Player
'PUB sid_mdmpplay(stradr): err 'sid: dmp-datei mono auf sid2 abspielen
''funktionsgruppe : sid
''funktion : dmp-datei auf sid2 von sd-card abspielen
''busprotokoll : [157][sub.putstr][get.err]
'' : err - fehlernummer entspr. liste
' bus_putchar1(SCOG_MDMPPLAY)
' bus_putstr1(stradr)
' err := bus_getchar1
PUB sid_sdmpplay(stradr): err 'sid: dmp-datei stereo auf beiden sid's abspielen
''funktionsgruppe : sid
''funktion : sid: dmp-datei stereo auf beiden sid's abspielen
''busprotokoll : [158][sub.putstr][get.err]
'' : err - fehlernummer entspr. liste
bus_putchar1(gc#a_s_sdmpplay)
bus_putstr1(stradr)
err := bus_getchar1
PUB sid_dmpstop
bus_putchar1(gc#a_s_dmpstop)
PUB sid_dmppause
bus_putchar1(gc#a_s_dmppause)
PUB sid_dmpstatus: status
bus_putchar1(gc#a_s_dmpstatus)
status := bus_getchar1
PUB sid_dmppos: wert
bus_putchar1(gc#a_s_dmppos)
wert := bus_getlong1
bus_getlong1
PUB sid_dmplen: wert
bus_putchar1(gc#a_s_dmppos)
bus_getlong1
wert := bus_getlong1
PUB sid_mute(sidnr) 'sid: chips stummschalten
bus_putchar1(gc#a_s_mute)
bus_putchar1(sidnr)
pub sid_resetRegisters
bus_putchar1(196)
bus_putchar1(197)
PUB sid_dmpreg: stradr | i 'sid: dmp-register empfangen
' daten im puffer
' word frequenz kanal 1
' word frequenz kanal 2
' word frequenz kanal 3
' byte volume
i := 0
bus_putchar1(199)
repeat 7
byte[@strpuffer + i++] := bus_getchar1
return @strpuffer
CON ''------------------------------------------------- SIDCog1-Funktionen
PUB sid1_setRegister(reg,val)
bus_putchar1(gc#a_s1_setRegister)
bus_putchar1(reg)
bus_putchar1(val)
PUB sid1_updateRegisters(regadr)
bus_putchar1(gc#a_s1_updateRegisters)
repeat 25
bus_putchar1(byte[regadr++])
PUB sid1_setVolume(vol)
bus_putchar1(gc#a_s1_setVolume)
bus_putchar1(vol)
PUB sid1_play(channel, freq, waveform, attack, decay, sustain, release)
bus_putchar1(gc#a_s1_play)
bus_putchar1(channel)
bus_putchar1(freq)
bus_putchar1(waveform)
bus_putchar1(attack)
bus_putchar1(decay)
bus_putchar1(sustain)
bus_putchar1(release)
PUB sid1_noteOn(channel, freq)
bus_putchar1(gc#a_s1_noteOn)
bus_putchar1(channel)
bus_putchar1(freq)
'bus_putlong1(freq)
PUB sid1_noteOff(channel)
bus_putchar1(gc#a_s1_noteOff)
bus_putchar1(channel)
PUB sid1_setFreq(channel,freq)
bus_putchar1(gc#a_s1_setFreq)
bus_putchar1(channel)
bus_putlong1(freq)
PUB sid1_setWaveform(channel,waveform)
bus_putchar1(gc#a_s1_setWaveform)
bus_putchar1(channel)
bus_putchar1(waveform)
PUB sid1_setPWM(channel, val)
bus_putchar1(gc#a_s1_setPWM)
bus_putchar1(channel)
bus_putlong1(val)
PUB sid1_setADSR(channel, attack, decay, sustain, release )
bus_putchar1(gc#a_s1_setADSR)
bus_putchar1(channel)
bus_putchar1(attack)
bus_putchar1(decay)
bus_putchar1(sustain)
bus_putchar1(release)
PUB sid1_setResonance(val)
bus_putchar1(gc#a_s1_setResonance)
bus_putchar1(val)
PUB sid1_setCutoff(freq)
bus_putchar1(gc#a_s1_setCutoff)
bus_putlong1(freq)
PUB sid1_setFilterMask(ch1,ch2,ch3)
bus_putchar1(gc#a_s1_setFilterMask)
bus_putchar1(ch1)
bus_putchar1(ch2)
bus_putchar1(ch3)
PUB sid1_setFilterType(lp,bp,hp)
bus_putchar1(gc#a_s1_setFilterType)
bus_putchar1(lp)
bus_putchar1(bp)
bus_putchar1(hp)
PUB sid1_enableRingmod(ch1,ch2,ch3)
bus_putchar1(gc#a_s1_enableRingmod)
bus_putchar1(ch1)
bus_putchar1(ch2)
bus_putchar1(ch3)
PUB sid1_enableSynchronization(ch1,ch2,ch3)
bus_putchar1(gc#a_s1_enableSynchronization)
bus_putchar1(ch1)
bus_putchar1(ch2)
bus_putchar1(ch3)
pub sid_beep(n)
bus_putchar1(198)
bus_putchar1(n)
CON ''------------------------------------------------- SIDCog2-Funktionen
{PUB sid2_setRegister(reg,val)
bus_putchar1(gc#a_s2_setRegister)
bus_putchar1(reg)
bus_putchar1(val)
PUB sid2_updateRegisters(regadr)
bus_putchar1(gc#a_s2_updateRegisters)
repeat 25
bus_putchar1(byte[regadr++])
PUB sid2_setVolume(vol)
bus_putchar1(gc#a_s2_setVolume)
bus_putchar1(vol)
PUB sid2_play(channel, freq, waveform, attack, decay, sustain, release)
bus_putchar1(gc#a_s2_play)
bus_putchar1(channel)
bus_putchar1(freq)
bus_putchar1(waveform)
bus_putchar1(attack)
bus_putchar1(decay)
bus_putchar1(sustain)
bus_putchar1(release)
PUB sid2_noteOn(channel, freq)
bus_putchar1(gc#a_s2_noteOn)
bus_putchar1(channel)
bus_putlong1(freq)
PUB sid2_noteOff(channel)
bus_putchar1(gc#a_s2_noteOff)
bus_putchar1(channel)
PUB sid2_setFreq(channel,freq)
bus_putchar1(gc#a_s2_setFreq)
bus_putchar1(channel)
bus_putlong1(freq)
PUB sid2_setWaveform(channel,waveform)
bus_putchar1(gc#a_s2_setWaveform)
bus_putchar1(channel)
bus_putchar1(waveform)
PUB sid2_setPWM(channel, val)
bus_putchar1(gc#a_s2_setPWM)
bus_putchar1(channel)
bus_putlong1(val)
PUB sid2_setADSR(channel, attack, decay, sustain, release )
bus_putchar1(gc#a_s2_setADSR)
bus_putchar1(channel)
bus_putchar1(attack)
bus_putchar1(decay)
bus_putchar1(sustain)
bus_putchar1(release)
PUB sid2_setResonance(val)
bus_putchar1(gc#a_s2_setResonance)
bus_putchar1(val)
PUB sid2_setCutoff(freq)
bus_putchar1(gc#a_s2_setCutoff)
bus_putlong1(freq)
PUB sid2_setFilterMask(ch1,ch2,ch3)
bus_putchar1(gc#a_s2_setFilterMask)
bus_putchar1(ch1)
bus_putchar1(ch2)
bus_putchar1(ch3)
PUB sid2_setFilterType(lp,bp,hp)
bus_putchar1(gc#a_s2_setFilterType)
bus_putchar1(lp)
bus_putchar1(bp)
bus_putchar1(hp)
PUB sid2_enableRingmod(ch1,ch2,ch3)
bus_putchar1(gc#a_s2_enableRingmod)
bus_putchar1(ch1)
bus_putchar1(ch2)
bus_putchar1(ch3)
PUB sid2_enableSynchronization(ch1,ch2,ch3)
bus_putchar1(gc#a_s2_enableSynchronization)
bus_putchar1(ch1)
bus_putchar1(ch2)
bus_putchar1(ch3)
}
OBJ '' B E L L A T R I X
CON ''------------------------------------------------- CHIP-MANAGMENT
PUB belgetcogs:belcogs 'chip-mgr: verwendete cogs abfragen
bus_putchar2(BEL_CMD) 'kommandosequenz einleiten
bus_putchar2(BMGR_GETCOGS) 'code 5 = freie cogs
belcogs := bus_getchar2 'statuswert empfangen
pub bel_get:vers
bus_putchar2(BEL_CMD) 'kommandosequenz einleiten
bus_putchar2(BMGR_GETVER) 'code 95 = tiledriver 64 farben
vers := bus_getlong2 'statuswert empfangen
PUB belgetspec:spec 'chip-mgr: spezifikationen abfragen
''funktionsgruppe : cmgr
''funktion : abfrage der version und spezifikation des chips
''busprotokoll : [089][sub_getlong.spec]
'' : spec - spezifikation
''
''
'' +----------
'' | +--------
'' | |+------- vektor
'' | ||+------ grafik
'' | |||+----- text
'' | ||||+---- maus
'' | |||||+--- tastatur
'' | ||||||+-- vga
'' | |||||||+- tv
''spezifikation = %00000000_00000000_00000000_00010110
bus_putchar2(BEL_CMD) 'kommandosequenz einleiten
bus_putchar2(BMGR_GETSPEC)
spec := bus_getlong2
PUB belreset 'chip-mgr: bellatrix reset
{{breset - bellatrix neu starten}}
bus_putchar2(BEL_CMD) 'kommandosequenz einleiten
bus_putchar2(BMGR_REBOOT) 'code 99 = reboot
PUB belload(stradr) 'chip-mgr: neuen bellatrix-code booten
bus_putchar2(BEL_CMD) 'kommandosequenz einleiten
bus_putchar2(BMGR_LOAD) 'code 87 = code laden
waitcnt(cnt + 2_000_000) 'warte bis bel fertig ist
bload(stradr)
waitcnt(cnt + 2_000_000) 'warte bis bel fertig ist
PUB bload(stradr) | n,rc,ii,plen 'system: bellatrix mit grafiktreiber initialisieren
{{bload(stradr) - bellatrix mit grafiktreiber initialisieren
wird zusätzlich zu belload gebraucht, da situationen auftreten, in denen bella ohne reset (kaltstart) mit
einem treiber versorgt werden muß. ist der bella-loader aktiv, reagiert er nicht auf das reset-kommando.
stradr - adresse eines 0-term-strings mit dem dateinamen des bellatrixtreibers
}}
' kopf der bin-datei einlesen ------------------------------------------------------
rc := sdopen("r",stradr) 'datei öffnen
repeat ii from 0 to 15 '16 bytes header --> bellatrix
n := sdgetc
bus_putchar2(n)
sdclose 'bin-datei schießen
' objektgröße empfangen
plen := bus_getchar2 << 8 'hsb empfangen
plen := plen + bus_getchar2 'lsb empfangen
' bin-datei einlesen ------------------------------------------------------
sdopen("r",stradr) 'bin-datei öffnen
repeat ii from 0 to plen-1 'datei --> bellatrix
n := sdgetc
bus_putchar2(n)
sdclose
CON ''------------------------------------------------- KEYBOARD
PUB key:wert 'key: holt tastaturcode
{{key:wert - key: übergibt tastaturwert}}
bus_putchar2($0) 'kommandosequenz einleiten
bus_putchar2($2) 'code 2 = tastenwert holen
wert := bus_getchar2 'tastenwert empfangen
PUB keyspec:wert 'key: statustasten zum letzten tastencode
bus_putchar2($0) 'kommandosequenz einleiten
bus_putchar2($4) 'code 2 = tastenwert holen
wert := bus_getchar2 'wert empfangen
PUB keystat:status 'key: übergibt tastaturstatus
{{keystat:status - key: übergibt tastaturstatus}}
bus_putchar2($0) 'kommandosequenz einleiten
bus_putchar2($1) 'code 1 = tastaturstatus
status := bus_getchar2 'statuswert empfangen
PUB keywait:n 'key: wartet bis taste gedrückt wird
{{keywait: n - key: wartet bis eine taste gedrückt wurde}}
repeat
until keystat > 0
return key
pub inkey:n
bus_putchar2($0) 'kommandosequenz einleiten
bus_putchar2($7) 'code 2 = tastenwert holen
n := bus_getchar2 'wert empfangen
pub clearkey
bus_putchar2($0)
bus_putchar2($D)
CON ''------------------------------------------------- SCREEN
'var byte globalcolor 'gesetzte hintergrundfarbe
PUB print(stringptr)|c 'screen: bildschirmausgabe einer zeichenkette (0-terminiert)
{{print(stringptr) - screen: bildschirmausgabe einer zeichenkette (0-terminiert)}}
repeat strsize(stringptr)
c:=byte[stringptr++]
bus_putchar2(c)
'bus_putchar3(c)
if serial==1
ser.tx(c)
pub put(c,x,y)
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_PUT)
bus_putchar2(c)
bus_putchar2(x)
bus_putchar2(y)
pub get_window:a
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_Get_Window)
a:=bus_getchar2
pub windel(num)|i,c
i:=$7E500
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_Del_Window)
bus_putchar2(num)
repeat 17
c:=ram_rdbyte(i++)
bus_putchar2(c)
pub window(win,farbe1,farbe2,farbe3,farbe4,farbe5,farbe6,farbe7,farbe8,y,x,yy,xx,modus,shd)',frm)
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_Window)
bus_putchar2(win)
bus_putchar2(farbe1)
bus_putchar2(farbe2)
bus_putchar2(farbe3)
bus_putchar2(farbe4)
bus_putchar2(farbe5)
bus_putchar2(farbe6)
bus_putchar2(farbe7)
bus_putchar2(farbe8)
bus_putchar2(y)
bus_putchar2(x)
bus_putchar2(yy)
bus_putchar2(xx)
bus_putchar2(modus)
bus_putchar2(shd)
pub printfont(win,str,f1,f2,f3,y,x,offset)
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_PRINTFONT)
bus_putchar2(win)
bus_putchar2(f1)
bus_putchar2(f2)
bus_putchar2(f3)
bus_putchar2(y)
bus_putchar2(x)
bus_putchar2(offset)
bus_putstr2(str)
pub Set_Titel_Status(win,modus,char)
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_SET_TITELSTATUS)
bus_putchar2(win) 'Fensternummer
bus_putchar2(modus) 'titel oder statustext
bus_putstr2(char) 'String
pub printBoxSize(win,y, x,yy, xx)
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_BoxSize)
bus_putchar2(win)
bus_putchar2(y)
bus_putchar2(x)
bus_putchar2(yy)
bus_putchar2(xx)
pub printwindow(win) 'wieder hauptfenster setzen
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_DPL_WIN)
bus_putchar2(win)
pub printBoxColor(win,vor, hinter,cursor)
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_BOXCOLOR)
bus_putchar2(win)
bus_putchar2(vor)
bus_putchar2(hinter)
bus_putchar2(cursor)
pub printCursorRate(rate)
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_CursorRate)
bus_putchar2(rate)
pub display2dbox(farbe, y, x, yy, xx,shd)
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_DPL_2DBOX)
bus_putchar2(farbe)
bus_putchar2(y)
bus_putchar2(x)
bus_putchar2(yy)
bus_putchar2(xx)
bus_putchar2(shd)
pub scrollup(lines, farbe, y, x, yy, xx,rate)
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_SCOLLUP)
bus_putchar2(lines)
bus_putchar2(farbe)
bus_putchar2(y)
bus_putchar2(x)
bus_putchar2(yy)
bus_putchar2(xx)
bus_putchar2(rate)
pub scrolldown(lines, farbe, y, x, yy, xx,rate)
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_SCOLLDOWN)
bus_putchar2(lines)
bus_putchar2(farbe)
bus_putchar2(y)
bus_putchar2(x)
bus_putchar2(yy)
bus_putchar2(xx)
bus_putchar2(rate)
pub display3DBox(topColor, centerColor, bottomColor, y, x, yy, xx)
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_DPL_3DBOX)
bus_putchar2(topColor)
bus_putchar2(centerColor)
bus_putchar2(bottomColor)
bus_putchar2(y)
bus_putchar2(x)
bus_putchar2(yy)
bus_putchar2(xx)
pub display3DFrame(topColor, centerColor, bottomColor, y, x, yy, xx)
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_DPL_3DFRAME)
bus_putchar2(topColor)
bus_putchar2(centerColor)
bus_putchar2(bottomColor)
bus_putchar2(y)
bus_putchar2(x)
bus_putchar2(yy)
bus_putchar2(xx)
pub send_button_param(number,x,y,xx)
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_Send_BUTTON)
bus_putchar2(number)
bus_putchar2(x)
bus_putchar2(y)
bus_putchar2(xx)
pub destroy3dbutton(number)
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_ERS_3DBUTTON)
bus_putchar2(number)
pub Plot_Line(x, y, xx, yy,farbe)
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_DPL_LINE)
bus_putchar2(x)
bus_putchar2(y)
bus_putchar2(xx)
bus_putchar2(yy)
bus_putchar2(farbe)
pub PlotPixel(farbe,x,y)
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_DPL_PIXEL)
bus_putchar2(farbe)
bus_putchar2(y)
bus_putchar2(x)
pub Actorset(tnr1,col1,col2,col3,x,y)
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_ACTOR)
bus_putchar2(tnr1)
bus_putchar2(col1)
bus_putchar2(col2)
bus_putchar2(col3)
bus_putchar2(x)
bus_putchar2(y)
pub setactor_xy(k)
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_ACTORPOS)
bus_putchar2(k)
'bus_putchar2(y)
pub setactionkey(k1,k2,k3,k4,k5)
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_ACT_KEY)
bus_putchar2(k1)
bus_putchar2(k2)
bus_putchar2(k3)
bus_putchar2(k4)
bus_putchar2(k5)
pub reset_sprite
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_SPRITE_RESET)
pub set_sprite(num,tnr,tnr2,f1,f2,f3,dir,strt,end,x,y)
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_SPRITE_PARAM)
bus_putchar2(num)
bus_putchar2(tnr) 'tilenrnummer
bus_putchar2(tnr2) 'tilenrnummer2
bus_putchar2(f1) 'farben 1-3
bus_putchar2(f2)
bus_putchar2(f3)
bus_putchar2(dir) 'richtung
bus_putchar2(strt) 'startposition
bus_putchar2(end) 'endposition
bus_putchar2(x) 'x und y parameter
bus_putchar2(y)
pub Sprite_Move(on)
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_SPRITE_MOVE)
bus_putchar2(on)
pub set_sprite_speed(wert)
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_SPRITE_SPEED)
bus_putchar2(wert)
pub get_Collision
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_GET_COLLISION)
return bus_getchar2
pub get_actor_pos(n)
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_GET_ACTOR_POS)
bus_putchar2(n)
return bus_getchar2
pub send_block(n,tnr)
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_SEND_BLOCK)
bus_putchar2(n)
bus_putchar2(tnr)
pub Change_Backuptile(tnr,f1,f2,f3)
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_CHANGE_BACKUP)
bus_putchar2(tnr)
bus_putchar2(f1)
bus_putchar2(f2)
bus_putchar2(f3)
pub displayString(char,foregroundColor, backgroundColor, y, x)
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_DPL_STRING)
bus_putchar2(foregroundColor)
bus_putchar2(backgroundColor)
bus_putchar2(y)
bus_putchar2(x)
bus_putstr2(char)
pub scrollString(str,characterRate, foregroundColor, backgroundColor, y, x, xx)
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_SCROLLSTRING)
bus_putchar2(characterRate)
bus_putchar2(foregroundColor)
bus_putchar2(backgroundColor)
bus_putchar2(y)
bus_putchar2(x)
bus_putchar2(xx)
bus_putstr2(str)
pub setpos(y,x)
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_DPL_SETPOS)
bus_putchar2(y)
bus_putchar2(x)
pub setx(x)
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_DPL_SETX)
bus_putchar2(x)
pub sety(y)
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_DPL_SETY)
bus_putchar2(y)
pub displayTile(tnr,pcol,scol,tcol, row, column)
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_DPL_TILE)
bus_putchar2(tnr)
bus_putchar2(pcol)
bus_putchar2(scol)
bus_putchar2(tcol)
bus_putchar2(row)
bus_putchar2(column)
pub Mousepointer(adr)|c
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_LD_MOUSEPOINTER)
repeat 16
c:=ram_rdlong(adr)
bus_putlong2(c)
adr+=4
pub mousebound(x,y,xx,yy)
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_LD_MOUSEBOUND)
bus_putlong2(x)
bus_putlong2(y)
bus_putlong2(xx)
bus_putlong2(yy)
pub loadtilebuffer(adr,anzahl)|c
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_LD_TILESET)
bus_putlong2(anzahl)
repeat anzahl
c:=ram_rdlong(adr)
bus_putlong2(c)
adr+=4
pub displaypic(pcol,scol,tcol,y,x,ytile,xtile)
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_DPL_PIC)
bus_putchar2(pcol)
bus_putchar2(scol)
bus_putchar2(tcol)
bus_putchar2(y)
bus_putchar2(x)
bus_putchar2(ytile)
bus_putchar2(xtile)
pub getx |x
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_GETX)
x:=bus_getchar2
return x
pub gety |y
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_GETY)
y:=bus_getchar2
return y
pub DisplayMouse(on,color)
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_DPL_MOUSE)
bus_putchar2(on)
bus_putchar2(color)
pub Displaypalette(x,y)
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_DPL_PALETTE)
bus_putchar2(x)
bus_putchar2(y)
pub cls
printchar(12)
pub Backup_Area(x,y,xx,yy,adr)|a,b,d
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_BACK)
bus_putchar2(x)
bus_putchar2(y)
bus_putchar2(xx)
bus_putchar2(yy)
repeat a from y to yy
repeat b from x to xx
d:=bus_getlong2
ram_wrlong(d,adr)
adr+=4
ram_wrword(bus_getword2,adr)
adr+=2
pub restore_Area(x,y,xx,yy,adr)|a,b
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_REST)
bus_putchar2(x)
bus_putchar2(y)
bus_putchar2(xx)
bus_putchar2(yy)
repeat a from y to yy
repeat b from x to xx
bus_putlong2(ram_rdlong(adr))
adr+=4
bus_putword2(ram_rdword(adr))
adr+=2
PUB printq(stringptr) 'screen: zeichenkette ohne steuerzeichen (0-terminiert)
{{print(stringptr) - screen: bildschirmausgabe einer zeichenkette (0-terminiert)}}
repeat strsize(stringptr)
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_SCR_CHAR)
bus_putchar2(byte[stringptr])
if serial==1
ser.tx(byte[stringptr++])
{PUB printcstr(eadr) | i,len 'screen: bildschirmausgabe einer zeichenkette im eram! (mit längenbyte)
{{printcstr(eadr) - screen: bildschirmausgabe einer zeichenkette im eram (mit längenbyte)}}
len := ram_rdbyte(1,eadr)
repeat i from 1 to len
eadr++
bus_putchar2(ram_rdbyte(1,eadr))
}
PUB printdec(value) | i ,c ,x 'screen: dezimalen zahlenwert auf bildschirm ausgeben
{{printdec(value) - screen: dezimale bildschirmausgabe zahlenwertes}}
if value < 0 'negativer zahlenwert
-value
printchar("-")
i := 1_000_000_000
repeat 10 'zahl zerlegen
if value => i
x:=value / i + "0"
printchar(x)
c:=value / i + "0"
value //= i
result~~
elseif result or i == 1
printchar("0")
i /= 10 'nächste stelle
PUB printhex(value, digits) 'screen: hexadezimalen zahlenwert auf bildschirm ausgeben
{{hex(value,digits) - screen: hexadezimale bildschirmausgabe eines zahlenwertes}}
value <<= (8 - digits) << 2
repeat digits
printchar(lookupz((value <-= 4) & $F : "0".."9", "A".."F"))
PUB printbin(value, digits) |c 'screen: binären zahlenwert auf bildschirm ausgeben
value <<= 32 - digits
repeat digits
c:=(value <-= 1) & 1 + "0"
printchar(c)
PUB printchar(c)':c2 'screen: einzelnes zeichen auf bildschirm ausgeben
{{printchar(c) - screen: bildschirmausgabe eines zeichens}}
bus_putchar2(c)
'bus_putchar3(c)
if serial==1
ser.tx(c)
' c2 := c
PUB printqchar(c)':c2 'screen: zeichen ohne steuerzeichen ausgeben
{{printqchar(c) - screen: bildschirmausgabe eines zeichens}}
bus_putchar2(BEL_CMD)
bus_putchar2(BEL_SCR_CHAR)
bus_putchar2(c)
' c2 := c
if serial==1
ser.tx(c)
PUB printnl 'screen: $0D - CR ausgeben
{{printnl - screen: $0D - CR ausgeben}}
bus_putchar2(CHAR_NL)
if serial==1
ser.tx($0D)
ser.tx($0A)
PUB printcls 'screen: screen löschen
{{printcls - screen: screen löschen}}
printchar(12)
PUB printbs 'screen: backspace
{{curon - screen: backspace senden}}
printchar(BEL_BS)
pub printleft
printchar(5)
pub printright
printchar(6)
pub mousex
bus_putchar2(BEL_CMD) 'kommandosequenz einleiten
bus_putchar2(BEL_MOUSEX) 'MOUSE-X-Position abfragen
return bus_getchar2
pub mousey
bus_putchar2(BEL_CMD) 'kommandosequenz einleiten
bus_putchar2(BEL_MOUSEY) 'MOUSE-Y-Position abfragen
return bus_getchar2 'y-signal invertieren sonst geht der Mauszeiger hoch, wenn man runterscrollt
pub mousez
bus_putchar2(BEL_CMD) 'kommandosequenz einleiten
bus_putchar2(BEL_MOUSEZ) 'MOUSE-Z-Position abfragen
return bus_getlong2
pub mouse_button(b)
bus_putchar2(BEL_CMD) 'kommandosequenz einleiten
bus_putchar2(BEL_MOUSE_BUTTON) 'MOUSE-Button abfragen
bus_putchar2(b)
return bus_getchar2
OBJ ''################################################## V E N A T R I X #############################################################################################################
CON ''------------------------------------------------- CHIP MANAGEMENT
PUB VEN_GET:vers
' bus_putchar3(VEN_CMD)
bus_putchar3(VEN_GETVER)
vers := bus_getlong3 'statuswert empfangen
PUB VEN_GETCOGS:cogs
' bus_putchar3(VEN_CMD)
bus_putchar3(Ven_getcgs)
cogs:=bus_getchar3
PUB Venreset 'chip-mgr: bellatrix reset
{{breset - Venatrix neu starten}}
' bus_putchar3(VEN_CMD)
bus_putchar3(VEN_REBOOT) 'code 99 = reboot
PUB venload(stradr) 'chip-mgr: neuen Venatrix-code booten
' bus_putchar3(VEN_CMD)
bus_putchar3(VEN_LOAD) 'code 97 = code laden
waitcnt(cnt + 2_000_000) 'warte bis ven fertig ist
vload(stradr)
PUB vload(stradr) | n,rc,ii,plen 'system: venatrix mit neuen Code versorgen
' kopf der bin-datei einlesen ------------------------------------------------------
rc := sdopen("r",stradr) 'datei öffnen
repeat ii from 0 to 15 '16 bytes header --> Venatrix
n := sdgetc
bus_putchar3(n)
sdclose 'bin-datei schießen
' objektgröße empfangen
plen := bus_getchar3 << 8 'hsb empfangen
plen := plen + bus_getchar3 'lsb empfangen
' bin-datei einlesen ------------------------------------------------------
sdopen("r",stradr) 'bin-datei öffnen
repeat ii from 0 to plen-1 'datei --> bellatrix
n := sdgetc
bus_putchar3(n)
sdclose
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 joy(chan):wert 'game: joystick abfragen
bus_putchar1(gc#a_Joy)
bus_putchar1(chan)
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
pub getreg(reg):wert
bus_putchar1(gc#a_plxGetReg)
bus_putchar1(reg)
wert:=bus_getchar1
pub set_plxAdr(adda,Port)
bus_putchar1(gc#a_plxSetAdr) 'adressen adda/ports für poller setzen
bus_putchar1(adda)
bus_putchar1(port)
pub plxping(adr):wert
bus_putchar1(gc#a_plxPing) 'adressen adda/ports für poller setzen
bus_putchar1(adr)
wert:=bus_getchar1
pub plxstart
bus_putchar1(gc#a_plxStart) 'I2C Start-Befehl
pub plxstop
bus_putchar1(gc#a_plxStop) 'I2C Stop-Befehl
pub plxwrite(data):wert
bus_putchar1(gc#a_plxWrite) 'I2C Write
bus_putchar1(data) 'Daten
wert:=bus_getchar1 'ack bit
pub plxread(ack):wert
bus_putchar1(gc#a_plxRead) 'I2C Read
bus_putchar1(ack) 'ack Bit
wert:=bus_getchar1 'Rückgabewert
OBJ '' R E G N A T I X
CON ''------------------------------------------------- BUS
'prop 1 - administra (bus_putchar1, bus_getchar1)
'prop 2 - bellatrix (bus_putchar2, bus_getchar2)
'prop 3 - venatrix (bus_putchar3, bus_getchar3)
PUB bus_init 'bus: initialisiert bussystem
{{bus_init - bus: initialisierung aller bussignale }}
outa[bus_wr] := 1 ' schreiben inaktiv
outa[reg_ram1] := 1 ' ram1 inaktiv
outa[reg_ram2] := 1 ' ram2 inaktiv
outa[reg_prop1] := 1 ' prop1 inaktiv
outa[reg_prop2] := 1 ' prop2 inaktiv
outa[reg_prop3] := 1 ' prop3 inaktiv ->Venatrix
outa[busclk] := 0 ' busclk startwert
outa[reg_al] := 0 ' strobe aus
dira := db_in ' datenbus auf eingabe schalten
outa[18..8] := 0 ' adresse a0..a10 auf 0 setzen
outa[23] := 1 ' obere adresse in adresslatch übernehmen
outa[23] := 0
PUB bus_getword1: wert 'bus: 16 bit von administra empfangen hsb/lsb
wert := bus_getchar1 << 8
wert := wert + bus_getchar1
PUB bus_putword1(wert) 'bus: 16 bit an administra senden hsb/lsb
bus_putchar1(wert >> 8)
bus_putchar1(wert)
PUB bus_getlong1: wert 'bus: long von administra empfangen hsb/lsb
wert := bus_getchar1 << 24 '32 bit empfangen hsb/lsb
wert := wert + bus_getchar1 << 16
wert := wert + bus_getchar1 << 8
wert := wert + bus_getchar1
PUB bus_putlong1(wert) 'bus: long zu administra senden hsb/lsb
bus_putchar1(wert >> 24) '32bit wert senden hsb/lsb
bus_putchar1(wert >> 16)
bus_putchar1(wert >> 8)
bus_putchar1(wert)
PUB bus_getstr1: stradr | len,i 'bus: string von administra empfangen
len := bus_getchar1 'längenbyte empfangen
repeat i from 0 to len - 1 '20 zeichen dateinamen empfangen
strpuffer[i] := bus_getchar1
strpuffer[i] := 0
return @strpuffer
PUB bus_putstr1(stradr) | len,i 'bus: string zu administra senden
len := strsize(stradr)
bus_putchar1(len)
repeat i from 0 to len - 1
bus_putchar1(byte[stradr++])
PUB bus_putstr2(stradr) | len,i 'bus: string zu bellatrix senden
len := strsize(stradr)
bus_putchar2(len)
repeat i from 0 to len - 1
bus_putchar2(byte[stradr++])
PUB bus_getstr2: stradr | len,i 'bus: string von administra empfangen
len := bus_getchar2 'längenbyte empfangen
repeat i from 0 to len - 1 '20 zeichen dateinamen empfangen
strpuffer[i] := bus_getchar2
strpuffer[i] := 0
return @strpuffer
PUB bus_putchar1(c) 'bus: byte an administra senden
{{bus_putchar1(c) - bus: byte senden an prop1 (administra)}}
' ram_rw.putchar1(c)
outa := %00001001_01011000_00000000_00000000 'prop1=0, wr=0
dira := db_out 'datenbus auf ausgabe stellen
outa[7..0] := c 'daten --> dbus
outa[busclk] := 1 'busclk=1
waitpeq(%00000000_00000000_00000000_00000000,%00001000_00000000_00000000_00000000,0) 'hs=0?
dira := db_in 'bus freigeben
outa := %00001101_01111000_00000000_00000000 'wr=1, prop1=1, busclk=0
PUB bus_getchar1: wert 'bus: byte vom administra empfangen
{{bus_getchar1:wert - bus: byte empfangen von prop1 (administra)}}
' wert:=ram_rw.getchar1
outa := %00000111_01011000_00000000_00000000 'prop1=0, wr=1, busclk=1
waitpeq(%00000000_00000000_00000000_00000000,%00001000_00000000_00000000_00000000,0) 'hs=0?
wert := ina[7..0] 'daten einlesen
outa := %00000101_01111000_00000000_00000000 'prop1=1, busclk=0
PUB bus_putchar2(c) 'bus: byte an prop1 (bellatrix) senden
{{bus_putchar2(c) - bus: byte senden an prop2 (bellatrix)}}
outa := %00001001_00111000_00000000_00000000 'prop2=0, wr=0
dira := db_out 'datenbus auf ausgabe stellen
outa[7..0] := c 'daten --> dbus
outa[busclk] := 1 'busclk=1
waitpeq(%00000000_00000000_00000000_00000000,%00001000_00000000_00000000_00000000,0) 'hs=0?
dira := db_in 'bus freigeben
outa := %00001101_01111000_00000000_00000000 'wr=1, prop2=1, busclk=0
'ram_rw.putchar2(c)
PUB bus_getchar2: wert 'bus: byte vom prop1 (bellatrix) empfangen
{{bus_getchar2:wert - bus: byte empfangen von prop2 (bellatrix)}}
' wert:=ram_rw.getchar2
outa := %00000111_00111000_00000000_00000000 'prop2=0, wr=1, busclk=1
waitpeq(%00000000_00000000_00000000_00000000,%00001000_00000000_00000000_00000000,0) 'hs=0?
wert := ina[7..0] 'daten einlesen
outa := %00000101_01111000_00000000_00000000 'prop2=1, busclk=0
PUB bus_putchar3(c) 'bus: byte an prop1 (bellatrix) senden
{{bus_putchar2(c) - bus: byte senden an prop3 (venatrix)}}
' outa := %00001000_01011000_00000000_00000000 'prop1=0, wr=0
' outa := %00001000_00111000_00000000_00000000 'prop2=0, wr=0
' outa := %00001000_01111000_00000000_00000000 'prop3=0, wr=0
outa := %00001000_01111000_00000000_00000000 'prop3=0, wr=0
dira := db_out 'datenbus auf ausgabe stellen
outa[7..0] := c 'daten --> dbus
outa[busclk] := 1 'busclk=1
waitpeq(%00000000_00000000_00000000_00000000,%00001000_00000000_00000000_00000000,0) 'hs=0?
dira := db_in 'bus freigeben
outa := %00001101_01111000_00000000_00000000 'wr=1, prop3=1, busclk=0
'ram_rw.putchar2(c)
PUB bus_getchar3: wert 'bus: byte vom prop1 (bellatrix) empfangen
{{bus_getchar3:wert - bus: byte empfangen von prop3 (venatrix)}}
outa := %00000110_01111000_00000000_00000000 'prop3=0, wr=1, busclk=1
waitpeq(%00000000_00000000_00000000_00000000,%00001000_00000000_00000000_00000000,0) 'hs=0?
wert := ina[7..0] 'daten einlesen
outa := %00000101_01111000_00000000_00000000 'prop3=1, busclk=0
PUB bus_getword2: wert 'bus: 16 bit von bellatrix empfangen hsb/lsb
wert := bus_getchar2 << 8
wert := wert + bus_getchar2
PUB bus_putword2(wert) 'bus: 16 bit an bellatrix senden hsb/lsb
bus_putchar2(wert >> 8)
bus_putchar2(wert)
PUB bus_getlong2: wert 'bus: long von bellatrix empfangen hsb/lsb
wert := bus_getchar2 << 24 '32 bit empfangen hsb/lsb
wert := wert + bus_getchar2 << 16
wert := wert + bus_getchar2 << 8
wert := wert + bus_getchar2
PUB bus_putlong2(wert) 'bus: long an bellatrix senden hsb/lsb
bus_putchar2(wert >> 24) '32bit wert senden hsb/lsb
bus_putchar2(wert >> 16)
bus_putchar2(wert >> 8)
bus_putchar2(wert)
PUB bus_getword3: wert 'bus: 16 bit von venatrix empfangen hsb/lsb
wert := bus_getchar3 << 8
wert := wert + bus_getchar3
PUB bus_putword3(wert) 'bus: 16 bit an venatrix senden hsb/lsb
bus_putchar3(wert >> 8)
bus_putchar3(wert)
PUB bus_getlong3: wert 'bus: long von venatrix empfangen hsb/lsb
wert := bus_getchar3 << 24 '32 bit empfangen hsb/lsb
wert := wert + bus_getchar3 << 16
wert := wert + bus_getchar3 << 8
wert := wert + bus_getchar3
PUB bus_putlong3(wert) 'bus: long an venatrix senden hsb/lsb
bus_putchar3(wert >> 24) '32bit wert senden hsb/lsb
bus_putchar3(wert >> 16)
bus_putchar3(wert >> 8)
bus_putchar3(wert)
PUB bus_getstr3: stradr | len,i 'bus: string von administra empfangen
len := bus_getchar3 'längenbyte empfangen
repeat i from 0 to len - 1 '20 zeichen dateinamen empfangen
strpuffer[i] := bus_getchar3
strpuffer[i] := 0
return @strpuffer
PUB bus_putstr3(stradr) | len,i 'bus: string zu administra senden
len := strsize(stradr)
bus_putchar3(len)
repeat i from 0 to len - 1
bus_putchar3(byte[stradr++])
CON ''------------------------------------------------- eRAM/SPEICHERVERWALTUNG
{
Und so funktioniert es: Der Speicher (hier geht es nur um den eRAM!) ist in drei Teile gesplittet:
1. Ramdisk
2. Heap
3. Systemvariablen
Wofür ist das jetzt gut?
Das unkomlizierte Speichermodell: Wenn man in seinem Programm unkompliziert Speicher braucht, der nicht resident
gehalten werden braucht, nutzt man einfach die Routinen ram_* um auf diesen zuzugreifen. Nach dem Beenden
des Programms ist dieser Speicher (Heap) aber dann vogelfrei. Für die Adressierung mit diesen Routinen gibt es
zwei Modis:
1. sysmod - Hier entspricht die Adresse 0 auch der wirklichen physischen Adresse 0.
2. usrmod - Hier entspricht die Adresse 0 dem Wert von "rbas" - ist also virtuell.
In einem normalen Programm wird man den usrmod verwenden und nur auf den freien Speicher (Heap) zwischen rbas
und rend zugreifen. Das klingt im ersten Moment kompliziert, ist aber ganz einfach: wenn es einfach sein soll,
arbeite ich im usrmod und bekomme von Adresse 0000..nnnn den Bereich zwischen Ramdisk und den Systemvariablen
(rbas..rend) zu "sehen". Möchte aber ein Systemprogramm zum Beispiel auf die Systemvariablen oder die Internas
der Ramdisk zugreifen, so ist der sysmod gefragt. In diesem Modus wird der eRAM direkt adressiert.
Die Ramdisk: Braucht die Anwendung aber residenten Speicher, so kann man sich einen Speicherblock als
Datei in der Ramdisk erzeugen und auf den Inhalt auch per direkter Adressierung mit rd_rdbyte/rd_wrbyte
zugreifen. In der Kommandozeile Regime ist es dann möglich, per xdir/xload und xsave auf diesen Speicher
bzw. Dateien zuzugreifen.
Ach ja: Mit der Ramdisk ist es auch möglich mehrere Dateien zu öffnen und zu verwenden - rd_open liefert dafür
eine Filenummer fnr, die man bei allen Operationen benutzen muss! :)
Wichtig ist es nur zu verstehen, dass der freie Speicher bei Verwendung der Ramdisk vogelfrei ist,
wenn die Anwendung beendet wird: Speichert ein Programm dort Daten und kehrt zur Kommandozeile zurück,
wird zum Beispiel durch laden oder speichern einer Datei in der Ramdisk die Variable "rbas" und
damit der freie Bereich in seiner Größe verändert ---> unsere Daten im freien Bereich befinden sich also nun
im usrmod an einer anderen Stelle oder sind überschrieben.
memory-map:
0000 --> datei 1 'ab adresse 0 liegen die dateien der ramdisk als
datei 2 'verkettete liste. das erste freie byte hinter der
... 'wird mit der variable "rbas" definiert.
datei n
rbas --> usermem start 'zwischen rbas und rend liegt der freie ram.
...
rend --> usermen ende
sysvar --> systemvariablen 'ab dieser adresse befinden sich die systemvariablem im eram
aufbau datei ramdisk:
1 long zeiger auf nächste datei (oder 0 bei letzter datei)
1 long datenlänge
12 byte dateiname 8+3-string
nn byte daten
aufbau ftab:
fnr dateinummer
fnr 0 usermem
fnr 1..7 dateien
fix := fnr * FCNT index in ftab
ftab[fix+0] startadresse daten
ftab[fix+1] endadresse daten
ftab[fix+2] position in datei
}
CON
STARTRD = $80000 'startadresse der ramdisk
FILES = 8 'maximale anzahl von RAMDisk-Dateien, die gleichzeitig geöffnet werden können
FTCNT = 3 'anzahl longs pro eintrag
sysmod = 0
usrmod = 1
RDHLEN = 20 ' 4+4+12 - headerlänge
VAR
' long ftab[(files)*FTCNT] 'filedeskriptortabelle
'1. long = startadresse daten
'2. long = endadresse daten
'3. long = position in der datei
' long dpos 'position im dir (dir/next)
' byte dstr[13] 'string für dateinamen
PUB ram_rdbyte(adresse):wert 'eram: liest ein byte vom eram
{{ram_rdbyte(adresse):wert - eram: ein byte aus externem ram lesen}}
'rambank 1 000000 - 07FFFF
'rambank 2 080000 - 0FFFFF
'sys = 0 - systemmodus, keine virtualisierung
'sys = 1 - usermodus, virtualisierte adresse
'sysmodus: der gesamte speicher (2 x 512 KB) werden durchgängig adressiert
'usermodus: adresse 0 = rambas
' adresse max = ramend
wert:=ram_rw.rd_value(adresse,ram_rw#JOB_PEEK)'ram_rw.peek(adresse)
{ if sys 'usermodus?
adresse += rbas 'adresse virtualisieren
if adresse > rend 'adressbereich überschritten?
return 0
outa[15..8] := adresse >> 11 'höherwertige adresse setzen
outa[23] := 1 'obere adresse in adresslatch übernehmen
outa[23] := 0
outa[18..8] := adresse 'niederwertige adresse setzen
if adresse < $080000 'rambank 1?
outa[reg_ram1] := 0 'ram1 selektieren (wert wird geschrieben)
wert := ina[7..0] 'speicherzelle einlesen
outa[reg_ram1] := 1 'ram1 deselektieren
else
outa[reg_ram2] := 0 'ram2 selektieren (wert wird geschrieben)
wert := ina[7..0] 'speicherzelle einlesen
outa[reg_ram2] := 1 'ram2 deselektieren
}
pub ram_fill(adresse,adresse2,wert)
ram_rw.ram_fill(adresse,adresse2,wert)
{pub getadr:wert
wert:=ram_rw.getadr
}
'pub ram_readline(adresse):line
' line:=ram_rw.read(adresse)
pub ram_copy(von,ziel,anzahl)
ram_rw.ram_copy(von,ziel,anzahl)
pub ram_keep(adr):w
w:=ram_rw.ram_keep(adr)
PUB ram_wrbyte(wert,adresse) 'eram: schreibt ein byte in eram
{{ram_wrbyte(wert,adresse) - eram: ein byte in externen ram schreiben}}
'rambank 1 000000 - 07FFFF
'rambank 2 080000 - 08FFFF
'sys = 0 - systemmodus, keine virtualisierung
'sys = 1 - usermodus, virtualisierte adresse
'sysmodus: der gesamte speicher (2 x 512 KB) werden durchgängig adressiert
'usermodus: adresse 0 = rambas
' adresse max = ramend
'
ram_rw.wr_value(adresse,wert,ram_rw#JOB_POKE)
{ if sys 'usermodus?
adresse += rbas 'adresse virtualisieren
if adresse > rend 'adressbereich überschritten?
return
outa[bus_wr] := 0 'schreiben aktivieren
dira := db_out 'datenbus --> ausgang
outa[7..0] := wert 'wert --> datenbus
outa[15..8] := adresse >> 11 'höherwertige adresse setzen
outa[23] := 1 'obere adresse in adresslatch übernehmen
outa[23] := 0
outa[18..8] := adresse 'niederwertige adresse setzen
if adresse < $080000 'rambank 1?
outa[reg_ram1] := 0 'ram1 selektieren (wert wird geschrieben)
outa[reg_ram1] := 1 'ram1 deselektieren
else
outa[reg_ram2] := 0 'ram2 selektieren (wert wird geschrieben)
outa[reg_ram2] := 1 'ram2 deselektieren
dira := db_in 'datenbus --> eingang
outa[bus_wr] := 1 'schreiben deaktivieren
}
PUB ram_rdlong(eadr): wert 'eram: liest long ab eadr
{{ram_rdlong - eram: liest long ab eadr}}
'sys = 0 - systemmodus, keine virtualisierung
'sys = 1 - usermodus, virtualisierte adresse
wert:=ram_rw.rd_value(eadr,ram_rw#JOB_RDLONG)'ram_rw.rd_long(eadr)
{ wert := ram_rdbyte(eadr)
wert += ram_rdbyte(eadr + 1) << 8
wert += ram_rdbyte(eadr + 2) << 16
wert += ram_rdbyte(eadr + 3) << 24
}
PUB ram_rdword(eadr): wert 'eram: liest word ab eadr
{{ram_rdlong(eadr):wert - eram: liest word ab eadr}}
'sys = 0 - systemmodus, keine virtualisierung
'sys = 1 - usermodus, virtualisierte adresse
wert:=ram_rw.rd_value(eadr,ram_rw#JOB_RDWORD)'ram_rw.rd_word(eadr)
{ wert := ram_rdbyte(eadr)
wert += ram_rdbyte(eadr + 1) << 8
}
PUB ram_wrlong(wert,eadr) 'eram: schreibt long ab eadr
{ram_wrlong(wert,eadr) - eram: schreibt long ab eadr}
'sys = 0 - systemmodus, keine virtualisierung
'sys = 1 - usermodus, virtualisierte adresse
ram_rw.wr_value(eadr,wert,ram_rw#JOB_WRLONG)
{ n := wert & $FF
ram_wrbyte(n,eadr)
n := (wert >> 8) & $FF
ram_wrbyte(n,eadr + 1)
n := (wert >> 16) & $FF
ram_wrbyte(n,eadr + 2)
n := (wert >> 24) & $FF
ram_wrbyte(n,eadr + 3)
}
PUB ram_wrword(wert,eadr) 'eram: schreibt word ab eadr
{{wr_word(wert,eadr) - eram: schreibt word ab eadr}}
'sys = 0 - systemmodus, keine virtualisierung
'sys = 1 - usermodus, virtualisierte adresse
ram_rw.wr_value(eadr,wert,ram_rw#JOB_WRWORD)
{ n := wert & $FF
ram_wrbyte(n,eadr)
n := (wert >> 8) & $FF
ram_wrbyte(n,eadr + 1)
}
{pub tokrd(adr)
return ram_rw.tokenrd(adr)
}
CON ''------------------------------------------------- TOOLS
{PUB hram_print(adr,rows)
repeat rows
printnl
printhex(adr,4)
printchar(":")
printchar(" ")
repeat 8
printhex(byte[adr++],2)
printchar(" ")
adr := adr - 8
repeat 8
printqchar(byte[adr++])
}
PUB Dump(adr,line,mod) |zeile ,c[8] ,p,i 'adresse, anzahl zeilen,ram oder xram
zeile:=0
p:=getx+23
repeat line
printnl
printhex(adr,5)
printchar(":")
repeat i from 0 to 7
if mod>0
c[i]:=ram_rdbyte(adr++)
else
c[i]:=byte[adr++]
printhex(c[i],2)
printchar(" ")
repeat i from 0 to 7
printqchar(c[i])
zeile++
if zeile == 12
printnl
print(string("<WEITER? */esc:>"))
if keywait == 27
printnl
quit
zeile:=0
DAT
org 0
'
' Entry
'
entry jmp #entry 'just loops
regsys byte "reg.sys",0
'belsys byte "bel.sys",0
'admsys byte "adm.sys",0
{{
┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
│ 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. │
└──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
}}