ack/mach/z8000/libem/rck.s

12 lines
125 B
ArmAsm
Raw Normal View History

1985-01-08 11:48:43 +00:00
.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