PINA=(PINA & (1<< PA7)); // löscht alles bis auf Bit 7
ist sicher nicht was du willst.
Deiner Beschreibung nach willst du ein Stück Draht *) simulieren
PORTA = PORTA << 7; // wenn alle anderen Bits gelöscht werden können. Bit 7 enthält danach den Zustand von Bit 0.
oder etwas langsamer:
PORTA = PORTA & ~(1<<PA7) ) | PORTA << 7; // wenn die anderen Bits erhalten bleiben müssen
Wenn es nicht von Bit 0 nach 7 ginge, wäre noch etwas mehr Bitmaskiererei erforderlich.
Das hat jetzt nichts mit einem 1.5MHz Takt zu tun, oder willst du eigentlich was in der Richtung ?
*) Je nach den Umständen könntest du diesen Code auch durch ein Stück Draht, eine Diode oder irgend einen Logik-IC ersetzen