Projekt "Türklingel" von Mega8 auf Tiny85 umschreiben?
Hallo Bascom- Spezialisten,
ich beschäftige mich zwar schon einiger Zeit mit Bascom und habe auch schon etliche Kleinprojekte umgesetzt. Ich bin bis jetzt aber kläglich an dem Versuch gescheitert, ein Bascom- Listing für eine Türklingel, was für den Mega8 geschrieben wurde auf einen Tiny85 zum Laufen zu bekommen.
Meine Frage: Ist es überhaupt möglich das unten stehende Programm lauffähig in den Tiny85 unter zu kriegen?
Bei meinen Versuchen habe ich die VIP- Funktion weg gelassen. Von der Menge der benötigten Ein- und Ausgänge ist der Tiny85 vollkommen ausreichend.
Ich habe den Portb.0 als Ausgang für die Wiedergabe, Portb.1 und Portb.2 als LED- Signalausgang und Pinb.4 als Tastereingang genutzt.
Ebenso ist die Speichergröße mehr als genügend. Beim Kompilieren stolpert Bascom aber über verschiedene Probleme, die ich nicht nachvollziehen konnte.
Evtl. kann jemand über das Listing sehen, der mehr Erfahrung mit solch komplexer Programmierung hat.
Danke im Voraus.
Code:'* Z80-Melodieklingel aus dem FA 4/86 S.203 mit AMTEL-AVR MEGA8 * '******************************************************************************* ' '------------------------------------------------------------------------------- ' Controller Grundeinstellung '------------------------------------------------------------------------------- $regfile = "m8def.dat" ' Mega8-Deklarationen Const Quarz = 8000000 ' Quarz: 8MHz $crystal = Quarz Const Pre = 1 ' kein Vorteiler Config Timer0 = Timer , Prescale = 1 ' ergibt 43,2 kHz On Ovf0 Tim0_isr ' Define the ISR handler Config Timer1 = Timer , Prescale = Pre On Ovf1 Tim1_isr ' Define the ISR handler Enable Timer1 On Int0 Isr_int0 ' externen Interrupt 0 freigeben Config Int0 = Rising ' Interrupt bei H/L-Flanke Enable Int0 ' INT0 ein On Int1 Isr_int1 ' externen Interrupt 1 freigeben Config Int1 = Rising ' Interrupt bei H/L-Flanke Enable Int1 ' INT1 ein Const Reload = Int(quarz /((65535 * Pre) * 10)) ' Teiler um mit Timer1 auf 100ms-INT zu kommen Enable Interrupts ' Interrupts freigeben Config Watchdog = 2048 ' Reset nach 2048 mSec Start Watchdog ' Start Watchdog Timer '**************************************************************************** Const Tabende = 255 ' Kennzeichen für Tabellenende Const Liedende = 128 ' Kennzeichen für Liedende Const Sperrdauer = 80 ' Wartezeit für Klingelsperre '**************************************************************************** Led_play Alias Portc.3 ' LED Wiedergabe Led_sperre Alias Portc.4 ' LED Takt Speaker Alias Portc.5 ' Tonausgang '**************************************************************************** Startup: '**************************************************************************** Ddrb = &B000000 ' alles Eingang (nicht in Nutzung) Ddrd = &B0000_0000 ' alles Eingang (nicht in Nutzung) Ddrc = &B111110 ' alles Ausgang ausser .0 Portb = &B111111 ' alle PullUP ein Portd = &B1111_1111 ' alle PullUP ein Portc = &B111111 ' alle PullUP und Ausgänge ein '**************************************************************************** 'Variablen Dim Sperre As Byte ' Sperrcounter Dim Scounter As Byte ' zählt für 100ms Dim Lcounter As Byte ' Tonausgabecounter Dim Freq As Byte ' Reloadwert für Tonausgabefrequenz Dim A As Byte ' aktuelles Datenbyte Dim Dauer As Byte ' extrahierte Tondauer Dim Ton As Byte ' extrahierte Tonhöhe Dim Zeit As Byte ' Zähler für Tondauer Dim Adresse As Integer ' Zeiger auf Note Dim Adr_temp As Integer ' Temp-Zeiger auf Note Dim Led As Bit ' LED-Buffer Dim Sp As Bit ' LP-Pin-Buffer Dim Vip As Bit ' VIP-Kennzeichnung Dim Run As Bit ' Flag zum Start '**************************************************************************** Reset Run ' Halt Reset Vip ' kein VIP Freq = 255 ' kein Ton Set Led_play ' Play aus Reset Led_sperre ' Sperre an Set Speaker ' LP stromlos Sperre = 0 ' Sperre aus Scounter = Reload ' 100 ms-Zähler auf Startwert Adresse = Loadlabel(songs) ' Zeiger auf Tebellenanfang Main: ' Hauptschleife While Run = 0 ' Warten auf Run-Flag Wend ' wird nur durch INT0/1 gesetzt ! Reset Run ' gleich wieder aus... Disable Int0 ' Pegelwechsel auf INT0 darf nicht mehr stören Disable Int1 ' Pegelwechsel auf INT1 darf nicht mehr stören Stop Watchdog ' Watchdog anhalten Reset Led_play ' Play an Adr_temp = Adresse ' Adresse für alle Fälle retten If Vip = 1 Then Adresse = Loadlabel(vip) ' bei VIP Zeiger auf VIP-Lied '-------------------------------------------------------------------------- Do ' Schleife Lied abspielen A = Cpeek(adresse) ' Datenbyte lesen If Adresse < Loadlabel(tab_end) Then Adresse = Adresse + 1 ' Zeiger++ Ton = A And &B0000_1111 ' Tonhöhe holen Dauer = A And &B0111_0000 ' Tondauer abschneiden... Shift Dauer , Right , 4 ' ...und durch 16 Gosub Tonausgabe ' Tonausgabe Loop Until A > 127 ' solange bis Bit .7 = 1, also Liedende '-------------------------------------------------------------------------- If Vip = 0 Then ' wenn kein VIP, dann... A = Cpeek(adresse) ' nach dem nächsten Byte schauen If A = Tabende Then Adresse = Loadlabel(songs) ' Tabellenende ? Sperre = Sperrdauer ' Sperre Setzen Disable Int1 ' INT1 aus Reset Led_sperre ' LED Sperre an Else ' bei VIP Adresse = Adr_temp ' Zeiger wieder auf alten Song und... If Sperre = 0 Then Enable Int1 ' ... INT1 freigeben falls Sperre = 0 End If Set Led_play ' Play aus Enable Int0 ' INT0 an Start Watchdog ' Wachhund scharf Reset Run ' Run nochmal stoppen Goto Main ' und wieder von vorn... End '**************************************************************************** Isr_int1: ' normaler Klingeleingang '**************************************************************************** Reset Vip ' kein VIP Set Run ' Start ... Return '**************************************************************************** Isr_int0: ' VIP-Klingel (Gartentor) '**************************************************************************** Set Vip ' VIP Set Run ' Start ... Return '**************************************************************************** Tim1_isr: ' Timer1-ISR '**************************************************************************** If Scounter > 0 Then ' Per Zählvariable eine 100ms-Funktion machen Scounter = Scounter - 1 Else Scounter = Reload ' Reloadwert für 100ms Gosub 100ms ' Funktion 100ms End If Reset Watchdog ' Wachhund rücksetzen Return '**************************************************************************** 100ms: '**************************************************************************** ' --- Zähler für Tondauer handeln ---------------------- If Zeit > 0 Then Zeit = Zeit - 1 Else Disable Timer0 ' wenn abgelaufen dann Ton aus durch 'Timer0 Aus Set Speaker End If ' --- Zähler für Sperrzeit von INT1 handeln ------------ If Sperre > 0 Then Sperre = Sperre - 1 Else Set Led_sperre ' LED Sperre aus Enable Int1 ' INT1 wieder freigeben End If Return '**************************************************************************** Tim0_isr: ' Timer0-ISR '**************************************************************************** If Lcounter > 0 Then Lcounter = Lcounter - 1 Else Lcounter = Freq ' Reloadwert Gosub Lp_out ' Funktion Lp_out End If Return '**************************************************************************** Lp_out: ' Timer1-ISR '**************************************************************************** Sp = Sp Xor 1 ' Bit invertieren If Freq = 255 Then Set Speaker Else Speaker = Sp ' Ausgabe, wenn ' keine Pause Return '**************************************************************************** Tonausgabe: '**************************************************************************** Freq = Lookup(ton , Tab_ton) ' Reloadwert für Frequenz holen Zeit = Dauer + 1 ' Tondauer in den Counter Stop Timer1 ' Stop TIMER1, um... Timer1 = 0 ' ...Timer1 auf 0 zurück zu setzen, damit... Start Timer1 ' ...alle Achtelnoten gleichlang sind -> Start Enable Timer0 ' Timer 0 und damit Tonerzeugung freigeben While Zeit > 0 ' warten, bis der Achtelnotenzähler = 0 Wend Set Speaker ' Lautsprecher stromlos machen Return '**************************************************************************** ' Daten '**************************************************************************** ' Tab_ton: ' Data 255 , 80 , 76 , 72 , 68 , 64 , 60 , 57 , 54 , 51 , 48 , 45 , 43 , 40 , 38 , 36 ' 'Aufbau eines Liedbytes: 'Bit '7 6 5 4 3 2 1 0 '| |__|__| |__|__|__|_ Tonhöhe ( 1..15 (G..B') incl. aller Halbtonschritte '| | wenn 0, kein Ton sondern Pause '| | '| |________________ Tonlänge in Achtelnoten '| '|______________________ Stop-Bit ' 'Grundidee und Tonformat von Steffen Lehmann "Eine Melodieklingel mit vielen Melodien" '[eine Schaltung mit einem Z80] 'Zeitschrift "Funkamateur" 4/86 S. 203 ' Songs: ' -- Titel #1 ----------------------------------------------------------------- Data &H03 , &H00 , &H05 , &H00 , &H07 , &H00 , &H08 , &H00 , &H0A , &H00 , &H0C Data &H00 , &H3A , &H08 , &H00 , &H05 , &H00 , &H3E , &H0A , &H00 , &H07 , &H00 Data &HAF ' -- Titel #2 ----------------------------------------------------------------- Data &H35 , &H00 , &H2A , &H00 , &H02 , &H05 , &H10 , &H05 , &H10 , &H85 ' -- Titel #3 ----------------------------------------------------------------- Data &H03 , &H00 , &H05 , &H00 , &H37 , &H3A , &H0E , &H20 , &H1C , &H10 Data &H2C , &H00 , &HA7 ' -- Titel #4 ----------------------------------------------------------------- Data &H47 , &H00 , &H06 , &H00 , &H07 , &H00 , &H0F , &H00 , &H07 , &H00 , &H0E Data &H00 , &H0C , &H20 , &H0C , &H20 , &H9C ' -- Titel #5 ----------------------------------------------------------------- Data &H0A , &H00 , &H2F , &H10 , &H1E , &H10 , &H0C , &H0A , &H10 , &HA7 ' -- Titel #6 ----------------------------------------------------------------- Data &H53 , &H17 , &H3A , &H3F , &H3C , &H1F , &H1C , &HBA ' -- Titel #7 ----------------------------------------------------------------- Data &H13 , &H20 , &H15 , &H20 , &H17 , &H00 , &H1A , &H1C , &H00 , &H1A , &H1F Data &H20 , &H1C , &H20 , &H1A , &HB7 ' -- Titel #8 ----------------------------------------------------------------- Data &H17 , &H18 , &H3A , &H27 , &H00 , &H27 , &H00 , &H37 , &H95 ' -- Titel #9 ----------------------------------------------------------------- Data &H33 , &H08 , &H00 , &H0A , &H00 , &H3C , &H3F , &H3C , &H3A , &HB8 ' -- Titel #10 ---------------------------------------------------------------- Data &H48 , &H00 , &H0A , &H00 , &H08 , &H00 , &H06 , &H00 , &H25 , &H00 , &H21 Data &H00 , &HB1 ' -- Titel #11 ---------------------------------------------------------------- Data &H45 , &H00 , &H03 , &H00 , &H02 , &H00 , &H05 , &H00 , &H0A , &H00 , &H0C Data &H00 , &H5E , &H10 , &HBA ' -- Titel #12 ---------------------------------------------------------------- Data &H0A , &H00 , &H08 , &H00 , &H0A , &H00 , &H08 , &H00 , &H07 , &H20 , &HB3 ' -- Titel #13 ---------------------------------------------------------------- Data &H03 , &H00 , &H03 , &H00 , &H25 , &H00 , &H23 , &H00 , &H28 , &H00 , &H47 Data &H20 , &H03 , &H00 , &H03 , &H00 , &H25 , &H00 , &H23 , &H00 , &H2A , &H00 Data &HC8 ' -- Titel #14 ---------------------------------------------------------------- Data &H46 , &H00 , &H14 , &H13 , &H14 , &H36 , &H3F , &H3B , &HA6 ' -- Titel #15 ---------------------------------------------------------------- Data &H15 , &H12 , &H50 , &H12 , &H23 , &H15 , &H0E , &H20 , &H0E , &H20 , &HBA ' -- Titel #16 ---------------------------------------------------------------- Data &H28 , &H00 , &H03 , &H00 , &H23 , &H10 , &H38 , &H00 , &H25 , &H00 , &H05 Data &H00 , &H25 , &H40 , &H27 , &H00 , &H08 , &H00 , &H2A , &H10 , &H27 , &H10 Data &H28 , &H00 , &H0C , &H00 , &HB8 ' -- Titel #17 ---------------------------------------------------------------- Data &H4A , &H00 , &H07 , &H10 , &H0A , &H10 , &H07 , &H10 , &H0A , &H10 , &H08 Data &H10 , &HA8 ' -- Titel #18 ---------------------------------------------------------------- Data &H0C , &H00 , &H0B , &H00 , &H0C , &H20 , &H0C , &H00 , &H0B , &H00 , &H0C Data &H20 , &H0C , &H00 , &H0B , &H00 , &H0C , &H20 , &H0A , &H20 , &H98 ' -- Titel #19 ---------------------------------------------------------------- Data &H03 , &H00 , &H03 , &H00 , &H28 , &H00 , &H2C , &H00 , &H08 , &H00 , &H08 Data &H00 , &H2A , &H00 , &H2D , &H00 , &H03 , &H00 , &H07 , &H00 , &H3A , &H00 Data &H0C , &H00 , &H2A , &H00 , &HA8 ' -- Titel #20 ---------------------------------------------------------------- Data &H03 , &H00 , &H05 , &H00 , &H27 , &H00 , &H07 , &H00 , &H0A , &H00 , &H28 Data &H00 , &H08 , &H00 , &H0C , &H00 , &H1A , &H00 , &H0C , &H0A , &H00 , &H08 Data &H00 , &HA7 ' -- Titel #21 ---------------------------------------------------------------- Data &H21 , &H00 , &H46 , &H00 , &H08 , &H00 , &H0B , &H00 , &H0A , &H00 , &H08 Data &H00 , &H2D , &H00 , &HAD ' -- Titel #22 ---------------------------------------------------------------- Data &H28 , &H00 , &H4D , &H00 , &H08 , &H00 , &H25 , &H00 , &H26 , &H00 , &H48 Data &H00 , &H0A , &H00 , &HA8 ' -- Titel #23 ---------------------------------------------------------------- Data &H23 , &H00 , &H4F , &H00 , &H0E , &H00 , &H2F , &H00 , &H2C , &H00 , &H4D Data &H00 , &H0C , &H00 , &H2D , &H00 , &H27 , &H00 , &H0A , &H00 , &H18 , &H6A Data &H00 , &H6A , &H00 , &H0A , &H00 , &H3C , &H30 , &H0A , &H00 , &H2C , &H00 Data &H0A , &H00 , &H0C , &H00 , &H2A , &H00 , &H09 , &H00 , &HB8 ' -- Titel #24 ---------------------------------------------------------------- Data &H0C , &H20 , &H2A , &H20 , &H07 , &H00 , &H05 , &H00 , &H03 , &H00 , &H2C Data &H00 , &H2B , &H00 , &HAC ' -- Titel #25 ---------------------------------------------------------------- Data &H07 , &H00 , &H05 , &H00 , &H03 , &H00 , &H05 , &H00 , &H07 , &H00 , &H05 Data &H00 , &H03 , &H00 , &H05 , &H00 , &H27 , &H00 , &H0C , &H20 , &H27 , &H00 Data &H8C ' -- Titel #26 ---------------------------------------------------------------- Data &H03 , &H00 , &H05 , &H00 , &H27 , &H00 , &H27 , &H00 , &H08 , &H00 , &H05 Data &H00 , &H1C , &H0A , &H00 , &HAA Vip: ' -- Titel #27 ---------------------------------------------------------------- Data &H23 , &H00 , &H03 , &H00 , &H07 , &H00 , &H2A , &H00 , &H2A , &H00 , &H2A Data &H00 , &H0C , &H00 , &H0A , &H00 , &H27 , &H00 , &HA3 , ' -- Titel #28 ---------------------------------------------------------------- Data &H3F , &H3E , &H3C , &H3A , &H3C , &H18 , &H17 , &H25 , &H00 , &HA3 ' -- Titel #29 ---------------------------------------------------------------- Data &H00 , &H23 , &H00 , &H48 , &H00 , &H03 , &H00 , &H28 , &H00 , &H0C , &H00 Data &H0C , &H00 , &H68 , &H00 , &H23 , &H00 , &H08 , &H00 , &H0C , &H00 , &H2A Data &H00 , &H23 , &H00 , &H23 , &H00 , &H05 , &H00 , &H07 , &H00 , &HE8 ' -- Titel #30 ---------------------------------------------------------------- Data &H03 , &H00 , &H23 , &H00 , &H07 , &H00 , &H2A , &H00 , &H0F , &H00 , &H4A Data &H00 , &H27 , &H00 , &H03 , &H00 , &H25 , &H00 , &H05 , &H00 , &H15 , &H07 Data &H00 , &H05 , &H00 , &HC3 ' -- Titel #31 ---------------------------------------------------------------- Data &H6F , &H00 , &H2C , &H00 , &H28 , &H00 , &H2C , &H00 , &H2F , &H00 , &H3F Data &H2D , &H00 , &H2A , &H00 , &H30 , &H28 , &H00 , &H08 , &H00 , &H08 , &H00 Data &H28 , &H00 , &H28 , &H00 , &H28 , &H00 , &H08 , &H00 , &H08 , &H00 , &H2A Data &H00 , &H07 , &H00 , &H05 , &H00 , &H23 , &H00 , &H30 , &H6F , &H00 , &H2C Data &H00 , &H28 , &H00 , &H2C , &H00 , &H2F , &H00 , &H3F , &H2D , &H00 , &HAA ' -- Titel #32 ---------------------------------------------------------------- Data &H00 , &H2A , &H00 , &H2E , &H00 , &H2C , &H00 , &H10 , &H05 , &H00 , &H07 Data &H00 , &H05 , &H00 , &H07 , &H00 , &H09 , &H00 , &HAA ' -- Titel #33 ---------------------------------------------------------------- Data &H03 , &H00 , &H03 , &H00 , &H07 , &H00 , &H2A , &H00 , &H2A , &H00 , &H2C Data &H00 , &H2A , &H00 , &H10 , &H08 , &H00 , &H07 , &H00 , &H05 , &H00 , &H13 Data &H07 , &H00 , &H1A , &H07 , &H00 , &HE5 ' -- Titel #34 ---------------------------------------------------------------- Data &H25 , &H00 , &H4A , &H00 , &H0C , &H00 , &H2C , &H00 , &H2C , &H00 , &H6A Data &H00 , &H29 , &H00 , &H2A , &H00 , &H1C , &H0E , &H00 , &H2F , &H00 , &H1E Data &H0C , &H00 , &H2A , &H00 , &HEC ' -- Titel #35 ---------------------------------------------------------------- Data &H03 , &H00 , &H07 , &H00 , &H2A , &H00 , &H07 , &H00 , &H05 , &H00 , &H23 Data &H00 , &H25 , &H00 , &H25 , &H00 , &H23 , &H00 , &H10 , &H0A , &H00 , &H0C Data &H00 , &H0A , &H00 , &H0C , &H00 , &H0E , &H00 , &H2F , &H00 , &H2E , &H00 Data &H2C , &H00 , &HAA ' -- Titel #36 ---------------------------------------------------------------- Data &H26 , &H00 , &H2A , &H00 , &H2D , &H00 , &H28 , &H00 , &H08 , &H00 , &H05 Data &H00 , &H21 , &H00 , &H26 , &H00 , &H2A , &H00 , &H2D , &H00 , &HE8 ' -- Titel #37 ---------------------------------------------------------------- Data &H03 , &H00 , &H07 , &H00 , &H07 , &H00 , &H2A , &H00 , &H2A , &H00 , &H27 Data &H00 , &H23 , &H00 , &H05 , &H00 , &H03 , &H00 , &H05 , &H00 , &H07 , &H00 Data &H25 , &H00 , &H03 , &H00 , &H07 , &H00 , &H2A , &H00 , &H2A , &H00 , &H27 Data &H00 , &H23 , &H00 , &HE5 ' -- Titel #38 ---------------------------------------------------------------- Data &H06 , &H00 , &H06 , &H00 , &H2B , &H00 , &H2B , &H00 , &H0F , &H00 , &H0B Data &H00 , &HE6 ' -- Titel #39 ---------------------------------------------------------------- Data &H12 , &H05 , &H00 , &H1A , &H02 , &H00 , &H25 , &H00 , &H23 , &H00 , &H27 Data &H00 , &H27 , &H00 , &H15 , &H09 , &H00 , &H1C , &H0F , &H00 , &H1E , &H0C Data &H00 , &HEA ' -- Titel #40 ---------------------------------------------------------------- Data &H24 , &H00 , &H49 , &H00 , &H08 , &H00 , &H26 , &H00 , &H24 , &H00 , &H46 Data &H00 , &H04 , &H00 , &HA1 , &H23 , &H00 , &H48 , &H00 , &H08 , &H00 , &H28 Data &H00 , &H28 , &H00 , &H23 , &H00 , &H25 , &H00 , &H63 , &H00 , &H68 , &H00 Data &H2F , &H00 , &H2F , &H00 , &HEC ' -- Titel #41 ---------------------------------------------------------------- Data &H21 , &H00 , &H46 , &H00 , &H08 , &H00 , &H2A , &H00 , &H1B , &H0F , &H00 Data &H6D , &H00 , &H30 , &H16 , &H0A , &H00 , &H2D , &H00 , &H2D , &H00 , &H2B Data &H00 , &H1D , &H0B , &H00 , &HEA ' -- Titel #42 ---------------------------------------------------------------- Data &H2B , &H00 , &H0D , &H00 , &H0D , &H00 , &H0D , &H00 , &H0D , &H00 , &H0D Data &H00 , &H0D , &H00 , &H0D , &H00 , &H0D , &H00 , &H2D , &H00 , &H1C , &H0A Data &H00 , &H28 , &H00 , &H30 , &H2A , &H00 , &H0A , &H00 , &H0A , &H00 , &H2C Data &H00 , &H0C , &H00 , &H0C , &H00 , &H0D , &H00 , &H0D , &H00 , &H8B ' -- Titel #43 ---------------------------------------------------------------- Data &H26 , &H00 , &H28 , &H00 , &H26 , &H00 , &H2B , &H00 , &H2A , &H00 , &H68 Data &H00 , &H26 , &H00 , &H2A , &H00 , &H2A , &H00 , &H2A , &H00 , &H2F , &H00 Data &H2D , &H00 , &H2D , &H00 , &H6B , &H00 , &H2A , &H00 , &H2A , &H00 , &H2A Data &H00 , &H2B , &H00 , &H2A , &H00 , &HE8 ' -- Titel #44 ---------------------------------------------------------------- Data &H23 , &H00 , &H48 , &H00 , &H08 , &H00 , &H28 , &H00 , &H0C , &H00 , &H0A Data &H00 , &H38 , &H25 , &H00 , &H23 , &H00 , &H28 , &H00 , &H25 , &H00 , &H21 Data &H00 , &H03 , &H00 , &H07 , &H00 , &H2A , &H00 , &HE8 ' -- Titel #45 ---------------------------------------------------------------- Data &H23 , &H00 , &H28 , &H00 , &H28 , &H00 , &H2A , &H00 , &H2F , &H00 , &H6C Data &H00 , &H2C , &H00 , &H2D , &H00 , &H2A , &H00 , &H28 , &H00 , &H2A , &H00 Data &H27 , &H00 , &HE8 ' -- Titel #46 ---------------------------------------------------------------- Data &H05 , &H00 , &H28 , &H00 , &H05 , &H00 , &H06 , &H00 , &H05 , &H00 , &H03 Data &H00 , &H21 , &H00 , &H05 , &H00 , &H05 , &H00 , &H03 , &H00 , &H01 , &H00 Data &H23 , &H00 , &H06 , &H00 , &H06 , &H00 , &H05 , &H00 , &H03 , &H00 , &H25 Data &H00 , &H08 , &H00 , &HAD ' -- Titel #47 ---------------------------------------------------------------- Data &H6C , &H00 , &H6A , &H00 , &H2D , &H00 , &H17 , &H05 , &H00 , &H23 , &H00 Data &H23 , &H00 , &H28 , &H00 , &H28 , &H00 , &H2A , &H00 , &H2A , &H00 , &HEC ' -- Titel #48 ---------------------------------------------------------------- Data &H2D , &H00 , &H2D , &H00 , &H2D , &H00 , &H28 , &H00 , &H2C , &H00 , &H0D Data &H00 , &H2A , &H00 , &H68 , &H00 , &H2D , &H00 , &H2C , &H00 , &H2A , &H00 Data &H28 , &H00 , &H2A , &H00 , &H16 , &H15 , &H23 , &H00 , &HE1 ' -- Titel #49 ---------------------------------------------------------------- Data &H01 , &H00 , &H06 , &H00 , &H08 , &H00 , &H0A , &H00 , &H0B , &H00 , &H2D Data &H00 , &H0F , &H00 , &H0B , &H00 , &H0A , &H00 , &H10 , &H08 , &H00 , &H10 Data &HA6 ' -- Titel #50 ---------------------------------------------------------------- Data &H13 , &H07 , &H00 , &H2A , &H00 , &H2A , &H00 , &H27 , &H00 , &H23 , &H00 Data &H15 , &H03 , &H00 , &H15 , &H07 , &H00 , &H25 , &H00 , &H13 , &H07 , &H00 Data &H2A , &H00 , &H2A , &H00 , &H27 , &H00 , &H23 , &H00 , &HE5 ' -- Titel #51 ---------------------------------------------------------------- Data &H03 , &H00 , &H28 , &H00 , &H08 , &H00 , &H18 , &H07 , &H00 , &H08 , &H00 Data &H2A , &H00 , &H0A , &H00 , &H2A , &H00 , &H0A , &H00 , &H2C , &H00 , &H0C Data &H00 , &H1F , &H0D , &H00 , &H0A , &H00 , &HC8 ' -- Titel #52 ---------------------------------------------------------------- Data &H0C , &H00 , &H0F , &H00 , &H0C , &H00 , &H0F , &H00 , &H0C , &H00 , &H0D Data &H00 , &H0A , &H00 , &H0D , &H00 , &H0A , &H00 , &H0C , &H00 , &H08 , &H00 Data &H0F , &H00 , &H0C , &H00 , &H0A , &H00 , &H0F , &H00 , ' -- Titel #53 ---------------------------------------------------------------- Data &H8F , &H23 , &H00 , &H2C , &H00 , &H0C , &H00 , &H0C , &H00 , &H2C , &H00 Data &H2A , &H00 , &H68 , &H00 , &H28 , &H00 , &H23 , &H00 , &H2D , &H00 , &H0D Data &H00 , &H0D , &H00 , &H0D , &H00 , &H0C , &H00 , &H0F , &H00 , &H0C , &H00 Data &HEA ' -- Titel #54 ---------------------------------------------------------------- Data &H28 , &H00 , &H2D , &H00 , &H08 , &H00 , &H05 , &H00 , &H28 , &H00 , &H06 Data &H00 , &H03 , &H00 , &H68 , &H00 , &H25 , &H00 , &H10 , &H08 , &H00 , &H28 Data &H00 , &H0A , &H00 , &H08 , &H00 , &H26 , &H00 , &H05 , &H00 , &H03 , &H00 Data &HE1 ' -- Titel #55 ---------------------------------------------------------------- Data &H46 , &H00 , &H17 , &H06 , &H00 , &H07 , &H00 , &H39 , &H0E , &H00 , &H02 Data &H00 , &H10 , &H42 , &H00 , &H17 , &H02 , &H00 , &H04 , &H00 , &H16 , &H07 Data &H00 , &H06 , &H00 , &HA4 ' -- Titel #56 ---------------------------------------------------------------- Data &H06 , &H00 , &H06 , &H00 , &H49 , &H00 , &H06 , &H00 , &H26 , &H00 , &H29 Data &H00 , &H30 , &H06 , &H00 , &H09 , &H00 , &H2E , &H00 , &H4D , &H00 , &H0B Data &H00 , &H3B , &H29 , &H00 , &H04 , &H00 , &H06 , &H00 , &H27 , &H00 , &H24 Data &H00 , &H04 , &H00 , &H06 , &H00 , &H27 , &H00 , &H30 , &H04 , &H00 , &H07 Data &H00 , &H0D , &H00 , &H0B , &H00 , &H29 , &H00 , &H2D , &H00 , &HAE ' -- Titel #57 ---------------------------------------------------------------- Data &H01 , &H00 , &H05 , &H00 , &H48 , &H00 , &H08 , &H00 , &H08 , &H00 , &H0A Data &H00 , &H0C , &H00 , &H6D , &H00 , &H28 , &H00 , &H0A , &H00 , &H08 , &H00 Data &H48 , &H00 , &H06 , &H00 , &H06 , &H00 , &H0A , &H00 , &H06 , &H00 , &HE5 ' -- Titel #58 ---------------------------------------------------------------- Data &H03 , &H00 , &H05 , &H00 , &H07 , &H00 , &H08 , &H00 , &H0A , &H00 , &H0C Data &H00 , &H2A , &H00 , &H08 , &H00 , &H05 , &H00 , &H2E , &H00 , &H0A , &H00 Data &H07 , &H00 , &HAF ' -- Titel #59 ---------------------------------------------------------------- Data &H03 , &H00 , &H07 , &H00 , &H4A , &H00 , &H0F , &H00 , &H0A , &H00 , &H07 Data &H00 , &H08 , &H00 , &H05 , &H00 , &H67 , &H00 , &H25 , &H00 , &H25 , &H00 Data &H27 , &H00 , &H07 , &H00 , &H0A , &H00 , &H28 , &H00 , &H08 , &H00 , &H0C Data &H00 , &HEA ' -- Titel #60 ---------------------------------------------------------------- Data &H03 , &H00 , &H07 , &H00 , &H4A , &H00 , &H0C , &H00 , &H2A , &H00 , &H28 Data &H00 , &H57 , &H05 , &H00 , &H23 , &H00 , &H2A , &H00 , &H2C , &H00 , &H2A Data &H00 , &H28 , &H00 , &H27 , &H00 , &HE5 ' -- Titel #61 ---------------------------------------------------------------- Data &H06 , &H00 , &H26 , &H00 , &H06 , &H00 , &H26 , &H00 , &H06 , &H00 , &H46 Data &H00 , &H23 , &H00 , &H06 , &H00 , &H2B , &H00 , &H0B , &H00 , &H2B , &H00 Data &H0B , &H00 , &H3F , &H0D , &H00 , &H1B , &H0A , &H00 , &H08 , &H00 , &H26 Data &H00 , &H06 , &H00 , &H16 , &H08 , &H00 , &H0A , &H00 , &HEB ' -- Titel #62 ---------------------------------------------------------------- Data &H0E , &H00 , &H0C , &H00 , &H2A , &H00 , &H25 , &H00 , &H25 , &H00 , &H2A Data &H00 , &H27 , &H00 , &H27 , &H00 , &H27 , &H00 , &H10 , &H0A , &H00 , &H29 Data &H00 , &H29 , &H00 , &H29 , &H00 , &H27 , &H00 , &HE5 ' -- Titel #63 ---------------------------------------------------------------- Data &H01 , &H00 , &H2A , &H00 , &H0A , &H00 , &H1A , &H08 , &H00 , &H0A , &H00 Data &H2B , &H00 , &H08 , &H00 , &H25 , &H00 , &H01 , &H00 , &H26 , &H00 , &H06 Data &H00 , &H16 , &H05 , &H00 , &H06 , &H00 , &HE8 ' -- Titel #64 ---------------------------------------------------------------- Data &H03 , &H00 , &H08 , &H00 , &H03 , &H00 , &H28 , &H00 , &H2C , &H00 , &H0A Data &H00 , &H0A , &H00 , &H08 , &H00 , &H03 , &H00 , &H08 , &H00 , &H03 , &H00 Data &H28 , &H00 , &H2C , &H00 , &H0F , &H00 , &H0F , &H00 , &H0C , &H00 , &H0A Data &H00 , &H08 , &H00 , &H0A , &H00 , &H1C , &H1F , &H0D , &H00 , &H0C , &H00 Data &H0A , &H00 , &H0A , &H00 , &HA8 ' -- Titel #65 ---------------------------------------------------------------- Data &H21 , &H00 , &H26 , &H00 , &H06 , &H00 , &H06 , &H00 , &H2A , &H00 , &H0A Data &H00 , &H0A , &H00 , &H6F , &H00 , &H6D , &H00 , &H70 , &H6D , &H00 , &H4D Data &H00 , &H0D , &H00 , &HED ' -- Titel #66 ---------------------------------------------------------------- Data &H21 , &H00 , &H26 , &H00 , &H26 , &H00 , &H08 , &H00 , &H08 , &H00 , &H2A Data &H00 , &H2A , &H00 , &H10 , &H0B , &H00 , &H2D , &H00 , &H1F , &H0D , &H00 Data &H1B , &H0A , &H00 , &H3A , &HA8 ' -- Titel #67 ---------------------------------------------------------------- Data &H03 , &H00 , &H03 , &H00 , &H28 , &H00 , &H2C , &H00 , &H0A , &H00 , &H08 Data &H00 , &H48 , &H00 , &H03 , &H00 , &H03 , &H00 , &H03 , &H00 , &H28 , &H00 Data &H2C , &H00 , &H0A , &H00 , &H08 , &H00 , ' -- Titel #68 ---------------------------------------------------------------- Data &HCA , &H2C , &H00 , &H0C , &H00 , &H0F , &H00 , &H6A , &H00 , &H2C , &H00 Data &H0C , &H00 , &H0F , &H00 , &H6A , &H00 , &H2D , &H00 , &H2D , &H00 , &H2C Data &H00 , &H2F , &H00 , &H6A , &H00 , &HA8 ' -- Ende Tabelle ------------------------------------------------------------- Data &HFF Tab_end:
Viel Spaß im Forum
MfG Peter
Rechtschreibfehler sind geistiges Eigentum des Verfassers.... wer sie findet darf sie aber behalten
Sollte möglich sein, SP in etwas anderes ändern, da reserviertes Wort, Label Vip umbenennen da bereits als Variable verwendet, 16Bit Timer1 auf 8Bit Timer1 anpasssen, Int1 als PCInt.Zitat von HPM
Kommt tatsächlich auf die vorhandene Erfahrung an, kann klappen, kann scheitern....ich beschäftige mich zwar schon einiger Zeit mit Bascom und habe auch schon etliche Kleinprojekte umgesetzt.
Hallo MagicWSmoke,
Ja... genau da liegt vermutlich das Problem! Habe Deinen Rat befolgt, funzt aber immer noch nicht.Kommt tatsächlich auf die vorhandene Erfahrung an, kann klappen, kann scheitern.
Wahrscheinlich muss ich mich mal intensiver mit der Struktur beschäftigen.
Dennoch vielen Dank für Deine Hilfe und die schnelle Antwort!
Viel Spaß im Forum
MfG Peter
Du müsstest dann dazuschreiben, ob' denn wenigstens ohne Fehlermeldung compiliert.
Außerdem aufpassen, Prescaler Timer1 des ATiny85 muss auf 256, wenn der des ATM8 auf 1 war. Außerdem, welche Bascom Version ? Soweit ich mich erinnere gab's mal Probleme bzgl. Timer0/1.
Geändert von MagicWSmoke (05.04.2012 um 18:38 Uhr)
Hallo MagicWSmoke,
entschuldige, dass ich erst heute antworte... Die Osterfeiertage haben keine Arbeiten in meiner Werkstatt zugelassen.
Um auf die Fragen, Bemerkungen zu anworten.
Bascom Version: 1.11.9.8
Deine Anmerkungen abgearbeitet, immer noch Fehlermeldungen beim Compilieren.
Error : 117 Line : 51 Unknown interrupt [PCINT1]
Error : 12 Line : 52 Unknown CONFIG parameter [1]
Hier noch mal das Listing mit Änderungen.
Code:'******************************************************************************* '* Programm für Türklingel * '******************************************************************************* '* Z80-Melodieklingel aus dem FA 4/86 S.203 mit AMTEL-AVR MEGA8 * '******************************************************************************* ' ' '************************ AUFBAU und ANSCHLÜSSE ******************************** ' _______________ ' | | ' (RESET) > | 1)RST VCC(8 | < +5V ' | | ' > | 2)PB3 PB2(7 | < SCK ; LED Sperre ' | | ' Taster > | 3)PB4 PB1(6 | < MISO ; LED Wiedergabe ' | | ' Masse > | 4)GND PB0(5 | < MOSI ; Ausgang Wiedergabe ' |_______________| ' ' '****************************** PROGRAMM ************************************* ' ' '------------------------------------------------------------------------------- ' Controller Grundeinstellung '------------------------------------------------------------------------------- $regfile = "ATtiny85.dat" ' Mega8-Deklarationen Const Quarz = 8000000 ' Quarz: 8MHz $crystal = Quarz Const Pre = 1 ' kein Vorteiler Config Timer0 = Timer , Prescale = 256 ' ergibt 43,2 kHz On Ovf0 Tim0_isr ' Define the ISR handler Config Timer1 = Timer , Prescale = Pre On Ovf1 Tim1_isr ' Define the ISR handler Enable Timer1 On Int0 Isr_int0 ' externen Interrupt 0 freigeben Config Int0 = Rising ' Interrupt bei H/L-Flanke Enable Int0 ' INT0 ein On Pcint1 Isr_int1 ' externen Interrupt 1 freigeben Config Pcint1 = Rising ' Interrupt bei H/L-Flanke Enable Pcint1 ' INT1 ein Const Reload = Int(quarz /((65535 * Pre) * 10)) ' Teiler um mit Timer1 auf 100ms-INT zu kommen Enable Interrupts ' Interrupts freigeben Config Watchdog = 2048 ' Reset nach 2048 mSec Start Watchdog ' Start Watchdog Timer '**************************************************************************** Const Tabende = 255 ' Kennzeichen für Tabellenende Const Liedende = 128 ' Kennzeichen für Liedende Const Sperrdauer = 80 ' Wartezeit für Klingelsperre '**************************************************************************** Startup: '**************************************************************************** Config Portb.0 = Output 'Wiedergabe Config Portb.1 = Output 'LED Wiedergabe Config Portb.2 = Output 'LED Takt Config Portb.4 = Input 'Taster '**************************************************************************** Led_play Alias Portb.1 ' LED Wiedergabe Led_sperre Alias Portb.2 ' LED Takt Speaker Alias Portb.0 ' Tonausgang '**************************************************************************** 'Variablen Dim Sperre As Byte ' Sperrcounter Dim Scounter As Byte ' zählt für 100ms Dim Lcounter As Byte ' Tonausgabecounter Dim Freq As Byte ' Reloadwert für Tonausgabefrequenz Dim A As Byte ' aktuelles Datenbyte Dim Dauer As Byte ' extrahierte Tondauer Dim Ton As Byte ' extrahierte Tonhöhe Dim Zeit As Byte ' Zähler für Tondauer Dim Adresse As Integer ' Zeiger auf Note Dim Adr_temp As Integer ' Temp-Zeiger auf Note Dim Led As Bit ' LED-Buffer Dim Lp As Bit ' LP-Pin-Buffer Dim Vip As Bit ' VIP-Kennzeichnung Dim Run As Bit ' Flag zum Start '**************************************************************************** Reset Run ' Halt Reset Vip ' kein VIP Freq = 255 ' kein Ton Set Led_play ' Play aus Reset Led_sperre ' Sperre an Set Speaker ' LP stromlos Sperre = 0 ' Sperre aus Scounter = Reload ' 100 ms-Zähler auf Startwert Adresse = Loadlabel(songs) ' Zeiger auf Tebellenanfang Main: ' Hauptschleife While Run = 0 ' Warten auf Run-Flag Wend ' wird nur durch INT0/1 gesetzt ! Reset Run ' gleich wieder aus... Disable Int0 ' Pegelwechsel auf INT0 darf nicht mehr stören Disable Pcint1 ' Pegelwechsel auf INT1 darf nicht mehr stören Stop Watchdog ' Watchdog anhalten Reset Led_play ' Play an Adr_temp = Adresse ' Adresse für alle Fälle retten If Vip = 1 Then Adresse = Loadlabel(vip) ' bei VIP Zeiger auf VIP-Lied '-------------------------------------------------------------------------- Do ' Schleife Lied abspielen A = Cpeek(adresse) ' Datenbyte lesen If Adresse < Loadlabel(tab_end) Then Adresse = Adresse + 1 ' Zeiger++ Ton = A And &B0000_1111 ' Tonhöhe holen Dauer = A And &B0111_0000 ' Tondauer abschneiden... Shift Dauer , Right , 4 ' ...und durch 16 Gosub Tonausgabe ' Tonausgabe Loop Until A > 127 ' solange bis Bit .7 = 1, also Liedende '-------------------------------------------------------------------------- If Vip = 0 Then ' wenn kein VIP, dann... A = Cpeek(adresse) ' nach dem nächsten Byte schauen If A = Tabende Then Adresse = Loadlabel(songs) ' Tabellenende ? Sperre = Sperrdauer ' Sperre Setzen Disable Pcint1 ' INT1 aus Reset Led_sperre ' LED Sperre an Else ' bei VIP Adresse = Adr_temp ' Zeiger wieder auf alten Song und... If Sperre = 0 Then Enable Pcint1 ' ... INT1 freigeben falls Sperre = 0 End If Set Led_play ' Play aus Enable Int0 ' INT0 an Start Watchdog ' Wachhund scharf Reset Run ' Run nochmal stoppen Goto Main ' und wieder von vorn... End '**************************************************************************** Isr_int1: ' normaler Klingeleingang '**************************************************************************** Reset Vip ' kein VIP Set Run ' Start ... Return '**************************************************************************** Isr_int0: ' VIP-Klingel (Gartentor) '**************************************************************************** Set Vip ' VIP Set Run ' Start ... Return '**************************************************************************** Tim1_isr: ' Timer1-ISR '**************************************************************************** If Scounter > 0 Then ' Per Zählvariable eine 100ms-Funktion machen Scounter = Scounter - 1 Else Scounter = Reload ' Reloadwert für 100ms Gosub 100ms ' Funktion 100ms End If Reset Watchdog ' Wachhund rücksetzen Return '**************************************************************************** 100ms: '**************************************************************************** ' --- Zähler für Tondauer handeln ---------------------- If Zeit > 0 Then Zeit = Zeit - 1 Else Disable Timer0 ' wenn abgelaufen dann Ton aus durch 'Timer0 Aus Set Speaker End If ' --- Zähler für Sperrzeit von INT1 handeln ------------ If Sperre > 0 Then Sperre = Sperre - 1 Else Set Led_sperre ' LED Sperre aus Enable Pcint1 ' INT1 wieder freigeben End If Return '**************************************************************************** Tim0_isr: ' Timer0-ISR '**************************************************************************** If Lcounter > 0 Then Lcounter = Lcounter - 1 Else Lcounter = Freq ' Reloadwert Gosub Lp_out ' Funktion Lp_out End If Return '**************************************************************************** Lp_out: ' Timer1-ISR '**************************************************************************** Lp = Lp Xor 1 ' Bit invertieren If Freq = 255 Then Set Speaker Else Speaker = Lp ' Ausgabe, wenn ' keine Pause Return '**************************************************************************** Tonausgabe: '**************************************************************************** Freq = Lookup(ton , Tab_ton) ' Reloadwert für Frequenz holen Zeit = Dauer + 1 ' Tondauer in den Counter Stop Timer1 ' Stop TIMER1, um... Disable Timer1 '= 0 ' ...Timer1 auf 0 zurück zu setzen, damit... Start Timer1 ' ...alle Achtelnoten gleichlang sind -> Start Enable Timer0 ' Timer 0 und damit Tonerzeugung freigeben While Zeit > 0 ' warten, bis der Achtelnotenzähler = 0 Wend Set Speaker ' Lautsprecher stromlos machen Return '**************************************************************************** ' Daten '**************************************************************************** ' Tab_ton: ' Data 255 , 80 , 76 , 72 , 68 , 64 , 60 , 57 , 54 , 51 , 48 , 45 , 43 , 40 , 38 , 36 ' 'Aufbau eines Liedbytes: 'Bit '7 6 5 4 3 2 1 0 '| |__|__| |__|__|__|_ Tonhöhe ( 1..15 (G..B') incl. aller Halbtonschritte '| | wenn 0, kein Ton sondern Pause '| | '| |________________ Tonlänge in Achtelnoten '| '|______________________ Stop-Bit ' 'Grundidee und Tonformat von Steffen Lehmann "Eine Melodieklingel mit vielen Melodien" '[eine Schaltung mit einem Z80] 'Zeitschrift "Funkamateur" 4/86 S. 203 ' Songs: ' -- Titel #1 ----------------------------------------------------------------- Data &H03 , &H00 , &H05 , &H00 , &H07 , &H00 , &H08 , &H00 , &H0A , &H00 , &H0C Data &H00 , &H3A , &H08 , &H00 , &H05 , &H00 , &H3E , &H0A , &H00 , &H07 , &H00 Data &HAF ' -- Titel #2 ----------------------------------------------------------------- Data &H35 , &H00 , &H2A , &H00 , &H02 , &H05 , &H10 , &H05 , &H10 , &H85 ' -- Titel #3 ----------------------------------------------------------------- Data &H03 , &H00 , &H05 , &H00 , &H37 , &H3A , &H0E , &H20 , &H1C , &H10 Data &H2C , &H00 , &HA7 ' -- Titel #4 ----------------------------------------------------------------- Data &H47 , &H00 , &H06 , &H00 , &H07 , &H00 , &H0F , &H00 , &H07 , &H00 , &H0E Data &H00 , &H0C , &H20 , &H0C , &H20 , &H9C ' -- Titel #5 ----------------------------------------------------------------- Data &H0A , &H00 , &H2F , &H10 , &H1E , &H10 , &H0C , &H0A , &H10 , &HA7 ' -- Titel #6 ----------------------------------------------------------------- Data &H53 , &H17 , &H3A , &H3F , &H3C , &H1F , &H1C , &HBA ' -- Titel #7 ----------------------------------------------------------------- Data &H13 , &H20 , &H15 , &H20 , &H17 , &H00 , &H1A , &H1C , &H00 , &H1A , &H1F Data &H20 , &H1C , &H20 , &H1A , &HB7 ' -- Titel #8 ----------------------------------------------------------------- Data &H17 , &H18 , &H3A , &H27 , &H00 , &H27 , &H00 , &H37 , &H95 ' -- Titel #9 ----------------------------------------------------------------- Data &H33 , &H08 , &H00 , &H0A , &H00 , &H3C , &H3F , &H3C , &H3A , &HB8 ' -- Titel #10 ---------------------------------------------------------------- Data &H48 , &H00 , &H0A , &H00 , &H08 , &H00 , &H06 , &H00 , &H25 , &H00 , &H21 Data &H00 , &HB1 ' -- Titel #11 ---------------------------------------------------------------- Data &H45 , &H00 , &H03 , &H00 , &H02 , &H00 , &H05 , &H00 , &H0A , &H00 , &H0C Data &H00 , &H5E , &H10 , &HBA ' -- Titel #12 ---------------------------------------------------------------- Data &H0A , &H00 , &H08 , &H00 , &H0A , &H00 , &H08 , &H00 , &H07 , &H20 , &HB3 ' -- Titel #13 ---------------------------------------------------------------- Data &H03 , &H00 , &H03 , &H00 , &H25 , &H00 , &H23 , &H00 , &H28 , &H00 , &H47 Data &H20 , &H03 , &H00 , &H03 , &H00 , &H25 , &H00 , &H23 , &H00 , &H2A , &H00 Data &HC8 ' -- Titel #14 ---------------------------------------------------------------- Data &H46 , &H00 , &H14 , &H13 , &H14 , &H36 , &H3F , &H3B , &HA6 ' -- Titel #15 ---------------------------------------------------------------- Data &H15 , &H12 , &H50 , &H12 , &H23 , &H15 , &H0E , &H20 , &H0E , &H20 , &HBA ' -- Titel #16 ---------------------------------------------------------------- Data &H28 , &H00 , &H03 , &H00 , &H23 , &H10 , &H38 , &H00 , &H25 , &H00 , &H05 Data &H00 , &H25 , &H40 , &H27 , &H00 , &H08 , &H00 , &H2A , &H10 , &H27 , &H10 Data &H28 , &H00 , &H0C , &H00 , &HB8 ' -- Titel #17 ---------------------------------------------------------------- Data &H4A , &H00 , &H07 , &H10 , &H0A , &H10 , &H07 , &H10 , &H0A , &H10 , &H08 Data &H10 , &HA8 ' -- Titel #18 ---------------------------------------------------------------- Data &H0C , &H00 , &H0B , &H00 , &H0C , &H20 , &H0C , &H00 , &H0B , &H00 , &H0C Data &H20 , &H0C , &H00 , &H0B , &H00 , &H0C , &H20 , &H0A , &H20 , &H98 ' -- Titel #19 ---------------------------------------------------------------- Data &H03 , &H00 , &H03 , &H00 , &H28 , &H00 , &H2C , &H00 , &H08 , &H00 , &H08 Data &H00 , &H2A , &H00 , &H2D , &H00 , &H03 , &H00 , &H07 , &H00 , &H3A , &H00 Data &H0C , &H00 , &H2A , &H00 , &HA8 ' -- Titel #20 ---------------------------------------------------------------- Data &H03 , &H00 , &H05 , &H00 , &H27 , &H00 , &H07 , &H00 , &H0A , &H00 , &H28 Data &H00 , &H08 , &H00 , &H0C , &H00 , &H1A , &H00 , &H0C , &H0A , &H00 , &H08 Data &H00 , &HA7 ' -- Titel #21 ---------------------------------------------------------------- Data &H21 , &H00 , &H46 , &H00 , &H08 , &H00 , &H0B , &H00 , &H0A , &H00 , &H08 Data &H00 , &H2D , &H00 , &HAD ' -- Titel #22 ---------------------------------------------------------------- Data &H28 , &H00 , &H4D , &H00 , &H08 , &H00 , &H25 , &H00 , &H26 , &H00 , &H48 Data &H00 , &H0A , &H00 , &HA8 ' -- Titel #23 ---------------------------------------------------------------- Data &H23 , &H00 , &H4F , &H00 , &H0E , &H00 , &H2F , &H00 , &H2C , &H00 , &H4D Data &H00 , &H0C , &H00 , &H2D , &H00 , &H27 , &H00 , &H0A , &H00 , &H18 , &H6A Data &H00 , &H6A , &H00 , &H0A , &H00 , &H3C , &H30 , &H0A , &H00 , &H2C , &H00 Data &H0A , &H00 , &H0C , &H00 , &H2A , &H00 , &H09 , &H00 , &HB8 ' -- Titel #24 ---------------------------------------------------------------- Data &H0C , &H20 , &H2A , &H20 , &H07 , &H00 , &H05 , &H00 , &H03 , &H00 , &H2C Data &H00 , &H2B , &H00 , &HAC ' -- Titel #25 ---------------------------------------------------------------- Data &H07 , &H00 , &H05 , &H00 , &H03 , &H00 , &H05 , &H00 , &H07 , &H00 , &H05 Data &H00 , &H03 , &H00 , &H05 , &H00 , &H27 , &H00 , &H0C , &H20 , &H27 , &H00 Data &H8C ' -- Titel #26 ---------------------------------------------------------------- Data &H03 , &H00 , &H05 , &H00 , &H27 , &H00 , &H27 , &H00 , &H08 , &H00 , &H05 Data &H00 , &H1C , &H0A , &H00 , &HAA Vip: ' -- Titel #27 ---------------------------------------------------------------- Data &H23 , &H00 , &H03 , &H00 , &H07 , &H00 , &H2A , &H00 , &H2A , &H00 , &H2A Data &H00 , &H0C , &H00 , &H0A , &H00 , &H27 , &H00 , &HA3 , ' -- Titel #28 ---------------------------------------------------------------- Data &H3F , &H3E , &H3C , &H3A , &H3C , &H18 , &H17 , &H25 , &H00 , &HA3 ' -- Titel #29 ---------------------------------------------------------------- Data &H00 , &H23 , &H00 , &H48 , &H00 , &H03 , &H00 , &H28 , &H00 , &H0C , &H00 Data &H0C , &H00 , &H68 , &H00 , &H23 , &H00 , &H08 , &H00 , &H0C , &H00 , &H2A Data &H00 , &H23 , &H00 , &H23 , &H00 , &H05 , &H00 , &H07 , &H00 , &HE8 ' -- Titel #30 ---------------------------------------------------------------- Data &H03 , &H00 , &H23 , &H00 , &H07 , &H00 , &H2A , &H00 , &H0F , &H00 , &H4A Data &H00 , &H27 , &H00 , &H03 , &H00 , &H25 , &H00 , &H05 , &H00 , &H15 , &H07 Data &H00 , &H05 , &H00 , &HC3 ' -- Titel #31 ---------------------------------------------------------------- Data &H6F , &H00 , &H2C , &H00 , &H28 , &H00 , &H2C , &H00 , &H2F , &H00 , &H3F Data &H2D , &H00 , &H2A , &H00 , &H30 , &H28 , &H00 , &H08 , &H00 , &H08 , &H00 Data &H28 , &H00 , &H28 , &H00 , &H28 , &H00 , &H08 , &H00 , &H08 , &H00 , &H2A Data &H00 , &H07 , &H00 , &H05 , &H00 , &H23 , &H00 , &H30 , &H6F , &H00 , &H2C Data &H00 , &H28 , &H00 , &H2C , &H00 , &H2F , &H00 , &H3F , &H2D , &H00 , &HAA ' -- Titel #32 ---------------------------------------------------------------- Data &H00 , &H2A , &H00 , &H2E , &H00 , &H2C , &H00 , &H10 , &H05 , &H00 , &H07 Data &H00 , &H05 , &H00 , &H07 , &H00 , &H09 , &H00 , &HAA ' -- Titel #33 ---------------------------------------------------------------- Data &H03 , &H00 , &H03 , &H00 , &H07 , &H00 , &H2A , &H00 , &H2A , &H00 , &H2C Data &H00 , &H2A , &H00 , &H10 , &H08 , &H00 , &H07 , &H00 , &H05 , &H00 , &H13 Data &H07 , &H00 , &H1A , &H07 , &H00 , &HE5 ' -- Titel #34 ---------------------------------------------------------------- Data &H25 , &H00 , &H4A , &H00 , &H0C , &H00 , &H2C , &H00 , &H2C , &H00 , &H6A Data &H00 , &H29 , &H00 , &H2A , &H00 , &H1C , &H0E , &H00 , &H2F , &H00 , &H1E Data &H0C , &H00 , &H2A , &H00 , &HEC ' -- Titel #35 ---------------------------------------------------------------- Data &H03 , &H00 , &H07 , &H00 , &H2A , &H00 , &H07 , &H00 , &H05 , &H00 , &H23 Data &H00 , &H25 , &H00 , &H25 , &H00 , &H23 , &H00 , &H10 , &H0A , &H00 , &H0C Data &H00 , &H0A , &H00 , &H0C , &H00 , &H0E , &H00 , &H2F , &H00 , &H2E , &H00 Data &H2C , &H00 , &HAA ' -- Titel #36 ---------------------------------------------------------------- Data &H26 , &H00 , &H2A , &H00 , &H2D , &H00 , &H28 , &H00 , &H08 , &H00 , &H05 Data &H00 , &H21 , &H00 , &H26 , &H00 , &H2A , &H00 , &H2D , &H00 , &HE8 ' -- Titel #37 ---------------------------------------------------------------- Data &H03 , &H00 , &H07 , &H00 , &H07 , &H00 , &H2A , &H00 , &H2A , &H00 , &H27 Data &H00 , &H23 , &H00 , &H05 , &H00 , &H03 , &H00 , &H05 , &H00 , &H07 , &H00 Data &H25 , &H00 , &H03 , &H00 , &H07 , &H00 , &H2A , &H00 , &H2A , &H00 , &H27 Data &H00 , &H23 , &H00 , &HE5 ' -- Titel #38 ---------------------------------------------------------------- Data &H06 , &H00 , &H06 , &H00 , &H2B , &H00 , &H2B , &H00 , &H0F , &H00 , &H0B Data &H00 , &HE6 ' -- Titel #39 ---------------------------------------------------------------- Data &H12 , &H05 , &H00 , &H1A , &H02 , &H00 , &H25 , &H00 , &H23 , &H00 , &H27 Data &H00 , &H27 , &H00 , &H15 , &H09 , &H00 , &H1C , &H0F , &H00 , &H1E , &H0C Data &H00 , &HEA ' -- Titel #40 ---------------------------------------------------------------- Data &H24 , &H00 , &H49 , &H00 , &H08 , &H00 , &H26 , &H00 , &H24 , &H00 , &H46 Data &H00 , &H04 , &H00 , &HA1 , &H23 , &H00 , &H48 , &H00 , &H08 , &H00 , &H28 Data &H00 , &H28 , &H00 , &H23 , &H00 , &H25 , &H00 , &H63 , &H00 , &H68 , &H00 Data &H2F , &H00 , &H2F , &H00 , &HEC ' -- Titel #41 ---------------------------------------------------------------- Data &H21 , &H00 , &H46 , &H00 , &H08 , &H00 , &H2A , &H00 , &H1B , &H0F , &H00 Data &H6D , &H00 , &H30 , &H16 , &H0A , &H00 , &H2D , &H00 , &H2D , &H00 , &H2B Data &H00 , &H1D , &H0B , &H00 , &HEA ' -- Titel #42 ---------------------------------------------------------------- Data &H2B , &H00 , &H0D , &H00 , &H0D , &H00 , &H0D , &H00 , &H0D , &H00 , &H0D Data &H00 , &H0D , &H00 , &H0D , &H00 , &H0D , &H00 , &H2D , &H00 , &H1C , &H0A Data &H00 , &H28 , &H00 , &H30 , &H2A , &H00 , &H0A , &H00 , &H0A , &H00 , &H2C Data &H00 , &H0C , &H00 , &H0C , &H00 , &H0D , &H00 , &H0D , &H00 , &H8B ' -- Titel #43 ---------------------------------------------------------------- Data &H26 , &H00 , &H28 , &H00 , &H26 , &H00 , &H2B , &H00 , &H2A , &H00 , &H68 Data &H00 , &H26 , &H00 , &H2A , &H00 , &H2A , &H00 , &H2A , &H00 , &H2F , &H00 Data &H2D , &H00 , &H2D , &H00 , &H6B , &H00 , &H2A , &H00 , &H2A , &H00 , &H2A Data &H00 , &H2B , &H00 , &H2A , &H00 , &HE8 ' -- Titel #44 ---------------------------------------------------------------- Data &H23 , &H00 , &H48 , &H00 , &H08 , &H00 , &H28 , &H00 , &H0C , &H00 , &H0A Data &H00 , &H38 , &H25 , &H00 , &H23 , &H00 , &H28 , &H00 , &H25 , &H00 , &H21 Data &H00 , &H03 , &H00 , &H07 , &H00 , &H2A , &H00 , &HE8 ' -- Titel #45 ---------------------------------------------------------------- Data &H23 , &H00 , &H28 , &H00 , &H28 , &H00 , &H2A , &H00 , &H2F , &H00 , &H6C Data &H00 , &H2C , &H00 , &H2D , &H00 , &H2A , &H00 , &H28 , &H00 , &H2A , &H00 Data &H27 , &H00 , &HE8 ' -- Titel #46 ---------------------------------------------------------------- Data &H05 , &H00 , &H28 , &H00 , &H05 , &H00 , &H06 , &H00 , &H05 , &H00 , &H03 Data &H00 , &H21 , &H00 , &H05 , &H00 , &H05 , &H00 , &H03 , &H00 , &H01 , &H00 Data &H23 , &H00 , &H06 , &H00 , &H06 , &H00 , &H05 , &H00 , &H03 , &H00 , &H25 Data &H00 , &H08 , &H00 , &HAD ' -- Titel #47 ---------------------------------------------------------------- Data &H6C , &H00 , &H6A , &H00 , &H2D , &H00 , &H17 , &H05 , &H00 , &H23 , &H00 Data &H23 , &H00 , &H28 , &H00 , &H28 , &H00 , &H2A , &H00 , &H2A , &H00 , &HEC ' -- Titel #48 ---------------------------------------------------------------- Data &H2D , &H00 , &H2D , &H00 , &H2D , &H00 , &H28 , &H00 , &H2C , &H00 , &H0D Data &H00 , &H2A , &H00 , &H68 , &H00 , &H2D , &H00 , &H2C , &H00 , &H2A , &H00 Data &H28 , &H00 , &H2A , &H00 , &H16 , &H15 , &H23 , &H00 , &HE1 ' -- Titel #49 ---------------------------------------------------------------- Data &H01 , &H00 , &H06 , &H00 , &H08 , &H00 , &H0A , &H00 , &H0B , &H00 , &H2D Data &H00 , &H0F , &H00 , &H0B , &H00 , &H0A , &H00 , &H10 , &H08 , &H00 , &H10 Data &HA6 ' -- Titel #50 ---------------------------------------------------------------- Data &H13 , &H07 , &H00 , &H2A , &H00 , &H2A , &H00 , &H27 , &H00 , &H23 , &H00 Data &H15 , &H03 , &H00 , &H15 , &H07 , &H00 , &H25 , &H00 , &H13 , &H07 , &H00 Data &H2A , &H00 , &H2A , &H00 , &H27 , &H00 , &H23 , &H00 , &HE5 ' -- Titel #51 ---------------------------------------------------------------- Data &H03 , &H00 , &H28 , &H00 , &H08 , &H00 , &H18 , &H07 , &H00 , &H08 , &H00 Data &H2A , &H00 , &H0A , &H00 , &H2A , &H00 , &H0A , &H00 , &H2C , &H00 , &H0C Data &H00 , &H1F , &H0D , &H00 , &H0A , &H00 , &HC8 ' -- Titel #52 ---------------------------------------------------------------- Data &H0C , &H00 , &H0F , &H00 , &H0C , &H00 , &H0F , &H00 , &H0C , &H00 , &H0D Data &H00 , &H0A , &H00 , &H0D , &H00 , &H0A , &H00 , &H0C , &H00 , &H08 , &H00 Data &H0F , &H00 , &H0C , &H00 , &H0A , &H00 , &H0F , &H00 , ' -- Titel #53 ---------------------------------------------------------------- Data &H8F , &H23 , &H00 , &H2C , &H00 , &H0C , &H00 , &H0C , &H00 , &H2C , &H00 Data &H2A , &H00 , &H68 , &H00 , &H28 , &H00 , &H23 , &H00 , &H2D , &H00 , &H0D Data &H00 , &H0D , &H00 , &H0D , &H00 , &H0C , &H00 , &H0F , &H00 , &H0C , &H00 Data &HEA ' -- Titel #54 ---------------------------------------------------------------- Data &H28 , &H00 , &H2D , &H00 , &H08 , &H00 , &H05 , &H00 , &H28 , &H00 , &H06 Data &H00 , &H03 , &H00 , &H68 , &H00 , &H25 , &H00 , &H10 , &H08 , &H00 , &H28 Data &H00 , &H0A , &H00 , &H08 , &H00 , &H26 , &H00 , &H05 , &H00 , &H03 , &H00 Data &HE1 ' -- Titel #55 ---------------------------------------------------------------- Data &H46 , &H00 , &H17 , &H06 , &H00 , &H07 , &H00 , &H39 , &H0E , &H00 , &H02 Data &H00 , &H10 , &H42 , &H00 , &H17 , &H02 , &H00 , &H04 , &H00 , &H16 , &H07 Data &H00 , &H06 , &H00 , &HA4 ' -- Titel #56 ---------------------------------------------------------------- Data &H06 , &H00 , &H06 , &H00 , &H49 , &H00 , &H06 , &H00 , &H26 , &H00 , &H29 Data &H00 , &H30 , &H06 , &H00 , &H09 , &H00 , &H2E , &H00 , &H4D , &H00 , &H0B Data &H00 , &H3B , &H29 , &H00 , &H04 , &H00 , &H06 , &H00 , &H27 , &H00 , &H24 Data &H00 , &H04 , &H00 , &H06 , &H00 , &H27 , &H00 , &H30 , &H04 , &H00 , &H07 Data &H00 , &H0D , &H00 , &H0B , &H00 , &H29 , &H00 , &H2D , &H00 , &HAE ' -- Titel #57 ---------------------------------------------------------------- Data &H01 , &H00 , &H05 , &H00 , &H48 , &H00 , &H08 , &H00 , &H08 , &H00 , &H0A Data &H00 , &H0C , &H00 , &H6D , &H00 , &H28 , &H00 , &H0A , &H00 , &H08 , &H00 Data &H48 , &H00 , &H06 , &H00 , &H06 , &H00 , &H0A , &H00 , &H06 , &H00 , &HE5 ' -- Titel #58 ---------------------------------------------------------------- Data &H03 , &H00 , &H05 , &H00 , &H07 , &H00 , &H08 , &H00 , &H0A , &H00 , &H0C Data &H00 , &H2A , &H00 , &H08 , &H00 , &H05 , &H00 , &H2E , &H00 , &H0A , &H00 Data &H07 , &H00 , &HAF ' -- Titel #59 ---------------------------------------------------------------- Data &H03 , &H00 , &H07 , &H00 , &H4A , &H00 , &H0F , &H00 , &H0A , &H00 , &H07 Data &H00 , &H08 , &H00 , &H05 , &H00 , &H67 , &H00 , &H25 , &H00 , &H25 , &H00 Data &H27 , &H00 , &H07 , &H00 , &H0A , &H00 , &H28 , &H00 , &H08 , &H00 , &H0C Data &H00 , &HEA ' -- Titel #60 ---------------------------------------------------------------- Data &H03 , &H00 , &H07 , &H00 , &H4A , &H00 , &H0C , &H00 , &H2A , &H00 , &H28 Data &H00 , &H57 , &H05 , &H00 , &H23 , &H00 , &H2A , &H00 , &H2C , &H00 , &H2A Data &H00 , &H28 , &H00 , &H27 , &H00 , &HE5 ' -- Titel #61 ---------------------------------------------------------------- Data &H06 , &H00 , &H26 , &H00 , &H06 , &H00 , &H26 , &H00 , &H06 , &H00 , &H46 Data &H00 , &H23 , &H00 , &H06 , &H00 , &H2B , &H00 , &H0B , &H00 , &H2B , &H00 Data &H0B , &H00 , &H3F , &H0D , &H00 , &H1B , &H0A , &H00 , &H08 , &H00 , &H26 Data &H00 , &H06 , &H00 , &H16 , &H08 , &H00 , &H0A , &H00 , &HEB ' -- Titel #62 ---------------------------------------------------------------- Data &H0E , &H00 , &H0C , &H00 , &H2A , &H00 , &H25 , &H00 , &H25 , &H00 , &H2A Data &H00 , &H27 , &H00 , &H27 , &H00 , &H27 , &H00 , &H10 , &H0A , &H00 , &H29 Data &H00 , &H29 , &H00 , &H29 , &H00 , &H27 , &H00 , &HE5 ' -- Titel #63 ---------------------------------------------------------------- Data &H01 , &H00 , &H2A , &H00 , &H0A , &H00 , &H1A , &H08 , &H00 , &H0A , &H00 Data &H2B , &H00 , &H08 , &H00 , &H25 , &H00 , &H01 , &H00 , &H26 , &H00 , &H06 Data &H00 , &H16 , &H05 , &H00 , &H06 , &H00 , &HE8 ' -- Titel #64 ---------------------------------------------------------------- Data &H03 , &H00 , &H08 , &H00 , &H03 , &H00 , &H28 , &H00 , &H2C , &H00 , &H0A Data &H00 , &H0A , &H00 , &H08 , &H00 , &H03 , &H00 , &H08 , &H00 , &H03 , &H00 Data &H28 , &H00 , &H2C , &H00 , &H0F , &H00 , &H0F , &H00 , &H0C , &H00 , &H0A Data &H00 , &H08 , &H00 , &H0A , &H00 , &H1C , &H1F , &H0D , &H00 , &H0C , &H00 Data &H0A , &H00 , &H0A , &H00 , &HA8 ' -- Titel #65 ---------------------------------------------------------------- Data &H21 , &H00 , &H26 , &H00 , &H06 , &H00 , &H06 , &H00 , &H2A , &H00 , &H0A Data &H00 , &H0A , &H00 , &H6F , &H00 , &H6D , &H00 , &H70 , &H6D , &H00 , &H4D Data &H00 , &H0D , &H00 , &HED ' -- Titel #66 ---------------------------------------------------------------- Data &H21 , &H00 , &H26 , &H00 , &H26 , &H00 , &H08 , &H00 , &H08 , &H00 , &H2A Data &H00 , &H2A , &H00 , &H10 , &H0B , &H00 , &H2D , &H00 , &H1F , &H0D , &H00 Data &H1B , &H0A , &H00 , &H3A , &HA8 ' -- Titel #67 ---------------------------------------------------------------- Data &H03 , &H00 , &H03 , &H00 , &H28 , &H00 , &H2C , &H00 , &H0A , &H00 , &H08 Data &H00 , &H48 , &H00 , &H03 , &H00 , &H03 , &H00 , &H03 , &H00 , &H28 , &H00 Data &H2C , &H00 , &H0A , &H00 , &H08 , &H00 , ' -- Titel #68 ---------------------------------------------------------------- Data &HCA , &H2C , &H00 , &H0C , &H00 , &H0F , &H00 , &H6A , &H00 , &H2C , &H00 Data &H0C , &H00 , &H0F , &H00 , &H6A , &H00 , &H2D , &H00 , &H2D , &H00 , &H2C Data &H00 , &H2F , &H00 , &H6A , &H00 , &HA8 ' -- Ende Tabelle ------------------------------------------------------------- Data &HFF Tab_end:
Ich würde sagen, um an die anfängliche Diskussion anzuknüpfen, ich lasse lieber die Finger davon!
Das ist mir aller zu undurchsichtig, um überhaupt eine annährende Fehlersuche selbst zu betreiben.
Ich werde den M8 einsetzen, der ist zwar bedeutend größer, da läuft aber das Programm wenigstens.
Dennoch vielen Dank für Deine Hilfe.
Geändert von HPM (12.04.2012 um 16:58 Uhr)
Viel Spaß im Forum
MfG Peter
Bitte, kein Problem.
Du solltest Dir dennoch 'ne neuere Version besorgen, da Deine Version noch Fehler für den ATiny85 aufweist, z.B. lässt sich der Timer1 nicht stoppen, Timer1 = x geht auch nicht. Hätte man allerdings umgehen können. Von der Anforderung her würd' ich immer noch sagen, dass es mit dem Tiny85 funktioniert hätte, da Timer1 im gezeigten Code nur ein Zeitgeber ist und man den einfach durch ändern des Prescalers hätte anpassen können.
Der Grund für die Dir angezeigten Compilerfehler ist die falsche Verwendung der Pinchange-Ints, es gibt beim Tiny85 nur einen Interruptvektor PCINT0, der für alle im Controller verfügbaren PCInts zuständig ist, welche davon aktiv sind muss man über PCMSK angeben und ein Rising/Falling gibt's da auch nicht, das muss man in der ISR selbst austüfteln.
Das Datenblatt sagt Dir Näheres dazu.
Berechtigungen
Zitieren
Lesezeichen