ack/mach/pdp/libem/rck.s

.sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
.sect .text
.define rck~
.extern trp~
! $Id$

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)
converted to ACK assembler format 1987-05-15 09:11:10 +00:00			`.sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text`
			`.sect .text`
			`.define rck~`
			`.extern trp~`
Header --> Id 1994-06-24 14:02:31 +00:00			`! $Id$`
Initial revision 1984-07-19 12:51:00 +00:00
			`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)`