;
;	AUTHOR:
;		R. STODOLA
;		THE INSTITUTE FOR CANCER RESEARCH
;		7701 BURHOLME AVE.
;		PHILADELPHIA, PA.  19111
;
;      *******************************************************
;      *                                                     *
;      *      THIS SOFTWARE WAS DEVELOPED WITH SUPPORT       *
;      *      FROM THE NATIONAL INSTITUTES OF HEALTH:        *
;      *         NIH CA06927                                 *
;      *         NIH CA22780                                 *
;      *                                                     *
;      *      DIRECT INQUIRIES TO:                           *
;      *            COMPUTER CENTER                          *
;      *            THE INSTITUTE FOR CANCER RESEARCH        *
;      *            7701 BURHOLME AVENUE                     *
;      *            PHILADELPHIA, PENNSYLVANIA   19111       *
;      *                                                     *
;      *      NO WARRANTY OR REPRESENTATION, EXPRESS OR      *
;      *      IMPLIED, IS MADE WITH RESPECT TO THE           *
;      *      CORRECTNESS, COMPLETENESS, OR USEFULNESS       *
;      *      OF THIS SOFTWARE, NOR THAT USE OF THIS         *
;      *      SOFTWARE MIGHT NOT INFRINGE PRIVATELY          *
;      *      OWNED RIGHTS.                                  *
;      *                                                     *
;      *      NO LIABILITY IS ASSUMED WITH RESPECT TO        *
;      *      THE USE OF, OR FOR DAMAGES RESULTING FROM      *
;      *      THE USE OF THIS SOFTWARE                       *
;      *                                                     *
;      *******************************************************
;      *                                                     *
;      *      THIS SOFTWARE WAS DESIGNED FOR USE ON A        *
;      *      PDP-11/70 OPERATING UNDER IAS V2.0 USING       *
;      *      THE IAS PDP-11 MACRO ASSEMBLER.                *
;      *                                                     *
;      *******************************************************
	.TITLE	RSTTST	-- READ SUBTASK STATUS
	.IDENT	/ICR001/
	.MCALL	ERBLDF
;
ERM=8.
ERB:	ERBLDF	RSTTST,ERM,3,FATAL
;
JOBNUM:	.WORD	0			;SPACE FOR JOB NAME
JOBSIZ:	.WORD	0			;SPACE FOR JOB SIZE
JOBTIM:	.WORD	0			;SPACE FOR JOB TIME
JOBSTT:	.WORD	0			;SPACE FOR JOB COMPLETION STATUS.
;
RSTTST::
	MOV	#ERB,R4			;SET ERROR BLOCK.
	CALL	.CERR.			;INITIALIZE.
	CLR	@4(R5)			;CLEAR STATUS WORD.
	MOV	@2(R5),R0		;GET TDB FROM IDENT.
	CALL	.GIDNT
	RETURN				;RETURN IF ERROR.
	MOV	#-ERM,R2		;SET ERROR CODE.
	RDEV$T	R3,..STER		;READ TASK STATUS.
	BCS	RET			;GO RETURN IF ERROR.
	MOVB	T.EVNT(R3),R0		;SAVE STATUS BYTE.
	MOVB	R0,@4(R5)		;GIVE IT TO USER.
	BIT	#IF.JS!IF.JA!IF.NL!IF.CH,R0
	BEQ	RET
	MOV	T.EVBF+E.JB(R3),JOBNUM	;SAVE JOB NUMBER.
	MOV	T.EVBF+E.SIZ(R3),JOBSIZ	;SAVE JOB SIZE
	MOV	T.EVBF+E.TIM(R3),JOBTIM	;SAVE JOB TIME
	MOV	#-1,JOBSTT		;SET JOB STATUS TO -1
	BIT	#EV.ST,T.EVBF+E.TR(R3)	;DID JOB EXIT WITH STATUS?
	BEQ	RET
	MOV	T.EVBF+E.TS(R3),JOBSTT	;YES, SO SAVE JOB STATUS.
RET:	RETURN
;
TERMST::
	MOV	JOBNUM,@2(R5)		;JOB NUMBER
	MOV	JOBSIZ,@4(R5)		;JOB SIZE
	MOV	JOBTIM,@6(R5)		;JOB TIME
	MOV	JOBSTT,@10(R5)		;JOB EXIT STATUS.
	RETURN
	.END