.TITLE	DEBCAL -- START A SUBTASK
	.MCALL	TCSMC$
	TCSMC$
CHAIN:	CDBDF$	,,TS.USE
;
DEBCAL::
	CHN$T	#CHAIN,2(R5),@4(R5)
	RETURN
	.END