Dimmer sorunu

[karbal656]

Selam,aşağıdaki kodu çalıştıramadım.
Amacım azalıp çoğalan bi ışık devresi yapmaktı.Ama başarılı olamadım.
Sıfır geçişi yakalamak için dış kesme kullandım.
kod da bir hata varmı acaba?

Device = 16F628A
Config INTRC_OSC_NOCLKOUT, WDT_OFF, PWRTE_ON, BODEN_OFF, CP_OFF, MCLRE_OFF
XTAL 4
Dim zmn As Word
Dim i As Word
Symbol triak=PORTB.2
Symbol GIE=INTCON.7  'Global kesme bayragı
Symbol INTE=INTCON.4  'Harici kesme aktif yapma bayragı
Symbol INTF=INTCON.1   'Harici kesme haber verme biti

zmn=8000

ON_INTERRUPT kesme
GoTo basla
kesme:
triak=1
DelayUS zmn
triak=0
INTF = 0
Context Restore

basla:
CMCON = 7
OPTION_REG.6=1
TRISA=%11111100
TRISB=%00000001
INTF=0


dongu:
GIE=0
While GIE=1
GIE=0
Wend
INTE=1
GIE=1
If zmn>=8000 Then 
zmn=zmn-500
GoSub gecikme
GoSub gecikme 
GoSub gecikme
If zmn<1000 Then zmn=1000
EndIf
If zmn = 1000 Then 
zmn=zmn+500
GoSub gecikme
GoSub gecikme
GoSub gecikme
If zmn>=8000 Then zmn = 8000
EndIf
GoTo dongu


gecikme:
For i = 1 To 2000
DelayUS 10
Next
Return
End

[Maxim]

şemayıda vermelisiniz.

[karbal656]

bu şemayı yapmaya çalışıyorum.
Şimdiden teşekkürler.