Yardımm !!

[haberlesme]

16f628 kullanarak 595 üzerinden a harfini matrixde oluşturmaya çalıştım oluşturdum ama kaydır işine hiç girmedim yaptıgım yöntem doğrumu daha basit bir yolla yyapabilir miyim program hatalarım ve önerilerinizi açıklamalarınızı bekliyorum.


    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 
    satır taramalı yapmaya çalıştım portb den tarayım porta 0 ,1 ve 2 pinleri le 595 i kontrol ediyorum desteginizi bekliyorum