SEROUT2 çalıştıramadım

[mikro29]

herkese merhaba,
aşağıdaki kod ve isis dosyası çalışıyor ama gerçek ortamda çalıştıramadım
herşey normal çalışıyor diye pcb leri hazırladım haberleşmeyi sn75176 ile yapıyorum

@ DEVICE pic16F876 'işlemci 16F876 
@ DEVICE pic16F876, WDT_OFF 'Watch Dog timer kapalı 
@ DEVICE pic16F876, PWRT_ON 'Power on timer açık 
@ DEVICE pic16F876, PROTECT_OFF 'Kod Protek kapalı 
@ DEVICE pic16F876, XT_OSC 'Dahili osilatör kullanılacak 
@ DEVICE pic16F876, LVP_OFF 
@ DEVICE pic16F876, BOD_OFF
Define  LCD_DREG        PORTB
Define  LCD_DBIT        0
Define  LCD_RSREG       PORTB
Define  LCD_RSBIT       4
Define  LCD_EREG        PORTB
Define  LCD_EBIT        5
DEFINE LCD_BITS		    4		
DEFINE LCD_LINES	    4		
Include "modedefs.bas" 

ADCON1=7
OPTION_REG.7 = 1 'PULL UP KAPALI
TRISA = %00010000
'TRISA = %00110000
TRISB = %00000000
TRISC = %10000111
PORTA = %00000000
PORTB = %00000000
PORTC = %00000000 
'XXXXXXXXXXXXXXxxxxxxxxxx D E Ğ İ Ş K E N L E R xxxxxxxxxxXXXXXXXXXXXX
SN      VAR  BYTE
SURE    VAR  BYTE
MIK     VAR  BYTE
BIL     VAR  BYTE
VERI    VAR  BYTE
N       VAR  BYTE
BIRLER  var  byte
ONLAR   var  byte
SAYAC   var  byte
K       VAR  BYTE
D       VAR  BYTE
P       VAR  BYTE
KOD     VAR  BYTE
KOD2    VAR  BYTE
A       VAR  BYTE
BILGI1  VAR  BYTE
BILGI2  VAR  BYTE
AL      VAR  BYTE
TUS     var  word
GONDERB VAR  BYTE
'-----------------------------------------------------------------
MIK     = 0 
BIL     = 0
A       = 0
BILGI1  = 0 
BILGI2  = 0
BIRLER  = 0
ONLAR   = 0
TUS     = 0
SURE    = 0
AL      = 0
KOD2    = 0

'********************* A T A M A L A R *******************************

symbol CLK      = PortA.1 ' 74HC595 ÇIKIŞ
SYMBOL DTA      = PORTA.0
SYMBOL AKTAR1   = PORTA.2
SYMBOL AKTAR2   = PORTA.3
SYMBOL GIRIS    = PORTC.7 ' 75176 
'SYMBOL CIKIS    = PORTC.6
SYMBOL CIKIS    = PORTB.6
'SYMBOL CIKIS    = PORTA.5
SYMBOL AKTIF    = PORTB.7 

CLEAR
'//////////////////// PROGRAM BAŞLANGICI ///////////////////////////////
' BÜTÜN LEDLER AÇIKSA SÖNDÜRÜLÜYOR
SHIFTOUT DTA,CLK,1,[0]
HIGH AKTAR1:PAUSEus 5:LOW AKTAR1 'BILGI ÇIKIŞA AKTARILDI
SHIFTOUT DTA,CLK,1,[0]
HIGH AKTAR2:PAUSEus 5:LOW AKTAR2 'BILGI ÇIKIŞA AKTARILDI

' RS485 HABERLEŞME İÇİN VERİ AKTARMA UCU AKTİF EDİLİYOR
HIGH AKTIF '75176 VERİ GÖNDERMEK İÇİN AKTİF ET
SEROUT2 CIKIS,396,["M","K","R",0]
SEROUT2 CIKIS,396,["M","K","R",0]
pause 500
' ******************** BAĞLANTI KONTROL EDİLİYOR *************************
ABC: 
LCDOUT $FE,$1,"    HOSGELDiNiZ"
LCDOUT $FE,$94,"  LUTFEN BEKLEYiN"
LCDOUT $FE,$D4," BAGLANTI KURULUYOR"

