ack/mach/vax4/libem/fif.s
1985-01-21 12:56:09 +00:00

25 lines
315 B
ArmAsm

#include "em_abs.h"
# $Header$
.globl .fif
.fif:
movl (sp)+,r2
cmpl r0,$4
bneq L1
mulf3 (sp)+,(sp)+,r0
emodf r0,$0,$0f1.0,r1,-(sp)
subf3 (sp),r0,-(sp)
jmp (r2)
L1:
cmpl r0,$8
bneq L2
muld3 (sp)+,(sp)+,r0
emodd r0,$0,$0f1.0,r0,-(sp)
subd3 (sp),r0,-(sp)
jmp (r2)
L2:
pushl $EILLINS
jmp .fat