.TITLE	REGSAV	ROUTINE TO SAVE AND RESTORE ALL REGS
.IDENT	'SAV001'
;
.IDENT	'REGS00'

.PSECT	REGSAV

;	KEN DEMERS
;	UTRC
;	MAY 1979
;
;	THIS ROUTINE SAVE R0-R5 ON THE STACK
;
;	INTERNAL GLOBALS
;
.GLOBL	SAVARG,RSTARG
;
;
;
SAVARG:	MOV	R0,-(SP)	;SAVE REGS
	MOV	R1,-(SP)
	MOV	R2,-(SP)
	MOV	R3,-(SP)
	MOV	R4,-(SP)
	MOV	R5,-(SP)
	JMP	@12.(SP)	;RETURN VIA ADDR LEFT ON STACK
;
;
;	THIS ROUTINE RESTORES ALL REGISTERS FROM
;	THE STACK.
;
;
RSTARG:	MOV	(SP)+,12.(SP)	;STORE RETURN ADD ABOVE SAVED REGS
	MOV	(SP)+,R5	;RESTORE REGS
	MOV	(SP)+,R4
	MOV	(SP)+,R3
	MOV	(SP)+,R2
	MOV	(SP)+,R1
	MOV	(SP)+,R0
	RTS	PC
	.END