ack/mach/m68k4/libem/mli.s

37 lines
374 B
ArmAsm
Raw Normal View History

1985-02-07 22:06:32 +00:00
.define .mli
.text
.mli:
move.l d5,.savmli
move.l (sp)+,.retmli
move.l (sp)+,d1
move.l (sp)+,d0
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 .savmli,d5
move.l .retmli,-(sp)
rts
.data
.savmli: .long 0
.retmli: .long 0
.text
.align 2