DEVAM:  ' ****************** KONTROL DEVAM EDİYOR ************************
LCDOUT $FE,1
LCDOUT $FE,$C0,"BAGLANTI KURULAMADI"
PAUSE 20

'***** KARŞI TARAFTAN BİLGİ ALMAK İÇİN RS485 RE=0 YAPILIYOR ************** 

LOW AKTIF'75176 VERİ ALMAK İÇİN AKTİF ET
SerIn2 GIRIS,396,[WAIT ("MKR"),AL]
PAUSE 100

IF AL = 0 THEN GOTO ABC
PAUSE 100

IF AL = 29 THEN
PAUSE 50
LCDOUT $FE,1
LCDOUT $FE,$C0,"BAGLANTI KURULDU"
PAUSE 1500
GOTO KONTROLOK
ENDIF 
GOTO DEVAM 

KONTROLOK:
GOSUB EKRAN
' ************ TEST İŞLEMLERİ NORMAL İSE ANA PROGRAM BAŞLIYOR *************
BASLA:
'-------------------------------1.SATIR TARAMASI--------------------------------
   PORTC.3=0
If PORTC.0=0 Then ' 1 TUŞUNA BASILDI
       TUS=1
   GOSUB EKRAN
   While PORTC.0=0
   Wend
   Endif
If PORTC.1=0 Then '2 TUŞUNA BASILDI
       TUS=2
   GOSUB EKRAN
   While PORTC.1=0
   Wend
   Endif
If PORTC.2=0 Then ' 3 TUŞUNA BASILDI
       TUS=3
   GOSUB EKRAN
   While PORTC.2=0
   Wend
   Endif
   HIGH PORTC.3
'-------------------------------2.SATIR TARAMASI--------------------------------
   PORTC.4=0
If PORTC.0=0 Then  ' 4 TUŞUNA BASILDI
       TUS=4
   GOSUB EKRAN
   While PORTC.0=0
   Wend
   Endif
If PORTC.1=0 Then  ' 5 TUŞUNA BASILDI
       TUS=5
   GOSUB EKRAN
   While PORTC.1=0
   Wend
   Endif
If PORTC.2=0 Then   ' 6 TUŞUNA BASILDI
       TUS=6
   GOSUB EKRAN
   While PORTC.2=0
   Wend
   Endif
   HIGH PORTC.4
'-------------------------------3.SATIR TARAMASI--------------------------------
   PORTC.5=0                         
If PORTC.0=0 Then   ' 7 TUŞUNA BASILDI
       TUS=7
   GOSUB EKRAN
   While PORTC.0=0
   Wend
   Endif
If PORTC.1=0 Then    ' 8 TUŞUNA BASILDI
       TUS=8
   GOSUB EKRAN
   While PORTC.1=0
   Wend
   Endif
If PORTC.2=0 Then  ' 9 TUŞUNA BASILDI
       TUS=9
   GOSUB EKRAN
   While PORTC.2=0
   Wend
   Endif
   HIGH PORTC.5
'-------------------------------4.SATIR TARAMASI--------------------------------
   PORTC.6=0
'   PORTA.5=0
If PORTC.0=0 TheN  ' * TUŞUNA BASILDI
       TUS=10
   GOSUB SEC
   While PORTC.0=0
   Wend
   Endif
If PORTC.1=0 Then    ' 0 TUŞUNA BASILDI
       TUS=0
   GOSUB EKRAN
   While PORTC.1=0
   Wend
   Endif
   
