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

**HPM** · 12.04.2012, 15: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

Klicke auf die Grafik für eine größere Ansicht

Name: Ver.GIF
Hits: 7
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.