Naja, angenommen Variante rechts
for bitno = 0 to 7
PORTx.Y = ByteVar.bitno
next

Ist genaugenommen natürlich kein shiften