Jippy, ich habs endlich kapiert.

[code]
'Autosteuerung
$regfile = "m88def.dat"
$crystal = 256000
$hwstack = 40
$swstack = 40
$framesize = 40

Dim I As Integer
Dim I2 As Integer

Config Portc.3 = Output
Config Portc.2 = Output

Enable Interrupts
Enable Pcint0

Pcmsk0.pcint1 = 1


On Pcint0 Lesen:

Do
Portc.3 = 1
Waitms 100
Portc.3 = 0
Waitms 100
Loop

Lesen:
Toggle Portc.2
Return


End
[code]

so funktioniert erstmal das was ich wollte.

vielen, vielen Dank
Weiteres folgt