If PORTC.2=0 Then    '# TUŞUNA BASILDI ONAYLAMA YAPILDI
       TUS=12
            
       IF KOD = 1 THEN 
       KOD2= 1 
       TOGGLE BILGI1.0     
       SHIFTOUT DTA,CLK,1,[BILGI1]
       HIGH AKTAR1:PAUSEus 5:LOW AKTAR1 'BILGI ÇIKIŞA AKTARILDI
       gosub GONDER
       ENDIF
           
       IF KOD = 2 THEN
       KOD2= 2
       TOGGLE BILGI1.1
       SHIFTOUT DTA,CLK,1,[BILGI1]
       HIGH AKTAR1:PAUSEus 5:LOW AKTAR1 'BILGI ÇIKIŞA AKTARILDI
       GOSUB GONDER
       ENDIF
       
       IF KOD = 3 THEN 
       KOD2= 3
       TOGGLE BILGI1.2 
       SHIFTOUT DTA,CLK,1,[BILGI1]
       HIGH AKTAR1:PAUSEus 5:LOW AKTAR1 'BILGI ÇIKIŞA AKTARILDI
       GOSUB GONDER
       ENDIF
           
       IF KOD = 4 THEN 
       KOD2= 4
       TOGGLE BILGI1.3
       SHIFTOUT DTA,CLK,1,[BILGI1]
       HIGH AKTAR1:PAUSEus 5:LOW AKTAR1 'BILGI ÇIKIŞA AKTARILDI
       GOSUB GONDER
       ENDIF
       
       IF KOD = 5 THEN 
       KOD2= 5
       TOGGLE BILGI1.4 
       SHIFTOUT DTA,CLK,1,[BILGI1]
       HIGH AKTAR1:PAUSEus 5:LOW AKTAR1 'BILGI ÇIKIŞA AKTARILDI
       GOSUB GONDER   
       ENDIF
           
       IF KOD = 6 THEN 
       KOD2= 6
       TOGGLE BILGI1.5
       SHIFTOUT DTA,CLK,1,[BILGI1]
       HIGH AKTAR1:PAUSEus 5:LOW AKTAR1 'BILGI ÇIKIŞA AKTARILDI
       GOSUB GONDER  
       ENDIF     
       
       IF KOD = 7 THEN 
       KOD2= 7
       TOGGLE BILGI1.6 
       SHIFTOUT DTA,CLK,1,[BILGI1]
       HIGH AKTAR1:PAUSEus 5:LOW AKTAR1 'BILGI ÇIKIŞA AKTARILDI
       GOSUB GONDER
       ENDIF
           
       IF KOD = 8 THEN
       KOD2= 8
       TOGGLE BILGI1.7
       SHIFTOUT DTA,CLK,1,[BILGI1]
       HIGH AKTAR1:PAUSEus 5:LOW AKTAR1 'BILGI ÇIKIŞA AKTARILDI
       GOSUB GONDER  
       ENDIF
       
       IF KOD = 9 THEN
       KOD2= 9
       TOGGLE BILGI2.0 
       SHIFTOUT DTA,CLK,1,[BILGI2]
       HIGH AKTAR2:PAUSEus 5:LOW AKTAR2 'BILGI ÇIKIŞA AKTARILDI
        GOSUB GONDER
       ENDIF
           
       IF KOD = 10 THEN
       KOD2= 10
       TOGGLE BILGI2.1
       SHIFTOUT DTA,CLK,1,[BILGI2]
       HIGH AKTAR2:PAUSEus 5:LOW AKTAR2 'BILGI ÇIKIŞA AKTARILDI
        GOSUB GONDER
       ENDIF
       
       IF KOD = 11 THEN
       KOD2= 11
       TOGGLE BILGI2.2 
       SHIFTOUT DTA,CLK,1,[BILGI2]
       HIGH AKTAR2:PAUSEus 5:LOW AKTAR2 'BILGI ÇIKIŞA AKTARILDI
       GOSUB GONDER 
       ENDIF
           
       IF KOD = 12 THEN
       KOD2= 12
       TOGGLE BILGI2.3
       SHIFTOUT DTA,CLK,1,[BILGI2]
       HIGH AKTAR2:PAUSEus 5:LOW AKTAR2 'BILGI ÇIKIŞA AKTARILDI
        GOSUB GONDER
       ENDIF
       
       IF KOD = 13 THEN
       KOD2= 13
       TOGGLE BILGI2.4
       SHIFTOUT DTA,CLK,1,[BILGI2]
       HIGH AKTAR2:PAUSEus 5:LOW AKTAR2 'BILGI ÇIKIŞA AKTARILDI
        GOSUB GONDER
       ENDIF
           
       IF KOD = 14 THEN
       KOD2= 14
       TOGGLE BILGI2.5
       SHIFTOUT DTA,CLK,1,[BILGI2]
       HIGH AKTAR2:PAUSEus 5:LOW AKTAR2 'BILGI ÇIKIŞA AKTARILDI
        GOSUB GONDER
       ENDIF
       
       IF KOD = 15 THEN
       KOD2= 15
       TOGGLE BILGI2.6 
       SHIFTOUT DTA,CLK,1,[BILGI2]
       HIGH AKTAR2:PAUSEus 5:LOW AKTAR2 'BILGI ÇIKIŞA AKTARILDI
        GOSUB GONDER
       ENDIF
           
       IF KOD = 16 THEN
       KOD2= 16
       TOGGLE BILGI2.7
       SHIFTOUT DTA,CLK,1,[BILGI2]
       HIGH AKTAR2:PAUSEus 5:LOW AKTAR2 'BILGI ÇIKIŞA AKTARILDI
        GOSUB GONDER
       ENDIF
       
       IF KOD = 17 THEN ' BÜTÜN ÇIKIŞLAR KAPATILDI
       KOD2= 17
       BILGI1 = 0
       SHIFTOUT DTA,CLK,1,[BILGI1]
       HIGH AKTAR1:PAUSEus 5:LOW AKTAR1 'BILGI ÇIKIŞA AKTARILDI
       BILGI2 = 0
       SHIFTOUT DTA,CLK,1,[BILGI2]
       HIGH AKTAR2:PAUSEus 5:LOW AKTAR2 'BILGI ÇIKIŞA AKTARILDI
        GOSUB GONDER
       ENDIF 
       
       IF KOD = 18 THEN ' BÜTÜN ÇIKIŞLAR KAPATILDI
       KOD2= 18
       BILGI1 = $FF
       SHIFTOUT DTA,CLK,1,[BILGI1]
       HIGH AKTAR1:PAUSEus 5:LOW AKTAR1 'BILGI ÇIKIŞA AKTARILDI
       BILGI2 = $FF
       SHIFTOUT DTA,CLK,1,[BILGI2]
       HIGH AKTAR2:PAUSEus 5:LOW AKTAR2 'BILGI ÇIKIŞA AKTARILDI
        GOSUB GONDER
       ENDIF
   

