Pas mal, pas mal (j'ai pas vérifié que c'était bon).

On peut améliorer un peu :

move.w	d1,d2 
lsl.w	#7,d1	; Y*128 
lsl.w	#5,d2	; Y* 32 
add.w	d2,d1	; Y*(128+32)

peut être remplacé par

lsl.w	#5,d1
move.w	d1,d2 
lsl.w	#2,d1
add.w	d2,d1

qui prend moins de cycles sur 68000.