PicBasic 16f628A 595 satır taramalı kayan yazı yardım !!!!

[haberlessme]

arkadaşlar satır taramalı bir kayan yazı yapıyorum harfleri 74hc595 ile sutundan dotmatrixlere göndermeye çalıştım kaydırma işine hiç girmedim bile kullandıgım yöntemin daha basiti ve kaydırma olayıyla ilgili öneri ve program yanlışlarımda yardımcı olur musunuz


    TRISA=%00000000
    TRISB=0
   
    VERI VAR BYTE
    DTA VAR PORTA.0
    CLK VAR PORTA.1
    AKTAR VAR PORTA.2
   
   
   
   
   

BASLA:
    PORTB=%11111110
     VERI=%00111100
    SHIFTOUT DTA,CLK,1,[VERI]
    HIGH AKTAR
    PAUSEUS 2
    LOW AKTAR
    PAUSEUS 2
    PAUSE 5

    PORTB=%11111101
     VERI=%01000010
    SHIFTOUT DTA,CLK,1,[VERI]
    HIGH AKTAR
    PAUSEUS 2
    LOW AKTAR
    PAUSEUS 2
    PAUSE 5
   
    PORTB=%11111101
     VERI=%01000010
    SHIFTOUT DTA,CLK,1,[VERI]
    HIGH AKTAR
    PAUSEUS 2
    LOW AKTAR
    PAUSEUS 2
    PAUSE 5
   
   
    PORTB=%11111011
    VERI=%01000010
    SHIFTOUT DTA,CLK,1,[VERI]
    HIGH AKTAR
    PAUSEUS 2
    LOW AKTAR
    PAUSEUS 2
    PAUSE 5
   
    PORTB=%11110111
    VERI=%01000010
    SHIFTOUT DTA,CLK,1,[VERI]
    HIGH AKTAR
    PAUSEUS 2
    LOW AKTAR
    PAUSEUS 2
    PAUSE 5
   
   
    PORTB=%11110111
    VERI=%01111110
    SHIFTOUT DTA,CLK,1,[VERI]
    HIGH AKTAR
    PAUSEUS 2
    LOW AKTAR
    PAUSEUS 2
    PAUSE 5
   
    PORTB=%11101111
    VERI=%01000010
    SHIFTOUT DTA,CLK,1,[VERI]
    HIGH AKTAR
    PAUSEUS 2
    LOW AKTAR
    PAUSEUS 2
    PAUSE 5
   
    PORTB=%11011111
    VERI=%01000010
    SHIFTOUT DTA,CLK,1,[VERI]
    HIGH AKTAR
    PAUSEUS 2
    LOW AKTAR
    PAUSEUS 2
    PAUSE 5
   
    PORTB=%10111111
    VERI=%01000010
    SHIFTOUT DTA,CLK,1,[VERI]
    HIGH AKTAR
    PAUSEUS 2
    LOW AKTAR
    PAUSEUS 2
    PAUSE 5
   
    PORTB=%01111111
    VERI=%01000010
    SHIFTOUT DTA,CLK,1,[VERI]
    HIGH AKTAR
    PAUSEUS 2
    LOW AKTAR
    PAUSEUS 2
    PAUSE 5
   
   
    GOTO BASLA
    END