IF KOD2>20 then 
LCDOUT $FE,1
lcdout $FE,$2,"YANLIS TUSLADINIZ"
LCDOUT $FE,$C0,"TEKRAR DENEYiN"
 PAUSE 1500
LCDOUT $FE,1," **** mikro ****"
LCDOUT $FE,$C0,"***  deneme  ***"
ENDIF 
   BIRLER=0:ONLAR =0:TUS=0 
KOD=0
   While PORTC.2=0
   Wend
   Endif
   HIGH PORTC.6
  'HIGH PORTA.5
 Goto BASLA

EKRAN:
    LCDOUT $FE,1,"*** mikro ***"
    LCDOUT $FE,$C0,"--------------------"
    ONLAR = BIRLER
    BIRLER = tus
    KOD = 10 * ONLAR + BIRLER
    LCDOUT $FE,$94,"KOD=",DEC1 onlar,DEC1 birler
    pause 50
    RETURN 

SEC:
KOD2 = 17  
LCDOUT $FE,1,"RESET"  

IF KOD2 = 17 THEN ' BÜTÜN ÇIKIŞLAR KAPATILDI
HIGH AKTIF                     
SEROUT2 CIKIS,396,["M","K","R",17]
SEROUT2 CIKIS,396,["M","K","R",17]
BILGI1 = 0
SHIFTOUT DTA,CLK,1,[BILGI1]
HIGH AKTAR1:PAUSEus 5:LOW AKTAR1 'BILGI ÇIKIŞA AKTARILDI
BILGI2 = 0
SHIFTOUT DTA,CLK,1,[BILGI2]
HIGH AKTAR2:PAUSEus 5:LOW AKTAR2 'BILGI ÇIKIŞA AKTARILDI
ENDIF
 
SEROUT2 CIKIS,396,["M","K","R",GONDERB]
SEROUT2 CIKIS,396,["M","K","R",GONDERB]  
   BIRLER=0:ONLAR =0:TUS=0 
   LCDOUT $FE,1," ****** mikro ******"
   LCDOUT $FE,$C0,"***deneme***"
   RETURN  	   

GONDER:
HIGH AKTIF
SEROUT2 CIKIS,396,[REP$AA\5,REP$00\5,REP$FF\5] ' uyandırma 
SEROUT2 CIKIS,396,["M",KOD2]
RETURN
GOTO BASLA
END

devre
http://img338.imageshack.us/my.php?image=denemepa9.jpg
isis
http://rapidshare.com/files/111671813/DENEME.DSN.html


ALICI:

