Versuch mal:

Code:
'Bascom Hallsensor test

$regfile = "m328pdef.dat"
$crystal = 20000000                                         'Quarzfrequenz
$hwstack = 32
$framesize = 64
$swstack = 32



Config Pind.1 = Output



'Timer und der Teiler festlegen 10ms
Config Timer0 = Timer , Prescale = 1024
On Timer0 Timer_irq
Const Timervorgabe = 175
Config Int0 = Rising
Enable Int0




Enable Interrupts

Dim Hallimpuls As Integer
Dim Cnt As Byte
Dim Sekunde As Byte
Dim Minute As Byte
Dim Stunde As Byte
Dim Sekunde_last As Byte
Dim Minute_last as Byte


Hallimpuls = 0
Stunde = 0
Minute = 0
Sekunde = 0
Enable Timer0



Do




      If Stunde = 0 And Minute <> Minute_last Then Gosub Led



Loop



Led:
     Hallimpuls = 0
     Portd.1 = 1'LED an
     On Int0 Zaehlen
     

      Do

      Idle
      Loop Until Hallimpuls = 10
   Portd.1 = 0'LED aus
minute_last = minute
Return





Zaehlen:

Incr Hallimpuls

Return


Timer_irq:
Timer0 = Timervorgabe

   Incr Cnt

    If Cnt = 50 Then
       Portb.6 = 0
    End If

    If Cnt = 100 Then
       Portb.6 = 1

       Sekunde = Sekunde + 1
       If Sekunde = 60 Then
          Sekunde = 0
          Minute = Minute + 1
          If Minute = 60 Then
             Minute = 0
             Stunde = Stunde + 1
             If Stunde = 24 Then
                Stunde = 0
             End If
          End If
       End If
       Cnt = 0
    End If
Return
Löst zwar wahrscheinlich dein Problem, hat aber weitere Fallstricke.