Anyway, if you need only shortest code, you can use:
Code:
lea cv(PC),A0
add.w (A0),D5
move.l D5,(A0)
ext.l D5 ; or "and.l #$0000FFFF,D5"
bsr PR0000
time dc.l 0
cout dc.l 0
cv dc.w 0
buf ds.b 4
But this code is slowest because extra command (lea from PR0000) is called too.