Google
 

Trailing-Edge - PDP-10 Archives - bb-y390o-bm_tops20_v41_atpch_20 - autopatch/sprint.c08
There are 2 other files named sprint.c08 in the archive. Click here to see a list.
 REP 37/1	;08C1
		SPTEDT==4304		;Edit Level
 WIT
		SPTEDT==4306		;Edit Level
 INS 647/3	;08C2
	;       4305    14-Dec-83       Correct the way accounting run-time is
	;                               calculated.  GCO 4.2.1564
	;
	;       4306	22-May-84	Correct the /OUTPUT switch processing.
	;				GCO 4.2.1578
	;
 REP 22/40	;08C3
		MOVX	S1,-1			;OUR JOB
		MOVX	S2,JI.RTM		;RUNTIME FUNCTION
		$CALL	I%JINF			;READ OUR RUNTIME
		MOVEM	S2,L.RTM		;REMEMBER FOR ACCOUNTING
 WIT
	;**;[4305]AT SITLIN:+11L REPLACE 4 LINES WITH 3 LINES  JCR 12/14/83
		MOVX	S1,.FHSLF		;[4305]GET FORK HANDLE
		RUNTM				;[4305]GET RUNTIME
		MOVEM	S1,L.RTM		;[4305]REMEMBER FOR ACCOUNTING
 REP 16/124	;08C4
		ADDM	S1,L.RTM		;GET RUNTIME FOR THE JOB
 WIT
	;**;[4305]AT DOFACT:+10L CHANGE 1 LINE  JCR 12/14/83
		SUBM	S1,L.RTM		;[4305]GET RUNTIME FOR THE FORK
 REP 4/146	;08C5
	QUELOG:	GETLIM	S1,.EQLIM(Q),OUTP	;GET THE /OUTPUT SWITCH
		TXNN	F,F.FATE		;WAS THERE A FATAL ERROR?
		CAXE	S1,%EQOLE		;NO, DID HE WANT LOG ON ERROR ONLY?
		SKIPA				;FATAL ERROR, ALWAYS GIVE LOG
		JRST	QUEL.3			;OUTPUT:ERROR, BUT NO ERROR

		$TEXT(LOGTXT,<^I/STSUM/LOG file submitted for printing>)
 WIT
	;**;[4306]At QUELOG:+1L Replace 5 lines with 6 lines  JCR  5/22/84
	QUELOG:	GETLIM	S1,.EQLIM(Q),OUTP	;GET THE /OUTPUT SWITCH
		CAIN	S1,%EQOLG		;[4306]ALWAYS or LOG?
		JRST	QUEL.0			;[4306]Yes
		CAIE	S1,%EQONL		;[4306]No, NOLOG?
		TRNN	F,F.FATE		;[4306]No, was there a fatal error?
		JRST	QUEL.3			;[4306]NOLOG or no fatal error

	QUEL.0:	$TEXT(LOGTXT,<^I/STSUM/LOG file submitted for printing>) ;[4306]
 SUM 66496