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=0
SYMBOL CLK=PORTB.0
SYMBOL DTA=PORTB.1
S VAR BYTE
I VAR BYTE
BOS VAR BYTE
SAYI VAR BYTE
DURUM VAR BYTE ;LOOKUP DEĞİŞKENİ
SURE VAR WORD
CLEAR
SURE=500 
S=102 : I=109
BASLA:
SHIFTOUT DTA,CLK,1,[S]
HIGH PORTB.4 : PAUSEUS 2 : LOW PORTB.4
PAUSE SURE : PORTB.4=PORTB.4<<1 ; BEKLE VE 1 DIJIT KAYDIR
SHIFTOUT DTA,CLK,1,[I]
HIGH PORTB.4 : PAUSEUS 2 : LOW PORTB.4
PAUSE SURE : PORTB.3=PORTB.3<<1 ; BEKLE VE 1 DIJIT KAYDIR
GOTO BASLA
END

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