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