ack/mach/z8000/libem/rck.s

.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
* empty log message * 1985-01-08 11:48:43 +00:00			`.define rck`
new version for new assembler syntax 1987-01-19 10:51:50 +00:00			`.sect .text`
			`.sect .rom`
			`.sect .data`
			`.sect .bss`
			`.sect .text`
* empty log message * 1985-01-08 11:48:43 +00:00
			`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`