Ich habe die Schaltung wie oben skizziert ausprobiert. Als Port habe ich den ganz rechten PA0 genommen zusammen mit dem folgenden Programm:
Code:
$regfile = "m32def.dat"                                     ' Bestimmung des Prozessors
$crystal = 16000000                                         ' Quarzfrequenz
$baud = 9600                                                ' RS232-Uebertragungsrate
$hwstack = 32
$framesize = 32
$swstack = 32
'###############################
'
'Programm zeigt Zustand von digitalem Port A Pin 3 über LED an€
'
'###############################
   Config Adc = Single , Prescaler = Auto                   'Für Tastenabfrage und Spannungsmessung
           Config Porta = Input
                        ' Alle internen Pullup Widerstände ein, bis auf Batteriespannungsmessungsport

   Config Portc = Output

 Do
 Porta. = 1
If Pina.0 = 1 Then
Portc.1 = 0
Else
Portc.1 = 1
End If
Loop
Es blieben allerdings alle LED's an. Ist im Programm der Fehler?