PORTA=%00000000 
PORTB=%00000000  
TRISA=%00000010   
TRISB=%00000000   'B portu tamamı çıkış yapıldı.
'-----------------------------------------------------------------
@ 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 Koruma kapalı
@ DEVICE pic16F628, MCLR_OFF             'MCLR pini kullanılıyor.
@ DEVICE pic16F628, INTRC_OSC_NOCLKOUT  'Dahili osilatör kullanılacak 
'---------------------------değişkenler------------------------------
Include "modedefs.bas" 
CMCON=7
SYMBOL CIKIS = PORTA.0
SYMBOL GIRIS = PORTA.1
SYMBOL AKTIF = PORTA.2
symbol CLK   = PortA.3
SYMBOL AKTAR1= PORTA.7
SYMBOL DTA   = PORTB.7
SYMBOL AKTAR2= PORTB.4
AL       VAR BYTE:AL = 0
BILGI1   VAR BYTE:BILGI1 = 0
BILGI2   VAR BYTE:BILGI2 = 0
SAYAC    VAR BYTE:SAYAC  = 0

'-----------------------------B A Ş L A N G I Ç ---------------------------    

CLEAR                                                                                                                                         
PAUSE 500
PORTB=0  'tüm çıkışlar low seviyesinde
LOW AKTIF
SHIFTOUT DTA,CLK,1,[0]
HIGH AKTAR1:PAUSEus 5:LOW AKTAR1 'BILGI ÇIKIŞA AKTARILDI
SHIFTOUT DTA,CLK,1,[0]
HIGH AKTAR2:PAUSEus 5:LOW AKTAR2 'BILGI ÇIKIŞA AKTARILDI

KONTROL:
SAYAC = SAYAC + 1
HIGH AKTIF
SEROUT2 CIKIS,396,["M","K","R",29]
SEROUT2 CIKIS,396,["M","K","R",29]
PAUSE 100
LOW AKTIF
PAUSE 100

IF SAYAC = 40 THEN
SAYAC = 0
GOTO VERIGONDER
ELSE
GOTO KONTROL
ENDIF

GOTO KONTROL

VERIGONDER:
LOW AKTIF
PAUSE 100
AL = 0

'-------------------------------------------------------------------------------    
BASLA: 
       LOW AKTIF               
