2013-12-10 15:32:47 +01:00
{{
┌──────────────────────────────────────────────────────────────────────────────────────────────────────┐
2014-04-18 13:56:42 +02:00
│ Autor: Ingo Kripahle & Jörg Deckert │
│ Copyright (c) 2010 Ingo Kripahle, 2014 Jörg Deckert │
2013-12-10 15:32:47 +01:00
│ See end of file for terms of use. │
│ Die Nutzungsbedingungen befinden sich am Ende der Datei │
└──────────────────────────────────────────────────────────────────────────────────────────────────────┘
Informationen : hive-project.de
2014-04-18 13:56:42 +02:00
Kontakt : drohne235@googlemail.com, joergd@bitquell.de
2013-12-10 15:32:47 +01:00
System : TriOS
Name : Administra-Flash
Chip : Administra
Typ : Flash
Version : 00
Subversion : 02
Funktion : Dieser Code wird von Administra nach einem Reset aus dem EEProm in den hRAM kopiert
und gestartet. Im Gegensatz zu Bellatrix und Regnatix, die einen Loader aus dem EEProm
laden und entsprechende Systemdateien vom SD-Cardlaufwerk booten, also im
wesentlichen vor dem Bootvorgang keine weiter Funktionalität als die Ladeprozedur
besitzen, muß das EEProm-Bios von Administra mindestens die Funktionalität des
SD-Cardlaufwerkes zur Verfügung stellen können. Es erscheint deshalb sinnvoll, dieses
BIOS gleich mit einem ausgewogenen Funktionsumfang auszustatten, welcher alle Funktionen
für das System bietet. Durch eine Bootoption kann dieses BIOS aber zur Laufzeit
ausgetauscht werden, um das Funktionssetup an konkrete Anforderungen anzupassen.
Chip-Managment-Funktionen
- Bootfunktion für Administra
- Abfrage und Verwaltung des aktiven Soundsystems
- Abfrage Version und Spezifikation
SD-Funktionen:
- FAT32 oder FAT16
- Partitionen bis 1TB und Dateien bis 2GB
- Verzeichnisse
- Verwaltung aller Dateiattribute
- DIR-Marker System
- Verwaltung eines Systemordners
- Achtung: Keine Verwaltung von mehreren geöffneten Dateien!
HSS-Funktionen:
- 4-Kanal Tracker Engine
- 2-Kanal Sound FX Synthesizer
- 1-Kanal 1Bit ADPCM Sample Engine
- Puffer für HSS-Datei; Modul benötigt während der Wiedergabe also keinen
exklusiven SD-Laufwerkszugriff
WAV-Funktionen:
- Wiedergabe von WAV-Dateien bis 22050 Hz direkt von SD-Card
- Achtung: Der WAV-Player belegt exclusiv das SDCard-Laufwerk - SD-Funktionen
währendes des Abspielvorgangs führen zu einem undefinierten Verhalten von
Administra!
2014-04-18 13:56:42 +02:00
SIDCog-Funktionen:
2013-12-10 15:32:47 +01:00
RTC-Funktionen:
- Datum, Uhrzeit auslesen
- Datum, Uhrzeit schreiben
- NVRAM auslesen
- NVRAM schreiben
- Wartefunktionen
2014-04-18 13:56:42 +02:00
LAN-Funktionen:
- Ethernet-Port mit Daten aus NVRAM oder SD-Dard initialisieren
- ein- und ausgehende Verbindungen öffnen
- Daten übertragen
2013-12-10 15:32:47 +01:00
Komponenten : HSS 1.2 Andrew Arsenault Lizenz unklar
2014-04-18 13:56:42 +02:00
SIDCog Ver. 080 Johannes Ahlebrand MIT Lizenz
2013-12-10 15:32:47 +01:00
DACEngine 01/11/2010 Kwabena W. Agyeman MIT Lizenz
FATEngine 01/18/2009 Kwabena W. Agyeman MIT Lizenz
RTCEngine 11/22/2009 Kwabena W. Agyeman MIT Lizenz
2014-04-18 13:56:42 +02:00
PropTCP 12/08/2009 Harrison Pham Lizenz unklar
2013-12-10 15:32:47 +01:00
COG's : MANAGMENT 1 COG
FAT/RTC 1 COG
HSS 2 COG's
WAV 2 COG
2014-04-18 13:56:42 +02:00
SIDCog's 2 COG's
DMP/Tracker 1 COG (dynamisch)
NET 2 COG
2014-04-28 17:04:21 +02:00
DCF receiver 1 COG
2014-04-18 13:56:42 +02:00
Defines : __ADM_FAT enable FAT engine (sd card handling)
2014-04-28 20:18:43 +02:00
__ADM_FAT_EXT enable FAT extension for PLEXUS
2014-04-18 13:56:42 +02:00
__ADM_HSS enable HSS synthesizer
__ADM_HSS_PLAY enable HSS player (only with __ADM_HSS)
__ADM_WAV enable WAV player
__ADM_SID enable SID player
__ADM_LAN enable LAN functions
__ADM_RTC enable RTC functions (FAT engine inherits it also)
__ADM_PLX enable plexbus
2014-04-28 17:04:21 +02:00
__ADM_DCF enable DCF77 receiver
__ADM_BLT enable Bluetooth
2014-04-18 13:56:42 +02:00
__ADM_COM enable serial port
__ADM_AYS enable AYS player
2013-12-10 15:32:47 +01:00
Logbuch :
14-11-2008-dr235 - erste version erstellt
13-03-2009-dr235 - sd_eof eingefügt
25-01-2009-dr235 - komfortableres interface für hss-player eingefügt
19-03-2009-dr235 - seek, ftime, fattrib und fsize eingefügt
22-08-2009-dr235 - getcogs eingefügt
09-01-2010-dr235 - fehler in sfx_fire korrigiert
10-01-2010-dr235 - fehler in sdw_stop - hss wurde nicht wieder gestartet
15-03-2010-dr235 - start trios
21-03-2010-dr235 - screeninterface entfernt
24-03-2010-dr235 - start einbindung fatengine
- per flashcli laufen schon die ersten kommandos
25-03-2010-dr235 - umstellung fatengine auf fehlernummern
27-03-2010-dr235 - ich hab geburtstag :)
- test mount ok (fat16 + 32, div. sd-cards, fehlermeldungen)
- sd_volname eingefügt + test
- sd_checkmounted/sd_checkused/sd_checkfree eingefügt + test
- sd_checkopen eingefügt (test später)
28-03-2010-dr235 - fehler in der anbindung sd_open --> openFile: der modus
wurde als 0-term-string übergeben! änderung in einen normalen
1-zeichen-parameter
02-04-2010-dr235 - sd_putblk/sd_getblk eingefügt und getestet
03-04-2010-dr235 - sd_opendit, sd_nextfile, sd_fattrib umgearbeitet und getestet
04-04-2010-dr235 - sd_newdir, sd_del, sd_rename eingefügt und getestet
- test sd_seek ok
- sd_chattrib, sd_chdir eingefügt und getestet
- mgr_getver, mgr_getspec, mgr_getcogs eingefügt + getestet
- mgr_aload eingefügt und getestet
- administra hat jetzt einen bootloader! :)
08-04-2010-dr235 - erster test dir-marker-system
12-04-2010-dr235 - neues soundsystem für wav eingebunden
16-04-2010-dr235 - komplexfehler im wav-system aufgelöst
21-04-2010-dr235 - pausen-modus positionsabfrage im wav-player eingefügt & getestet
29-04-2010-dr235 - wav-player: verwendung der dateigröße statt dem headerwert, da einige
programme definitiv den headerwert falsch setzen!
09-06-2010-dr085 - frida hat den fehler gefunden, welcher eine korrekte funktion der fatengine
nach einem bootvorgang von administra verhinderte :)
13-06-2010-dr235 - fehler in sd_volname korrigiert
- free/used auf fast umgestellt
18-06-2010-dr085 - fehler bei der businitialisierung: beim systemstart wurde ein kurzer impuls
auf der hs-leitung erzeugt, wodurch ein buszyklus verloren ging (symptom:
flashte man admin, so lief das system erst nach einem reset an)
- fatengine: endgültige beseitigung der feherhaften volname-abfrage
27-06-2010-dr085 - automount nach boot
19-07-2010-dr235 - booten eines alternativen administra-codes: befindet sich auf der karte
in der root eine datei "adm.sys", so wird diese datei automatisch in
administra geladen
18-09-2010-dr235 - funktion zur abfrage von eof eingefügt
29-10-2010-dr235 - grundlegende routinen für den plexbus eingefügt
03-12-2010-stepha - RTC Datums- und Zeit Funktionen
04-12-2010-stepha - NVRAM Funktionen
17-04-2013-dr235 - konstanten für administra-funktionen komplett ausgelagert
2014-04-18 13:56:42 +02:00
22-12-2013-joergd - LAN Funktionen
17-12-2014-joergd - verschiedene Administra-Code-Versionen vereinheitlicht
2013-12-10 15:32:47 +01:00
Kommandoliste :
Notizen :
}}
CON
2014-04-18 13:56:42 +02:00
''default defines (please anable to compile from GUI)
2014-04-28 20:18:43 +02:00
'#define __ADM_FAT
2014-04-18 13:56:42 +02:00
'#define __ADM_HSS
'#define __ADM_HSS_PLAY
'#define __ADM_WAV
2014-04-28 20:18:43 +02:00
'#define __ADM_RTC
2014-04-18 13:56:42 +02:00
'#define __ADM_COM
''other defines
2014-04-28 20:18:43 +02:00
'#define __ADM_FAT_EXT
2014-04-18 13:56:42 +02:00
'#define __ADM_LAN
2014-04-28 20:18:43 +02:00
'#define __ADM_SID
2014-04-18 13:56:42 +02:00
'#define __ADM_AYS
2014-04-28 20:18:43 +02:00
'#define __ADM_PLX
'#define __ADM_DCF
'#define __ADM_BLT
2014-04-18 13:56:42 +02:00
2013-12-10 15:32:47 +01:00
_CLKMODE = XTAL1 + PLL16X
_XINFREQ = 5_000_000
' +----------
' | +------- system
' | | +---- version (änderungen)
' | | | +- subversion (hinzufügungen)
CHIP_VER = $00_01_01_02
2014-04-18 13:56:42 +02:00
#ifdef __ADM_FAT
CHIP_SPEC_FAT = gc#A_FAT
CHIP_SPEC_LDR = gc#A_LDR
#else
CHIP_SPEC_FAT = 0
CHIP_SPEC_LDR = 0
#undef __ADM_WAV
#undef __ADM_SID
#undef __ADM_AYS
#ifndef __ADMRTC
#undef __ADM_LAN
#endif
#endif
#ifdef __ADM_HSS
CHIP_SPEC_HSS = gc#A_HSS
#else
CHIP_SPEC_HSS = 0
#endif
#ifdef __ADM_WAV
CHIP_SPEC_WAV = gc#A_WAV
#else
CHIP_SPEC_WAV = 0
#endif
#ifdef __ADM_SID
CHIP_SPEC_SID = gc#A_SID
#else
CHIP_SPEC_SID = 0
#endif
#ifdef __ADM_LAN
CHIP_SPEC_LAN = gc#A_LAN
#else
CHIP_SPEC_LAN = 0
#endif
#ifdef __ADM_RTC
CHIP_SPEC_RTC = gc#A_RTC
#else
CHIP_SPEC_RTC = 0
#endif
#ifdef __ADM_PLX
CHIP_SPEC_PLX = gc#A_PLX
#else
CHIP_SPEC_PLX = 0
#endif
#ifdef __ADM_COM
CHIP_SPEC_COM = gc#A_COM
#else
CHIP_SPEC_COM = 0
#endif
#ifdef __ADM_AYS
CHIP_SPEC_AYS = gc#A_AYS
#else
CHIP_SPEC_AYS = 0
#endif
2014-04-28 17:04:21 +02:00
#ifdef __ADM_DCF
CHIP_SPEC_DCF = gc#A_DCF
#else
CHIP_SPEC_DCF = 0
#endif
#ifdef __ADM_BLT
CHIP_SPEC_BLT = gc#A_BLT
#else
CHIP_SPEC_BLT = 0
#endif
CHIP_SPEC = CHIP_SPEC_FAT|CHIP_SPEC_LDR|CHIP_SPEC_HSS|CHIP_SPEC_WAV|CHIP_SPEC_SID|CHIP_SPEC_LAN|CHIP_SPEC_RTC|CHIP_SPEC_PLX|CHIP_SPEC_COM|CHIP_SPEC_AYS|CHIP_SPEC_DCF|CHIP_SPEC_BLT
2013-12-10 15:32:47 +01:00
'
' hbeat --------+
' clk -------+|
' /wr ------+||
' /hs -----+||| +------------------------- /cs
' |||| |+------------------------ adm-p22
' |||| ||+----------------------- adm-p21 (io)
' |||| |||+---------------------- adm-p20 (rx)
' |||| ||||+--------------------- adm-p19 (tx)
' |||| ||||| +------+ d0..d7
' |||| ||||| | |
DB_IN = %00001001_00100000_00000000_00000000 'dira-wert für datenbuseingabe
DB_OUT = %00001001_00100000_00000000_11111111 'dira-wert für datenbusausgabe
M1 = %00000010_00000000_00000000_00000000 'busclk=1? & /prop1=0?
M2 = %00000010_10000000_00000000_00000000 'maske: busclk & /cs (/prop1)
M3 = %00000000_00000000_00000000_00000000 'busclk=0?
M4 = %00000010_00000000_00000000_00000000 'maske: busclk
LED_OPEN = gc#HBEAT 'led-pin für anzeige "dateioperation"
SD_BASE = gc#A_SDD0 'baspin cardreader
CNT_HBEAT = 5_000_0000 'blinkgeschw. front-led
2014-04-18 13:56:42 +02:00
MPLEN = 12000 'hss music buffer
'sidcog
playRate = 50 'Hz
detune = 1.006
'Netzwerk-Puffergrößen (müssen Vielfaches von 2 sein!)
2014-04-30 19:52:31 +02:00
rxlen = 2048 '[rxlen*sock#sNumSockets] must be 4096 or more (to use buffer for sd copy)!
2014-04-18 13:56:42 +02:00
txlen = 128
2013-12-10 15:32:47 +01:00
'index für dmarker
#0, RMARKER 'root
SMARKER 'system
UMARKER 'programmverzeichnis
AMARKER
BMARKER
CMARKER
2014-04-18 13:56:42 +02:00
CON 'Signaldefinitionen --------------------------------------------------------------------------
'signaldefinitionen administra (todo: nach glob-con.spin auslagern!!!)
#14, A_NETCS,A_NETSCK,A_NETSI,A_NETSO 'Pins zum ENC28J60
CON 'NVRAM Konstanten --------------------------------------------------------------------------
' todo: nach glob-con.spin auslagern!!!
#4, NVRAM_IPADDR
#8, NVRAM_IPMASK
#12, NVRAM_IPGW
#16, NVRAM_IPDNS
#20, NVRAM_IPBOOT
#24, NVRAM_HIVE ' 4 Bytes
2013-12-10 15:32:47 +01:00
OBJ
2014-04-18 13:56:42 +02:00
#ifdef __ADM_FAT
2013-12-10 15:32:47 +01:00
sdfat : "adm-fat" 'fatengine
2014-04-18 13:56:42 +02:00
#endif
#ifdef __ADM_HSS
2013-12-10 15:32:47 +01:00
hss : "adm-hss" 'hydra-sound-system
2014-04-18 13:56:42 +02:00
#endif
#ifdef __ADM_WAV
2013-12-10 15:32:47 +01:00
wav : "adm-wav" 'sd-wave
2014-04-18 13:56:42 +02:00
#endif
#ifdef __ADM_SID
sid1 : "adm-sid" 'SIDCog
sid2 : "adm-sid" 'SIDCog
#endif
#ifdef __ADM_AYS
ay : "adm-ay" 'AYcog - AY-3-891X / YM2149 emulator
#endif
#ifdef __ADM_RTC
2013-12-10 15:32:47 +01:00
rtc : "adm-rtc" 'RTC-Engine
2014-04-18 13:56:42 +02:00
#endif
#ifdef __ADM_COM
2013-12-10 15:32:47 +01:00
com : "adm-com" 'serielle schnittstelle
2014-04-18 13:56:42 +02:00
#endif
#ifdef __ADM_LAN
sock : "driver_socket" 'LAN
num : "glob-numbers" 'Number Engine
#endif
2014-04-28 17:04:21 +02:00
#ifdef __ADM_PLX
2014-04-28 20:18:43 +02:00
plx : "adm-plx" 'PlexBux
2014-04-28 17:04:21 +02:00
#endif
#ifdef __ADM_DCF
dcf : "adm-dcf" 'DCF-77
#endif
2014-04-18 13:56:42 +02:00
2013-12-10 15:32:47 +01:00
gc : "glob-con" 'globale konstanten
VAR
byte tbuf[20] 'stringpuffer
byte tbuf2[20]
byte fl_syssnd '1 = systemtöne an
byte st_sound '0 = aus, 1 = hss, 2 = wav
2014-04-28 17:04:21 +02:00
#ifdef __ADM_DCF
byte dcfon 'DCF-Betriebsmerker
#endif
2013-12-10 15:32:47 +01:00
2014-04-30 19:52:31 +02:00
#ifdef __ADM_LAN
byte bufmain[rxlen*sock#sNumSockets] 'Buffer for everything ([rxlen*sock#sNumSockets] must be 4096 or more!)
#elseifdef __ADM_FAT_EXT
byte bufmain[4096] 'Buffer for everything (SD copy...)
#endif
2013-12-10 15:32:47 +01:00
CON ''------------------------------------------------- ADMINISTRA
PUB main | cmd,err 'chip: kommandointerpreter
''funktionsgruppe : chip
''funktion : kommandointerpreter
''eingabe : -
''ausgabe : -
init_chip 'bus/vga/keyboard/maus initialisieren
repeat
2014-04-28 17:04:21 +02:00
#ifdef __ADM_DCF
if dcfon
if dcf.GetInSync==1
if dcf.GetBitNumber==59 'Zeittelegramm gültig?, dann RTC synchronisieren (jedes gültige Telegramm)
dcf_updateRTC
#endif '__ADM_DCF
2013-12-10 15:32:47 +01:00
cmd := bus_getchar 'kommandocode empfangen
err := 0
case cmd
0: !outa[LED_OPEN] 'led blinken
' ---------------------------------------------- SD-FUNKTIONEN
2014-04-18 13:56:42 +02:00
#ifdef __ADM_FAT
2013-12-10 15:32:47 +01:00
gc#a_sdMount: sd_mount("M") 'sd-card mounten '
gc#a_sdOpenDir: sd_opendir 'direktory öffnen
gc#a_sdNextFile: sd_nextfile 'verzeichniseintrag lesen
gc#a_sdOpen: sd_open 'datei öffnen
gc#a_sdClose: sd_close 'datei schließen
gc#a_sdGetC: sd_getc 'zeichen lesen
gc#a_sdPutC: sd_putc 'zeichen schreiben
gc#a_sdGetBlk: sd_getblk 'block lesen
gc#a_sdPutBlk: sd_putblk 'block schreiben
gc#a_sdSeek: sd_seek 'zeiger in datei positionieren
gc#a_sdFAttrib: sd_fattrib 'dateiattribute übergeben
gc#a_sdVolname: sd_volname 'volumelabel abfragen
gc#a_sdCheckMounted: sd_checkmounted 'test ob volume gemounted ist
gc#a_sdCheckOpen: sd_checkopen 'test ob eine datei geöffnet ist
gc#a_sdCheckUsed: sd_checkused 'test wie viele sektoren benutzt sind
gc#a_sdCheckFree: sd_checkfree 'test wie viele sektoren frei sind
gc#a_sdNewFile: sd_newfile 'neue datei erzeugen
gc#a_sdNewDir: sd_newdir 'neues verzeichnis wird erzeugt
gc#a_sdDel: sd_del 'verzeichnis oder datei löschen
gc#a_sdRename: sd_rename 'verzeichnis oder datei umbenennen
gc#a_sdChAttrib: sd_chattrib 'attribute ändern
gc#a_sdChDir: sd_chdir 'verzeichnis wechseln
gc#a_sdFormat: sd_format 'medium formatieren
gc#a_sdUnmount: sd_unmount 'medium abmelden
gc#a_sdDmAct: sd_dmact 'dir-marker aktivieren
gc#a_sdDmSet: sd_dmset 'dir-marker setzen
gc#a_sdDmGet: sd_dmget 'dir-marker status abfragen
gc#a_sdDmClr: sd_dmclr 'dir-marker löschen
gc#a_sdDmPut: sd_dmput 'dir-marker status setzen
gc#a_sdEOF: sd_eof 'eof abfragen
2014-04-28 20:18:43 +02:00
#ifdef __ADM_FAT_EXT
gc#a_sdPos: sd_pos 'Zeiger in Datei abfragen
gc#a_sdCopy: sd_copy 'Datei kopieren
gc#a_sdDirSize: sd_dirsize 'Dateigrösse ->ist quatsch
#endif '__ADM_FAT_EXT
2014-04-18 13:56:42 +02:00
#endif '__ADM_FAT
2013-12-10 15:32:47 +01:00
2014-04-28 20:18:43 +02:00
' ---------------------------------------------- Bluetooth-FUNKTIONEN
#ifdef __ADM_BLT
gc#a_bltCommand_On: blt_setCommandMode
gc#a_bltCommand_Off: blt_setNormalMode
#endif '__ADM_BLT
2013-12-10 15:32:47 +01:00
' ---------------------------------------------- COM-FUNKTIONEN
2014-04-18 13:56:42 +02:00
#ifdef __ADM_COM
2013-12-10 15:32:47 +01:00
gc#a_comInit: com_init
gc#a_comTx: com_tx
gc#a_comRx: com_rx
2014-04-18 13:56:42 +02:00
#endif '__ADM_COM
2013-12-10 15:32:47 +01:00
' ---------------------------------------------- RTC-FUNKTIONEN
2014-04-18 13:56:42 +02:00
#ifdef __ADM_RTC
2014-04-28 17:04:21 +02:00
gc#a_rtcTest: rtc_test 'Test if RTC Chip is available
2013-12-10 15:32:47 +01:00
gc#a_rtcGetSeconds: rtc_getSeconds 'Returns the current second (0 - 59) from the real time clock.
gc#a_rtcGetMinutes: rtc_getMinutes 'Returns the current minute (0 - 59) from the real time clock.
gc#a_rtcGetHours: rtc_getHours 'Returns the current hour (0 - 23) from the real time clock.
gc#a_rtcGetDay: rtc_getDay 'Returns the current day (1 - 7) from the real time clock.
gc#a_rtcGetDate: rtc_getDate 'Returns the current date (1 - 31) from the real time clock.
gc#a_rtcGetMonth: rtc_getMonth 'Returns the current month (1 - 12) from the real time clock.
gc#a_rtcGetYear: rtc_getYear 'Returns the current year (2000 - 2099) from the real time clock.
gc#a_rtcSetSeconds: rtc_setSeconds 'Sets the current real time clock seconds. Seconds - Number to set the seconds to between 0 - 59.
gc#a_rtcSetMinutes: rtc_setMinutes 'Sets the current real time clock minutes. Minutes - Number to set the minutes to between 0 - 59.
gc#a_rtcSetHours: rtc_setHours 'Sets the current real time clock hours. Hours - Number to set the hours to between 0 - 23.
gc#a_rtcSetDay: rtc_setDay 'Sets the current real time clock day. Day - Number to set the day to between 1 - 7.
gc#a_rtcSetDate: rtc_setDate 'Sets the current real time clock date. Date - Number to set the date to between 1 - 31.
gc#a_rtcSetMonth: rtc_setMonth 'Sets the current real time clock month. Month - Number to set the month to between 1 - 12.
gc#a_rtcSetYear: rtc_setYear 'Sets the current real time clock year. Year - Number to set the year to between 2000 - 2099.
gc#a_rtcSetNVSRAM: rtc_setNVSRAM 'Sets the NVSRAM to the selected value (0 - 255) at the index (0 - 55).
gc#a_rtcGetNVSRAM: rtc_getNVSRAM 'Gets the selected NVSRAM value at the index (0 - 55).
gc#a_rtcPauseForSec: rtc_pauseForSeconds '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.
gc#a_rtcPauseForMSec: rtc_pauseForMilliseconds '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.
2014-04-28 17:04:21 +02:00
gc#a_rtcGetTime: rtc_getTime 'Returns the current hour, minute and second from the real time clock.
2014-04-18 13:56:42 +02:00
#endif '__ADM_RTC
2014-04-28 17:04:21 +02:00
' ---------------------------------------------- DCF77-FUNKTIONEN
#ifdef __ADM_DCF
gc#a_dcfGetInSync: dcf_getInSync 'Sync-Status senden
gc#a_dcfUpdateRTC: dcf_updateRTC 'RTC Synchronisieren
gc#a_dcfGetBitError: dcf_getBitError
gc#a_dcfGetDataCount: dcf_getDataCount
gc#a_dcfGetBitNumber: dcf_getBitNumber
gc#a_dcfGetBitLevel: dcf_getBitLevel
gc#a_dcfGetTimeZone: dcf_getTimeZone
gc#a_dcfGetActiveSet: dcf_getActiveSet
gc#a_dcfStart: dcf_start 'DCF-Empfang starten
gc#a_dcfStop: dcf_stop 'DCF-Empfang stoppen
gc#a_dcfState: dcf_state 'Status des DCF-Empfängers
gc#a_dcfGetSeconds: dcf_getSeconds
gc#a_dcfGetMinutes: dcf_getMinutes
gc#a_dcfGetHours: dcf_getHours
gc#a_dcfGetWeekDay: dcf_getWeekDay
gc#a_dcfGetDay: dcf_getDay
gc#a_dcfGetMonth: dcf_getMonth
gc#a_dcfGetYear: dcf_getYear
#endif '__ADM_DCF
2014-04-18 13:56:42 +02:00
' ---------------------------------------------- LAN-FUNKTIONEN
#ifdef __ADM_LAN
gc#a_lanStart: lan_start 'Start Network
gc#a_lanStop:lan_stop 'Stop Network
gc#a_lanConnect: lan_connect 'ausgehende TCP-Verbindung öffnen
gc#a_lanListen: lan_listen 'auf eingehende TCP-Verbindung lauschen
gc#a_lanWaitConnTimeout: lan_waitconntimeout 'bestimmte Zeit auf Verbindung warten
gc#a_lanClose: lan_close 'TCP-Verbindung schließen
gc#a_lanRXTime: lan_rxtime 'bestimmte Zeit warten auf Byte aus Empfangspuffer
gc#a_lanRXData: lan_rxdata 'Daten aus Empfangspuffer lesen
gc#a_lanTXData: lan_txdata 'Daten senden
gc#a_lanRXByte: lan_rxbyte 'wenn vorhanden, Byte aus Empfangspuffer lesen
gc#a_lanIsConnected: lan_isconnected 'TRUE, wenn Socket verbunden, sonst FALSE
#endif '__ADM_LAN
2013-12-10 15:32:47 +01:00
' ---------------------------------------------- CHIP-MANAGMENT
gc#a_mgrSetSound: mgr_setsound 'soundsubsysteme verwalten
gc#a_mgrGetSpec: mgr_getspec 'spezifikation abfragen
gc#a_mgrSetSysSound: mgr_setsyssound 'systemsound ein/ausschalten
gc#a_mgrGetSoundSys: mgr_getsoundsys 'abfrage welches soundsystem aktiv ist
gc#a_mgrALoad: mgr_aload 'neuen code booten
gc#a_mgrGetCogs: mgr_getcogs 'freie cogs abfragen
gc#a_mgrGetVer: mgr_getver 'codeversion abfragen
gc#a_mgrReboot: reboot 'neu starten
' ---------------------------------------------- HSS-FUNKTIONEN
2014-04-18 13:56:42 +02:00
#ifdef __ADM_HSS
2013-12-10 15:32:47 +01:00
gc#a_hssLoad: hss_load 'hss-datei in puffer laden
2014-04-18 13:56:42 +02:00
#ifdef __ADM_HSS_PLAY
2013-12-10 15:32:47 +01:00
gc#a_hssPlay: hss.hmus_load(@bgmusic) 'play
hss.hmus_play
2014-04-18 13:56:42 +02:00
#endif '__ADM_HSS_PLAY
2013-12-10 15:32:47 +01:00
gc#a_hssStop: hss.hmus_stop 'stop
gc#a_hssPause: hss.hmus_pause 'pause
gc#a_hssPeek: hss_peek 'register lesen
gc#a_hssIntReg: hss_intreg 'interfaceregister auslesen
gc#a_hssVol: hss_vol 'lautstärke setzen
gc#a_sfxFire: sfx_fire 'sfx abspielen
gc#a_sfxSetSlot: sfx_setslot 'sfx-slot setzen
gc#a_sfxKeyOff: sfx_keyoff
gc#a_sfxStop: sfx_stop
2014-04-18 13:56:42 +02:00
#endif '__ADM_HSS
2013-12-10 15:32:47 +01:00
2014-04-28 20:18:43 +02:00
' ---------------------------------------------- PLX-Funktionen
#ifdef __ADM_PLX
gc#a_plxRun: plx.run 'plx-bus freigeben
gc#a_plxHalt: plx.halt 'plx-bus anfordern
gc#a_plxIn: plx_in 'port einlesen
gc#a_plxOut: plx_out 'port ausgeben
gc#a_plxCh: plx_ch 'ad-wandler auslesen
gc#a_plxGetReg: plx_getReg 'poller-register lesen
gc#a_plxSetReg: plx_setReg 'poller-register setzen
gc#a_plxStart: plx.start 'i2c-dialog starten
gc#a_plxStop: plx.stop 'i2c-dialog beenden
gc#a_plxWrite: plx_write 'i2c byte senden
gc#a_plxRead: plx_read 'i2c byte empfangen
gc#a_plxPing: plx_ping 'abfrage ob device vorhanden ist
gc#a_plxSetAdr: plx_setAddr 'adressen adda/ports für poller setzen
' ---------------------------------------------- GAMEDEVICES
gc#a_Joy: joy_get 'Joystick abfragen (1 x 8bit Port)
#endif '__ADM_PLX
2013-12-10 15:32:47 +01:00
' ---------------------------------------------- WAV-FUNKTIONEN
2014-04-18 13:56:42 +02:00
#ifdef __ADM_WAV
2013-12-10 15:32:47 +01:00
gc#a_sdwStart: sdw_start 'spielt wav-datei direkt von sd-card ab
gc#a_sdwStop: sdw_stop 'stopt wav-cog
gc#a_sdwStatus: sdw_status 'fragt status des players ab
gc#a_sdwLeftVol: sdw_leftvol 'lautstärke links
gc#a_sdwRightVol: sdw_rightvol 'lautstärke rechts
gc#a_sdwPause: sdw_pause 'player pause/weiter-modus
gc#a_sdwPosition: sdw_position
2014-04-18 13:56:42 +02:00
#endif '__ADM_WAV
' ---------------------------------------------- SIDCog: DMP-Player-Funktionen (SIDCog2)
#ifdef __ADM_SID
gc#a_s_mdmpplay: sid_mdmpplay 'dmp-file mono auf sid2 abspielen
gc#a_s_sdmpplay: sid_sdmpplay 'dmp-file stereo auf beiden sids abspielen
gc#a_s_dmpstop: sid_dmpstop 'dmp-player beenden
gc#a_s_dmppause: sid_dmppause 'dmp-player pausenmodus
gc#a_s_dmpstatus: sid_dmpstatus 'dmp-player statusabfrage
gc#a_s_dmppos: sid_dmppos 'player-position im dumpfile
gc#a_s_mute: sid_mute 'alle register löschen
' ---------------------------------------------- SIDCog1-Funktionen
gc#a_s1_setRegister: sid1.setRegister(bus_getchar,bus_getchar)
gc#a_s1_updateRegisters: sid1.updateRegisters(sub_getdat(25,@s1buffer))
gc#a_s1_setVolume: sid1.setVolume(bus_getchar)
gc#a_s1_play: sid1.play(bus_getchar,sub_getlong,bus_getchar,bus_getchar,bus_getchar,bus_getchar,bus_getchar)
gc#a_s1_noteOn: sid1.noteOn(bus_getchar, sub_getlong)
gc#a_s1_noteOff: sid1.noteOff(bus_getchar)
gc#a_s1_setFreq: sid1.setFreq(bus_getchar,sub_getlong)
gc#a_s1_setWaveform: sid1.setWaveform(bus_getchar,bus_getchar)
gc#a_s1_setPWM: sid1.setPWM(bus_getchar,sub_getlong)
gc#a_s1_setADSR: sid1.setADSR(bus_getchar,bus_getchar,bus_getchar,bus_getchar,bus_getchar)
gc#a_s1_setResonance: sid1.setResonance(bus_getchar)
gc#a_s1_setCutoff: sid1.setCutoff(sub_getlong)
gc#a_s1_setFilterMask: sid1.setFilterMask(bus_getchar,bus_getchar,bus_getchar)
gc#a_s1_setFilterType: sid1.setFilterType(bus_getchar,bus_getchar,bus_getchar)
gc#a_s1_enableRingmod: sid1.enableRingmod(bus_getchar,bus_getchar,bus_getchar)
gc#a_s1_enableSynchronization: sid1.enableSynchronization(bus_getchar,bus_getchar,bus_getchar)
' ---------------------------------------------- SIDCog2-Funktionen
gc#a_s2_setRegister: sid2.setRegister(bus_getchar,bus_getchar)
gc#a_s2_updateRegisters: sid2.updateRegisters(sub_getdat(25,@s1buffer))
gc#a_s2_setVolume: sid2.setVolume(bus_getchar)
gc#a_s2_play: sid2.play(bus_getchar,sub_getlong,bus_getchar,bus_getchar,bus_getchar,bus_getchar,bus_getchar)
gc#a_s2_noteOn: sid2.noteOn(bus_getchar, sub_getlong)
gc#a_s2_noteOff: sid2.noteOff(bus_getchar)
gc#a_s2_setFreq: sid2.setFreq(bus_getchar,sub_getlong)
gc#a_s2_setWaveform: sid2.setWaveform(bus_getchar,bus_getchar)
gc#a_s2_setPWM: sid2.setPWM(bus_getchar,sub_getlong)
gc#a_s2_setADSR: sid2.setADSR(bus_getchar,bus_getchar,bus_getchar,bus_getchar,bus_getchar)
gc#a_s2_setResonance: sid2.setResonance(bus_getchar)
gc#a_s2_setCutoff: sid2.setCutoff(sub_getlong)
gc#a_s2_setFilterMask: sid2.setFilterMask(bus_getchar,bus_getchar,bus_getchar)
gc#a_s2_setFilterType: sid2.setFilterType(bus_getchar,bus_getchar,bus_getchar)
gc#a_s2_enableRingmod: sid2.enableRingmod(bus_getchar,bus_getchar,bus_getchar)
gc#a_s2_enableSynchronization: sid2.enableSynchronization(bus_getchar,bus_getchar,bus_getchar)
' ---------------------------------------------- SID Zusatzfunktionen
2014-04-28 20:18:43 +02:00
gc#a_s2_resetRegisters: sid2.resetRegisters
gc#a_s1_resetRegisters: sid1.resetRegisters
gc#a_s_beep: sid_beep
2014-04-18 13:56:42 +02:00
gc#a_s_dmpreg: sid_dmpreg 'soundinformationen senden
#endif '__ADM_SID
' ---------------------------------------------- AY-SOUNDFUNKTIONEN
#ifdef __ADM_AYS
gc#a_ayStart: ay_start
gc#a_ayStop: ay_stop
gc#a_ayUpdateRegisters: ay_updateRegisters
#endif '__ADM_AYS
2013-12-10 15:32:47 +01:00
' ---------------------------------------------- DEBUG-FUNKTIONEN
255: mgr_debug 'debugfunktion
PRI init_chip | err,i,j 'chip: initialisierung des administra-chips
''funktionsgruppe : chip
''funktion : - initialisierung des businterface
'' - grundzustand definieren (hss aktiv, systemklänge an)
''eingabe : -
''ausgabe : -
'businterface initialisieren
outa[gc#bus_hs] := 1 'handshake inaktiv ,frida
dira := db_in 'datenbus auf eingabe schalten ,frida
'grundzustand herstellen (hss aktiv + systemklänge an)
2014-04-18 13:56:42 +02:00
#ifdef __ADM_HSS
2013-12-10 15:32:47 +01:00
'hss starten
hss.start 'soundsystem starten
st_sound := 1 'hss aktiviert
fl_syssnd := 1 'systemsound an
2014-04-18 13:56:42 +02:00
#endif '__ADM_HSS
2013-12-10 15:32:47 +01:00
2014-04-18 13:56:42 +02:00
#ifdef __ADM_FAT
2013-12-10 15:32:47 +01:00
'sd-card starten
clr_dmarker 'dir-marker löschen
sdfat.FATEngine
repeat
waitcnt(cnt + clkfreq/10)
until sd_mount("B") == 0
'err := sd_mount("B")
'siglow(err)
2014-04-18 13:56:42 +02:00
#endif '__ADM_FAT
2013-12-10 15:32:47 +01:00
2014-04-18 13:56:42 +02:00
#ifdef __ADM_WAV
2013-12-10 15:32:47 +01:00
'wav starten
leftVolume := 100
rightVolume := 100
PlayCog~
2014-04-18 13:56:42 +02:00
#endif '__ADM_WAV
#ifdef __ADM_SID
'SID soundsystem initialisieren
sidreg1 := sid1.start(gc#A_SOUNDL,0) 'erste sidcog starten, adresse der register speichern
waitcnt(cnt+(clkfreq>>8)) '
sidreg2 := sid2.start(gc#A_SOUNDR,0) 'zweite sidcog starten
#endif '__ADM_SID
2013-12-10 15:32:47 +01:00
2014-04-18 13:56:42 +02:00
#ifdef __ADM_RTC
2013-12-10 15:32:47 +01:00
'RTC initialisieren
rtc.setSQWOUTFrequency(3) 'RTC Uhrenquarzt Frequenz wählen
rtc.setSQWOUTState(0) 'RT Zähler ein
2014-04-18 13:56:42 +02:00
#endif '__ADM_RTC
2013-12-10 15:32:47 +01:00
2014-04-18 13:56:42 +02:00
#ifdef __ADM_FAT
2013-12-10 15:32:47 +01:00
'adm-code booten?
ifnot \sdfat.openFile(string("adm.sys"), "R") 'test ob adm.sys vorhanden ist
\sdfat.bootPartition(string("adm.sys"), ".") 'neuen code booten
2014-04-18 13:56:42 +02:00
#endif '__ADM_FAT
2013-12-10 15:32:47 +01:00
2014-04-18 13:56:42 +02:00
#ifdef __ADM_COM
2013-12-10 15:32:47 +01:00
'serielle schnittstelle starten
com_baud := 9600
2014-04-28 17:04:21 +02:00
com.start(gc#SER_RX,gc#SER_TX,0,com_baud) 'start the default serial interface
2014-04-18 13:56:42 +02:00
#endif '__ADM_COM
2014-04-28 20:18:43 +02:00
#ifdef __ADM_PLX
plx.init 'defaultwerte setzen, poller-cog starten
plx.run 'plexbus freigeben (poller läuft)
#endif '__ADM_PLX
2014-04-18 13:56:42 +02:00
#ifdef __ADM_LAN
'LAN
lan_started := false 'LAN noch nicht gestartet
#endif '__ADM_LAN
2013-12-10 15:32:47 +01:00
2014-04-28 17:04:21 +02:00
#ifdef __ADM_DCF
'DCF-77
dcfon:=0
#endif '__ADM_DCF
2013-12-10 15:32:47 +01:00
PRI bus_putchar(zeichen) 'chip: ein byte über bus ausgeben
''funktionsgruppe : chip
''funktion : senderoutine für ein byte zu regnatix über den systembus
''eingabe : byte zeichen
''ausgabe : -
waitpeq(M1,M2,0) 'busclk=1? & /prop1=0?
dira := db_out 'datenbus auf ausgabe stellen
outa[7..0] := zeichen 'daten ausgeben
outa[gc#bus_hs] := 0 'daten gültig
waitpeq(M3,M4,0) 'busclk=0?
outa[gc#bus_hs] := 1 'daten ungültig
dira := db_in 'bus freigeben
PRI bus_getchar : zeichen 'chip: ein byte über bus empfangen
''funktionsgruppe : chip
''funktion : emfangsroutine für ein byte von regnatix über den systembus
''eingabe : -
''ausgabe : byte zeichen
waitpeq(M1,M2,0) 'busclk=1? & /prop1=0?
zeichen := ina[7..0] 'daten einlesen
outa[gc#bus_hs] := 0 'daten quittieren
outa[gc#bus_hs] := 1
waitpeq(M3,M4,0) 'busclk=0?
PRI sighigh(err) 'chip: schneller hbeat | fehlersound
''funktionsgruppe : chip
''funktion : schneller hbeat | fehlersound
''eingabe : -
''ausgabe : -
2014-04-18 13:56:42 +02:00
#ifdef __ADM_HSS
2013-12-10 15:32:47 +01:00
if fl_syssnd == 1
if err == 0
hss.sfx_play(1, @SoundFX3) 'Heartbeat High
else
hss.sfx_play(1, @SoundFX7) 'Error
2014-04-18 13:56:42 +02:00
#endif
2013-12-10 15:32:47 +01:00
PRI siglow(err) 'chip: langsamer hbeat | fehlersound
''funktionsgruppe : chip
''funktion : langsamer hbeat | fehlersound
''eingabe : -
''ausgabe : -
2014-04-18 13:56:42 +02:00
#ifdef __ADM_HSS
2013-12-10 15:32:47 +01:00
if fl_syssnd == 1
if err == 0
hss.sfx_play(1, @SoundFX4) 'Heartbeat High
else
hss.sfx_play(1, @SoundFX7) 'Error
2014-04-18 13:56:42 +02:00
#endif
2013-12-10 15:32:47 +01:00
PRI clr_dmarker| i 'chip: dmarker-tabelle löschen
''funktionsgruppe : chip
''funktion : dmarker-tabelle löschen
''eingabe : -
''ausgabe : -
2014-04-18 13:56:42 +02:00
#ifdef __ADM_FAT
2013-12-10 15:32:47 +01:00
i := 0
repeat 6 'alle dir-marker löschen
dmarker[i++] := TRUE
2014-04-18 13:56:42 +02:00
#endif '__ADM_FAT
2013-12-10 15:32:47 +01:00
CON ''------------------------------------------------- SUBPROTOKOLL-FUNKTIONEN
PRI sub_getstr | i,len 'sub: string einlesen
''funktionsgruppe : sub
''funktion : subprotokoll um einen string von regnatix zu empfangen und im
'' : textpuffer (tbuf) zu speichern
''eingabe : -
''ausgabe : -
''busprotokoll : [get.len][get.byte(1)]..[get.byte(len)]
'' : len - länge des dateinamens
repeat i from 0 to 19 'puffer löschen und kopieren
tbuf2[i] := tbuf[i]
tbuf[i] := 0
len := bus_getchar 'längenbyte name empfangen
repeat i from 0 to len - 1 'dateiname einlesen
tbuf[i] := bus_getchar
2014-04-18 13:56:42 +02:00
PUB sub_getdat(len,datadr1):datadr2 | i 'sub: daten einlesen
''funktionsgruppe : sub
''funktion : subprotokoll um eine bestimmte anzahl bytes zu empfangen
''eingabe : len - anzahl der bytes
'' : datadr1 - adresse des datenspeichers
''ausgabe : datadr2 - adresse des datenspeichers
''busprotokoll : [get.byte(1)]..[get.byte(len)]
repeat i from 0 to len - 1 'dateiname einlesen
tbuf[datadr1 + i] := bus_getchar
datadr2 := datadr1
2013-12-10 15:32:47 +01:00
PRI sub_putstr(strptr)|len,i 'sub: string senden
''funktionsgruppe : sub
''funktion : subprotokoll um einen string an regnatix zu senden
''eingabe : strptr - zeiger auf einen string (0-term)
''ausgabe : -
''busprotokoll : [put.len][put.byte(1)]..[put.byte(len)]
'' : len - länge des dateinamens
len := strsize(strptr)
bus_putchar(len)
repeat i from 0 to len - 1 'string übertragen
bus_putchar(byte[strptr][i])
PRI sub_putword(wert) 'sub: long senden
''funktionsgruppe : sub
''funktion : subprotokoll um einen 16bit-wert an regnatix zu senden
''eingabe : 16bit wert der gesendet werden soll
''ausgabe : -
''busprotokoll : [put.byte1][put.byte2]
'' : [ hsb ][ lsb ]
bus_putchar(wert >> 8)
bus_putchar(wert)
PRI sub_getword:wert 'sub: long empfangen
''funktionsgruppe : sub
''funktion : subprotokoll um einen 16bit-wert von regnatix zu empfangen
''eingabe : -
''ausgabe : 16bit-wert der empfangen wurde
''busprotokoll : [get.byte1][get.byte2]
'' : [ hsb ][ lsb ]
wert := wert + bus_getchar << 8
wert := wert + bus_getchar
PRI sub_putlong(wert) 'sub: long senden
''funktionsgruppe : sub
''funktion : subprotokoll um einen long-wert an regnatix zu senden
''eingabe : 32bit wert der gesendet werden soll
''ausgabe : -
''busprotokoll : [put.byte1][put.byte2][put.byte3][put.byte4]
'' : [ hsb ][ ][ ][ lsb ]
bus_putchar(wert >> 24) '32bit wert senden hsb/lsb
bus_putchar(wert >> 16)
bus_putchar(wert >> 8)
bus_putchar(wert)
PRI sub_getlong:wert 'sub: long empfangen
''funktionsgruppe : sub
''funktion : subprotokoll um einen long-wert von regnatix zu empfangen
''eingabe : -
''ausgabe : 32bit-wert der empfangen wurde
''busprotokoll : [get.byte1][get.byte2][get.byte3][get.byte4]
'' : [ hsb ][ ][ ][ lsb ]
wert := bus_getchar << 24 '32 bit empfangen hsb/lsb
wert := wert + bus_getchar << 16
wert := wert + bus_getchar << 8
wert := wert + bus_getchar
CON ''------------------------------------------------- CHIP-MANAGMENT-FUNKTIONEN
PRI mgr_setsound|sndstat 'cmgr: soundsubsysteme verwalten
''funktionsgruppe : cmgr
''funktion : soundsubsysteme an- bzw. abschalten
''eingabe : -
''ausgabe : -
''busprotokoll : [150][get.funktion][put.sndstat]
'' : funktion - 0: hss-engine abschalten
'' : 1: hss-engine anschalten
'' : 2: dac-engine abschalten
'' : 3: dac-engine anschalten
'' : sndstat - status/cognr startvorgang
sndstat := 0
case bus_getchar
2014-04-18 13:56:42 +02:00
#ifdef __ADM_HSS
2013-12-10 15:32:47 +01:00
0: if st_sound == 1
hss.hmus_stop
hss.sfx_stop(0)
hss.sfx_stop(1)
hss.stop
st_sound := 0
1: if st_sound == 0
sndstat := hss.start
st_sound := 1
2014-04-18 13:56:42 +02:00
#endif
2013-12-10 15:32:47 +01:00
2014-04-18 13:56:42 +02:00
#ifdef __ADM_WAV
2013-12-10 15:32:47 +01:00
2: if st_sound == 2
cogstop(DACCog)
st_sound := 0
3: if st_sound == 0
sndstat := DACCog := wav.DACEngine(0)
st_sound := 2
2014-04-18 13:56:42 +02:00
#endif
99:
2013-12-10 15:32:47 +01:00
bus_putchar(sndstat)
PRI mgr_setsyssound 'cmgr: systemsound ein/ausschalten
''funktionsgruppe : cmgr
''funktion : systemklänge steuern
''eingabe :
''ausgabe :
''busprotokoll : [094][get.fl_syssnd]
'' : fl_syssnd - flag zur steuerung der systemsounds
'' : 0 - systemtöne aus
'' : 1 - systemtöne an
fl_syssnd := bus_getchar
PRI mgr_getsoundsys 'cmgr: abfrage welches soundsystem aktiv ist
''funktionsgruppe : cmgr
''funktion : abfrage welches soundsystem aktiv ist
''eingabe :
''ausgabe :
''busprotokoll : [095][put.st_sound]
'' : st_sound - status des soundsystems
'' : 0 - sound aus
'' : 1 - hss
'' : 2 - wav
bus_putchar(st_sound)
PRI mgr_aload | err 'cmgr: neuen administra-code booten
''funktionsgruppe : cmgr
''funktion : administra mit neuem code booten
''eingabe :
''ausgabe :
''busprotokoll : [096][sub_getstr.fn]
'' : fn - dateiname des neuen administra-codes
2014-04-18 13:56:42 +02:00
#ifdef __ADM_FAT
2013-12-10 15:32:47 +01:00
sub_getstr
err := \sdfat.bootPartition(@tbuf, ".")
sighigh(err) 'fehleranzeige
2014-04-18 13:56:42 +02:00
#endif '__ADM_FAT
2013-12-10 15:32:47 +01:00
PRI 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 : [097][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)
PRI mgr_getver 'cmgr: abfrage der version
''funktionsgruppe : cmgr
''funktion : abfrage der version und spezifikation des chips
''eingabe : -
''ausgabe : cogs - anzahl der cogs
''busprotokoll : [098][sub_putlong.ver]
'' : ver - version
'' +----------
'' | +------- system
'' | | +---- version (änderungen)
'' | | | +- subversion (hinzufügungen)
''version : $00_00_00_00
''
sub_putlong(CHIP_VER)
PRI 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 : [089][sub_putlong.spec]
'' : spec - spezifikation
''
'' +---------- com
'' | +-------- i2c
'' | |+------- rtc
'' | ||+------ lan
'' | |||+----- sid
'' | ||||+---- wav
'' | |||||+--- hss
'' | ||||||+-- bootfähig
'' | |||||||+- dateisystem
''spezifikation : %00000000_00000000_00000000_01001111
sub_putlong(CHIP_SPEC)
PRI mgr_debug 'cmgr: debug
' adresse der ersten variable senden
2014-04-18 13:56:42 +02:00
#ifdef __ADM_FAT
2013-12-10 15:32:47 +01:00
sub_putlong(@dmarker) 'adresse erste variable als marker
2014-04-18 13:56:42 +02:00
#endif '__ADM_FAT
2013-12-10 15:32:47 +01:00
CON ''------------------------------------------------- SD-LAUFWERKS-FUNKTIONEN
2014-04-18 13:56:42 +02:00
#ifdef __ADM_FAT
VAR
long dmarker[6] 'speicher für dir-marker
2014-04-28 20:18:43 +02:00
#ifdef __ADM_FAT_EXT
PRI sd_dirsize 'Anzahl Einträge im aktuellen Verzeichnis
' sub_putlong(\sdfat.listSize)
PRI sd_pos
sub_putlong(sdfat.getCharacterPosition)
2014-04-30 19:52:31 +02:00
PRI sd_copy|laenge,m,n,cpm,psm
2014-04-28 20:18:43 +02:00
cpm:=sub_getlong 'verzeichnismarker lesen (quelle)
psm:=sub_getlong 'verzeichnismarker lesen (ziel)
sub_getstr 'dateiname lesen @tbuff
outa[LED_OPEN]~~ 'LED an
2014-04-30 19:52:31 +02:00
sdfat.setDirCluster(cpm) 'Quellverzeichnis öffnen
2014-04-28 20:18:43 +02:00
2014-04-30 19:52:31 +02:00
\sdfat.openFile(@tbuf, "R") 'Quelldatei öffnen
laenge:=\sdfat.listSize 'Dateigröße empfangen
\sdfat.closeFile 'Datei schließen
2014-04-28 20:18:43 +02:00
m:=0
n:=0
2014-04-30 19:52:31 +02:00
repeat
'******************** Quelldatei lesen **********************************************
sdfat.setDirCluster(cpm) 'Quellverzeichnis öffnen
\sdfat.openFile(@tbuf, "R") 'Quelldatei öffnen
\sdfat.setCharacterPosition(m) 'Position innerhalb der Datei setzen
if laenge>4095 '4kB Daten lesen
\sdfat.readData(@bufmain, 4096)
m:=\sdfat.getCharacterPosition-1 'Position innerhalb der Datei merken
else 'Rest lesen
\sdfat.readData(@bufmain, laenge)
\sdfat.closeFile 'Datei schließen
'******************** Zieldatei schreiben *******************************************
sdfat.setDirCluster(psm) 'Zielverzeichnis öffnen
\sdfat.openFile(@tbuf, "W") 'Zieldatei zum schreiben öffnen
\sdfat.setCharacterPosition(m) 'Position innerhalb der Datei setzen
if laenge>4095 '4kB Daten schreiben
\sdfat.writeData(@bufmain, 4096)
n:=\sdfat.getCharacterPosition 'Position merken
else
\sdfat.writeData(@bufmain,laenge) 'Rest schreiben
quit 'Ausstieg
\sdfat.closeFile 'Datei schließen
'******************** Test auf Abbruch **********************************************
if bus_getchar==1 'Abbruch
\sdfat.closeFile 'Datei schließen
sub_putlong(n) 'Positionswert senden
return 'Ausstieg
sub_putlong(n) 'Kopierfortschritt zu Regnatix senden
laenge-=4095 '4kB von laenge abziehen
\sdfat.closeFile 'Datei schließen
sub_putlong(-1) 'Aktion beendet senden
2014-04-28 20:18:43 +02:00
outa[LED_OPEN]~ 'LED aus
#endif '__ADM_FAT_EXT
2013-12-10 15:32:47 +01:00
PRI sd_mount(mode) | err 'sdcard: sd-card mounten frida
''funktionsgruppe : sdcard
''funktion : eingelegtes volume mounten
''eingabe : -
''ausgabe : -
''busprotokoll : [001][put.error]
'' : error - fehlernummer entspr. list
ifnot sdfat.checkPartitionMounted 'frida
err := \sdfat.mountPartition(0,0) 'karte mounten
siglow(err)
'bus_putchar(err) 'fehlerstatus senden
if mode == "M" 'frida
bus_putchar(err) 'fehlerstatus senden
ifnot err
dmarker[RMARKER] := sdfat.getDirCluster 'root-marker setzen
err := \sdfat.changeDirectory(string("system"))
ifnot err
dmarker[SMARKER] := sdfat.getDirCluster 'system-marker setzen
sdfat.setDirCluster(dmarker[RMARKER]) 'root-marker wieder aktivieren
2014-04-18 13:56:42 +02:00
#ifdef __ADM_HSS
2013-12-10 15:32:47 +01:00
hss.sfx_play(1, @SoundFX8) 'on-sound
2014-04-18 13:56:42 +02:00
#endif
2013-12-10 15:32:47 +01:00
else 'frida
bus_putchar(0) 'frida
PRI sd_opendir | err 'sdcard: verzeichnis öffnen
''funktionsgruppe : sdcard
''funktion : verzeichnis öffnen
''eingabe : -
''ausgabe : -
''busprotokoll : [002]
err := \sdfat.listReset
siglow(err)
PRI sd_nextfile | strpt 'sdcard: nächsten eintrag aus verzeichnis holen
''funktionsgruppe : sdcard
''funktion : nächsten eintrag aus verzeichnis holen
''eingabe : -
''ausgabe : -
''busprotokoll : [003][put.status=0]
'' : [003][put.status=1][sub_putstr.fn]
'' : status - 1 = gültiger eintrag
'' : 0 = es folgt kein eintrag mehr
'' : fn - verzeichniseintrag string
strpt := \sdfat.listName 'nächsten eintrag holen
if strpt 'status senden
bus_putchar(1) 'kein eintrag mehr
sub_putstr(strpt)
else
bus_putchar(0) 'gültiger eintrag folgt
PRI sd_open | err,modus 'sdcard: datei öffnen
''funktionsgruppe : sdcard
''funktion : eine bestehende datei öffnen
''eingabe : -
''ausgabe : -
''busprotokoll : [004][get.modus][sub_getstr.fn][put.error]
'' : modus - "A" Append, "W" Write, "R" Read
'' : fn - name der datei
'' : error - fehlernummer entspr. list
modus := bus_getchar 'modus empfangen
sub_getstr
err := \sdfat.openFile(@tbuf, modus)
sighigh(err) 'fehleranzeige
bus_putchar(err) 'ergebnis der operation senden
outa[LED_OPEN] := 1
PRI sd_close | err 'sdcard: datei schließen
''funktionsgruppe : sdcard
''funktion : die aktuell geöffnete datei schließen
''eingabe : -
''ausgabe : -
''busprotokoll : [005][put.error]
'' : error - fehlernummer entspr. list
err := \sdfat.closeFile
siglow(err) 'fehleranzeige
bus_putchar(err) 'ergebnis der operation senden
outa[LED_OPEN] := 0
PRI sd_getc | n 'sdcard: zeichen aus datei lesen
''funktionsgruppe : sdcard
''funktion : zeichen aus datei lesen
''eingabe : -
''ausgabe : -
''busprotokoll : [006][put.char]
'' : char - gelesenes zeichen
n := \sdfat.readCharacter
bus_putchar(n)
PRI sd_putc 'sdcard: zeichen in datei schreiben
''funktionsgruppe : sdcard
''funktion : zeichen in datei schreiben
''eingabe : -
''ausgabe : -
''busprotokoll : [007][get.char]
'' : char - zu schreibendes zeichen
\sdfat.writeCharacter(bus_getchar)
PRI sd_eof 'sdcard: eof abfragen
''funktionsgruppe : sdcard
''funktion : eof abfragen
''eingabe : -
''ausgabe : -
''busprotokoll : [030][put.eof]
'' : eof - eof-flag
bus_putchar(sdfat.getEOF)
PRI sd_getblk 'sdcard: block aus datei lesen
''funktionsgruppe : sdcard
''funktion : block aus datei lesen
''eingabe : -
''ausgabe : -
''busprotokoll : [008][sub_getlong.count][put.char(1)]..[put.char(count)]
'' : count - anzahl der zu lesenden zeichen
'' : char - gelesenes zeichen
repeat sub_getlong
bus_putchar(\sdfat.readCharacter)
PRI sd_putblk 'sdcard: block in datei schreiben
''funktionsgruppe : sdcard
''funktion : block in datei schreiben
''eingabe : -
''ausgabe : -
''busprotokoll : [009][sub_getlong.count][put.char(1)]..[put.char(count)]
'' : count - anzahl der zu schreibenden zeichen
'' : char - zu schreibende zeichen
repeat sub_getlong
\sdfat.writeCharacter(bus_getchar)
PRI sd_seek | wert 'sdcard: zeiger in datei positionieren
''funktionsgruppe : sdcard
''funktion : zeiger in datei positionieren
''eingabe : -
''ausgabe : -
''busprotokoll : [010][sub_getlong.pos]
'' : pos - neue zeichenposition in der datei
wert := sub_getlong
\sdfat.setCharacterPosition(wert)
PRI sd_fattrib | anr,wert 'sdcard: dateiattribute übergeben
''funktionsgruppe : sdcard
''funktion : dateiattribute abfragen
''eingabe : -
''ausgabe : -
''busprotokoll : [011][get.anr][sub_putlong.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
anr := bus_getchar
case anr
0: wert := \sdfat.listSize
1: wert := \sdfat.listCreationDay
2: wert := \sdfat.listCreationMonth
3: wert := \sdfat.listCreationYear
4: wert := \sdfat.listCreationSeconds
5: wert := \sdfat.listCreationMinutes
6: wert := \sdfat.listCreationHours
7: wert := \sdfat.listAccessDay
8: wert := \sdfat.listAccessMonth
9: wert := \sdfat.listAccessYear
10: wert := \sdfat.listModificationDay
11: wert := \sdfat.listModificationMonth
12: wert := \sdfat.listModificationYear
13: wert := \sdfat.listModificationSeconds
14: wert := \sdfat.listModificationMinutes
15: wert := \sdfat.listModificationHours
16: wert := \sdfat.listIsReadOnly
17: wert := \sdfat.listIsHidden
18: wert := \sdfat.listIsSystem
19: wert := \sdfat.listIsDirectory
20: wert := \sdfat.listIsArchive
sub_putlong(wert)
PRI sd_volname 'sdcard: volumenlabel abfragen
''funktionsgruppe : sdcard
''funktion : name des volumes überragen
''eingabe : -
''ausgabe : -
''busprotokoll : [012][sub_putstr.volname]
'' : volname - name des volumes
'' : len - länge des folgenden strings
sub_putstr(\sdfat.listVolumeLabel) 'label holen und senden
PRI sd_checkmounted 'sdcard: test ob volume gemounted ist
''funktionsgruppe : sdcard
''funktion : test ob volume gemounted ist
''eingabe : -
''ausgabe : -
''busprotokoll : [013][put.flag]
'' : flag - 0 = unmounted, 1 mounted
bus_putchar(\sdfat.checkPartitionMounted)
PRI sd_checkopen 'sdcard: test ob eine datei geöffnet ist
''funktionsgruppe : sdcard
''funktion : test ob eine datei geöffnet ist
''eingabe : -
''ausgabe : -
''busprotokoll : [014][put.flag]
'' : flag - 0 = not open, 1 open
bus_putchar(\sdfat.checkFileOpen)
PRI sd_checkused 'sdcard: anzahl der benutzten sektoren senden
''funktionsgruppe : sdcard
''funktion : anzahl der benutzten sektoren senden
''eingabe : -
''ausgabe : -
''busprotokoll : [015][sub_putlong.used]
'' : used - anzahl der benutzten sektoren
sub_putlong(\sdfat.checkUsedSectorCount("F"))
PRI sd_checkfree 'sdcard: anzahl der freien sektoren senden
''funktionsgruppe : sdcard
''funktion : anzahl der freien sektoren senden
''eingabe : -
''ausgabe : -
''busprotokoll : [016][sub_putlong.free]
'' : free - anzahl der freien sektoren
sub_putlong(\sdfat.checkFreeSectorCount("F"))
PRI sd_newfile | err 'sdcard: eine neue datei erzeugen
''funktionsgruppe : sdcard
''funktion : eine neue datei erzeugen
''eingabe : -
''ausgabe : -
''busprotokoll : [017][sub_getstr.fn][put.error]
'' : fn - name der datei
'' : error - fehlernummer entspr. liste
sub_getstr
err := \sdfat.newFile(@tbuf)
sighigh(err) 'fehleranzeige
bus_putchar(err) 'ergebnis der operation senden
PRI sd_newdir | err 'sdcard: ein neues verzeichnis erzeugen
''funktionsgruppe : sdcard
''funktion : ein neues verzeichnis erzeugen
''eingabe : -
''ausgabe : -
''busprotokoll : [018][sub_getstr.fn][put.error]
'' : fn - name des verzeichnisses
'' : error - fehlernummer entspr. liste
sub_getstr
err := \sdfat.newDirectory(@tbuf)
sighigh(err) 'fehleranzeige
bus_putchar(err) 'ergebnis der operation senden
PRI sd_del | err 'sdcard: eine datei oder ein verzeichnis löschen
''funktionsgruppe : sdcard
''funktion : eine datei oder ein verzeichnis löschen
''eingabe : -
''ausgabe : -
''busprotokoll : [019][sub_getstr.fn][put.error]
'' : fn - name des verzeichnisses oder der datei
'' : error - fehlernummer entspr. liste
sub_getstr
err := \sdfat.deleteEntry(@tbuf)
sighigh(err) 'fehleranzeige
bus_putchar(err) 'ergebnis der operation senden
PRI sd_rename | err 'sdcard: datei oder verzeichnis umbenennen
''funktionsgruppe : sdcard
''funktion : datei oder verzeichnis umbenennen
''eingabe : -
''ausgabe : -
''busprotokoll : [020][sub_getstr.fn1][sub_getstr.fn2][put.error]
'' : fn1 - alter name
'' : fn2 - neuer name
'' : error - fehlernummer entspr. liste
sub_getstr 'fn1
sub_getstr 'fn2
err := \sdfat.renameEntry(@tbuf2,@tbuf)
sighigh(err) 'fehleranzeige
bus_putchar(err) 'ergebnis der operation senden
PRI sd_chattrib | err 'sdcard: attribute ändern
''funktionsgruppe : sdcard
''funktion : attribute einer datei oder eines verzeichnisses ändern
''eingabe : -
''ausgabe : -
''busprotokoll : [021][sub_getstr.fn][sub_getstr.attrib][put.error]
'' : fn - dateiname
'' : attrib - string mit attributen
'' : error - fehlernummer entspr. liste
sub_getstr
sub_getstr
err := \sdfat.changeAttributes(@tbuf2,@tbuf)
siglow(err) 'fehleranzeige
bus_putchar(err) 'ergebnis der operation senden
PRI sd_chdir | err 'sdcard: verzeichnis wechseln
''funktionsgruppe : sdcard
''funktion : verzeichnis wechseln
''eingabe : -
''ausgabe : -
''busprotokoll : [022][sub_getstr.fn][put.error]
'' : fn - name des verzeichnisses
'' : error - fehlernummer entspr. list
sub_getstr
err := \sdfat.changeDirectory(@tbuf)
siglow(err) 'fehleranzeige
bus_putchar(err) 'ergebnis der operation senden
PRI sd_format | err 'sdcard: medium formatieren
''funktionsgruppe : sdcard
''funktion : medium formatieren
''eingabe : -
''ausgabe : -
''busprotokoll : [023][sub_getstr.vlabel][put.error]
'' : vlabel - volumelabel
'' : error - fehlernummer entspr. list
sub_getstr
err := \sdfat.formatPartition(0,@tbuf,0)
siglow(err) 'fehleranzeige
bus_putchar(err) 'ergebnis der operation senden
PRI sd_unmount | err 'sdcard: medium abmelden
''funktionsgruppe : sdcard
''funktion : medium abmelden
''eingabe : -
''ausgabe : -
''busprotokoll : [024][put.error]
'' : error - fehlernummer entspr. list
err := \sdfat.unmountPartition
siglow(err) 'fehleranzeige
bus_putchar(err) 'ergebnis der operation senden
ifnot err
clr_dmarker
2014-04-18 13:56:42 +02:00
#ifdef __ADM_HSS
2013-12-10 15:32:47 +01:00
hss.sfx_play(1, @SoundFX9) 'off-sound
2014-04-18 13:56:42 +02:00
#endif
2013-12-10 15:32:47 +01:00
PRI sd_dmact|markernr 'sdcard: einen dir-marker aktivieren
''funktionsgruppe : sdcard
''funktion : ein ausgewählter dir-marker wird aktiviert
''eingabe : -
''ausgabe : -
''busprotokoll : [025][get.dmarker][put.error]
'' : dmarker - dir-marker
'' : error - fehlernummer entspr. list
markernr := bus_getchar
ifnot dmarker[markernr] == TRUE
sdfat.setDirCluster(dmarker[markernr])
bus_putchar(sdfat#err_noError)
else
bus_putchar(sdfat#err_noError)
PRI sd_dmset|markernr 'sdcard: einen dir-marker setzen
''funktionsgruppe : sdcard
''funktion : ein ausgewählter dir-marker mit dem aktuellen verzeichnis setzen
''eingabe : -
''ausgabe : -
''busprotokoll : [026][get.dmarker]
'' : dmarker - dir-marker
markernr := bus_getchar
dmarker[markernr] := sdfat.getDirCluster
PRI sd_dmget|markernr 'sdcard: einen dir-marker abfragen
''funktionsgruppe : sdcard
''funktion : den status eines ausgewählter dir-marker abfragen
''eingabe : -
''ausgabe : -
''busprotokoll : [027][get.dmarker][sub_putlong.dmstatus]
'' : dmarker - dir-marker
'' : dmstatus - status des markers
markernr := bus_getchar
sub_putlong(dmarker[markernr])
PRI sd_dmput|markernr 'sdcard: einen dir-marker übertragen
''funktionsgruppe : sdcard
''funktion : den status eines ausgewählter dir-marker übertragen
''eingabe : -
''ausgabe : -
''busprotokoll : [029][get.dmarker][sub_getlong.dmstatus]
'' : dmarker - dir-marker
'' : dmstatus - status des markers
markernr := bus_getchar
dmarker[markernr] := sub_getlong
PRI sd_dmclr|markernr 'sdcard: einen dir-marker löschen
''funktionsgruppe : sdcard
''funktion : ein ausgewählter dir-marker löschen
''eingabe : -
''ausgabe : -
''busprotokoll : [028][get.dmarker]
'' : dmarker - dir-marker
markernr := bus_getchar
dmarker[markernr] := TRUE
2014-04-18 13:56:42 +02:00
CON ''------------------------------------------------- End of SD CARD FUNCTIONS
#endif ' __ADM_FAT
2013-12-10 15:32:47 +01:00
CON ''------------------------------------------------- COM-FUNKTIONEN
2014-04-18 13:56:42 +02:00
#ifdef __ADM_COM
VAR
long com_baud
2013-12-10 15:32:47 +01:00
PRI com_init 'com: serielle schnittstelle initialisieren
''funktionsgruppe : com
''funktion : serielle schnittstelle initialisieren
''eingabe : -
''ausgabe : -
''busprotokoll : [031][sub_getlong.baudrate]
com_baud := sub_getlong
com.start(gc#SER_RX,gc#SER_TX,0,com_baud) ' start the default serial interface
PRI com_tx 'com: zeichen senden
''funktionsgruppe : com
''funktion : zeichen senden
''eingabe : -
''ausgabe : -
''busprotokoll : [032][get.char]
com.tx(bus_getchar)
PRI com_rx 'com: zeichen empfangen
''funktionsgruppe : com
''funktion : zeichen empfangen
''eingabe : -
''ausgabe : -
''busprotokoll : [033][put.char]
bus_putchar(com.rx)
2014-04-18 13:56:42 +02:00
CON ''------------------------------------------------- End of COM FUNCTIONS
#endif ' __ADM_COM
2014-04-28 17:04:21 +02:00
CON ''------------------------------------------------- Bluetooth FUNCTIONS
#ifdef __ADM_BLT
PRI blt_setCommandMode
dira[gc#A_Bluetooth_Line]:=1
outa[gc#A_Bluetooth_Line]:=1
PRI blt_setNormalMode
outa[gc#A_Bluetooth_Line]:=0
dira[gc#A_Bluetooth_Line]:=0
CON ''------------------------------------------------- End of Bluetooth FUNCTIONS
#endif ' __ADM_BLT
2013-12-10 15:32:47 +01:00
CON ''------------------------------------------------- HSS-FUNKTIONEN
2014-04-18 13:56:42 +02:00
#ifdef __ADM_HSS
VAR
#ifdef __ADM_HSS_PLAY
byte bgmusic[MPLEN] 'hss-puffer
#endif
byte sfxdat[16 * 32] 'sfx-slotpuffer
2013-12-10 15:32:47 +01:00
PRI sfx_fire | slot, chan, slotadr 'sfx: effekt im puffer abspielen
''funktionsgruppe : sfx
''funktion : effekt aus einem effektpuffer abspielen
''eingabe : -
''ausgabe : -
''busprotokoll : [107][get.slot][get.chan]
'' : slot - $00..$0f nummer der freien effektpuffer
'' : slot - $f0..ff vordefinierte effektslots
'' : chan - 0/1 stereokanal auf dem der effekt abgespielt werden soll
''vordefinierte effekte : &f0 - warnton
'' : $f1 - signalton
'' : $f2 - herzschlag schnell
'' : $f3 - herzschlag langsam
'' : $f4 - telefon
'' : $f5 - phaser :)
'' : $f6 - pling
'' : $f7 - on
'' : $f8 - off
slot := bus_getchar
chan := bus_getchar 'channelnummer lesen
case slot
$f0: hss.sfx_play(1, @SoundFX1) 'warnton
$f1: hss.sfx_play(1, @SoundFX2) 'signalton
$f2: hss.sfx_play(1, @SoundFX3) 'herzschlag schnell
$f3: hss.sfx_play(1, @SoundFX4) 'herzschlag schnell
$f4: hss.sfx_play(1, @SoundFX5) 'telefon
$f5: hss.sfx_play(1, @SoundFX6) 'phase
$f6: hss.sfx_play(1, @SoundFX7) 'pling
$f7: hss.sfx_play(1, @SoundFX8) 'on
$f8: hss.sfx_play(1, @SoundFX9) 'off
other:
if slot < $f0
slotadr := @sfxdat + (slot * 32) 'slotnummer lesen und adresse berechnen
hss.sfx_play(chan, slotadr)
PRI sfx_setslot | slotadr, i 'sfx: daten in sfx-slotpuffer schreiben
''funktionsgruppe : sfx
''funktion : die daten für ein sfx-slot werden werden von regnatix gesetzt
''eingabe : -
''ausgabe : -
''busprotokoll : [108][get.slot][32:get.daten]
'' : slot - $00..$0f nummer der freien effektpuffer
'' : daten - 32 byte effektdaten
''
''struktur der effektdaten:
''
''[wav ][len ][freq][vol ] grundschwingung
''[lfo ][lfw ][fma ][ama ] modulation
''[att ][dec ][sus ][rel ] hüllkurve
''[seq ] (optional)
''
''[wav] wellenform
'' 0 sinus (0..500hz)
'' 1 schneller sinus (0..1khz)
'' 2 dreieck (0..500hz)
'' 3 rechteck (0..1khz)
'' 4 schnelles rechteck (0..4khz)
'' 5 impulse (0..1,333hz)
'' 6 rauschen
''[len] tonlänge $0..$fe, $ff endlos
''[freq] frequenz $00..$ff
''[vol] lautstärke $00..$0f
''
''[lfo] low frequency oscillator $ff..$01
''[lfw] low frequency waveform
'' $00 sinus (0..8hz)
'' $01 fast sine (0..16hz)
'' $02 ramp up (0..8hz)
'' $03 ramp down (0..8hz)
'' $04 square (0..32hz)
'' $05 random
'' $ff sequencer data (es folgt eine sequenzfolge [seq])
''[fma] frequency modulation amount
'' $00 no modulation
'' $01..$ff
''[ama] amplitude modulation amount
'' $00 no modulation
'' $01..$ff
''[att] attack $00..$ff
''[dec] decay $00..$ff
''[sus] sustain $00..$ff
''[rel] release $00..$ff
slotadr := @sfxdat + (bus_getchar * 32) 'slotnummer lesen und adresse berechnen
repeat i from 0 to 31
byte[slotadr + i] := bus_getchar 'sfx-daten einlesen
PRI sfx_keyoff | chan 'sfx: release-phase einleiten um den effekt zu beenden
''funktionsgruppe : sfx
''funktion : für den aktuell abgespielten effekt wird die release-phase der
'' : adsr-hüllkurve eingeleitet, um ihn zu beenden
''eingabe : -
''ausgabe : -
''busprotokoll : [109][get.chan]
'' : chan - 0/1 stereokanal auf dem der effekt abgespielt werden soll
chan := bus_getchar 'channelnummer lesen
hss.sfx_keyoff(chan)
PRI sfx_stop | chan 'sfx: effekt sofort beenden
''funktionsgruppe : sfx
''funktion : der aktuell abgespielte effekt wird sofort beendet
''eingabe : -
''ausgabe : -
''busprotokoll : [110][get.chan]
'' : chan - 0/1 stereokanal auf dem der effekt abgespielt werden soll
chan := bus_getchar 'channelnummer lesen
hss.sfx_stop(chan)
PRI hss_vol 'hss: volume 0..15 einstellen
''funktionsgruppe : hss
''funktion : lautstärke des hss-players wird eingestellt
''eingabe : -
''ausgabe : -
''busprotokoll : [106][get.vol]
'' : vol - 0..15 gesamtlautstärke des hss-players
hss.hmus_vol(bus_getchar)
PRI hss_intreg | regnr,wert 'hss: auslesen der player-register
''funktionsgruppe : hss
''funktion : abfrage eines hss-playerregisters (16bit) durch regnatix
''eingabe : -
''ausgabe : -
''busprotokoll : [105][get.regnr][put.reghwt][put.regnwt]
'' : regnr - 0..24 (5 x 5 register)
'' : reghwt - höherwertiger teil des 16bit-registerwertes
'' : regnwt - niederwertiger teil des 16bit-registerwertes
''
''0 iEndFlag iRowFlag iEngineC iBeatC iRepeat globale Playerwerte
''5 iNote iOktave iVolume iEffekt iInstrument Soundkanal 1
''10 iNote iOktave iVolume iEffekt iInstrument Soundkanal 2
''15 iNote iOktave iVolume iEffekt iInstrument Soundkanal 3
''20 iNote iOktave iVolume iEffekt iInstrument Soundkanal 4
''
''iEndFlag Repeat oder Ende wurde erreicht
''iRowFlag Trackerzeile (Row) ist fertig
''iEngineC Patternzähler
''iBeatC Beatzähler (Anzahl der Rows)
''iRepeat Zähler für Loops
regnr := bus_getchar 'registernummer einlesen
wert := hss.intread(regnr)
bus_putchar(wert >> 8) '16-bit-wert senden hsb/lsb
bus_putchar(wert)
PRI hss_peek 'hss: zugriff auf alle internen playerregister
''funktionsgruppe : hss
''funktion : zugriff auf die internen playerregister; leider sind die register
'' : nicht dokumentiert; 48 long-register
''eingabe : -
''ausgabe : -
''busprotokoll : [104][get.regnr][sub_putlong.regwert]
'' : regnr - registernummer
'' : regwert - long
sub_putlong(hss.peek(bus_getchar))
PRI hss_load | err 'hss: musikdatei in puffer laden
''funktionsgruppe : hss
''funktion : hss-datei wird in den modulpuffer geladen
''eingabe : -
''ausgabe : -
''busprotokoll : [100][sub_getstr.fn][put.err]
'' : fn - dateiname
'' : err - fehlernummer entspr. liste
sub_getstr 'dateinamen einlesen
2014-04-18 13:56:42 +02:00
#ifdef __ADM_FAT
2013-12-10 15:32:47 +01:00
err := \sdfat.openFile(@tbuf, "r") 'datei öffnen
bus_putchar(err) 'ergebnis der operation senden
if err == 0
outa[LED_OPEN] := 1
2014-04-18 13:56:42 +02:00
#ifdef __ADM_HSS_PLAY
2013-12-10 15:32:47 +01:00
\sdfat.readData(@bgmusic, MPLEN) 'datei laden
2014-04-18 13:56:42 +02:00
#endif '__ADM_HSS_PLAY
2013-12-10 15:32:47 +01:00
\sdfat.closeFile
outa[LED_OPEN] := 0
2014-04-18 13:56:42 +02:00
#else 'no __ADM_FAT
bus_putchar(err)
#endif '__ADM_FAT
2013-12-10 15:32:47 +01:00
2014-04-18 13:56:42 +02:00
CON ''------------------------------------------------- End of HSS FUNCTIONS
#endif ' __ADM_HSS
2013-12-10 15:32:47 +01:00
CON ''------------------------------------------------- WAV-FUNKTIONEN
2014-04-18 13:56:42 +02:00
#ifdef __ADM_WAV
VAR
byte fl_sdwav
long leftVolume
long rightVolume
long DACCog 'cog-nummer das da-wandlers
long PlayCog 'cog-nummer des players
long PlayStack[50] 'stack für player
byte runPlayerFlag 'flag um player zu steuern: 0:stop, 1: run, 2: pause
long wavLen 'länge der abgespielten wav / 512
long wavPointer 'aktuelle position des players / 512
2013-12-10 15:32:47 +01:00
PRI sdw_start | err 'sdw: startet extra cog mit sdwav-engine
''funktionsgruppe : sdw
''funktion : wav-datei von sd-card abspielen
''eingabe : -
''ausgabe : -
''busprotokoll : [150][sub.getstr][put.err]
'' : err - fehlernummer entspr. liste
sub_getstr 'dateinamen empfangen
err := \sdfat.openFile(@tbuf, "r") 'datei öffnen
bus_putchar(err) 'ergebnis der operation senden
if err == 0 'player starten
runPlayerFlag := 0
PlayCog := cognew(sdw_player,@PlayStack) 'player-cog starten
PRI sdw_stop 'sdw: stopt cog mit sdwav-engine
''funktionsgruppe : sdw
''funktion : wav-player signal zum stoppen senden
'' : wartet bis player endet und quitiert erst dann
''eingabe : -
''ausgabe : -
''busprotokoll : [151][put.err]
'' : err - fehlernummer entspr. liste
runPlayerFlag := 1
repeat until fl_sdwav == 0
bus_putchar(0)
PRI sdw_status 'sdw: sendet status des wav-players
''funktionsgruppe : sdw
''funktion : status des wav-players abfragen
''eingabe : -
''ausgabe : -
''busprotokoll : [152][put.status]
'' : status - status des wav-players
'' : 0: wav fertig (player beendet)
'' : 1: wav wird abgespielt
bus_putchar(fl_sdwav)
PRI sdw_player 'sdw: player-cog
''funktionsgruppe : sdw
''funktion : player-cog
'' : - diese routine wird in einer extra-cog gestartet
'' : - beschickt die DACEngine mit den sounddaten aus der
'' : geöffneten datei
'' :
''eingabe : geöffnete wav-datei
''ausgabe : -
''ACHTUNG : während der player aktiv ist (fl_sdwav == 1) ist die sd-card
'' : exclusiv belegt! jede dateioperation führt zum crash von
'' : administra!
dira[LED_OPEN] := 1
fl_sdwav := 1 'flag setzen das player aktiv ist
'headerdaten einlesen
\sdfat.setCharacterPosition(22)
wav.changeNumberOfChannels(result := (sdfat.readCharacter | (sdfat.readCharacter << 8)))
wav.changeSampleRate(sdfat.readCharacter | (sdfat.readCharacter << 8) | (sdfat.readCharacter << 16) | (sdfat.readCharacter << 24))
\sdfat.setCharacterPosition(34)
wav.changeBitsPerSample(result := (sdfat.readCharacter | (sdfat.readCharacter << 8)))
wav.changeSampleSign(result == 16)
wav.changeLeftChannelVolume(leftVolume)
wav.changeRightChannelVolume(rightVolume)
\sdfat.setCharacterPosition(40)
wavLen := (\sdfat.listSize - 44) / 512 'abfrage der dateigröße, ist robuster als der dateiheader, da einige
'den header nicht richtig setzen!
wavPointer := 0
wav.startPlayer
'wav abspielen
repeat (wavLen)
!outa[LED_OPEN]
\sdfat.readData(result := wav.transferData, 512)
wavPointer++
case runPlayerFlag
1: quit 'player stoppen
2: wav.changeLeftChannelVolume(0) 'player pause
wav.changeRightChannelVolume(0)
repeat while runPlayerFlag == 2
wav.changeLeftChannelVolume(leftVolume)
wav.changeRightChannelVolume(rightVolume)
' if runPlayerFlag 'signal player stoppen?
' quit
'player beednen
wav.stopPlayer 'dacengine signal stop senden
wav.clearData
\sdfat.closeFile
fl_sdwav := 0 'flag setzen player inaktiv
dira[LED_OPEN] := 0
PRI sdw_leftvol 'sdw: lautstärke links
''funktionsgruppe : sdw
''funktion : lautstärke links einstellen
''eingabe : -
''ausgabe : -
''busprotokoll : [153][get.vol]
'' : vol - lautstärke 0..100
leftVolume := bus_getchar
PRI sdw_rightvol 'sdw: lautstärke rechts
''funktionsgruppe : sdw
''funktion : lautstärke rechts einstellen
''eingabe : -
''ausgabe : -
''busprotokoll : [154][get.vol]
'' : vol - lautstärke 0..100
rightVolume := bus_getchar
PRI sdw_pause 'sdw: versetzt player in pause-modus
''funktionsgruppe : sdw
''funktion : wav-player signal zum für pause/weiter
'' :
''eingabe : -
''ausgabe : -
''busprotokoll : [155][put.err]
'' : err - fehlernummer entspr. liste
case runPlayerFlag
0: runPlayerFlag := 2
2: runPlayerFlag := 0
bus_putchar(0)
PRI sdw_position 'sdw: position des players abfragen
''funktionsgruppe : sdw
''funktion : position des players abfragen
'' :
''eingabe : -
''ausgabe : -
''busprotokoll : [156][sub_putlong.pointer][sub_putlong.len]
'' : pointer - position des players im wav / 512
'' : len - länge der wav / 512
sub_putlong(wavPointer)
sub_putlong(wavLen)
2014-04-18 13:56:42 +02:00
CON ''------------------------------------------------- End of WAV FUNCTIONS
#endif ' __ADM_WAV
CON ''------------------------------------------------- SIDCog: DMP-Player-Funktionen (SIDCog2)
#ifdef __ADM_SID
2014-04-28 20:18:43 +02:00
DAT 'dummyroutine für getcogs
noteTable word 16350, 17320, 18350, 19450, 20600, 21830, 23120, 24500, 25960, 27500, 29140, 30870
2014-04-18 13:56:42 +02:00
VAR
long sidreg1 'adresse register der sidcog 1
long sidreg2 'adresse register der sidcog 2
long dmpcog 'id der dmp-player-cog
long dmpstack[50] 'stack für dmpcog
byte sidbuffer[25] 'puffer für dmpcog
byte dmpstatus '0 = inaktiv; 1 = play; 2 = pause
long dmppos 'position des players im dump
long dmplen 'länge des dmp-files (anzahl regsitersätze)
byte dmppause 'pauseflag
byte s1buffer[25] 'registerpuffer sid1
byte s2buffer[25] 'registerpuffer sid2
PRI sid_mdmpplay | err 'sid: dmp-datei mono auf sid2 abspielen
''funktionsgruppe : sid
''funktion : dmp-datei mono auf sid2 abspielen
''eingabe : -
''ausgabe : -
''busprotokoll : [157][sub_getstr.fn][put.error]
'' : fn - name der dmp-datei
'' : error - fehlernummer entspr. list
sub_getstr
err := \sdfat.openFile(@tbuf, "r")
if err == 0
dmppause := 0
dmpcog := cognew(sid_dmpmcog,@dmpstack) + 1 'player-cog starten
bus_putchar(err) 'ergebnis der operation senden
PRI sid_sdmpplay | err 'sid: dmp-datei stereo auf beiden sid's abspielen
sub_getstr
err := \sdfat.openFile(@tbuf, "r")
if err == 0
dmppause := 0
dmpcog := cognew(sid_dmpscog,@dmpstack) + 1 'player-cog starten
bus_putchar(err) 'ergebnis der operation senden
PRI sid_dmpstop 'sid: dmp-player stoppen
if dmpcog
cogstop(dmpcog-1)
dmpstatus := 0
PRI sid_dmppause|i 'sid: dmp-player pause
case dmppause
0: dmppause := 1
repeat until dmpstatus == 2
sid1.setVolume(0)
sid2.setVolume(0)
1: dmppause := 0
PRI sid_dmpstatus 'sid: status des dmp-players abfragen
bus_putchar(dmpstatus)
PRI sid_dmppos 'sid: position/länge des dmp-players abfragen
sub_putlong(dmppos)
sub_putlong(dmplen)
PRI sid_mute|sidnr,i 'sid: ruhe!
repeat i from 0 to 25
sidbuffer[i] := 0
sidnr := bus_getchar
case sidnr
1: sid1.updateRegisters(@sidbuffer)
2: sid2.updateRegisters(@sidbuffer)
3: sid1.updateRegisters(@sidbuffer)
sid2.updateRegisters(@sidbuffer)
PRI sid_dmpmcog | i 'sid: dmpcog - mono, sid2
dmpstatus := 1 'player läuft
dmplen := \sdfat.listSize / 25
dmppos := 0
repeat dmplen
waitcnt(cnt+(clkfreq/playRate)) 'warten auf den c64-vbl :)
\sdfat.readData(@sidbuffer,25) '25 byte in den puffer einlesen
' repeat i from 0 to 24 'da blocktransfer nicht sicher funktioniert
' sidbuffer[i] := sdfat.readCharacter 'füllen wir den puffer "manuell"
sid2.updateRegisters(@sidbuffer) 'puffer in die sid-register schreiben
dmppos++
if dmppause == 1
dmpstatus := 2
else
dmpstatus := 1
repeat while dmppause == 1 'warten solange pause
dmpstatus := 0 'player beendet
PRI sid_dmpscog | i 'sid: dmpcog - mono, sid2
dmpstatus := 1 'player läuft
dmplen := \sdfat.listSize / 25
dmppos := 0
repeat dmplen
waitcnt(cnt+(clkfreq/playRate)) 'warten auf den c64-vbl :)
\sdfat.readData(@sidbuffer,25) '25 byte in den puffer einlesen
' repeat i from 0 to 24 'da blocktransfer nicht sicher funktioniert
' sidbuffer[i] := sdfat.readCharacter 'füllen wir den puffer "manuell"
sid1.updateRegisters(@sidbuffer) 'puffer in die sid-register schreiben
sid2.updateRegisters(@sidbuffer) 'puffer in die sid-register schreiben
'eine sidcog etwas verstimmen
word[sidreg2+0 ] := (word[sidreg2+0 ]<<16)/trunc(65536.0/detune)
word[sidreg2+8 ] := (word[sidreg2+8 ]<<16)/trunc(65536.0/detune)
word[sidreg2+16] := (word[sidreg2+16]<<16)/trunc(65536.0/detune)
dmppos := dmppos + 1
if dmppause == 1
dmpstatus := 2
else
dmpstatus := 1
repeat while dmppause == 1 'warten solange pause
dmpstatus := 0 'player beendet
PRI sid_dmpreg 'sid: dmpregister senden
bus_putchar(byte[@sidbuffer+1]) 'kanal 1
bus_putchar(byte[@sidbuffer+0])
bus_putchar(byte[@sidbuffer+8]) 'kanal 2
bus_putchar(byte[@sidbuffer+7])
bus_putchar(byte[@sidbuffer+15]) 'kanal 3
bus_putchar(byte[@sidbuffer+14])
bus_putchar(byte[@sidbuffer+24]) 'volume
2014-04-28 20:18:43 +02:00
PRI sid_beep | n
sid1.setVolume($0F)
sid2.setVolume($0F)
n := bus_getchar
if n==0 'normaler beep
sid1.play(0,7500,16,0,0,15,5)
sid2.play(0,7500,16,0,0,15,5)
waitcnt(cnt + 10_000_000)
sid1.noteOff(0)
sid2.noteOff(0)
sid1.play(0,11500,16,0,0,15,5)
sid2.play(0,11500,16,0,0,15,5)
waitcnt(cnt + 10_000_000)
sid1.noteOff(0)
sid2.noteOff(0)
else 'beep mit bestimmter tonhoehe
sid1.play(0,note2freq(n),16,0,0,15,5)
sid2.play(0,note2freq(n),16,0,0,15,5)
waitcnt(cnt + 1_000_000)
sid1.noteOff(0)
sid2.noteOff(0)
PRI note2freq(note) | octave
octave := note/12
note -= octave*12
return (noteTable[note]>>(8-octave))
2014-04-18 13:56:42 +02:00
CON ''------------------------------------------------- End of SID FUNCTIONS
#endif ' __ADM_SID
CON ''------------------------------------------------- AYS-Player-Funktionen
#ifdef __ADM_AYS
VAR
byte AYregs[16] 'AY-Register
PUB ay_start
ay.start( gc#A_SOUNDR, gc#A_SOUNDL, @AYregs ) 'audioR, audioL, @AYregs
PUB ay_stop
ay.stop
PUB ay_updateRegisters | i
repeat i from 0 to 13
AYregs[i] := bus_getchar
ifnot AYregs[13] == 255
AYregs[13] := AYregs[13]&15
CON ''------------------------------------------------- End of AYS FUNCTIONS
#endif ' __ADM_AYS
2013-12-10 15:32:47 +01:00
CON ''------------------------------------------------- RTC-FUNKTIONEN
2014-04-18 13:56:42 +02:00
#ifdef __ADM_RTC
2013-12-10 15:32:47 +01:00
PRI rtc_getSeconds 'rtc: Returns the current second (0 - 59) from the real time clock.
''funktionsgruppe : rtc
''busprotokoll : [041][sub_putlong.seconds]
'' : seconds - current second (0 - 59)
sub_putlong(rtc.getSeconds)
PRI rtc_getMinutes 'rtc: Returns the current minute (0 - 59) from the real time clock.
''funktionsgruppe : rtc
''busprotokoll : [042][sub_putlong.minutes]
'' : minutes - current minute (0 - 59)
sub_putlong(rtc.getMinutes)
PRI rtc_getHours 'rtc: Returns the current hour (0 - 23) from the real time clock.
''funktionsgruppe : rtc
''busprotokoll : [043][sub_putlong.hours]
'' : hours - current hour (0 - 23)
sub_putlong(rtc.getHours)
PRI rtc_getDay 'rtc: Returns the current day of the week (1 - 7) from the real time clock.
''funktionsgruppe : rtc
''busprotokoll : [044][sub_putlong.day]
'' : day - current day (1 - 7) of the week
sub_putlong(rtc.getDay)
PRI rtc_getDate 'rtc: Returns the current date (1 - 31) from the real time clock.
''funktionsgruppe : rtc
''busprotokoll : [045][sub_putlong.date]
'' : date - current date (1 - 31) of the month
sub_putlong(rtc.getDate)
PRI rtc_getMonth 'rtc: Returns the current month (1 - 12) from the real time clock.
''funktionsgruppe : rtc
''busprotokoll : [046][sub_putlong.month]
'' : month - current month (1 - 12)
sub_putlong(rtc.getMonth)
PRI rtc_getYear 'rtc: Returns the current year (2000 - 2099) from the real time clock.
''funktionsgruppe : rtc
''busprotokoll : [047][sub_putlong.year]
'' : year - current year (2000 - 2099)
sub_putlong(rtc.getYear)
PRI rtc_setSeconds : seconds 'rtc: Sets the current real time clock seconds.
''funktionsgruppe : rtc
''busprotokoll : [048][sub_getlong.seconds]
'' : seconds - Number to set the seconds to between 0 - 59.
rtc.setSeconds(sub_getlong)
PRI rtc_setMinutes : minutes 'rtc: Sets the current real time clock minutes.
''funktionsgruppe : rtc
''busprotokoll : [049][sub_getlong.minutes]
'' : minutes - Number to set the minutes to between 0 - 59.
rtc.setMinutes(sub_getlong)
PRI rtc_setHours 'rtc: Sets the current real time clock hours.
''funktionsgruppe : rtc
''busprotokoll : [050][sub_getlong.hours]
'' : hours - Number to set the hours to between 0 - 23.51:
rtc.setHours(sub_getlong)
PRI rtc_setDay 'rtc: Sets the current real time clock day.
''funktionsgruppe : rtc
''busprotokoll : [051][sub_getlong.day]
'' : day - Number to set the day to between 1 - 7.
rtc.setDay(sub_getlong)
PRI rtc_setDate 'rtc: Sets the current real time clock date.
''funktionsgruppe : rtc
''busprotokoll : [052][sub_getlong.date]
'' : date - Number to set the date to between 1 - 31.
rtc.setDate(sub_getlong)
PRI rtc_setMonth 'rtc: Sets the current real time clock month.
''funktionsgruppe : rtc
''busprotokoll : [053][sub_getlong.month]
'' : month - Number to set the month to between 1 - 12.
rtc.setMonth(sub_getlong)
PRI rtc_setYear 'rtc: Sets the current real time clock year.
''funktionsgruppe : rtc
''busprotokoll : [054][sub_getlong.year]
'' : year - Number to set the year to between 2000 - 2099.
rtc.setYear(sub_getlong)
PRI rtc_setNVSRAM | index, value 'rtc: Sets the NVSRAM to the selected value (0 - 255) at the index (0 - 55).
''funktionsgruppe : rtc
''busprotokoll : [055][sub_getlong.index][sub_getlong.value]
'' : index - The location in NVRAM to set (0 - 55). │
'' : value - The value (0 - 255) to change the location to. │
index := sub_getlong
value := sub_getlong
rtc.setNVSRAM(index, value)
PRI rtc_getNVSRAM 'rtc: Gets the selected NVSRAM value at the index (0 - 55).
''funktionsgruppe : rtc
''busprotokoll : [056][sub_getlong.index][sub_getlong.value]
'' : index - The location in NVRAM to get (0 - 55). │
sub_putlong(rtc.getNVSRAM(sub_getlong))
PRI rtc_pauseForSeconds 'rtc: Pauses execution for a number of seconds.
''funktionsgruppe : rtc
''busprotokoll : [057][sub_getlong.number][sub_putlong.number]
'' : Number - Number of seconds to pause for between 0 and 2,147,483,647.
'' : Returns a puesdo random value derived from the current clock frequency and the time when called.
sub_putlong(rtc.pauseForSeconds(sub_getlong))
PRI rtc_pauseForMilliseconds 'rtc: Pauses execution for a number of milliseconds.
''funktionsgruppe : rtc
''busprotokoll : [058][sub_getlong.number][sub_putlong.number]
'' : Number - Number of milliseconds to pause for between 0 and 2,147,483,647.
'' : Returns a puesdo random value derived from the current clock frequency and the time when called.
sub_putlong(rtc.pauseForMilliseconds(sub_getlong))
2014-04-18 13:56:42 +02:00
PRI probeRTC | hiveid
hiveid := rtc.getNVSRAM(NVRAM_HIVE) 'read first byte of hive id
rtc.setNVSRAM(NVRAM_HIVE, hiveid ^ $F) 'write back to NVRAM with flipped all bits
if rtc.getNVSRAM(NVRAM_HIVE) == hiveid ^ $F 'flipped bits are stored?
rtc.setNVSRAM(NVRAM_HIVE, hiveid) 'restore first byte of hive id
return(TRUE) 'RTC found
else
rtc.setNVSRAM(NVRAM_HIVE, hiveid) 'still restore first byte of hive id
return(FALSE) 'no RTC found
PRI rtc_test 'rtc: Test if RTC Chip is available
''funktionsgruppe : rtc
''busprotokoll : [059][put.avaliable]
'' : Returns TRUE if RTC is available, otherwise FALSE
bus_putchar(probeRTC)
2014-04-28 17:04:21 +02:00
PRI rtc_getTime
sub_putlong(rtc.getHours)
sub_putlong(rtc.getMinutes)
sub_putlong(rtc.getSeconds)
2014-04-18 13:56:42 +02:00
CON ''------------------------------------------------- End of RTC FUNCTIONS
#endif ' __ADM_RTC
2014-04-28 17:04:21 +02:00
CON ''------------------------------------------------- DCF77-FUNKTIONEN
#ifdef __ADM_DCF
VAR
PRI dcf_getInSync 'dcf: Sync-Status senden
bus_putchar(dcf.GetInSync)
PRI dcf_updateRTC 'dcf: RTC Synchronisieren
#ifdef __ADM_RTC
rtc.setHours(dcf.GetHours)
rtc.setMinutes(dcf.GetMinutes)
rtc.setSeconds(dcf.GetSeconds)
rtc.setYear(dcf.GetYear)
rtc.setMonth(dcf.GetMonth)
rtc.setDate(dcf.GetDay)
rtc.setDay(dcf.GetWeekDay)
#endif ' __ADM_RTC
PRI dcf_getBitError
bus_putchar(dcf.GetBitError)
PRI dcf_getDataCount
bus_putchar(dcf.GetDatacount)
PRI dcf_getBitNumber
bus_putchar(dcf.GetBitNumber)
PRI dcf_getBitLevel
bus_putchar(dcf.GetBitLevel)
PRI dcf_getTimeZone
bus_putchar(dcf.GetTimeZone)
PRI dcf_getActiveSet
bus_putchar(dcf.GetActiveSet)
PRI dcf_start 'dcf: DCF-Empfang starten
dcf.start
dcfon:=1
PRI dcf_stop 'dcf: DCF-Empfang stoppen
dcf.stop
dcfon:=0
PRI dcf_state 'dcf: Status des DCF-Empfängers
bus_putchar(dcfon)
PRI dcf_getSeconds
bus_putchar(dcf.GetSeconds)
PRI dcf_getMinutes
bus_putchar(dcf.GetMinutes)
PRI dcf_getHours
bus_putchar(dcf.GetHours)
PRI dcf_getWeekDay
bus_putchar(dcf.GetWeekDay)
PRI dcf_getDay
bus_putchar(dcf.GetDay)
PRI dcf_getMonth
bus_putchar(dcf.GetMonth)
PRI dcf_getYear
sub_putword(dcf.GetYear)
CON ''------------------------------------------------- End of DCF77 FUNCTIONS
#endif ' __ADM_DCF
2014-04-28 20:18:43 +02:00
CON ''------------------------------------------------- PLX-Funktionen
#ifdef __ADM_PLX
PRI plx_in | addr 'port einlesen
addr := bus_getchar
bus_putchar(plx.in(addr))
PRI plx_out | addr, data 'port ausgeben
addr := bus_getchar
data := bus_getchar
plx.halt
plx.out(addr,data)
plx.run
PRI plx_ch | addr, chan 'ad-wandler auslesen
addr := bus_getchar
chan := bus_getchar
plx.ad_ch(addr,chan)
PRI plx_getReg | reg 'poller-register lesen
reg := bus_getchar
bus_putchar(plx.getreg(reg))
PRI plx_setReg | reg, data 'poller-register setzen
reg := bus_getchar
data := bus_getchar
plx.setreg(reg,data)
PRI plx_write | data, ack 'i2c byte senden
data := bus_getchar
ack:=plx.write(data)
bus_putchar(ack)
PRI plx_read | ack, data 'i2c byte empfangen
ack := bus_getchar 'ack-bit
data:=plx.read(ack)
bus_putchar(data)
PRI plx_ping | addr 'abfrage ob device vorhanden ist
addr := bus_getchar
bus_putchar(plx.ping(addr))
PRI plx_setAddr | adda, ports 'adressen adda/ports für poller setzen
adda := bus_getchar 'address adda
ports := bus_getchar 'address ports
plx.setadr(adda,ports)
PRI joy_get | reg 'Joystick abfragen (1 x 8bit Port)
reg:=bus_getchar '0-6
if reg>3 and reg<7
bus_putchar(!plx.getreg(reg))
else
bus_putchar(plx.getreg(reg))
CON ''------------------------------------------------- End of DCF77 FUNCTIONS
#endif '__ADM_PLX
2014-04-18 13:56:42 +02:00
CON ''------------------------------------------------- LAN-FUNKTIONEN
#ifdef __ADM_LAN
VAR
byte lan_started 'LAN gestartet?
long sockhandle[sock#sNumSockets] 'Handle für mit sock.connect/sock.listen erstellten Socket
byte bufidx[sock#sNumSockets] 'zum Handle-Index gehörender Puffer-abschnitt
'(zum Socket mit dem Handle 2 gehört der Pufferabschnitt aus bufidx[2])
byte buftx[txlen*sock#sNumSockets] 'LAN Sendepuffer
DAT
strNVRAMFile byte "nvram.sav",0 'contains the 56 bytes of NVRAM, if RTC is not available
PRI lan_start | hiveid, hivestr, strpos, macpos, i, a
''funktionsgruppe : lan
''funktion : Netzwerk starten
''eingabe : -
''ausgabe : -
''busprotokoll : [071]
if (not lan_started)
'Pufferindex zurücksetzen
i := 0
repeat sock#sNumSockets
bufidx[i++] := $FF '0xFF: nicht zugewiesen
'IP-Parameter setzen
#ifdef __ADM_RTC
if probeRTC
repeat a from 0 to 15
ip_addr[a] := rtc.getNVSRAM(NVRAM_IPADDR+a) ' fill addresses
hiveid := rtc.getNVSRAM(NVRAM_HIVE)
hiveid += rtc.getNVSRAM(NVRAM_HIVE+1) << 8
hiveid += rtc.getNVSRAM(NVRAM_HIVE+2) << 16
hiveid += rtc.getNVSRAM(NVRAM_HIVE+3) << 24
else
#endif '__ADM_RTC
#ifdef __ADM_FAT
#ifndef __ADM_RTC
if TRUE
#endif '__ADM_RTC
dmarker[UMARKER] := sdfat.getDirCluster 'u-marker setzen
ifnot dmarker[SMARKER] == TRUE 's-marker aktivieren
sdfat.setDirCluster(dmarker[SMARKER])
ifnot \sdfat.openFile(@strNVRAMFile, "R")
\sdfat.setCharacterPosition(NVRAM_IPADDR)
repeat a from 0 to 15
ip_addr[a] := \sdfat.readCharacter ' fill addresses
\sdfat.setCharacterPosition(NVRAM_HIVE)
hiveid := \sdfat.readCharacter
hiveid += \sdfat.readCharacter << 8
hiveid += \sdfat.readCharacter << 16
hiveid += \sdfat.readCharacter << 24
\sdfat.closeFile
ifnot dmarker[UMARKER] == TRUE 'U-marker aktivieren
sdfat.setDirCluster(dmarker[UMARKER])
#endif '__ADM_FAT
hivestr := num.ToStr(hiveid, num#DEC)
strpos := strsize(hivestr)
macpos := 5
repeat while (strpos AND macpos)
strpos--
if(strpos)
strpos--
mac_addr[macpos] := num.FromStr(hivestr+strpos, num#HEX)
byte[hivestr+strpos] := 0
macpos--
sock.start(A_NETCS,A_NETSCK,A_NETSI,A_NETSO, -1, @mac_addr, @ip_addr)
lan_started := true
PRI lan_stop
''funktionsgruppe : lan
''funktion : Netzwerk anhalten
''eingabe : -
''ausgabe : -
''busprotokoll : [072]
if lan_started
sock.stop
lan_started := false
PRI lan_connect | ipaddr, remoteport, handle, handleidx, i
''funktionsgruppe : lan
''funktion : ausgehende TCP-Verbindung öffnen (mit Server verbinden)
''eingabe : -
''ausgabe : -
''busprotokoll : [073][sub_getlong.ipaddr][sub_getword.remoteport][put.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 (index des kompletten handle)
ipaddr := sub_getlong
remoteport := sub_getword
'freien Pufferabschnitt suchen
i := 0
repeat sock#sNumSockets
if bufidx[i] == $FF '0xFF: nicht zugewiesen
quit
i++
2014-04-30 19:52:31 +02:00
ifnot (handle := sock.connect(ipaddr, remoteport, @bufmain[i*rxlen], rxlen, @buftx[i*txlen], txlen)) == -102
2014-04-18 13:56:42 +02:00
sock.resetBuffers(handle)
handleidx := handle.byte[0] 'extract the handle index from the lower 8 bits
sockhandle[handleidx] := handle 'komplettes handle zu handle index speichern
bufidx[i] :=handleidx
bus_putchar(handleidx) 'handleidx senden
else
bus_putchar($FF)
PRI lan_listen | port, handle, handleidx, i
''funktionsgruppe : lan
''funktion : Port für eingehende TCP-Verbindung öffnen
''eingabe : -
''ausgabe : -
''busprotokoll : [074][sub_getword.port][put.handleidx]
'' : port - zu öffnende Portnummer
'' : handleidx - lfd. Nr. der Verbindung (index des kompletten handle)
port := sub_getword
'freien Pufferabschnitt suchen
i := 0
repeat sock#sNumSockets
if bufidx[i] == $FF '0xFF: nicht zugewiesen
quit
i++
2014-04-30 19:52:31 +02:00
ifnot (handle := sock.listen(port, @bufmain[i*rxlen], rxlen, @buftx[i*txlen], txlen)) == -102
2014-04-18 13:56:42 +02:00
handleidx := handle.byte[0] 'extract the handle index from the lower 8 bits
sockhandle[handleidx] := handle 'komplettes handle zu handle index speichern
bufidx[i] :=handleidx
bus_putchar(handleidx) 'handleidx senden
else
bus_putchar($FF)
PRI lan_waitconntimeout | handleidx, timeout, t, connected
''funktionsgruppe : lan
''funktion : bestimmte Zeit auf Verbindung warten
''eingabe : -
''ausgabe : -
''busprotokoll : [075][get.handleidx][sub_getword.timeout][put.connected]
'' : handleidx - lfd. Nr. der zu testenden Verbindung
'' : timeout - Timeout in Millisekunden
'' : connected - True, if connected
handleidx := bus_getchar
timeout := sub_getword
t := cnt
repeat until (connected := sock.isConnected(sockhandle[handleidx])) or (((cnt - t) / (clkfreq / 1000)) > timeout)
bus_putchar(connected)
PRI lan_close | handleidx, i
''funktionsgruppe : lan
''funktion : TCP-Verbindung (ein- oder ausgehend) schließen
''eingabe : -
''ausgabe : -
''busprotokoll : [076][get.handleidx]
'' : handleidx - lfd. Nr. der zu schließenden Verbindung
handleidx := bus_getchar
sock.close(sockhandle[handleidx])
'reservierten Pufferabschnitt freigeben
i := 0
repeat sock#sNumSockets
if bufidx[i++] == handleidx '0xFF: nicht zugewiesen
bufidx[i++] := $FF
quit
PRI lan_rxtime | handleidx, timeout, t, rxbyte
''funktionsgruppe : lan
''funktion : angegebene Zeit auf ASCII-Zeichen warten
'' : nicht verwenden, wenn anderes als ASCII (0 - 127) empfangen wird
''eingabe : -
''ausgabe : -
''busprotokoll : [077][get.handleidx][sub_getword.timeout][put.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
handleidx := bus_getchar
timeout := sub_getword
t := cnt
repeat until (rxbyte := sock.readByteNonBlocking(sockhandle[handleidx])) => 0 or (not sock.isConnected(sockhandle[handleidx])) or (cnt - t) / (clkfreq / 1000) > timeout
bus_putchar(rxbyte)
PRI lan_rxdata | handleidx, len, rxbyte, error
''funktionsgruppe : lan
''funktion : bei bestehender Verbindung die angegebene Datenmenge empfangen
''eingabe : -
''ausgabe : -
''busprotokoll : [078][get.handleidx][sub_getlong.len][put.byte1][put.byte<len>][put.error]
'' : handleidx - lfd. Nr. der Verbindung
'' : len - Anzahl zu empfangender Bytes
'' : error - ungleich Null bei Fehler
error := FALSE
handleidx := bus_getchar
len := sub_getlong
repeat len
ifnot error
repeat while (rxbyte := sock.readByteNonBlocking(sockhandle[handleidx])) < 0
ifnot sock.isConnected(sockhandle[handleidx])
error := sock#ERRSOCKETCLOSED
quit
bus_putchar(rxbyte)
bus_putchar(error)
PRI lan_txdata | handleidx, len, txbyte, error
''funktionsgruppe : lan
''funktion : bei bestehender Verbindung die angegebene Datenmenge senden
''eingabe : -
''ausgabe : -
''busprotokoll : [079][get.handleidx][sub_getlong.len][get.byte1][get.byte<len>][put.error]
'' : handleidx - lfd. Nr. der Verbindung
'' : len - Anzahl zu sendender Bytes
'' : error - ungleich Null bei Fehler
error := FALSE
handleidx := bus_getchar
len := sub_getlong
repeat len
txbyte := bus_getchar
ifnot error
repeat while sock.writeByteNonBlocking(sockhandle[handleidx], txbyte) < 0
ifnot sock.isConnected(sockhandle[handleidx])
error := sock#ERRSOCKETCLOSED
quit
bus_putchar(error)
PRI lan_rxbyte
''funktionsgruppe : lan
''funktion : wenn vorhanden, ein empfangenes Byte lesen
'' : nicht verwenden, wenn auch $FF empfangen werden kann
''eingabe : -
''ausgabe : -
''busprotokoll : [080][get.handleidx][put.rxbyte]
'' : handleidx - lfd. Nr. der Verbindung
'' : rxbyte - empfangenes Zeichen oder
'' : sock#RETBUFFEREMPTY (-1) wenn kein Zeichen vorhanden
bus_putchar(sock.readByteNonBlocking(sockhandle[bus_getchar]))
PRI lan_isconnected
''funktionsgruppe : lan
''funktion : Returns true if the socket is connected, false otherwise
''eingabe : -
''ausgabe : -
''busprotokoll : [081][get.handleidx][put.connected]
'' : handleidx - lfd. Nr. der Verbindung
'' : connected - TRUE wenn verbunden, sonst FALSE
bus_putchar(sock.isConnected(sockhandle[bus_getchar]))
DAT
long ' long alignment for addresses
ip_addr byte 10, 1, 1, 1 'ip
ip_subnet byte 255, 255, 255, 0 'subnet-maske
ip_gateway byte 10, 1, 1, 254 'gateway
ip_dns byte 10, 1, 1, 254 'dns
ip_boot long 0 'boot-server (IP address in long)
mac_addr byte $c0, $de, $ba, $be, $00, $00 'mac-adresse
CON ''------------------------------------------------- End of LAN FUNCTIONS
#endif ' __ADM_LAN
2013-12-10 15:32:47 +01:00
DAT 'dummyroutine für getcogs
org
'
' Entry: dummy-assemblercode fuer cogtest
'
entry jmp entry 'just loops
DAT 'feste sfx-slots
2014-04-18 13:56:42 +02:00
#ifdef __ADM_HSS
2013-12-10 15:32:47 +01:00
'Wav 'Len 'Fre 'Vol 'LFO 'LFW 'FMa 'AMa
SoundFX1 byte $01, $FF, $80, $0F, $0F, $00, $07, $90
'Att 'Dec 'Sus 'Rel
byte $FF, $10, $00, $FF
'Wav 'Len 'Fre 'Vol 'LFO 'LFW 'FMa 'AMa
SoundFX2 byte $05, $FF, $00, $0F, $04, $FF, $01, $05
'Att 'Dec 'Sus 'Rel
byte $F1, $24, $00, $FF
'16step Sequencer Table
byte $F1, $78, $3C, $00, $00, $00, $F1, $78, $3C, $00, $00, $00, $00, $00, $00, $00
'Wav 'Len 'Fre 'Vol 'LFO 'LFW 'FMa 'AMa 'Heartbeat
SoundFX3 byte $00, $FF, $06, $0F, $09, $FF, $04, $05
'Att 'Dec 'Sus 'Rel
byte $F1, $F4, $F0, $0F
byte $F1, $78, $3C, $00, $00, $00, $F1, $78, $3C, $00, $00, $00, $00, $00, $00, $00
'Wav 'Len 'Fre 'Vol 'LFO 'LFW 'FMa 'AMa 'Heartbeat low
SoundFX4 byte $00, $FE, $06, $0f, $15, $FF, $04, $05
'Att 'Dec 'Sus 'Rel
byte $F1, $F4, $F0, $0F
byte $F1, $78, $3C, $00, $00, $00, $F1, $78, $3C, $00, $00, $00, $00, $00, $00, $00
'Wav 'Len 'Fre 'Vol 'LFO 'LFW 'FMa 'AMa 'Telefon
SoundFX5 byte $05, $15, $4F, $0F, $01, $04, $05, $00
'Att 'Dec 'Sus 'Rel
byte $FF, $00, $00, $FF
'Wav 'Len 'Fre 'Vol 'LFO 'LFW 'FMa 'AMa
SoundFX6 byte $06, $FF, $5F, $0F, $01, $03, $01, $00 'Teleport
'Att 'Dec 'Sus 'Rel
byte $FF, $14, $00, $FF
SoundFX7 'pling
' Wav Len Fre Vol LFO LFW FMa AMa Att Dec Sus Rel
byte $04,$01,$80,$0F,$00,$00,$00,$00,$FF,$00,$00,$80
byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$01
SoundFX8 'on
' Wav Len Fre Vol LFO LFW FMa AMa Att Dec Sus Rel
byte $00,$05,$10,$0F,$08,$02,$05,$00,$FF,$00,$50,$11
byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$01
SoundFX9 'off
' Wav Len Fre Vol LFO LFW FMa AMa Att Dec Sus Rel
byte $00,$05,$33,$0F,$05,$03,$10,$00,$FF,$00,$50,$11
byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$01
2014-04-18 13:56:42 +02:00
#endif '__ADM_HSS
2013-12-10 15:32:47 +01:00
{{
┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
│ 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, PRIlish, 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. │
└──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
}}
