Trailing-Edge
-
PDP-10 Archives
-
bb-bt99e-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