Zitat:
$regfile = "m32def.dat"
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000
$baud = 9600
Config Porta.0 = Output
Motorlv Alias Porta.0
Config Porta.1 = Output
Motorrv Alias Porta.1
Config Porta.2 = Input
Bumpervorne Alias Porta.2
Config Porta.3 = Input
Bumperhinten Alias Porta.3
Config Porta.4 = Output
Led Alias Porta.4
Config Porta.5 = Output
Summer Alias Porta.5
Config Int0 = Low Level
Enable Interrupts
Enable Int0
On Int0 Bums
Portd.2 = 1
Porta.2 = 1
Porta.3 = 1
Do
Motorlv = 1
Motorrv = 1
Led = 0
Waitms 10
Loop
End
Bums:
Motorlv = 0
Motorrv = 0
Do
If Bumpervorne = 0 Then
Led = 1
End If
Loop Until Led = 1
In diesem Programm ist in dem letzten Teil, ab Bums: ein Problem.