16F628 ÇALIŞMIYOR

[My75]

Arkadaşlar 16F628 adaptörden direkt olarak açınca çalışmıyor,+ ucunu ayırıp birleştirince bir çalışıyor bir çalışmıyor,besleme ile ilgili tüm filtre işlemlerim tamam, mclr+ bağlı fakat bu problemi bir türlü gideremedim..Programdamı bir eksiklik var...Şimdiden teşekkürler..


@ DEVICE pic16F628                      'işlemci 16F628                                
@ DEVICE pic16F628, WDT_ON              'Watch Dog timer açık
@ DEVICE pic16F628, PWRT_ON             'Power on timer açık
@ DEVICE pic16F628, PROTECT_OFF         'Kod Protek kapalı
@ DEVICE pic16F628, MCLR_OFF             'MCLR pini kullanılıyor.
@ DEVICE pic16F628, INTRC_OSC_NOCLKOUT  'Dahili osilatör kullanılacak

CMCON=7  
OPTION_REG=%0000100
porta=0
trisa=%00000100
portb=0
trisb=%00000000
include "modedefs.bas"
out     var porta.1
rx      var porta.2
tx      var porta.3
KAPICI  var byte
A       var byte
BINA    var byte
C       var byte
DAIRE   var byte
E       var byte
out=0

dongu:
serin  rx,N1200,KAPICI,A,BINA,C,DAIRE,E


if   KAPICI=$26 then
pause  500
out=1
serout  tx,N1200,[$01,$55,$FE,$55,$FE,$F2]
pause   500
serout  tx,N1200,[$01,$55,$FE,$CF,$FE,$F2]
pause   500
serout  tx,N1200,[$01,$55,$FE,$9F,$FE,$F2]
pause   500
serout  tx,N1200,[$01,A,BINA,C,DAIRE,E]    
out=0
endif
goto    dongu
end

[My75]

Program hemen çalışmaya başladığı için kilitlenme yapıyor,dongu etiketinden önce 3sn gecikme verdim sorun çözüldü..Ayrıca cevaplar için teşekkürler..