        .title saval
	.globl saval    ;save all registers co-routine
	.psect pur,ro
        .ident /21aug0/
;+
;Dec's save all registers, local so we can have r/o psect
;-
saval:
		mov     r4,-(sp)
		mov     r3,-(sp)
		mov     r2,-(sp)
		mov     r1,-(sp)
		mov     r0,-(sp)
		mov     12(sp),-(sp)
		mov     r5,14(sp)
		jsr     pc,@(sp)+
		mov     (sp)+,r0
		mov     (sp)+,r1
		mov     (sp)+,r2
		mov     (sp)+,r3
		mov     (sp)+,r4
		mov     (sp)+,r5
		rts     pc
        .end
