ack/mach/ns/libem/sar.s

16 lines
177 B
ArmAsm
Raw Normal View History

1985-07-26 11:56:24 +00:00
.define .sar
.text
.sar:
movd tos, r2
movd 4(sp), r0
subd 0(0(sp)), r0
muld 8(0(sp)), r0
addd r0, 8(sp)
movd 8(0(sp)), 4(sp)
adjspd -4
jsr @.sts
movd r2, tos
ret 0