also so sollte es irgendwie aussehen,
mir fehlt halt noch die stoppuhrfunktion, ich weiß nicht wie ich die hochzählen lassen soll


$regfile = "M8def.dat"
$crystal = 16000000
$hwstack = 100
$swstack = 100
$framesize = 100


Dim Millisekunden As Byte
Dim Minuten As Byte
Dim Sekunden As Byte





Config Portc = Output
Config Pinb.1 = Input
Config Pinb.3 = Input
Portb.1 = 0
Portb.7 = 0



Do

Config Timer1 = Timer , Prescale = 64
Const Timervorgabe = 40536
If Pinb.1 = 0 Then
On Timer1 Timer_irq

Print "schalter 1"
Enable Interrupts
end if

Millisekunden = 00
Minuten = 0
Sekunden = 0



' - - - - - - -





If Pinb.3 = 1 Then
Print "schalter 2"
Disable Timer1

Print "Zeit: " ; Minuten ; ":" ; Sekunden ; ":" ; Millisekunden ; " "


End If

Loop