/ Entry and exit.
/ New names.

	.globl	__csav
	.globl	__cret

__csav:	mov	r5,(sp)
	mov	r4,-(sp)
	mov	r3,-(sp)
	mov	r2,-(sp)
	mov	sp,r5
	jsr	pc,(r0)		/tst -(sp)	jmp (r0)
 
__cret:	mov	r5,sp
	mov	(sp)+,r2
	mov	(sp)+,r3
	mov	(sp)+,r4
	mov	(sp)+,r5
	rts	pc
