.TITLE	TSCOM
	.SBTTL	COMMON DATA SECTION FOR SUBTASKING
;
	.PSECT	SUBCOM,RW,D,GBL,REL,OVR
;	MAXTD IS DEFINED IN TSHEADER.MAC
;
	.MACRO	TABLE
	D=0
	.REPT	MAXTD
	ENT	\D
	D=D+1
	.ENDR
	.EVEN
	.ENDM
;
	.MACRO	ENT	D
TDB'D::	TDBDF$
	TDCM$A
	TDEB$A	TESB'D		;SET POINTER TO ERROR STATUS BLOCK
TESB'D::	ESBDF$
SDB'D::	SDBDF$
	TDEB$A	SESB'D		;SET POINTER TO ERROR STATUS BLOCK
SESB'D::	ESBDF$
	.ENDM
;
	.MACRO	DTABL	SYM
	B=0
	.REPT	MAXTD
	ENX	SYM,\B
	B=B+1
	.ENDR
	.ENDM
;
	.MACRO	ENX	SYM,B
	.WORD	SYM'B
	.ENDM
;
	TABLE
TDB::	DTABL	TDB
SDB::	DTABL	SDB
	.EVEN
	.END