et si ça marche avec un move:

move.l #360,-(A7)
jsr tios::HeapAlloc ;handle 8*30=240 octets
lea 4(A7),A7
move.w D0,handle
tios:EREF D0,A0
move.l A0,A5