ack/mach/pdp/libem/rck.s
1984-07-19 13:34:12 +00:00

17 lines
168 B
ArmAsm

/ $Header$
.text
.globl rck~
.globl trp~
ERANGE = 1
rck~:
mov (sp)+,r1
cmp (sp),(r0)
blt 1f
cmp (sp),02(r0)
ble 2f
1: mov $ERANGE,-(sp)
jsr pc,trp~
2: jmp (r1)