2013-12-10 15:32:47 +01:00
{{ Bellatrix-Code
┌──────────────────────────────────────────────────────────────────────────────────────────────────────┐
│ Autor: Ingo Kripahle │
│ Copyright (c) 2012 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 :
Chip : global
Typ : konstanten
}}
CON 'Signaldefinitionen --------------------------------------------------------------------------
'signaldefinitionen global
#0, D0,D1,D2,D3,D4,D5,D6,D7 'datenbus
#24, HBEAT 'front-led
BUSCLK 'bustakt
BUS_WR '/wr - schreibsignal
BUS_HS ' '/hs - quittungssignal
I2C_SCL
I2C_SDA
SER_TX
SER_RX
'signaldefinitionen bellatrix
#8, B_VGABASE 'vga-signale (8pin)
#16, B_KEYBC,B_KEYBD 'keyboard-signale
#18, B_MOUSEC,B_MOUSED 'maus-signale
#20, B_VIDBASE 'video-signale(3pin)
#23, B_SELECT 'belatrix-auswahlsignal
'signaldefinitionen administra
#8, A_SOUNDL,A_SOUNDR 'sound (stereo 2 pin)
#10, A_SDD0,A_SDCLK,A_SDCMD,A_SDD3 'sd-cardreader (4 pin)
#23, A_SELECT 'administra-auswahlsignal
CON 'KEY_CODES -------------------------------------------------------------------------------------
KEY_CTRL = 2
KEY_ALT = 4
KEY_OS = 8
KEY_ESC = 27
KEY_TAB = 9
KEY_RETURN = 13
KEY_BS = 8
KEY_POS1 = 6
KEY_CURUP = 04
KEY_CURDOWN = 05
KEY_CURLEFT = 02
KEY_CURRIGHT = 03
KEY_PAGEUP = 160
KEY_PAGEDOWN = 162
KEY_SPACE = 32
KEY_F01 = 208
KEY_F02 = 209
KEY_F03 = 210
KEY_F04 = 211
KEY_F05 = 212
KEY_F06 = 213
KEY_F07 = 214
KEY_F08 = 215
KEY_F09 = 216
KEY_F10 = 217
KEY_F11 = 218
KEY_F12 = 219
CON 'ADMINISTRA-FUNKTIONEN --------------------------------------------------------------------------
' +----------- ays
' |+---------- com
' || +-------- plexbus
' || |+------- rtc
' || ||+------ lan
' || |||+----- sid
' || ||||+---- wav
' || |||||+--- hss
' || ||||||+-- chiploader
' || |||||||+- dateisystem
A_FAT = %00000000_00000000_00000000_00000001
A_LDR = %00000000_00000000_00000000_00000010
A_HSS = %00000000_00000000_00000000_00000100
A_WAV = %00000000_00000000_00000000_00001000
A_SID = %00000000_00000000_00000000_00010000
A_LAN = %00000000_00000000_00000000_00100000
A_RTC = %00000000_00000000_00000000_01000000
A_PLX = %00000000_00000000_00000000_10000000
A_COM = %00000000_00000000_00000001_00000000
A_AYS = %00000000_00000000_00000010_00000000
' |
' ym
' ---------------------------------------------- SD-FUNKTIONEN
#1, a_sdMount 'sd-card mounten '
a_sdOpenDir 'direktory öffnen
a_sdNextFile 'verzeichniseintrag lesen
a_sdOpen 'datei öffnen
a_sdClose 'datei schließen
a_sdGetC 'zeichen lesen
a_sdPutC 'zeichen schreiben
a_sdGetBlk 'block lesen
a_sdPutBlk 'block schreiben
a_sdSeek 'zeiger in datei positionieren
a_sdFAttrib 'dateiattribute übergeben
a_sdVolname 'volumelabel abfragen
a_sdCheckMounted 'test ob volume gemounted ist
a_sdCheckOpen 'test ob eine datei geöffnet ist
a_sdCheckUsed 'test wie viele sektoren benutzt sind
a_sdCheckFree 'test wie viele sektoren frei sind
a_sdNewFile 'neue datei erzeugen
a_sdNewDir 'neues verzeichnis wird erzeugt
a_sdDel 'verzeichnis oder datei löschen
a_sdRename 'verzeichnis oder datei umbenennen
a_sdChAttrib 'attribute ändern
a_sdChDir 'verzeichnis wechseln
a_sdFormat 'medium formatieren
a_sdUnmount 'medium abmelden
a_sdDmAct 'dir-marker aktivieren
a_sdDmSet 'dir-marker setzen
a_sdDmGet 'dir-marker status abfragen
a_sdDmClr 'dir-marker löschen
a_sdDmPut 'dir-marker status setzen
a_sdEOF '30 'eof abfragen
' ---------------------------------------------- COM-FUNKTIONEN
#31, a_comInit
a_comTx
a_comRx '33
' ---------------------------------------------- RTC-FUNKTIONEN
#41, a_rtcGetSeconds 'Returns the current second (0 - 59) from the real time clock.
a_rtcGetMinutes 'Returns the current minute (0 - 59) from the real time clock.
a_rtcGetHours 'Returns the current hour (0 - 23) from the real time clock.
a_rtcGetDay 'Returns the current day (1 - 7) from the real time clock.
a_rtcGetDate 'Returns the current date (1 - 31) from the real time clock.
a_rtcGetMonth 'Returns the current month (1 - 12) from the real time clock.
a_rtcGetYear 'Returns the current year (2000 - 2099) from the real time clock.
a_rtcSetSeconds 'Sets the current real time clock seconds. Seconds - Number to set the seconds to between 0 - 59.
a_rtcSetMinutes 'Sets the current real time clock minutes. Minutes - Number to set the minutes to between 0 - 59.
a_rtcSetHours 'Sets the current real time clock hours. Hours - Number to set the hours to between 0 - 23.
a_rtcSetDay 'Sets the current real time clock day. Day - Number to set the day to between 1 - 7.
a_rtcSetDate 'Sets the current real time clock date. Date - Number to set the date to between 1 - 31.
a_rtcSetMonth 'Sets the current real time clock month. Month - Number to set the month to between 1 - 12.
a_rtcSetYear 'Sets the current real time clock year. Year - Number to set the year to between 2000 - 2099.
a_rtcSetNVSRAM 'Sets the NVSRAM to the selected value (0 - 255) at the index (0 - 55).
a_rtcGetNVSRAM 'Gets the selected NVSRAM value at the index (0 - 55).
a_rtcPauseForSec 'Pauses execution for a number of seconds. Returns a puesdo random value derived from the current clock frequency and the time when called. Number - Number of seconds to pause for between 0 and 2,147,483,647.
a_rtcPauseForMSec '58 '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.
2013-12-11 15:50:58 +01:00
' ---------------------------------------------- LAN-FUNKTIONEN
2013-12-10 16:11:08 +01:00
#71, a_lanStart 'Start Network
a_lanStop 'Stop Network
2013-12-11 07:56:12 +01:00
a_lanConnect 'ausgehende TCP-Verbindung öffnen
a_lanListen 'auf eingehende TCP-Verbindung lauschen
a_lanReListen 'wieder auf eingehende TCP-Verbindung lauschen
a_lanIsConnected 'Prüfen, ob verbunden
a_lanRXCount 'Anzahl Zeichen im Empfangspuffer
a_lanResetBuffers 'Puffer zurücksetzen
2013-12-12 16:47:00 +01:00
a_lanWaitConnTimeout 'bestimmte Zeit auf Verbindung warten
2013-12-11 07:56:12 +01:00
a_lanClose 'TCP-Verbindung schließen
a_lanRXFlush 'Empfangspuffer leeren
a_lanRXCheck 'warten auf Byte aus Empfangspuffer
a_lanRXTime 'bestimmte Zeit warten auf Byte aus Empfangspuffer
a_lanRXByte 'Byte aus Empfangspuffer lesen
a_lanRXDataTime 'bestimmte Zeit auf daten aus Empfangspuffer warten
a_lanRXData 'Daten aus Empfangspuffer lesen
a_lanTXFlush 'Sendepuffer leeren
a_lanTXCheck 'Verbindung prüfen und Byte senden
a_lanTX 'Byte senden
2013-12-11 15:50:58 +01:00
a_lanTXData '90 'Daten senden
2013-12-10 16:11:08 +01:00
2013-12-10 15:32:47 +01:00
' ---------------------------------------------- CHIP-MANAGMENT
#92, a_mgrSetSound 'soundsubsysteme verwalten
a_mgrGetSpec 'spezifikation abfragen
a_mgrSetSysSound 'systemsound ein/ausschalten
a_mgrGetSoundSys 'abfrage welches soundsystem aktiv ist
a_mgrALoad 'neuen code booten
a_mgrGetCogs 'freie cogs abfragen
a_mgrGetVer 'codeversion abfragen
a_mgrReboot '99 'neu starten
' ---------------------------------------------- HSS-FUNKTIONEN
#100, a_hssLoad 'hss-datei in puffer laden
a_hssPlay 'play
a_hssStop 'stop
a_hssPause 'pause
a_hssPeek 'register lesen
a_hssIntReg 'interfaceregister auslesen
a_hssVol 'lautstärke setzen
a_sfxFire 'sfx abspielen
a_sfxSetSlot 'sfx-slot setzen
a_sfxKeyOff
a_sfxStop '110
' ---------------------------------------------- WAV-FUNKTIONEN
#150, a_sdwStart 'spielt wav-datei direkt von sd-card ab
a_sdwStop 'stopt wav-cog
a_sdwStatus 'fragt status des players ab
a_sdwLeftVol 'lautstärke links
a_sdwRightVol 'lautstärke rechts
a_sdwPause 'player pause/weiter-modus
a_sdwPosition '156
' ---------------------------------------------- AY-SOUNDFUNKTIONEN
#200, a_ayStart
a_ayStop
a_ayUpdateRegisters
' ---------------------------------------------- SIDCog: DMP-Player-Funktionen (SIDCog2)
#157, a_s_mdmpplay 'dmp-file mono auf sid2 abspielen
a_s_sdmpplay 'dmp-file stereo auf beiden sids abspielen
a_s_dmpstop 'dmp-player beenden
a_s_dmppause 'dmp-player pausenmodus
a_s_dmpstatus 'dmp-player statusabfrage
a_s_dmppos 'player-position im dumpfile
a_s_mute 'alle register löschen
' ---------------------------------------------- SIDCog1-Funktionen
a_s1_setRegister
a_s1_updateRegisters
a_s1_setVolume
a_s1_play
a_s1_noteOn
a_s1_noteOff
a_s1_setFreq
a_s1_setWaveform
a_s1_setPWM
a_s1_setADSR
a_s1_setResonance
a_s1_setCutoff
a_s1_setFilterMask
a_s1_setFilterType
a_s1_enableRingmod
a_s1_enableSynchronization
' ---------------------------------------------- SIDCog2-Funktionen
a_s2_setRegister
a_s2_updateRegisters
a_s2_setVolume
a_s2_play
a_s2_noteOn
a_s2_noteOff
a_s2_setFreq
a_s2_setWaveform
a_s2_setPWM
a_s2_setADSR
a_s2_setResonance
a_s2_setCutoff
a_s2_setFilterMask
a_s2_setFilterType
a_s2_enableRingmod
a_s2_enableSynchronization
' ---------------------------------------------- Zusatzfunktionen
a_s_dmpreg '196 'soundinformationen senden
CON 'BELLATRIX-FUNKTIONEN --------------------------------------------------------------------------
' +----------
' | +-------- window
' | |+------- vektor
' | ||+------ grafik
' | |||+----- text
' | ||||+---- maus
' | |||||+--- tastatur
' | ||||||+-- vga
' | |||||||+- tv
B_TV = %00000000_00000000_00000000_00000001
B_VGA = %00000000_00000000_00000000_00000010
B_KEY = %00000000_00000000_00000000_00000100
B_MOUSE = %00000000_00000000_00000000_00001000
B_TXT = %00000000_00000000_00000000_00010000
B_PIX = %00000000_00000000_00000000_00100000
B_VEC = %00000000_00000000_00000000_01000000
B_WIN = %00000000_00000000_00000000_10000000
#1, B_KEYSTAT 'tastaturstatus senden
B_KEYCODE 'tastaturzeichen senden
B_PRINTCTRL 'steuerzeichen ($100..$1FF) ausgeben
B_KEYSPEC 'statustasten ($100..$1FF) abfragen
B_PRINTLOGO 'hive-logo ausgeben
B_PRINTQCHAR '6 'zeichen ohne steuerzeichen augeben
#80, B_WDEF
B_WSET
B_WGETCOLS
B_WGETROWS
B_WOFRAME '84
#87, B_MGRLOAD 'neuen bellatrix-code laden
B_MGRWSCR 'setzt screen, in welchen geschrieben wird
B_MGRDSCR 'setzt screen, welcher angezeigt wird
B_MGRGETCOL 'farbregister auslesen
B_MGRSETCOL 'farbregister setzen
B_MGRGETRESX 'x-auflösung abfragen
B_MGRGETRESY 'y-auflösung abfragen
B_MGRGETCOLS 'spaltenanzahl abfragen
B_MGRGETROWS 'zeilenanzahl abfragen
B_MGRGETCOGS 'freie cogs abfragen
B_MGRGETSPEC 'spezifikation abfragen
B_MGRGETVER 'codeversion abfragen
B_MGRREBOOT '99 'bellatrix neu starten
' steuerzeichen
#0, B_CMD 'esc-code für zweizeichen-steuersequenzen
B_CLS
B_HOME
B_POS1
B_CURON
B_CUROFF
B_SCROLLUP
B_SCROLLDOWN
B_BACKSPACE
B_TAB
B_LF
B_FREE1
B_FREE2
B_CRLF
' dreizeichen-steuersequenzen
' [B_CMD][B_SCRCMD][...]
#01, B_SETCUR
B_SETX
B_SETY
B_GETX
B_GETY
B_SETCOL
B_FREE3
B_FREE4
B_SINIT
B_TABSET
B_WSETX
B_WSETY
B_WGETX
B_WGETY
CON 'G0-FUNKTIONEN --------------------------------------------------------------------------
#1, G0_KEYSTAT
G0_KEYCODE
G0_KEYSPEC
#10, G0_CLEAR
G0_COPY
G0_COLOR
G0_WIDTH
G0_COLORWIDTH
G0_PLOT
G0_LINE
G0_ARC
G0_VEC
G0_VECARC
G0_PIX
G0_PIXARC
G0_TEXT
G0_TEXTARC
G0_TEXTMODE
G0_BOX
G0_QUAD
G0_TRI
#93, G0_COLORTAB
G0_SCREEN
G0_DATBLK
G0_DATLEN
G0_DYNAMIC
G0_STATIC
G0_REBOOT
PUB glob_con_dummy
return
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. │
└──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
}}
