2808 lines
121 KiB
Plaintext
2808 lines
121 KiB
Plaintext
{{
|
|
┌──────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
│ Autor: Ingo Kripahle & Jörg Deckert │
|
|
│ Copyright (c) 2010 Ingo Kripahle, 2014 Jörg Deckert │
|
|
│ See end of file for terms of use. │
|
|
│ Die Nutzungsbedingungen befinden sich am Ende der Datei │
|
|
└──────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
Informationen : hive-project.de
|
|
Kontakt : drohne235@googlemail.com, joergd@bitquell.de
|
|
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!
|
|
|
|
SIDCog-Funktionen:
|
|
|
|
RTC-Funktionen:
|
|
- Datum, Uhrzeit auslesen
|
|
- Datum, Uhrzeit schreiben
|
|
- NVRAM auslesen
|
|
- NVRAM schreiben
|
|
- Wartefunktionen
|
|
|
|
LAN-Funktionen:
|
|
- Ethernet-Port mit Daten aus NVRAM oder SD-Dard initialisieren
|
|
- ein- und ausgehende Verbindungen öffnen
|
|
- Daten übertragen
|
|
|
|
Komponenten : HSS 1.2 Andrew Arsenault Lizenz unklar
|
|
SIDCog Ver. 080 Johannes Ahlebrand MIT Lizenz
|
|
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
|
|
PropTCP 12/08/2009 Harrison Pham Lizenz unklar
|
|
|
|
COG's : MANAGMENT 1 COG
|
|
FAT/RTC 1 COG
|
|
HSS 2 COG's
|
|
WAV 2 COG
|
|
SIDCog's 2 COG's
|
|
DMP/Tracker 1 COG (dynamisch)
|
|
NET 2 COG
|
|
DCF receiver 1 COG
|
|
|
|
Defines : __ADM_FAT enable FAT engine (sd card handling)
|
|
__ADM_FAT_EXT enable FAT extension for PLEXUS
|
|
__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
|
|
__ADM_DCF enable DCF77 receiver
|
|
__ADM_BLT enable Bluetooth
|
|
__ADM_COM enable serial port
|
|
__ADM_AYS enable AYS player
|
|
|
|
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
|
|
22-12-2013-joergd - LAN Funktionen
|
|
17-12-2014-joergd - verschiedene Administra-Code-Versionen vereinheitlicht
|
|
|
|
Kommandoliste :
|
|
|
|
Notizen :
|
|
|
|
|
|
}}
|
|
|
|
|
|
CON
|
|
|
|
''default defines (please anable to compile from GUI)
|
|
'#define __ADM_FAT
|
|
'#define __ADM_HSS
|
|
'#define __ADM_HSS_PLAY
|
|
'#define __ADM_WAV
|
|
'#define __ADM_RTC
|
|
'#define __ADM_COM
|
|
|
|
''other defines
|
|
'#define __ADM_FAT_EXT
|
|
'#define __ADM_LAN
|
|
'#define __ADM_SID
|
|
'#define __ADM_AYS
|
|
'#define __ADM_PLX
|
|
'#define __ADM_DCF
|
|
'#define __ADM_BLT
|
|
|
|
_CLKMODE = XTAL1 + PLL16X
|
|
_XINFREQ = 5_000_000
|
|
|
|
|
|
' +----------
|
|
' | +------- system
|
|
' | | +---- version (änderungen)
|
|
' | | | +- subversion (hinzufügungen)
|
|
CHIP_VER = $00_01_01_02
|
|
|
|
#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
|
|
|
|
#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
|
|
'
|
|
' 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
|
|
|
|
MPLEN = 12000 'hss music buffer
|
|
|
|
'sidcog
|
|
playRate = 50 'Hz
|
|
detune = 1.006
|
|
|
|
'Netzwerk-Puffergrößen (müssen Vielfaches von 2 sein!)
|
|
rxlen = 2048 '[rxlen*sock#sNumSockets] must be 4096 or more (to use buffer for sd copy)!
|
|
txlen = 128
|
|
|
|
'index für dmarker
|
|
#0, RMARKER 'root
|
|
SMARKER 'system
|
|
UMARKER 'programmverzeichnis
|
|
AMARKER
|
|
BMARKER
|
|
CMARKER
|
|
|
|
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
|
|
|
|
OBJ
|
|
#ifdef __ADM_FAT
|
|
sdfat : "adm-fat" 'fatengine
|
|
#endif
|
|
#ifdef __ADM_HSS
|
|
hss : "adm-hss" 'hydra-sound-system
|
|
#endif
|
|
#ifdef __ADM_WAV
|
|
wav : "adm-wav" 'sd-wave
|
|
#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
|
|
rtc : "adm-rtc" 'RTC-Engine
|
|
#endif
|
|
#ifdef __ADM_COM
|
|
com : "adm-com" 'serielle schnittstelle
|
|
#endif
|
|
#ifdef __ADM_LAN
|
|
sock : "driver_socket" 'LAN
|
|
num : "glob-numbers" 'Number Engine
|
|
#endif
|
|
#ifdef __ADM_PLX
|
|
plx : "adm-plx" 'PlexBux
|
|
#endif
|
|
#ifdef __ADM_DCF
|
|
dcf : "adm-dcf" 'DCF-77
|
|
#endif
|
|
|
|
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
|
|
#ifdef __ADM_DCF
|
|
byte dcfon 'DCF-Betriebsmerker
|
|
#endif
|
|
|
|
#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
|
|
|
|
CON ''------------------------------------------------- ADMINISTRA
|
|
|
|
PUB main | cmd,err 'chip: kommandointerpreter
|
|
''funktionsgruppe : chip
|
|
''funktion : kommandointerpreter
|
|
''eingabe : -
|
|
''ausgabe : -
|
|
|
|
init_chip 'bus/vga/keyboard/maus initialisieren
|
|
repeat
|
|
#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
|
|
cmd := bus_getchar 'kommandocode empfangen
|
|
err := 0
|
|
case cmd
|
|
0: !outa[LED_OPEN] 'led blinken
|
|
|
|
' ---------------------------------------------- SD-FUNKTIONEN
|
|
#ifdef __ADM_FAT
|
|
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
|
|
#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
|
|
#endif '__ADM_FAT
|
|
|
|
' ---------------------------------------------- Bluetooth-FUNKTIONEN
|
|
#ifdef __ADM_BLT
|
|
gc#a_bltCommand_On: blt_setCommandMode
|
|
gc#a_bltCommand_Off: blt_setNormalMode
|
|
#endif '__ADM_BLT
|
|
|
|
' ---------------------------------------------- COM-FUNKTIONEN
|
|
#ifdef __ADM_COM
|
|
gc#a_comInit: com_init
|
|
gc#a_comTx: com_tx
|
|
gc#a_comRx: com_rx
|
|
#endif '__ADM_COM
|
|
|
|
' ---------------------------------------------- RTC-FUNKTIONEN
|
|
#ifdef __ADM_RTC
|
|
gc#a_rtcTest: rtc_test 'Test if RTC Chip is available
|
|
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.
|
|
gc#a_rtcGetTime: rtc_getTime 'Returns the current hour, minute and second from the real time clock.
|
|
#endif '__ADM_RTC
|
|
|
|
' ---------------------------------------------- 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
|
|
|
|
' ---------------------------------------------- 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
|
|
|
|
' ---------------------------------------------- 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
|
|
#ifdef __ADM_HSS
|
|
gc#a_hssLoad: hss_load 'hss-datei in puffer laden
|
|
#ifdef __ADM_HSS_PLAY
|
|
gc#a_hssPlay: hss.hmus_load(@bgmusic) 'play
|
|
hss.hmus_play
|
|
#endif '__ADM_HSS_PLAY
|
|
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
|
|
#endif '__ADM_HSS
|
|
|
|
' ---------------------------------------------- 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
|
|
|
|
' ---------------------------------------------- WAV-FUNKTIONEN
|
|
#ifdef __ADM_WAV
|
|
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
|
|
#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
|
|
gc#a_s2_resetRegisters: sid2.resetRegisters
|
|
gc#a_s1_resetRegisters: sid1.resetRegisters
|
|
gc#a_s_beep: sid_beep
|
|
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
|
|
|
|
' ---------------------------------------------- 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)
|
|
|
|
#ifdef __ADM_HSS
|
|
'hss starten
|
|
hss.start 'soundsystem starten
|
|
st_sound := 1 'hss aktiviert
|
|
fl_syssnd := 1 'systemsound an
|
|
#endif '__ADM_HSS
|
|
|
|
#ifdef __ADM_FAT
|
|
'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)
|
|
#endif '__ADM_FAT
|
|
|
|
#ifdef __ADM_WAV
|
|
'wav starten
|
|
leftVolume := 100
|
|
rightVolume := 100
|
|
PlayCog~
|
|
#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
|
|
|
|
#ifdef __ADM_RTC
|
|
'RTC initialisieren
|
|
rtc.setSQWOUTFrequency(3) 'RTC Uhrenquarzt Frequenz wählen
|
|
rtc.setSQWOUTState(0) 'RT Zähler ein
|
|
#endif '__ADM_RTC
|
|
|
|
#ifdef __ADM_FAT
|
|
'adm-code booten?
|
|
ifnot \sdfat.openFile(string("adm.sys"), "R") 'test ob adm.sys vorhanden ist
|
|
\sdfat.bootPartition(string("adm.sys"), ".") 'neuen code booten
|
|
#endif '__ADM_FAT
|
|
|
|
#ifdef __ADM_COM
|
|
'serielle schnittstelle starten
|
|
com_baud := 9600
|
|
com.start(gc#SER_RX,gc#SER_TX,0,com_baud) 'start the default serial interface
|
|
#endif '__ADM_COM
|
|
|
|
#ifdef __ADM_PLX
|
|
plx.init 'defaultwerte setzen, poller-cog starten
|
|
plx.run 'plexbus freigeben (poller läuft)
|
|
#endif '__ADM_PLX
|
|
|
|
#ifdef __ADM_LAN
|
|
'LAN
|
|
lan_started := false 'LAN noch nicht gestartet
|
|
#endif '__ADM_LAN
|
|
|
|
#ifdef __ADM_DCF
|
|
'DCF-77
|
|
dcfon:=0
|
|
#endif '__ADM_DCF
|
|
|
|
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 : -
|
|
|
|
#ifdef __ADM_HSS
|
|
if fl_syssnd == 1
|
|
if err == 0
|
|
hss.sfx_play(1, @SoundFX3) 'Heartbeat High
|
|
else
|
|
hss.sfx_play(1, @SoundFX7) 'Error
|
|
#endif
|
|
|
|
PRI siglow(err) 'chip: langsamer hbeat | fehlersound
|
|
''funktionsgruppe : chip
|
|
''funktion : langsamer hbeat | fehlersound
|
|
''eingabe : -
|
|
''ausgabe : -
|
|
|
|
#ifdef __ADM_HSS
|
|
if fl_syssnd == 1
|
|
if err == 0
|
|
hss.sfx_play(1, @SoundFX4) 'Heartbeat High
|
|
else
|
|
hss.sfx_play(1, @SoundFX7) 'Error
|
|
#endif
|
|
|
|
PRI clr_dmarker| i 'chip: dmarker-tabelle löschen
|
|
''funktionsgruppe : chip
|
|
''funktion : dmarker-tabelle löschen
|
|
''eingabe : -
|
|
''ausgabe : -
|
|
|
|
#ifdef __ADM_FAT
|
|
i := 0
|
|
repeat 6 'alle dir-marker löschen
|
|
dmarker[i++] := TRUE
|
|
#endif '__ADM_FAT
|
|
|
|
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
|
|
|
|
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
|
|
|
|
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
|
|
#ifdef __ADM_HSS
|
|
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
|
|
#endif
|
|
|
|
#ifdef __ADM_WAV
|
|
2: if st_sound == 2
|
|
cogstop(DACCog)
|
|
st_sound := 0
|
|
|
|
3: if st_sound == 0
|
|
sndstat := DACCog := wav.DACEngine(0)
|
|
st_sound := 2
|
|
#endif
|
|
99:
|
|
|
|
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
|
|
#ifdef __ADM_FAT
|
|
sub_getstr
|
|
err := \sdfat.bootPartition(@tbuf, ".")
|
|
sighigh(err) 'fehleranzeige
|
|
#endif '__ADM_FAT
|
|
|
|
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
|
|
|
|
#ifdef __ADM_FAT
|
|
sub_putlong(@dmarker) 'adresse erste variable als marker
|
|
#endif '__ADM_FAT
|
|
|
|
CON ''------------------------------------------------- SD-LAUFWERKS-FUNKTIONEN
|
|
|
|
#ifdef __ADM_FAT
|
|
|
|
VAR
|
|
|
|
long dmarker[6] 'speicher für dir-marker
|
|
|
|
#ifdef __ADM_FAT_EXT
|
|
PRI sd_dirsize 'Anzahl Einträge im aktuellen Verzeichnis
|
|
' sub_putlong(\sdfat.listSize)
|
|
|
|
PRI sd_pos
|
|
sub_putlong(sdfat.getCharacterPosition)
|
|
|
|
PRI sd_copy|laenge,m,n,cpm,psm
|
|
cpm:=sub_getlong 'verzeichnismarker lesen (quelle)
|
|
psm:=sub_getlong 'verzeichnismarker lesen (ziel)
|
|
sub_getstr 'dateiname lesen @tbuff
|
|
|
|
outa[LED_OPEN]~~ 'LED an
|
|
|
|
sdfat.setDirCluster(cpm) 'Quellverzeichnis öffnen
|
|
|
|
\sdfat.openFile(@tbuf, "R") 'Quelldatei öffnen
|
|
laenge:=\sdfat.listSize 'Dateigröße empfangen
|
|
\sdfat.closeFile 'Datei schließen
|
|
|
|
|
|
m:=0
|
|
n:=0
|
|
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
|
|
|
|
outa[LED_OPEN]~ 'LED aus
|
|
|
|
#endif '__ADM_FAT_EXT
|
|
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
|
|
#ifdef __ADM_HSS
|
|
hss.sfx_play(1, @SoundFX8) 'on-sound
|
|
#endif
|
|
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
|
|
#ifdef __ADM_HSS
|
|
hss.sfx_play(1, @SoundFX9) 'off-sound
|
|
#endif
|
|
|
|
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
|
|
|
|
CON ''------------------------------------------------- End of SD CARD FUNCTIONS
|
|
|
|
#endif ' __ADM_FAT
|
|
|
|
CON ''------------------------------------------------- COM-FUNKTIONEN
|
|
|
|
#ifdef __ADM_COM
|
|
|
|
VAR
|
|
|
|
long com_baud
|
|
|
|
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)
|
|
|
|
CON ''------------------------------------------------- End of COM FUNCTIONS
|
|
|
|
#endif ' __ADM_COM
|
|
|
|
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
|
|
|
|
CON ''------------------------------------------------- HSS-FUNKTIONEN
|
|
|
|
#ifdef __ADM_HSS
|
|
|
|
VAR
|
|
|
|
#ifdef __ADM_HSS_PLAY
|
|
byte bgmusic[MPLEN] 'hss-puffer
|
|
#endif
|
|
byte sfxdat[16 * 32] 'sfx-slotpuffer
|
|
|
|
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
|
|
#ifdef __ADM_FAT
|
|
err := \sdfat.openFile(@tbuf, "r") 'datei öffnen
|
|
bus_putchar(err) 'ergebnis der operation senden
|
|
if err == 0
|
|
outa[LED_OPEN] := 1
|
|
#ifdef __ADM_HSS_PLAY
|
|
\sdfat.readData(@bgmusic, MPLEN) 'datei laden
|
|
#endif '__ADM_HSS_PLAY
|
|
\sdfat.closeFile
|
|
outa[LED_OPEN] := 0
|
|
#else 'no __ADM_FAT
|
|
bus_putchar(err)
|
|
#endif '__ADM_FAT
|
|
|
|
CON ''------------------------------------------------- End of HSS FUNCTIONS
|
|
|
|
#endif ' __ADM_HSS
|
|
|
|
CON ''------------------------------------------------- WAV-FUNKTIONEN
|
|
|
|
#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
|
|
|
|
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)
|
|
|
|
CON ''------------------------------------------------- End of WAV FUNCTIONS
|
|
|
|
#endif ' __ADM_WAV
|
|
|
|
CON ''------------------------------------------------- SIDCog: DMP-Player-Funktionen (SIDCog2)
|
|
|
|
#ifdef __ADM_SID
|
|
|
|
DAT 'dummyroutine für getcogs
|
|
|
|
noteTable word 16350, 17320, 18350, 19450, 20600, 21830, 23120, 24500, 25960, 27500, 29140, 30870
|
|
|
|
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
|
|
|
|
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))
|
|
|
|
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
|
|
|
|
CON ''------------------------------------------------- RTC-FUNKTIONEN
|
|
|
|
#ifdef __ADM_RTC
|
|
|
|
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))
|
|
|
|
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)
|
|
|
|
PRI rtc_getTime
|
|
|
|
sub_putlong(rtc.getHours)
|
|
sub_putlong(rtc.getMinutes)
|
|
sub_putlong(rtc.getSeconds)
|
|
|
|
CON ''------------------------------------------------- End of RTC FUNCTIONS
|
|
|
|
#endif ' __ADM_RTC
|
|
|
|
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
|
|
|
|
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
|
|
|
|
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++
|
|
|
|
ifnot (handle := sock.connect(ipaddr, remoteport, @bufmain[i*rxlen], rxlen, @buftx[i*txlen], txlen)) == -102
|
|
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++
|
|
|
|
ifnot (handle := sock.listen(port, @bufmain[i*rxlen], rxlen, @buftx[i*txlen], txlen)) == -102
|
|
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
|
|
|
|
DAT 'dummyroutine für getcogs
|
|
org
|
|
'
|
|
' Entry: dummy-assemblercode fuer cogtest
|
|
'
|
|
entry jmp entry 'just loops
|
|
|
|
|
|
|
|
DAT 'feste sfx-slots
|
|
#ifdef __ADM_HSS
|
|
'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
|
|
|
|
#endif '__ADM_HSS
|
|
|
|
{{
|
|
|
|
┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
│ 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. │
|
|
└──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
}}
|