PDA

Archiv verlassen und diese Seite im Standarddesign anzeigen : Projekt "Türklingel" von Mega8 auf Tiny85 umschreiben?


HPM
05.04.2012, 11:36
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.




'* 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:
MagicWSmoke
05.04.2012, 13:30
Meine Frage: Ist es überhaupt möglich das unten stehende Programm lauffähig in den Tiny85 unter zu kriegen?
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.

...ich beschäftige mich zwar schon einiger Zeit mit Bascom und habe auch schon etliche Kleinprojekte umgesetzt.
Kommt tatsächlich auf die vorhandene Erfahrung an, kann klappen, kann scheitern.
HPM
05.04.2012, 17:54
Hallo MagicWSmoke (https://www.roboternetz.de/community/members/42327-MagicWSmoke),


Kommt tatsächlich auf die vorhandene Erfahrung an, kann klappen, kann scheitern.
Ja... genau da liegt vermutlich das Problem! Habe Deinen Rat befolgt, funzt aber immer noch nicht.
Wahrscheinlich muss ich mich mal intensiver mit der Struktur beschäftigen.

Dennoch vielen Dank für Deine Hilfe und die schnelle Antwort!
MagicWSmoke
05.04.2012, 18:06
Habe Deinen Rat befolgt, funzt aber immer noch nicht.
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.
HPM
12.04.2012, 16:47
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
22112

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.


'************************************************* ******************************
'* 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.
MagicWSmoke
12.04.2012, 17:28
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.