.TITLE	DECTDB
;
; FORTRAN CALLABLE SUBROUTINE TO DECLARE A TDB
;
; THIS ROUTINE SHOULD BE CALLED ONCE FOR EACH TDB TO BE USED
; IN A PROGRAM BEFORE CALLING ANY ROUTINE THAT HAS NTDB AS AN ARGUMENT.
;
;   CALL DECTDB(NTDB)
;
;	NTDB  - ORDINAL NUMBER OF SUBTASK
;
	.PSECT	SUBTAS,RO,I,LCL,REL,CON
DECTDB::
	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),R0
	TDBD$T
	BCC	101$
	JSR	PC,ERRTS	;CALL ERROR ROUTINE IF NECESSARY
	RETURN
101$:	MOV	#1,R0		;SUCCESS INDICATOR
	RETURN
	.END