Проект Listh очень интересный. Предлагаю реализовать:

MOVE.L D1,-(A7)
MOVE.L (A7)+,D1

Воспоминания Amonik'a тоже интересно почитать.