ack/mach/pdp/libem/exg.s

.sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text
.define exg~
! $Header$

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~
converted to ACK assembler format 1987-05-15 09:11:10 +00:00			`.sect .text; .sect .rom; .sect .data; .sect .bss; .sect .text`
			`.define exg~`
			`! $Header$`

Initial revision 1984-07-19 12:51:00 +00:00			`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~`