.TITLE	RSUMTS
;
; FORTRAN CALLABLE SUBROUTINE TO RSUM A SUSPENDED SUBTASK
;
;   CALL RSUMTS(NTDB)
;
;	NTDB	- ORDINAL NUMBER OF SUBTASK (DEFAULT 1)
;
	.PSECT	SUBTAS,RO,I,LCL,REL,CON
;
RSUMTS::
	MOVB	(R5)+,R3	;NUMBER OF ARGS
	BLE	20$		;NONE--DEFAULT
	INC	R5
	MOV	(R5)+,R3	;NTDB ADDRESS
	BLE	20$
	MOV	(R3),R3		;NTDB
	CMP	#MAXTD,R3
	BLT	20$
	SUB	#1,R3
	ASL	R3
	BR	21$
20$:	CLR	R3
21$:	MOV	TDB(R3),R3
	RSUM$T	R3
	BCC	101$
	JSR	PC,ERRTS	;CALL ERROR ROUTINE IF NECESSARY
	RETURN
101$:	MOV	#1,R0		;SUCCESS INDICATOR
	RETURN
	.END