ack/mach/pdp/libem/cms.s

.sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
.sect .text
.define cms~
.extern save~,retu~
! $Id$

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~
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 cms~`
			`.extern save~,retu~`
Header --> Id 1994-06-24 14:02:31 +00:00			`! $Id$`
Initial revision 1984-07-19 12:51:00 +00:00
			`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~`