ack/mach/m68k2/libem/mli.s
1984-12-14 15:41:14 +00:00

31 lines
293 B
ArmAsm

.define .mli
.text
.mli:
move.l (sp)+,a0
move.l (sp)+,d1
move.l (sp)+,d0
move.l d5,-(sp)
clr d5
tst.l d0
bpl 1f
neg.l d0
not d5
1:
tst.l d1
bpl 2f
neg.l d1
not d5
2:
move.l d0,-(sp)
move.l d1,-(sp)
jsr .mlu
tst d5
beq 3f
neg.l d1
negx.l d0
3:
move.l (sp)+,d5
jmp (a0)