'       SerIn2 GIRIS,396,1000,BASLA2,[WAIT ("ETE"),AL]
'       SerIn2 GIRIS,396,1000,BASLA2,[WAIT ("ETE"),AL]
'       SerIn2 GIRIS,396,[WAIT ("ETE"),AL]
       SerIn2 GIRIS,396,[WAIT ("M"),AL]

       IF AL = 1 THEN
       TOGGLE PORTB.0
       TOGGLE BILGI1.0 
       SHIFTOUT DTA,CLK,1,[BILGI1]
       HIGH AKTAR1:PAUSEus 5:LOW AKTAR1 'BILGI ÇIKIŞA AKTARILDI
       ENDIF
           
       IF AL = 2 THEN
       TOGGLE BILGI1.1
       SHIFTOUT DTA,CLK,1,[BILGI1]
       HIGH AKTAR1:PAUSEus 5:LOW AKTAR1 'BILGI ÇIKIŞA AKTARILDI
       ENDIF
       
       IF AL = 3 THEN
       TOGGLE BILGI1.2 
       SHIFTOUT DTA,CLK,1,[BILGI1]
       HIGH AKTAR1:PAUSEus 5:LOW AKTAR1 'BILGI ÇIKIŞA AKTARILDI
       ENDIF
           
       IF AL = 4 THEN
       TOGGLE BILGI1.3
       SHIFTOUT DTA,CLK,1,[BILGI1]
       HIGH AKTAR1:PAUSEus 5:LOW AKTAR1 'BILGI ÇIKIŞA AKTARILDI
       ENDIF
       
       IF AL = 5 THEN
       TOGGLE BILGI1.4 
       SHIFTOUT DTA,CLK,1,[BILGI1]
       HIGH AKTAR1:PAUSEus 5:LOW AKTAR1 'BILGI ÇIKIŞA AKTARILDI
       ENDIF
           
       IF AL = 6 THEN
       TOGGLE BILGI1.5
       SHIFTOUT DTA,CLK,1,[BILGI1]
       HIGH AKTAR1:PAUSEus 5:LOW AKTAR1 'BILGI ÇIKIŞA AKTARILDI
       ENDIF
       
       IF AL = 7 THEN
       TOGGLE BILGI1.6 
       SHIFTOUT DTA,CLK,1,[BILGI1]
       HIGH AKTAR1:PAUSEus 5:LOW AKTAR1 'BILGI ÇIKIŞA AKTARILDI
       ENDIF
           
       IF AL = 8 THEN
       TOGGLE BILGI1.7
       SHIFTOUT DTA,CLK,1,[BILGI1]
       HIGH AKTAR1:PAUSEus 5:LOW AKTAR1 'BILGI ÇIKIŞA AKTARILDI
       ENDIF
       
       IF AL = 9 THEN
       TOGGLE BILGI2.0 
       SHIFTOUT DTA,CLK,1,[BILGI2]
       HIGH AKTAR2:PAUSEus 5:LOW AKTAR2 'BILGI ÇIKIŞA AKTARILDI
       ENDIF
           
       IF AL = 10 THEN
       TOGGLE BILGI2.1
       SHIFTOUT DTA,CLK,1,[BILGI2]
       HIGH AKTAR2:PAUSEus 5:LOW AKTAR2 'BILGI ÇIKIŞA AKTARILDI
       ENDIF
       
       IF AL = 11 THEN
       TOGGLE BILGI2.2 
       SHIFTOUT DTA,CLK,1,[BILGI2]
       HIGH AKTAR2:PAUSEus 5:LOW AKTAR2 'BILGI ÇIKIŞA AKTARILDI
       ENDIF
           
       IF AL = 12 THEN
       TOGGLE BILGI2.3
       SHIFTOUT DTA,CLK,1,[BILGI2]
       HIGH AKTAR2:PAUSEus 5:LOW AKTAR2 'BILGI ÇIKIŞA AKTARILDI
       ENDIF
       
       IF AL = 13 THEN
       TOGGLE BILGI2.4
       SHIFTOUT DTA,CLK,1,[BILGI2]
       HIGH AKTAR2:PAUSEus 5:LOW AKTAR2 'BILGI ÇIKIŞA AKTARILDI
       ENDIF
           
       IF AL = 14 THEN
       TOGGLE BILGI2.5
       SHIFTOUT DTA,CLK,1,[BILGI2]
       HIGH AKTAR2:PAUSEus 5:LOW AKTAR2 'BILGI ÇIKIŞA AKTARILDI
       ENDIF
       
       IF AL = 15 THEN
       TOGGLE BILGI2.6 
       SHIFTOUT DTA,CLK,1,[BILGI2]
       HIGH AKTAR2:PAUSEus 5:LOW AKTAR2 'BILGI ÇIKIŞA AKTARILDI
       ENDIF
           
       IF AL = 16 THEN
       TOGGLE BILGI2.7
       SHIFTOUT DTA,CLK,1,[BILGI2]
       HIGH AKTAR2:PAUSEus 5:LOW AKTAR2 'BILGI ÇIKIŞA AKTARILDI
       ENDIF
       
       IF AL = 17 THEN ' BÜTÜN ÇIKIŞLAR KAPATILDI
       BILGI1 = 0
       SHIFTOUT DTA,CLK,1,[BILGI1]
       HIGH AKTAR1:PAUSEus 5:LOW AKTAR1 'BILGI ÇIKIŞA AKTARILDI
       BILGI2 = 0
       SHIFTOUT DTA,CLK,1,[BILGI2]
       HIGH AKTAR2:PAUSEus 5:LOW AKTAR2 'BILGI ÇIKIŞA AKTARILDI
       ENDIF
                           
       IF AL = 18 THEN
       BILGI1 = $FF
       SHIFTOUT DTA,CLK,1,[BILGI1]
       HIGH AKTAR1:PAUSEus 5:LOW AKTAR1 'BILGI ÇIKIŞA AKTARILDI
       BILGI2 = $FF
       SHIFTOUT DTA,CLK,1,[BILGI2]
       HIGH AKTAR2:PAUSEus 5:LOW AKTAR2 'BILGI ÇIKIŞA AKTARILDI
       ENDIF
                   
       pause 50
       GOTO BASLA

END

[crypto]

Haberleşme isiste normal dediğin için kodlara bakmadım.
SN75176 nın A ve B uçları arasında 100 ohm direnç var mı? Eğer yoksa 100 ohm direnç atman gerekiyor.

[mikro29]

@crypto , ilgin için teşekkürederim problemi hserin ve hserout ile hallettim şimdilik problem yok   herkese kolay gelsin