7-Segment Displayde Acaba Nerde Hata Yaptım?

[mavikaplan]

Arkadaşlar çok defa kontrol ettim ama hatayı bulamadım, başım ağrıdı iyicene bakalım siz bulabilecekmisiniz
Devre:

Kodlar:

segment var portb
aktif var portc
trisb=0
trisc=0
trisd=%00000111
tara var portd
i var byte
sayi var byte
sayim var byte
sayim=0

basla:
tara=%00001000
while tara!=%10000000
if tara==8 then sayi=1
if tara==16 then sayi=4
if tara==32 then sayi=7
if tara==64 then sayi=10
if portd.0==1 then sayim=sayi:goto yaz
if portd.1==1 then sayim=sayi+1:goto yaz
if portd.2==1 then sayim=Sayi+2:goto yaz
tara=tara<<1
wend

yaz:
if sayim==11 then sayim=0
portc=3 ' 7-Segment 'i Pasif Tut
segment=sayim dig 0
gosub sevenseg
portc=1
pause 1
portc=3 ' 7-Segment 'i Pasif Tut
segment=sayim dig 1
gosub sevenseg
portc=2
pause 1
goto basla

sevenseg:
portc=3 ' 7-Segment 'i Pasif Tut
if segment==0 then segment=$3F
if segment==1 then segment=$06
if segment==2 then segment=$5B
if segment==3 then segment=$4F
if segment==4 then segment=$66   
if segment==5 then segment=$6D
if segment==6 then segment=$7C
if segment==7 then segment=$07
if segment==8 then segment=$7F
if segment==9 then segment=$6F
return

Proteus Dosyası : https://docs.google.com/open?id=0Bw2zrnpVqvJ0OWhWTEg1TWxwUlE

[engineer42]

12. buton toprağa bağlı değil resimde

[mavikaplan]

evet onu fark ettim ama değişen bişey yok. Birde şunu fark ettim, döngü kurarak butonlardan okuma yapamıyorum. Döngü kurmadan rahatlıkla okuma yapabiliyorum, ama döngü kurunca nedense tuşlardan okuma yapmıyor.