Hm. Wenn die Taster nach GND schalten, dann würde ich noch die Pullups einschalten und die Abfrage invertieren.

z.B. so:
Code:
$regfile = "m8def.dat"
$crystal = 4000000
$hwstack = 40
$swstack = 16
$framesize = 32

Taster1 Alias Pinb.3                                        '+
Taster2 Alias Pinb.2                                        '-
Taster3 Alias Pinb.4                                        'Enter
Taster4 Alias Pinb.5                                        'Clear
Ledrot Alias Portd.7
Ledgruen Alias Portd.6

Config Ledrot = Output                                      'Standard ist eingang
Config Ledgruen = Output

Set Taster1                                                 'Pullup
Set Taster2                                                 'Pullup
Set Taster3                                                 'Pullup
Set Taster4                                                 'Pullup
' portb=&b00111100                                           'Oder alle Pullups auf einmal, spart Code


Do

If Taster1 = 0 Then
   Set Ledgruen
End If

If Taster2 = 0 Then
   Reset Ledgruen
End If

If Taster3 = 0 Then
   Set Ledrot
End If

If Taster1 = 0 Then
   Reset Ledrot
End If

Loop
End