$save nolist
/*
 *  External declarations relating to SDTMON
 */

td$start:
	procedure external;
end td$start;

td$set$tdt$ptr:
	procedure (tdt$ptr) external;
	declare tdt$ptr pointer;
end td$set$tdt$ptr;

td$this$is$demon:
	procedure word external;
end td$this$is$demon;

td$display:
	procedure (string$ptr) external;
	declare string$ptr pointer;
end td$display;

td$display$char:
	procedure (ch) external;
	declare ch	word;
end td$display$char;

td$display$number:
	procedure (number, format) external;
	declare
		number	word,
		format	word;
end td$display$number;

td$masked$message:
	procedure (string$ptr, msg$type) external;
	declare
		string$ptr	pointer,
		msg$type	word;
	end td$masked$message;

td$can$print:
	procedure (msg$type) word external;
	declare
		msg$type	word;
	end td$can$print;

td$new$line:
	procedure external;
end td$new$line;

td$read$line:
	procedure(buffer$ptr) external;
	declare
		buffer$ptr	pointer;
end td$read$line;

td$detmon:
	procedure external;
end td$detmon;

declare
	td$version (4)		byte external,
	td$debug		word external,
	td$erronly		word external,
	td$v	(16)	word external;

$restore