Hallo Markus!
Bitte ausprobieren (=ungetestet):
Code:
$regfile = "attiny13.dat"
$crystal = 1200000
$hwstack = 24
$swstack = 10
$framesize = 24
Eingang Alias Pinb.1 'INT0
Ausgang Alias Portb.0
Config Ausgang = Output
Config Int0 = Rising
On Int0 On_int0
Enable Int0
Enable Interrupts
Do
!NOP
Loop
End
On_int0:
Waitms 20
Ausgang = 1
Waitms 100
Ausgang = 0
Return
Achtung! Bedingt durch den INT0 ändert sich die Anschlussbelegung. Eingang und Ausgang wurden vertauscht. Pulldown-Widerstand nicht vergessen!
mfg
Gerold
:-)
PS: Mich wundert ja, dass der vorherige Code überhaupt funktioniert hat -- habe ich doch ``Config Ausgang = Output`` vergessen. :-)
.
Lesezeichen