ack/mach/pdp/libem/mli4.s

20 lines
213 B
ArmAsm
Raw Normal View History

1984-07-19 12:51:00 +00:00
.text
.globl mli4~
.globl save~,retu~
mli4~:
jsr pc,save~
mov 02(sp),r2
sxt r1
sub (sp),r1
mov 06(sp),r0
sxt r3
sub 04(sp),r3
mul r0,r1
mul r2,r3
add r1,r3
mul r2,r0
sub r3,r0
add $010,sp
jmp retu~