ATmega8 Eingaenge deffekt?

Ich mache gerade meine ersten Gehversuche mit AVR, Bascom, Ponyprog und
seriellem Programmer.
Heute Morgen war ich noch glücklich, als die erste LED per Taster ein-
uns ausschalten konnte. Und zwar mit ungefäher folgendem Programm:

$regfile = "m8def.dat"
$crystal = 3686400
 Ddrb = &B00000010
Portb = &B00000001


Do
   If Portb.0 = 1 Then
      Portb.1 = 1
   Else
      Portb.1 = 0
   End If
Loop

End

Nach einigen anderen Experimente merkte ich, das da irgend etwas nicht
stimmt. Das obige Programm habe ich neu übertragen. Aber der Eingang in
der Software sieht anscheinend immer eine "0", obwohl ich direkt am
betreffenden Eingang eine "0" bzw. eine "1" je nach stellung des
Tasters messe. Compilleren und Übertragen läuft reibungslos. Als
Eingang habe ich auch Bit 1 bzw. Bit 2 verwendet. Erfolgslos. Als
Ausgang deklarierte Bits reagieren, wenn ich die IF Abfrage ändere.

Kann mir einer bitte sagen, woran es liegen kann oder was ich falsch
mache?

Gruss