ack/mach/z8000/libem/rck.s
1987-01-19 10:51:50 +00:00

17 lines
183 B
ArmAsm

.define rck
.sect .text
.sect .rom
.sect .data
.sect .bss
.sect .text
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