ack/mach/pdp/libem/exg.s

/ $Header$
	.text
	.globl exg~
exg~:	jsr pc,save~
	mov sp,r4
	sub r0,sp
	mov sp,r3
	mov r0,r1
1:
	mov (r4)+,(r3)+
	sob r0,1b
	asr r1
	mov sp,r4
1:
	mov (r4)+,(r3)+
	sob r1,1b
	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 exg~`
			`exg~: jsr pc,save~`
			`mov sp,r4`
			`sub r0,sp`
			`mov sp,r3`
			`mov r0,r1`
			`1:`
			`mov (r4)+,(r3)+`
			`sob r0,1b`
			`asr r1`
			`mov sp,r4`
			`1:`
			`mov (r4)+,(r3)+`
			`sob r1,1b`
			`mov r4,sp`
			`jmp retu~`