Hallo Daniel,
nach mühsamer Kleinarbeit ist es mir gelungen das Programm so hinzubiegen, daß es auf meinem Testboard tut was es soll.
Viel Erfolg
Olaf
Code:
$regfile = "m32def.dat"
'$baud = 19200
$framesize = 32
$swstack = 32
$hwstack = 32
$crystal = 16000000

Config Pinc.6 = Input
Config Pinc.1 = Output

Led1 Alias Portc.1                                          ' use 'port' if You're writing
S1 Alias Pinc.6                                             ' use 'pin' if You're reading



Do
If S1 = 1 Then
Led1 = 1
Waitms 600
Led1 = 0
Waitms 600
Else
Led1 = 1
Waitms 100
Led1 = 0
Waitms 100
End If
Loop

End