ack/mach/vax4/libem/cmf.s
1985-01-18 14:30:03 +00:00

30 lines
337 B
ArmAsm

# $Header$
#include "em_abs.h"
.globl .cmf
.cmf:
movl (sp)+,r1
cmpl r0,$4
bneq L1
clrl r0
cmpf (sp)+,(sp)+
brb L3
L1:
cmpl r0,$8
bneq Lerr
clrl r0
cmpd (sp)+,(sp)+
L3:
beql L2
bgtr L4
incl r0
brb L2
L4:
decl r0
L2:
jmp (r1)
Lerr:
pushl $EILLINS
jmp .fat