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

18 lines
241 B
ArmAsm

# $Header$
#include "em_abs.h"
.globl .rck4
.rck4:
movl (sp)+,r1
movl (sp)+,r0
cmpl (sp),(r0) # compare lower bound
blss Lerr
cmpl (sp),4(r0) # compare upper bound
bgtr Lerr
jmp (r1)
Lerr:
pushl r1
pushl $ERANGE
jmp .trp