From a63c3ef3132286cafccfc2db250f6e39b62966b9 Mon Sep 17 00:00:00 2001 From: Joerg Deckert Date: Fri, 18 Apr 2014 13:56:42 +0200 Subject: [PATCH] build all administra binaries from one source --- flash/administra/admflash.spin | 850 +++++++++++- make.sh | 14 +- system/administra/admay/admay.spin | 871 ------------- system/administra/admnet/admnet.spin | 1771 -------------------------- system/administra/admsid/admsid.spin | 1054 --------------- 5 files changed, 831 insertions(+), 3729 deletions(-) delete mode 100644 system/administra/admay/admay.spin delete mode 100644 system/administra/admnet/admnet.spin delete mode 100644 system/administra/admsid/admsid.spin diff --git a/flash/administra/admflash.spin b/flash/administra/admflash.spin index 7e36c71..3e49ac2 100644 --- a/flash/administra/admflash.spin +++ b/flash/administra/admflash.spin @@ -1,13 +1,13 @@ {{ ┌──────────────────────────────────────────────────────────────────────────────────────────────────────┐ -│ Autor: Ingo Kripahle │ -│ Copyright (c) 2010 Ingo Kripahle │ +│ 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 +Kontakt : drohne235@googlemail.com, joergd@bitquell.de System : TriOS Name : Administra-Flash Chip : Administra @@ -52,6 +52,8 @@ Funktion : Dieser Code wird von Administra nach einem Reset aus dem EEPr währendes des Abspielvorgangs führen zu einem undefinierten Verhalten von Administra! + SIDCog-Funktionen: + RTC-Funktionen: - Datum, Uhrzeit auslesen - Datum, Uhrzeit schreiben @@ -59,17 +61,36 @@ Funktion : Dieser Code wird von Administra nach einem Reset aus dem EEPr - 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 - ------------------- - 4 Cogs (WAV und HSS werden alternativ verwendet!) + SIDCog's 2 COG's + DMP/Tracker 1 COG (dynamisch) + NET 2 COG + +Defines : __ADM_FAT enable FAT engine (sd card handling) + __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_COM enable serial port + __ADM_AYS enable AYS player Logbuch : @@ -124,6 +145,8 @@ Logbuch : 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 : @@ -135,6 +158,19 @@ 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_LAN +'#define __ADM_SID +'#define __ADM_AYS + _CLKMODE = XTAL1 + PLL16X _XINFREQ = 5_000_000 @@ -145,8 +181,69 @@ _XINFREQ = 5_000_000 ' | | | +- subversion (hinzufügungen) CHIP_VER = $00_01_01_02 -CHIP_SPEC = gc#A_FAT|gc#A_LDR|gc#A_HSS|gc#A_WAV|gc#A_COM +#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 + +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 ' ' hbeat --------+ ' clk -------+| @@ -171,7 +268,15 @@ LED_OPEN = gc#HBEAT 'led-pin für anzeige "d SD_BASE = gc#A_SDD0 'baspin cardreader CNT_HBEAT = 5_000_0000 'blinkgeschw. front-led -MPLEN = 12000 'größe des hss-musikpuffers +MPLEN = 12000 'hss music buffer + +'sidcog +playRate = 50 'Hz +detune = 1.006 + +'Netzwerk-Puffergrößen (müssen Vielfaches von 2 sein!) +rxlen = 2048 +txlen = 128 'index für dmarker #0, RMARKER 'root @@ -181,37 +286,59 @@ MPLEN = 12000 'größe des hss-musikpu 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 + gc : "glob-con" 'globale konstanten VAR - long dmarker[6] 'speicher für dir-marker byte tbuf[20] 'stringpuffer byte tbuf2[20] - byte bgmusic[MPLEN] 'hss-puffer - byte sfxdat[16 * 32] 'sfx-slotpuffer byte fl_syssnd '1 = systemtöne an - byte fl_sdwav byte st_sound '0 = aus, 1 = hss, 2 = wav - long com_baud - - ' variablen für sdwav-player - - 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 - CON ''------------------------------------------------- ADMINISTRA @@ -229,6 +356,7 @@ PUB main | cmd,err 'chip: kommandointerpret 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 @@ -259,13 +387,17 @@ PUB main | cmd,err 'chip: kommandointerpret 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 +#endif '__ADM_FAT ' ---------------------------------------------- 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_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. @@ -284,6 +416,23 @@ PUB main | cmd,err 'chip: kommandointerpret 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_rtcTest: rtc_test 'Test if RTC Chip is available +#endif '__ADM_RTC + +' ---------------------------------------------- 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 @@ -296,9 +445,12 @@ PUB main | cmd,err 'chip: kommandointerpret 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 @@ -308,8 +460,10 @@ PUB main | cmd,err 'chip: kommandointerpret gc#a_sfxSetSlot: sfx_setslot 'sfx-slot setzen gc#a_sfxKeyOff: sfx_keyoff gc#a_sfxStop: sfx_stop +#endif '__ADM_HSS ' ---------------------------------------------- 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 @@ -317,6 +471,64 @@ PUB main | cmd,err 'chip: kommandointerpret 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_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 @@ -334,11 +546,14 @@ PRI init_chip | err,i,j 'chip: initialisierung d '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 @@ -347,23 +562,44 @@ PRI init_chip | err,i,j 'chip: initialisierung d 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_LAN + 'LAN + lan_started := false 'LAN noch nicht gestartet +#endif '__ADM_LAN PRI bus_putchar(zeichen) 'chip: ein byte über bus ausgeben ''funktionsgruppe : chip @@ -397,11 +633,13 @@ PRI sighigh(err) 'chip: schneller hbeat | ''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 @@ -409,11 +647,13 @@ PRI siglow(err) 'chip: langsamer hbeat | ''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 @@ -421,9 +661,11 @@ PRI clr_dmarker| i 'chip: dmarker-tabelle l ''eingabe : - ''ausgabe : - +#ifdef __ADM_FAT i := 0 repeat 6 'alle dir-marker löschen dmarker[i++] := TRUE +#endif '__ADM_FAT CON ''------------------------------------------------- SUBPROTOKOLL-FUNKTIONEN @@ -443,6 +685,18 @@ PRI sub_getstr | i,len 'sub: string einlesen 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 @@ -521,6 +775,7 @@ PRI mgr_setsound|sndstat 'cmgr: soundsubsysteme v sndstat := 0 case bus_getchar +#ifdef __ADM_HSS 0: if st_sound == 1 hss.hmus_stop hss.sfx_stop(0) @@ -531,7 +786,9 @@ PRI mgr_setsound|sndstat 'cmgr: soundsubsysteme v 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 @@ -539,6 +796,9 @@ PRI mgr_setsound|sndstat 'cmgr: soundsubsysteme v 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 @@ -573,9 +833,11 @@ PRI mgr_aload | err 'cmgr: neuen administra- ''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 @@ -639,10 +901,18 @@ PRI mgr_getspec 'cmgr: abfrage der spezi 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 + PRI sd_mount(mode) | err 'sdcard: sd-card mounten frida ''funktionsgruppe : sdcard ''funktion : eingelegtes volume mounten @@ -666,7 +936,9 @@ PRI sd_mount(mode) | err 'sdcard: sd-card mounten 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 @@ -1015,7 +1287,9 @@ PRI sd_unmount | err 'sdcard: medium abmelden 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 @@ -1079,8 +1353,18 @@ PRI sd_dmclr|markernr 'sdcard: einen dir-marke 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 @@ -1110,8 +1394,21 @@ PRI com_rx 'com: zeichen empfangen bus_putchar(com.rx) +CON ''------------------------------------------------- End of COM FUNCTIONS + +#endif ' __ADM_COM + 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 @@ -1281,17 +1578,41 @@ PRI hss_load | err 'hss: musikdatei in puff '' : 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 @@ -1433,8 +1754,175 @@ PRI sdw_position 'sdw: position des playe sub_putlong(wavPointer) sub_putlong(wavLen) +CON ''------------------------------------------------- End of WAV FUNCTIONS + +#endif ' __ADM_WAV + +CON ''------------------------------------------------- SIDCog: DMP-Player-Funktionen (SIDCog2) + +#ifdef __ADM_SID + +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 + +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] @@ -1549,6 +2037,316 @@ PRI rtc_pauseForMilliseconds 'rtc: Pauses execution f '' : 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) + +CON ''------------------------------------------------- End of RTC FUNCTIONS + +#endif ' __ADM_RTC + +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 bufrx[rxlen*sock#sNumSockets] 'LAN Empfangspuffer + 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, @bufrx[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, @bufrx[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][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][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 ' @@ -1559,7 +2357,7 @@ 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 @@ -1609,6 +2407,7 @@ SoundFX9 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 {{ @@ -1628,4 +2427,3 @@ byte $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00 │ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. │ └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘ }} - diff --git a/make.sh b/make.sh index 8c67235..9a6aff9 100755 --- a/make.sh +++ b/make.sh @@ -25,7 +25,7 @@ mkdir ${flash} # Flashdateien erzeugen # --> bin/flash -${BSTC} -L ${libpath} ${D} -b -O a flash/administra/admflash.spin +${BSTC} -L ${libpath} ${D} -D __ADM_FAT -D __ADM_HSS -D __ADM_HSS_PLAY -D __ADM_WAV -D __ADM_RTC -D __ADM_COM -b -O a flash/administra/admflash.spin cp admflash.binary ${flash} mv admflash.binary ${sdsys}/admsys.adm @@ -52,12 +52,12 @@ mv regime.binary ${sd}/reg.sys # admsid, admay, admnet # htxt, g0key -${BSTC} -L ${libpath} ${D} -b -O a system/administra/admsid/admsid.spin -mv admsid.binary ${sdsys}/admsid.adm -${BSTC} -L ${libpath} ${D} -b -O a system/administra/admay/admay.spin -mv admay.binary ${sdsys}/admay.adm -${BSTC} -L ${libpath} ${D} -b -O a system/administra/admnet/admnet.spin -mv admnet.binary ${sdsys}/admnet.adm +${BSTC} -L ${libpath} ${D} -D __ADM_FAT -D __ADM_SID -b -O a flash/administra/admflash.spin +mv admflash.binary ${sdsys}/admsid.adm +${BSTC} -L ${libpath} ${D} -D __ADM_FAT -D __ADM_AYS -b -O a flash/administra/admflash.spin +mv admflash.binary ${sdsys}/admay.adm +${BSTC} -L ${libpath} ${D} -D __ADM_FAT -D __ADM_HSS -D __ADM_LAN -D __ADM_RTC -D __ADM_COM -b -O a flash/administra/admflash.spin +mv admflash.binary ${sdsys}/admnet.adm ${BSTC} -L ${libpath} ${D} -b -O a system/bellatrix/bel-htext/htext.spin mv htext.binary ${sdsys}/htext.bel diff --git a/system/administra/admay/admay.spin b/system/administra/admay/admay.spin deleted file mode 100644 index a923fe6..0000000 --- a/system/administra/admay/admay.spin +++ /dev/null @@ -1,871 +0,0 @@ -{{ -┌──────────────────────────────────────────────────────────────────────────────────────────────────────┐ -│ Autor: Ingo Kripahle, V.Pohlers (AY-Einbau) │ -│ Copyright (c) 2010 Ingo Kripahle │ -│ See end of file for terms of use. │ -│ Die Nutzungsbedingungen befinden sich am Ende der Datei │ -└──────────────────────────────────────────────────────────────────────────────────────────────────────┘ - -Informationen : hive-project.de -Kontakt : drohne235@googlemail.com -System : TriOS -Name : Administra-Flash -Chip : Administra -Typ : Flash -Version : 00 -Subversion : 01 - -Funktion : Diese Codeversion basiert auf admini.spin und wird durch eine YM-Chip-Emulation als - Soundfunktion erweitert. - - 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! - - - -Komponenten : FATEngine 01/18/2009 Kwabena W. Agyeman MIT Lizenz - RTCEngine 11/22/2009 Kwabena W. Agyeman MIT Lizenz - -COG's : MANAGMENT 1 COG - FAT/RTC 1 COG - ------------------- - 2 Cogs - -Logbuch : - -06-05-2010-dr235 - erste version aus admflash.spin extrahiert -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 - -17-08-2010-dr040 - YM-Einschluss - -Kommandoliste : - -Notizen : - -Bekannte Fehler : - - -}} - - -CON - -_CLKMODE = XTAL1 + PLL16X -_XINFREQ = 5_000_000 - - -' +---------- -' | +------- system -' | | +---- version (änderungen) -' | | | +- subversion (hinzufügungen) -CHIP_VER = $00_01_01_01 - -CHIP_SPEC = gc#A_FAT|gc#A_LDR|gc#A_AYS - -' -' hbeat --------+ -' clk -------+| -' /wr ------+|| -' /hs -----+||| +------------------------- /cs -' |||| | +------+ d0..d7 -' |||| | | | -DB_IN = %00001001_00000000_00000000_00000000 'dira-wert für datenbuseingabe -DB_OUT = %00001001_00000000_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 - - -'index für dmarker -#0, RMARKER 'root - SMARKER 'system - UMARKER 'programmverzeichnis - AMARKER - BMARKER - CMARKER - -OBJ - sdfat : "adm-fat" 'fatengine - ay : "adm-ay" 'AYcog - AY-3-891X / YM2149 emulator - gc : "glob-con" 'globale konstanten - -VAR - - long dmarker[6] 'speicher für dir-marker - byte tbuf[20] 'stringpuffer - byte tbuf2[20] -' byte sfxdat[16 * 32] 'sfx-slotpuffer -' byte fl_eof '1 = eof - - byte AYregs[16] 'AY-Register - - -CON ''------------------------------------------------- ADMINISTRA - -PUB main | cmd,err 'chip: kommandointerpreter -''funktionsgruppe : chip -''funktion : kommandointerpreter -''eingabe : - -''ausgabe : - - - init_chip 'bus/vga/keyboard/maus initialisieren - repeat - cmd := bus_getchar 'kommandocode empfangen - err := 0 - case cmd - 0: !outa[LED_OPEN] 'led blinken - -' ---------------------------------------------- SD-FUNKTIONEN - 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 - -' ---------------------------------------------- CHIP-MANAGMENT - gc#a_mgrGetSpec: mgr_getspec 'spezifikation abfragen - 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 - -' ---------------------------------------------- AY-SOUNDFUNKTIONEN - gc#a_ayStart: ay_start - gc#a_ayStop: ay_stop - gc#a_ayUpdateRegisters: ay_updateRegisters - - - - -PUB init_chip|i 'chip: initialisierung des administra-chips -''funktionsgruppe : chip -''funktion : - initialisierung des businterface -'' - grundzustand definieren (hss aktiv, systemklänge an) -''eingabe : - -''ausgabe : - - - - repeat i from 0 to 7 'evtl. noch laufende cogs stoppen - ifnot i == cogid - cogstop(i) - - 'debugverbindung - 'debugx.start(115200) ' Start des Debug-Terminals - - 'businterface initialisieren - outa[gc#bus_hs] := 1 'handshake inaktiv ,frida - dira := db_in 'datenbus auf eingabe schalten ,frida - - 'sd-card starten - clr_dmarker 'dir-marker löschen - sdfat.FATEngine - sd_mount("B") - -PUB 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 - -PUB 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? - -PUB clr_dmarker| i 'chip: dmarker-tabelle löschen -''funktionsgruppe : chip -''funktion : dmarker-tabelle löschen -''eingabe : - -''ausgabe : - - - i := 0 - repeat 6 'alle dir-marker löschen - dmarker[i++] := TRUE - -CON ''------------------------------------------------- SUBPROTOKOLL-FUNKTIONEN - -PUB 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_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]) - -PUB 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) - -PUB 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 - - -PUB 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 - sub_getstr - err := \sdfat.bootPartition(@tbuf, "C") - -PUB mgr_getcogs: cogs |i,c,cog[8] 'cmgr: abfragen wie viele cogs in benutzung sind -''funktionsgruppe : cmgr -''funktion : abfrage wie viele cogs in benutzung sind -''eingabe : - -''ausgabe : cogs - anzahl der cogs -''busprotokoll : [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) - -PUB getcogs: cogs |i,c,cog[8] 'cmgr: abfragen wie viele cogs in benutzung sind - - 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 - -PUB mgr_getver 'cmgr: abfrage der version -''funktionsgruppe : cmgr -''funktion : abfrage der version und spezifikation des chips -''eingabe : - -''ausgabe : cogs - anzahl der cogs -''busprotokoll : [098][sub_putlong.ver] -'' : ver - version -'' +---------- -'' | +------- system -'' | | +---- version (änderungen) -'' | | | +- subversion (hinzufügungen) -''version : $00_00_00_00 -'' - - sub_putlong(CHIP_VER) - -PUB mgr_getspec 'cmgr: abfrage der spezifikation des chips -''funktionsgruppe : cmgr -''funktion : abfrage der version und spezifikation des chips -''eingabe : - -''ausgabe : cogs - anzahl der cogs -''busprotokoll : [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) - -CON ''------------------------------------------------- SD-LAUFWERKS-FUNKTIONEN - -PUB 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 - '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 - else 'frida - bus_putchar(0) 'frida - -PUB sd_opendir | err 'sdcard: verzeichnis öffnen -''funktionsgruppe : sdcard -''funktion : verzeichnis öffnen -''eingabe : - -''ausgabe : - -''busprotokoll : [002] - - err := \sdfat.listReset - -PUB 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 - -PUB 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) - bus_putchar(err) 'ergebnis der operation senden - outa[LED_OPEN] := 1 - -PUB 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 - bus_putchar(err) 'ergebnis der operation senden - outa[LED_OPEN] := 0 - -PUB 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) - -PUB 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) - -PUB 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) - - -PUB 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) - -PUB 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) - -PUB 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) - -PUB 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 - -PUB 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) - -PUB 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) - -PUB 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")) - -PUB 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")) - -PUB 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) - bus_putchar(err) 'ergebnis der operation senden - -PUB 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) - bus_putchar(err) 'ergebnis der operation senden - -PUB 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) - bus_putchar(err) 'ergebnis der operation senden - -PUB 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) - bus_putchar(err) 'ergebnis der operation senden - -PUB 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) - bus_putchar(err) 'ergebnis der operation senden - -PUB 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) - bus_putchar(err) 'ergebnis der operation senden - -PUB 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) - bus_putchar(err) 'ergebnis der operation senden - -PUB sd_unmount | err 'sdcard: medium abmelden -''funktionsgruppe : sdcard -''funktion : medium abmelden -''eingabe : - -''ausgabe : - -''busprotokoll : [024][put.error] -'' : error - fehlernummer entspr. list - - err := \sdfat.unmountPartition - bus_putchar(err) 'ergebnis der operation senden - ifnot err - clr_dmarker - -PUB 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) - - -PUB 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 - -PUB 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 - -PUB 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 - -DAT ' AY-Routinen - -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 - -DAT 'dummyroutine für getcogs - org -' -' Entry: dummy-assemblercode fuer cogtest -' -entry jmp entry 'just loops - - - - - -{{ - -┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐ -│ TERMS OF USE: MIT License │ -├──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┤ -│Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation │ -│files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, │ -│modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software│ -│is furnished to do so, subject to the following conditions: │ -│ │ -│The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.│ -│ │ -│THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE │ -│WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR │ -│COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, │ -│ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. │ -└──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘ -}} - diff --git a/system/administra/admnet/admnet.spin b/system/administra/admnet/admnet.spin deleted file mode 100644 index 9f4faf9..0000000 --- a/system/administra/admnet/admnet.spin +++ /dev/null @@ -1,1771 +0,0 @@ -{{ -┌──────────────────────────────────────────────────────────────────────────────────────────────────────┐ -│ Autor: Ingo Kripahle & Jörg Deckert │ -│ Copyright (c) 2010 Ingo Kripahle, 2013 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 -System : TriOS -Name : Administra-Flash (LAN) -Chip : Administra -Typ : Flash -Version : 00 -Subversion : 01 - -Funktion : Diese Codeversion basiert auf admflash.spin und wird um einen LAN-Treiber erweitert. - Die Soundfunktionen wurden aus Platzgründen beschränkt (kleiner HSS-Puffer, kein WAV). - - 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 - - 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 - FATEngine 01/18/2009 Kwabena W. Agyeman MIT Lizenz - RTCEngine 11/22/2009 Kwabena W. Agyeman MIT Lizenz - PropTCP 12/08/2009 Harrison Pham MIT Lizenz - -COG's : MANAGMENT 1 COG - FAT/RTC 1 COG - HSS 2 COG's - NET 2 COG - ------------------- - 6 COGs - -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 - -Kommandoliste : - -Notizen : - - -}} - - -CON - -_CLKMODE = XTAL1 + PLL16X -_XINFREQ = 5_000_000 - - -' +---------- -' | +------- system -' | | +---- version (änderungen) -' | | | +- subversion (hinzufügungen) -CHIP_VER = $00_01_01_02 - -CHIP_SPEC = gc#A_FAT|gc#A_LDR|gc#A_HSS|gc#A_COM|gc#A_LAN - -' -' 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 = 3000 'größe des hss-musikpuffers - -'Netzwerk-Puffergrößen (müssen Vielfaches von 2 sein!) -rxlen = 2048 -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 - sdfat : "adm-fat" 'fatengine - hss : "adm-hss" 'hydra-sound-system - rtc : "adm-rtc" 'RTC-Engine - com : "adm-com" 'serielle schnittstelle - sock : "driver_socket" 'LAN - gc : "glob-con" 'globale konstanten - num : "glob-numbers" 'Number Engine - -DAT - - strNVRAMFile byte "nvram.sav",0 'contains the 56 bytes of NVRAM, if RTC is not available - -VAR - - long dmarker[6] 'speicher für dir-marker - byte tbuf[20] 'stringpuffer - byte tbuf2[20] - byte sfxdat[16 * 32] 'sfx-slotpuffer - byte fl_syssnd '1 = systemtöne an - byte st_sound '0 = aus, 1 = hss - long com_baud - 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 bufrx[rxlen*sock#sNumSockets] 'LAN Empfangspuffer - byte buftx[txlen*sock#sNumSockets] 'LAN Sendepuffer - -CON ''------------------------------------------------- ADMINISTRA - -PUB main | cmd,err 'chip: kommandointerpreter -''funktionsgruppe : chip -''funktion : kommandointerpreter -''eingabe : - -''ausgabe : - - - init_chip 'bus/vga/keyboard/maus initialisieren - repeat - cmd := bus_getchar 'kommandocode empfangen - err := 0 - case cmd - 0: !outa[LED_OPEN] 'led blinken - -' ---------------------------------------------- SD-FUNKTIONEN - 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 - -' ---------------------------------------------- COM-FUNKTIONEN - gc#a_comInit: com_init - gc#a_comTx: com_tx - gc#a_comRx: com_rx - -' ---------------------------------------------- RTC-FUNKTIONEN - 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_rtcTest: rtc_test 'Test if RTC Chip is available - -' ---------------------------------------------- LAN-FUNKTIONEN - 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 - -' ---------------------------------------------- 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 - gc#a_hssLoad: hss_load 'hss-datei in puffer laden (in admnet not supported) - gc#a_hssPlay: 'play (in admnet not supported) - gc#a_hssStop: 'stop (in admnet not supported) - 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 - -' ---------------------------------------------- DEBUG-FUNKTIONEN - 255: mgr_debug 'debugfunktion - -PRI init_chip | err,i,j 'chip: initialisierung des administra-chips -''funktionsgruppe : chip -''funktion : - initialisierung des businterface -''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) - - 'hss starten - hss.start 'soundsystem starten - st_sound := 1 'hss aktiviert - fl_syssnd := 1 'systemsound an - - '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) - - 'RTC initialisieren - rtc.setSQWOUTFrequency(3) 'RTC Uhrenquarzt Frequenz wählen - rtc.setSQWOUTState(0) 'RT Zähler ein - - 'adm-code booten? - ifnot \sdfat.openFile(string("adm.sys"), "R") 'test ob adm.sys vorhanden ist - \sdfat.bootPartition(string("adm.sys"), ".") 'neuen code booten - - 'serielle schnittstelle starten - com_baud := 115200 - com.start(gc#SER_RX,gc#SER_TX,0,com_baud) 'start the default serial interface - - 'LAN - lan_started := false 'LAN noch nicht gestartet - -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 : - - - if fl_syssnd == 1 - if err == 0 - hss.sfx_play(1, @SoundFX3) 'Heartbeat High - else - hss.sfx_play(1, @SoundFX7) 'Error - -PRI siglow(err) 'chip: langsamer hbeat | fehlersound -''funktionsgruppe : chip -''funktion : langsamer hbeat | fehlersound -''eingabe : - -''ausgabe : - - - if fl_syssnd == 1 - if err == 0 - hss.sfx_play(1, @SoundFX4) 'Heartbeat High - else - hss.sfx_play(1, @SoundFX7) 'Error - - -PRI clr_dmarker| i 'chip: dmarker-tabelle löschen -''funktionsgruppe : chip -''funktion : dmarker-tabelle löschen -''eingabe : - -''ausgabe : - - - i := 0 - repeat 6 'alle dir-marker löschen - dmarker[i++] := TRUE - -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 - -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 -'' : sndstat - status/cognr startvorgang - - sndstat := 0 - case bus_getchar - 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 - - 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 - - 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 - sub_getstr - err := \sdfat.bootPartition(@tbuf, ".") - sighigh(err) 'fehleranzeige - -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 - - sub_putlong(@dmarker) 'adresse erste variable als marker - -CON ''------------------------------------------------- SD-LAUFWERKS-FUNKTIONEN - -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 - hss.sfx_play(1, @SoundFX8) 'on-sound - 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 - hss.sfx_play(1, @SoundFX9) 'off-sound - -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 ''------------------------------------------------- COM-FUNKTIONEN - -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 ''------------------------------------------------- HSS-FUNKTIONEN - -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 (dummy, in admnet not supported) -''funktionsgruppe : hss -''funktion : hss-datei wird in den modulpuffer geladen (in admnet not supported) -''eingabe : - -''ausgabe : - -''busprotokoll : [100][sub_getstr.fn][put.err] -'' : fn - dateiname -'' : err - fehlernummer entspr. liste - - sub_getstr 'dateinamen einlesen - bus_putchar(0) 'ergebnis der operation senden - -CON ''------------------------------------------------- RTC-FUNKTIONEN - -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) - -CON ''------------------------------------------------- LAN-FUNKTIONEN - -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 - 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 - 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]) - - 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, @bufrx[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, @bufrx[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][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][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 - -DAT 'dummyroutine für getcogs - org -' -' Entry: dummy-assemblercode fuer cogtest -' -entry jmp entry 'just loops - - - -DAT 'feste sfx-slots - - '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 - - -{{ - -┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐ -│ 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. │ -└──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘ -}} - diff --git a/system/administra/admsid/admsid.spin b/system/administra/admsid/admsid.spin deleted file mode 100644 index 63eae50..0000000 --- a/system/administra/admsid/admsid.spin +++ /dev/null @@ -1,1054 +0,0 @@ -{{ -┌──────────────────────────────────────────────────────────────────────────────────────────────────────┐ -│ Autor: Ingo Kripahle │ -│ Copyright (c) 2010 Ingo Kripahle │ -│ See end of file for terms of use. │ -│ Die Nutzungsbedingungen befinden sich am Ende der Datei │ -└──────────────────────────────────────────────────────────────────────────────────────────────────────┘ - -Informationen : hive-project.de -Kontakt : drohne235@googlemail.com -System : TriOS -Name : Administra-Flash (SD,SID) -Chip : Administra -Typ : Flash -Version : 00 -Subversion : 01 - -Funktion : Diese Codeversion basiert auf admini.spin und wird durch eine SID-Chip-Emulation als - Soundfunktion erweitert. Geladen werden zwei SIDCogs, wodurch insgesamt sechs unabhängige - Soundkanäle nutzbar sind, oder eine Kombination von einer SIDCog für SFX und einer SIDCog - für die Wiedergabe einer DMP-Datei direkt UND gleichzeitig von SD-Card möglich wird. - Zusätzlich zu den DMP-Files wird später noch ein einfacher Tracker integriert, welcher - die Musi nicht von SD-Card, sondern aus einem Puffer im hRam abspielt. Dadurch werden - auch während der Musikwiedergabe wieder Dateioperationen möglich, was ja so bei der - DMP-Playerroutine nicht geht. - - Infos zur SIDCog: http://forums.parallax.com/forums/default.aspx?f=25&p=1&m=409209 - - 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! - - SIDCog-Funktionen: - - - - -Komponenten : SIDCog Ver. 080 Johannes Ahlebrand MIT Lizenz - FATEngine 01/18/2009 Kwabena W. Agyeman MIT Lizenz - RTCEngine 11/22/2009 Kwabena W. Agyeman MIT Lizenz - -COG's : MANAGMENT 1 COG - FAT/RTC 1 COG - SIDCog's 2 COG's - DMP/Tracker 1 COG (dynamisch) - ------------------- - 5 Cogs - -Logbuch : - -19-06-2010-dr235 - erste version aus admini.spin extrahiert -06-04-2012-dr235 - sid_dmpreg eingefügt - -Kommandoliste : - -Notizen : - -Bekannte Fehler : - - -}} - - -CON - -_CLKMODE = XTAL1 + PLL16X -_XINFREQ = 5_000_000 - - -' +---------- -' | +------- system -' | | +---- version (änderungen) -' | | | +- subversion (hinzufügungen) -CHIP_VER = $00_01_01_01 - -CHIP_SPEC = gc#A_FAT|gc#A_LDR|gc#A_SID - -' -' hbeat --------+ -' clk -------+| -' /wr ------+|| -' /hs -----+||| +------------------------- /cs -' |||| | +------+ d0..d7 -' |||| | | | -DB_IN = %00001001_00000000_00000000_00000000 'dira-wert für datenbuseingabe -DB_OUT = %00001001_00000000_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 - - -'index für dmarker -#0, RMARKER 'root - SMARKER 'system - UMARKER 'programmverzeichnis - AMARKER - BMARKER - CMARKER - -'sidcog - -playRate = 50 'Hz -detune = 1.006 - -OBJ - sdfat : "adm-fat" 'fatengine - sid1 : "adm-sid" 'SIDCog - sid2 : "adm-sid" 'SIDCog - gc : "glob-con" 'globale konstanten - -VAR - - long dmarker[6] 'speicher für dir-marker - byte tbuf[20] 'stringpuffer - byte tbuf2[20] - - 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 - -CON ''------------------------------------------------- ADMINISTRA - -PUB main | cmd,err 'chip: kommandointerpreter -''funktionsgruppe : chip -''funktion : kommandointerpreter -''eingabe : - -''ausgabe : - - - init_chip 'bus/vga/keyboard/maus initialisieren - repeat - cmd := bus_getchar 'kommandocode empfangen - err := 0 - case cmd - 0: !outa[LED_OPEN] 'led blinken - -' ---------------------------------------------- SD-FUNKTIONEN - 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 - -' ---------------------------------------------- CHIP-MANAGMENT - gc#a_mgrGetSpec: mgr_getspec 'spezifikation abfragen - 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 - -' ---------------------------------------------- SIDCog: DMP-Player-Funktionen (SIDCog2) - 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) - -' ---------------------------------------------- Zusatzfunktionen - gc#a_s_dmpreg: sid_dmpreg 'soundinformationen senden - - -PUB init_chip|i 'chip: initialisierung des administra-chips -''funktionsgruppe : chip -''funktion : - initialisierung des businterface -'' - grundzustand definieren (hss aktiv, systemklänge an) -''eingabe : - -''ausgabe : - - - - repeat i from 0 to 7 'evtl. noch laufende cogs stoppen - ifnot i == cogid - cogstop(i) - - 'debugverbindung - 'debugx.start(9600) ' Start des Debug-Terminals - - 'businterface initialisieren - outa[gc#bus_hs] := 1 'handshake inaktiv ,frida - dira := db_in 'datenbus auf eingabe schalten ,frida - - 'sd-card starten - clr_dmarker 'dir-marker löschen - sdfat.FATEngine - sd_mount("B") - - '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 - - -PUB 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 - -PUB 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? - -PUB clr_dmarker| i 'chip: dmarker-tabelle löschen -''funktionsgruppe : chip -''funktion : dmarker-tabelle löschen -''eingabe : - -''ausgabe : - - - i := 0 - repeat 6 'alle dir-marker löschen - dmarker[i++] := TRUE - -CON ''------------------------------------------------- SIDCog: DMP-Player-Funktionen (SIDCog2) - -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 - - - -CON ''------------------------------------------------- SUBPROTOKOLL-FUNKTIONEN - -PUB 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 - -PUB 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]) - -PUB 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) - -PUB 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 - - -PUB 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 - sub_getstr - err := \sdfat.bootPartition(@tbuf, "C") - -PUB mgr_getcogs: cogs |i,c,cog[8] 'cmgr: abfragen wie viele cogs in benutzung sind -''funktionsgruppe : cmgr -''funktion : abfrage wie viele cogs in benutzung sind -''eingabe : - -''ausgabe : cogs - anzahl der cogs -''busprotokoll : [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) - -PUB getcogs: cogs |i,c,cog[8] 'cmgr: abfragen wie viele cogs in benutzung sind - - 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 - -PUB mgr_getver 'cmgr: abfrage der version -''funktionsgruppe : cmgr -''funktion : abfrage der version und spezifikation des chips -''eingabe : - -''ausgabe : cogs - anzahl der cogs -''busprotokoll : [098][sub_putlong.ver] -'' : ver - version -'' +---------- -'' | +------- system -'' | | +---- version (änderungen) -'' | | | +- subversion (hinzufügungen) -''version : $00_00_00_00 -'' - - sub_putlong(CHIP_VER) - -PUB mgr_getspec 'cmgr: abfrage der spezifikation des chips -''funktionsgruppe : cmgr -''funktion : abfrage der version und spezifikation des chips -''eingabe : - -''ausgabe : cogs - anzahl der cogs -''busprotokoll : [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) - -CON ''------------------------------------------------- SD-LAUFWERKS-FUNKTIONEN - -PUB 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 - '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 - else 'frida - bus_putchar(0) 'frida - -PUB sd_opendir | err 'sdcard: verzeichnis öffnen -''funktionsgruppe : sdcard -''funktion : verzeichnis öffnen -''eingabe : - -''ausgabe : - -''busprotokoll : [002] - - err := \sdfat.listReset - -PUB 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 - -PUB 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) - bus_putchar(err) 'ergebnis der operation senden - outa[LED_OPEN] := 1 - -PUB 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 - bus_putchar(err) 'ergebnis der operation senden - outa[LED_OPEN] := 0 - -PUB 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) - -PUB 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) - -PUB 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) - - -PUB 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) - -PUB 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) - -PUB 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) - -PUB 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 - -PUB 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) - -PUB 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) - -PUB 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")) - -PUB 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")) - -PUB 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) - bus_putchar(err) 'ergebnis der operation senden - -PUB 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) - bus_putchar(err) 'ergebnis der operation senden - -PUB 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) - bus_putchar(err) 'ergebnis der operation senden - -PUB 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) - bus_putchar(err) 'ergebnis der operation senden - -PUB 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) - bus_putchar(err) 'ergebnis der operation senden - -PUB 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) - bus_putchar(err) 'ergebnis der operation senden - -PUB 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) - bus_putchar(err) 'ergebnis der operation senden - -PUB sd_unmount | err 'sdcard: medium abmelden -''funktionsgruppe : sdcard -''funktion : medium abmelden -''eingabe : - -''ausgabe : - -''busprotokoll : [024][put.error] -'' : error - fehlernummer entspr. list - - err := \sdfat.unmountPartition - bus_putchar(err) 'ergebnis der operation senden - ifnot err - clr_dmarker - -PUB 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) - - -PUB 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 - -PUB 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 - -PUB 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 - - - - -DAT 'dummyroutine für getcogs - org -' -' Entry: dummy-assemblercode fuer cogtest -' -entry jmp entry 'just loops - - - - - -{{ - -┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐ -│ TERMS OF USE: MIT License │ -├──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┤ -│Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation │ -│files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, │ -│modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software│ -│is furnished to do so, subject to the following conditions: │ -│ │ -│The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.│ -│ │ -│THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE │ -│WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR │ -│COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, │ -│ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. │ -└──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘ -}} -