@M!ni M0nk3y:

Sollte auch gehen und ist vielleicht etwas einfacher

Do
portD.5=PinD.0
Loop

ansonsten einfach eine Bitvariable zu hilfe nehmen:

Do
bitvariable=PinD.0
PortD.5=bitvariable
Loop