En 68k, ça donne:
long absl(long n asm("d0"));

absl:
tst.l %d0
slt.b %d1
ext.w %d1
ext.l %d1
eor.l %d1,%d0
sub.l %d1,%d0
rts