ack/mach/vax4/libem/rck4.s
1990-01-12 10:29:26 +00:00

21 lines
310 B
ArmAsm

#include "em_abs.h"
.sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
.define .rck4
! $Header$
.rck4:
movl (sp)+,r1
movl (sp)+,r0
cmpl (sp),(r0) ! compare lower bound
blss Ierr
cmpl (sp),4(r0) ! compare upper bound
bgtr Ierr
jmp (r1)
Ierr:
pushl r1
pushl $ERANGE
jsb .trp
rsb