Time_check:

Select Case Minutes

 Case 60 To 80                                              'betwen 50 - 70 min including ofset
 If Countdown = 0 Then
  If Minutes < 70 Then
   Help = 70 - Minutes
   Minutes = 10 - Help
  Elseif Minutes > 70 Then
   Help = Minutes - 70
   Minutes = 10 + Help
  End If

    Countdown = 49                                          ' and only after 50 min
   Select Case Hours
    Case 1
     Reset Portb.0
    Case 2
     Reset Portb.1
    Case 3
     Reset Portb.2
    Case 4
     Reset Portb.3
    Case 5
     Reset Portb.4
    Case 6
     Reset Portb.5
    Case 7
     Reset Portb.6
    Case 8
     Reset Portb.7
   End Select
   B_port = Portb                                           'read port to value
   Incr Hours                                               'next LED can be trigged
   Writeeeprom B_port , 4
   Writeeeprom Hours , 2
   Waitms 50
 End If

 End Select

Return

 

$regfile = "2313def.dat"
$crystal = 8000000

$hwstack=40
$swstack=16
$framesize = 32

const Timer1Reload = 7812
Config Timer1 = Timer , Prescale = 1024
Config Portb.0 = Output

load timer1 , Timer1Reload
on ovf1 Timer1_isr
enable timer1
Start Timer1

enable interrupts

Portb.0 = 1

Timer1_ISR:
   load timer1, Timer1Reload
    If Portb.0 = 1 Then
      Portb.0 = 0
      Waitms 500
   Else
      Portb.0 = 1
      Waitms 500
   End If
  return
 

$regfile = "2313def.dat"
$crystal = 8000000                                          'remember that calculations are for this freq

$hwstack=40
$swstack=16
$framesize = 32

Config Portb.0 = Output : Portb.0 = 1
Config Portb.1 = Output : Portb.0 = 1

Const Timer1reload = 61631                                  'this should be 500ms

Config Timer1 = Timer , Prescale = 1024
Enable Timer1 : On Timer1 Timer1_isr

Enable Interrupts

'***** start o neverending loop *****
Do


Loop
'***** end of loop **********
End
'


Timer1_isr:
  Timer1 = Timer1reload

   Toggle Portb.0                                           'toggle change state of pin
   Portb.1 = Not Portb.1                                    'this is the same

  Return                                                    ' return to what? In your code no place to return