Einfaches Codeschloss

[murdocg]

So, ich hab meinen Code nochmal überarbeitet, den compiliert er jetzt ohne Fehler:

$regfile = "m8def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 1000000


Config Portb.1 = Output
Config Portb.2 = Output
Config Portb.3 = Output

       Gelb Alias Portb.1
       Gruen Alias Portb.2
       Rot Alias Portb.3

Config Pinb.0 = Input
Config Pind.7 = Input
Config Pind.6 = Input

       Taste1 Alias Pind.6
       Eingabe Alias Pind.7
       Neu Alias Pinb.0



       Portb.0 = 1
       Portd.7 = 1
       Portd.6 = 1



Dim Pass As Byte
Dim Code As Byte

Pass = 5
Code = 0

Do

If Code = 0 Then
  Rot = 1
  Gelb = 0
Else
  Rot = 0
  Gelb = 1
End If


If Taste1 = 0 Then
   Code = Code + 1
End If


If Code = Pass Then
    Gruen = 1
Else
    Gruen = 0
End If


Loop

Hab das ganze eben ausprobiert, hat noch nicht funktioniert. Ich denke der Fehler liegt in der Hardware, das überprüf ich nachher nochmal.

Ich hab mal ein Bild angehängt.