Skyliner mit Mega8 - Int0 Probleme

Moin moin,

ich versuche momentan meinen code für einen Skyliner (ähnlich
Propellerclock) zum laufen zu bringen.

Ich will über eine 3x4 Tastatur Buchstaben eingeben und diese in ein
Array speichern.
Dann will ich über einen Reed-Kontakt den Int0 auslösen und damit die
ausgabe der Zeichen aus dem Array starten. (Also ein Int pro
Umdrehung)

Problem:
Mein Code funzt in einer Do Loop ohne Probleme, aber wenn ich ihn in
die ISR von Int= kopiere, geht gar nichts mehr oder nur komische
Zeichen, aber keine Buchstaben.

Frage:
Ist man in der ISR aus bestimmte Zeiten beschränkt oder sollte man es
vermeiden, im Int0 auf ein Array zuzugreifen?

Hier die beiden relevanten Code-Stellen:
(Ist noch alles im Rohbau und optimierungsfähig, also deshalb bitte
nicht meckern!)

---------------------------------------------------------------------
Das Array hat 10 Stellen (1-10), in die Dezimalzahlen eingetragen sind,
die zu Buchstaben gehören:

Stellen_Array(1) = 1     'Steht für ein A
Stellen_Array(1) = 2     'Steht für ein B
        .
        .
        .
---------------------------------------------------------------------
Die ISR des Int0:
IsrInt0:
   For Stelle = 1 To 10
      Call Zeichenausgabe(stellen_array(stelle))
   Next Stelle
   Waitms 200
Return
---------------------------------------------------------------------
Die Ausgabe Sub wurde nach dem Beispiel Bascom - Tabellen von
Roboternetz.de entwickelt:
http://www.roboternetz.de/wissen/index.php/Bascom_Tabellen

Sub Zeichenausgabe(byval Zeichen As Byte)

   Index = Lookdown(zeichen , Mapping , 28)
   Temp = Index - 1
   Temp = Temp * 5
   Portb = Lookup(temp , Patterntab)
   Incr Temp
   Waitms 2                                'Pause zwischen den Spalten

                                           'des 5x8 Buchstabens, die
                                           'angezeigt werden
   Portb = Lookup(temp , Patterntab)
   Incr Temp
   Waitms 2
   Portb = Lookup(temp , Patterntab)
   Incr Temp
   Waitms 2
   Portb = Lookup(temp , Patterntab)
   Incr Temp
   Waitms 2
   Portb = Lookup(temp , Patterntab)
   Incr Temp
   Waitms 2
   Portb = &B11111111                   'Alle LED aus
   Waitms 4                             'Pause zwischen den Zeichen
End Sub
---------------------------------------------------------------------
Mapping:
'-----"A"-"B"-"C"...
  Data 1 , 2 , 3 ,...
---------------------------------------------------------------------
Patterntab:
'A
Data &B00000000 , &B01101111 , &B01101111 , &B01101111 , &B00000000
'B
Data &B00000000 , &B01101110 , &B01101110 , &B01101110 , &B10010001
.
.
.