Hallo,

Vielen Dank,
das mit dem Interrupt hab ich verstanden.
Ist bei Wiki gut erklärt.

Laut meiner Doku werden 13 Ziffern zu je 4 Bit gesendet.
Wie lese ich denn Die über meinen Eingang ein ?






Code:
$regfile = "m32def.dat"                                     'Die Anweisung bestimmt Controllertyp, hier AVR Mega 32
$framesize = 32                                             'Stackanweisungen, die eigentlich nur bei größeren Programmen
$swstack = 32                                               'wirklich nötig werden
$hwstack = 32
$crystal = 16000000                                         'Die Frequenz des verwendeten Quarzes
$baud = 9600



Config Int0 = Falling                                       'Configuriere Int0  auf Falling
Enable Interrupts                                           'einschalten Der Interrupts
Enable Int0                                                 'einschalten Von Interrupt Int0
On Int0 Isr_von_int0                                        'springe Zu Isr_von _int0

Config Pina.0 = Input                                       ' Pin A.0 als Eingang konfigurieren (Taster)
Config Pina.1 = Input

Config Pina.6 = Output
Config Pina.7 = Output

Led Alias Porta.6
OptEin Alias Porta.7

Tast Alias Pina.0
OptAus Alias Pina.1

Porta.0 = 1                                                 ' Interner Pullup Widerstand ein
Porta.1 = 1

Dim I As Byte

Const Pon = 0
Const Poff = 1



' Hauptschleife
Do
   print Tast ; " " ; OptEin ; " " ; OptAus

   porta.0 = 0

   Waitms 50
Loop


Isr_von_int0:

   print "Port A1 = " ; optaus

   porta.1 = 1
   return