ack/mach/pdp/libem/ciu.s

/ $Header$
.text
.globl cuu~
cuu~:
	mov	(sp)+,r1
	mov	(sp)+,r0
	sub	(sp)+,r0
	ble	1f
	asr	r0
2:	clr	-(sp)
	sob	r0,2b
	jmp	(r1)
1:	sub	r0,sp
	jmp	(r1)
added rcsid 1984-07-19 13:34:12 +00:00			`/ $Header$`
Initial revision 1984-07-19 12:51:00 +00:00			`.text`
			`.globl cuu~`
			`cuu~:`
			`mov (sp)+,r1`
			`mov (sp)+,r0`
			`sub (sp)+,r0`
			`ble 1f`
			`asr r0`
			`2: clr -(sp)`
			`sob r0,2b`
			`jmp (r1)`
			`1: sub r0,sp`
			`jmp (r1)`