ack/mach/pdp/libem/cms.s

/ $Header$
.text
.globl cms~
.globl save~,retu~

cms~:
	jsr	pc,save~
	mov	r0,r2
	add	sp,r2
	mov	r2,r4
	add	r0,r4
	asr	r0
2:	cmp	(sp)+,(r2)+
	bne	1f
	sob	r0,2b
1:	mov	r4,sp
	jmp	retu~
added rcsid 1984-07-19 13:34:12 +00:00			`/ $Header$`
Initial revision 1984-07-19 12:51:00 +00:00			`.text`
			`.globl cms~`
			`.globl save~,retu~`

			`cms~:`
			`jsr pc,save~`
			`mov r0,r2`
			`add sp,r2`
			`mov r2,r4`
			`add r0,r4`
			`asr r0`
			`2: cmp (sp)+,(r2)+`
			`bne 1f`
			`sob r0,2b`
			`1: mov r4,sp`
			`jmp retu~`