ack/mach/z8000/libem/rck.s
1985-02-17 00:57:20 +00:00

12 lines
125 B
ArmAsm

.define rck
rck:
ld R0, RR14($4)
cp R0, 0(R1)
jr LT, 1f
cp R0, 2(R1)
jr LE, 2f
1: push *RR14, $ERANGE
calr trp
2: ret