Algoritma mantığı yürütemedim kodlar çalışmıyor yardım edebilirmisiniz?

[attiny2313]

Merhaba arkadaşlar, 7 segment displey ve 74hc595 kullanarak bir kayan yazı yapmaya çalışıyorum. 3 adet displeyde birkaç adet harf yada yazı kaydırmam gerekiyor ancak algoritma hakkında mantık yürütemedim. Bu yüzden denemek için aşağıda ki kodu yazdım ve doğru çalışmıyor. Arkadaşlar cuma gününe kadar basic kullanarak bu devreyi yapmam gerekiyor bu yüzden bir algoritma mantığı anlatmanız mümkün mü?

TRISB=0 : PORTB=0SYMBOL CLK=PORTB.0SYMBOL DTA=PORTB.1S VAR BYTEI VAR BYTEBOS VAR BYTESAYI VAR BYTEDURUM VAR BYTE ;LOOKUP DEĞİŞKENİSURE VAR WORDCLEARSURE=500 S=102 : I=109BASLA:SHIFTOUT DTA,CLK,1,[S]HIGH PORTB.4 : PAUSEUS 2 : LOW PORTB.4PAUSE SURE : PORTB.4=PORTB.4<<1 ; BEKLE VE 1 DIJIT KAYDIRSHIFTOUT DTA,CLK,1,[I]HIGH PORTB.4 : PAUSEUS 2 : LOW PORTB.4PAUSE SURE : PORTB.3=PORTB.3<<1 ; BEKLE VE 1 DIJIT KAYDIRGOTO BASLAEND

Devreyi simülasyon yapmak için proteus çizimi:
http://s2.dosya.tc/server10/qCykIz/display.rar.html