Odczyt wartości z Portd na Atmega8515 nie działa w Bascomie

Wiec tak uzuwam Atmega8515+graficzny 240*128 i pisze sobie taki programik:
$crystal = 16000000
$regfile = "m8515.dat"
Dim W As Byte
Config Portd = Input
Config Graphlcd = 240 * 128 , Dataport = Porta , Controlport = Portc , Ce = 2 , Cd = 3 , Wr = 0 , Rd = 1 , Reset = 4 , Fs = 5 , Mode = 8
Cls
Do
W=portd
Locate 10 , 10 : Lcd W
Locate 1 , 1 : Lcd "oko"

Loop
End

niestety jak daje sobie na portd jakas kombinacje 0 i 1 to na wyswietlaczy caly czas jest pokazane 0, napisa oko pokazuje sie bez problemu, ale niestety odczyt wartosci portud nie działa. Z gory dziekuje za pomoc

bo w prockach avr do odczytu stanu sluzy rejestr pin a nie port.
powienies napisac W=pind

kozak_sc WIELKIE dziekiii , wkońcy zaczeło działac