.TITLE	MG14.. 	REGISTER SAVING ROUTINES.
;
	.IDENT	/MG14../
;
	.SBTTL	SAVE AND UNSAVE REGISTERS 0 TO 5 INCLUSIVE.
;
R$SAVE::	MOV	(SP)+,(PC)+	;PUT RETURN ADDRESS IN NEXT LOCATION.
10$:		.WORD	0		;RETURN ADDRESS STORAGE.
		MOV	R0,-(SP)	;SAVE R0
		MOV	R1,-(SP)	;SAVE R1
		MOV	R2,-(SP)	;SAVE R2
		MOV	R3,-(SP)	;SAVE R3
		MOV	R4,-(SP)	;SAVE R4
		MOV	R5,-(SP)	;SAVE R5
		JMP	@10$		;RETURN
;
;
R$UNSAVE::	MOV	(SP)+,(PC)+	;PUT RETURN ADDRESS IN NEXT LOCATION.
10$:		.WORD	0		;RETURN ADDRESS STORAGE.
		MOV	(SP)+,R5	;UNSAVE R5
		MOV	(SP)+,R4	;UNSAVE R4
		MOV	(SP)+,R3	;UNSAVE R3
		MOV	(SP)+,R2	;UNSAVE R2
		MOV	(SP)+,R1	;UNSAVE R1
		MOV	(SP)+,R0	;UNSAVE R0
		JMP	@10$		;RETURN
;
	.END
;