Weiß denn einer wo mein Fehler liegt? Vielleicht Register falsch? Timing falsch?

Ich habe das jetzt zum überprüfen mit dem Readpin so gemacht, das ich an Portd.2 eine LED habe. Die schalte ich am Anfang aus.
Nach dem >Loop Until Readpin = 1< Schalte ich die LED dann an. Nur leider geht sie nicht an...