راه اندازی ساده تایمر صفر در Tiny13 و بسکام

[sina1359]

سلام دوستان واساتید گرامی ....
میکرو تاینی 13 به دلایل کمبودهایی که دارد....
راه اندازی بیشتر دستورات بسکام در آن مشکل ساز است
راستش را بخواهید راه اندازی تایمر صفر در موود تایمر برایم مشکل ساز شده
من نیاز به یک برنامه ساده دارم که در موود تایمر ( نه تاخیر Wait)
پاییه میکرو B.0 به مدت تقریبی یک ساعت 0 منطقی باشد و
به مدت دو دقیقه 1 شود و این حلقه ادامه داشته باشد...
یک ساعت پایه B صفر Low باشد و بعد به مدت دو دقیقه High
ممنون میشم من را راهنمایی کنید
این نمونه برنامه من هست که البته کار نمیکند
میخواهم ساده تر هم باشد و با تاینی 13 کار کند...
با تشکر

$regfile = "attiny13a.dat"
$crystal = 9600000
$hwstack = 8
$swstack = 16
$framesize = 16

'=======================
Dim Tick As Word      
Dim IsOn As Byte      
'=======================

Config Portb.0 = Output
Portb.0 = 0

Config Timer0 = Timer, Prescale = 64
On Timer0 isr
Enable Timer0
Enable Interrupts

Timer0 = 100          
Tick = 0
IsOn = 0

'=======================
Do
   If IsOn = 0 And Tick >= 7500 Then       ' تقریباً 10 ثانیه
      Portb.0 = 1
      IsOn = 1
      Tick = 0
   End If

   If IsOn = 1 And Tick >= 45000 Then      ' تقریباً 60 ثانیه
      Portb.0 = 0
      IsOn = 0
      Tick = 0
   End If
Loop

'=======================

isr:
   Timer0 = 100
   Incr Tick
Return

End​

[sina1359]

دوستان انگار بلد نبودن....
خودم مشکل را حل کردم