-
        

Ergebnis 1 bis 6 von 6

Thema: Projekt "Türklingel" von Mega8 auf Tiny85 umschreiben?

  1. #1
    Benutzer Stammmitglied
    Registriert seit
    16.02.2005
    Ort
    D-98746
    Beiträge
    75

    Frage Projekt "Türklingel" von Mega8 auf Tiny85 umschreiben?

    Anzeige

    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:

  2. #2
    Erfahrener Benutzer Roboter-Spezialist
    Registriert seit
    01.10.2009
    Beiträge
    437
    Zitat Zitat von HPM Beitrag anzeigen
    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.

  3. #3
    Benutzer Stammmitglied
    Registriert seit
    16.02.2005
    Ort
    D-98746
    Beiträge
    75
    Hallo 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!

  4. #4
    Erfahrener Benutzer Roboter-Spezialist
    Registriert seit
    01.10.2009
    Beiträge
    437
    Zitat Zitat von HPM Beitrag anzeigen
    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.
    Geändert von MagicWSmoke (05.04.2012 um 18:38 Uhr)

  5. #5
    Benutzer Stammmitglied
    Registriert seit
    16.02.2005
    Ort
    D-98746
    Beiträge
    75
    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
    Klicke auf die Grafik für eine größere Ansicht

Name:	Ver.GIF
Hits:	6
Größe:	9,4 KB
ID:	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.
    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)

  6. #6
    Erfahrener Benutzer Roboter-Spezialist
    Registriert seit
    01.10.2009
    Beiträge
    437
    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.

Ähnliche Themen

  1. Sehr schönes Projekt -> "Open Servo"
    Von Andree-HB im Forum Motoren
    Antworten: 8
    Letzter Beitrag: 26.01.2016, 12:57
  2. Programiersprache für "Robotorartiges Projekt" gesucht
    Von Involut im Forum Vorstellung+Bilder+Ideen zu geplanten eigenen Projekten/Bots
    Antworten: 13
    Letzter Beitrag: 28.05.2011, 15:33
  3. "if"-Operation wie umschreiben?
    Von G4nd41f im Forum PIC Controller
    Antworten: 4
    Letzter Beitrag: 27.10.2008, 22:14
  4. Suche "E-Mail Hilfe" für Tauchroboter Projekt
    Von Jig im Forum Allgemeines zum Thema Roboter / Modellbau
    Antworten: 3
    Letzter Beitrag: 14.11.2007, 02:14
  5. Antworten: 29
    Letzter Beitrag: 20.06.2007, 10:36

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •