Synchronous Manchester 8 bit data transferi

[mihri]

Bu data modüllerle data dataclock pulsının yükselen  kenarında alınıp veriliyo vericiden gönderdiğim 8 bit dataın alıcı tarafta 7 bitini alabiliyorum
7. biti alamıyorum. data modül 2400 bps, iki pic arasında böyle bir iletişimi sağlamak için proteusta pulse generator kullandım pulsın yükselen kenarını sürekli takip ediyorum ve istediğim datayı gönderip alıyorum ama alıcı tarafta 7. bit alınmıyo. göndericide gönderilen datanın  8  bitide gidiyo tranzient analizde bunu görebiliyorum ama alıcı sadece ilk 7 biti alıyo program aşağıda, hata nerde ben bulamadım bana yardımcı olabilirmisiniz. Çalışmalarınızda başarılar dilerim.

FOR J=0 TO 7        
       YUKARI6:
       IF DCLOCK=1 THEN
       VERIAL1.7=DIO
       ELSE
       GOTO YUKARI6
       ENDIF
       ASAI6:
       IF DCLOCK=1 THEN GOTO ASAI6
       VERIAL1=VERIAL1>>1          
   NEXT

Burda DIO modülün data input output pini.

[mihri]

Cevap gelene kadar ben çözdüm olayı. Göz atan arkadaşlara teşekkürler.


FOR J=1 TO 9
       VERIAL1=VERIAL1>>1  
       YUKARI6:
       IF DCLOCK=1 THEN
       VERIAL1.7=DIO
       ELSE
       GOTO YUKARI6
       ENDIF
       ASAI6:
       IF DCLOCK=1 THEN GOTO ASAI6                
   NEXT