Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - srtcer.c05
There is 1 other file named srtcer.c05 in the archive. Click here to see a list.
 REP 2/1	;05C1
	SUBTTL	STOLEN FROM SCAN - D.M.NIXON/DZN	13-Jan-81
 WIT
	SUBTTL	STOLEN FROM SCAN - D.M.NIXON/DZN/GCS	13-Apr-82
 REP 9/1	;05C2
	;COPYRIGHT (C) 1975, 1981 BY DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1975, 1981, 1982 BY DIGITAL EQUIPMENT CORPORATION
 INS 26/2	;05C3
	;   6  .PSH4T - SUBROUTINE TO SAVE T1-4 FOR A SUBROUTINE ........  16	;[500]
	;   7  .POP4T - SUBROUTINE TO RESTORE T1-4 FOR A SUBROUTINE......  16	;[500]
 INS 1/16	;05C4
	;**;[500] At the end of the file,  Insert 20 lines.  GCS  13-APR-82
	SUBTTL	.PSH4T - SUBROUTINE TO SAVE T1-4 FOR A SUBROUTINE	;[500]
	SUBTTL	.POP4T - SUBROUTINE TO RESTORE T1-4 FOR A SUBROUTINE	;[500]

	;.PSH4T -- PUSH T1-T4 ONTO THE STACK	;[500]
	;.POP4T -- POP T1-T4 FROM THE STACK	;[500]
	;CALL:	PUSHJ	P,.PSH4T/.POP4T		;[500]
	;USES NO ACS				;[500]

	.PSH4T:	PUSH	P,T2		;[500] SAVE T2
		PUSH	P,T3		;[500] SAVE T3
		PUSH	P,T4		;[500] SAVE T4
		EXCH	T1,-3(P)	;[500] SAVE T1/GET RETURN
		PUSH	P,T1		;[500] PUT INTO SAFE PLACE
		MOVE	T1,-4(P)	;[500] RESTORE T1
		POPJ	P,		;[500] RETURN

	.POP4T:	POP	P,T1		;[500] GET RETURN
		POP	P,T4		;[500] RESTORE T4
		POP	P,T3		;[500] RESTORE T3
		POP	P,T2		;[500] RESTORE T2
		EXCH	T1,(P)		;[500] RESTORE T1/SAVE RETURN
		POPJ	P,		;[500] RETURN
 SUM 71706