/*************************************************
*			common.ext
*			(GPCP interface to replace SDTMON)
**************************************************/


console_check: 		PROCEDURE 							EXTERNAL;
END console_check;

in_char: 			PROCEDURE 					BYTE 	EXTERNAL;
END in_char;

input_line:			PROCEDURE							EXTERNAL;
END input_line;

log_n_check: 		PROCEDURE 							EXTERNAL;
END log_n_check;

milli_sec: 			PROCEDURE 							EXTERNAL;
END milli_sec;

print: 				PROCEDURE 							EXTERNAL;
END print;

print_bin_BYTE: 	PROCEDURE 	(number)				EXTERNAL;
DECLARE
	number 		BYTE;
END print_bin_BYTE;

print_bin_nib: 		PROCEDURE 	(number)				EXTERNAL;
DECLARE
	number 		BYTE;
END print_bin_nib;

print_bin_word: 	PROCEDURE 	(number)				EXTERNAL;
DECLARE
	number 		WORD;
END print_bin_word;

print_char: 		PROCEDURE 	(char)					EXTERNAL;
DECLARE
	char 		BYTE;
END print_char;

print_dec_BYTE: 	PROCEDURE	(number)				EXTERNAL;
DECLARE
	number 		BYTE;
END print_dec_BYTE;

print_dec_nib: 		PROCEDURE	(number)				EXTERNAL;
DECLARE
	number 		BYTE;
END print_dec_nib;

print_dec_word: 	PROCEDURE	(number)				EXTERNAL;
DECLARE
	number 		WORD;
END print_dec_word;

print_hex_BYTE: 	PROCEDURE	(number)				EXTERNAL;
DECLARE
	number 		BYTE;
END print_hex_BYTE;

print_hex_nib: 		PROCEDURE	(number)				EXTERNAL;
DECLARE
	number 		BYTE;
END print_hex_nib;

print_hex_word: 	PROCEDURE	(number)				EXTERNAL;
DECLARE
	number 		WORD;
END print_hex_word;

print_spaces: 		PROCEDURE	(number)				EXTERNAL;
DECLARE
	number 		WORD;
END print_spaces;

print_string: 		PROCEDURE	(string$ptr)			EXTERNAL;
DECLARE
	string$ptr 	POINTER;
END print_string;

restore_reg: 		PROCEDURE							EXTERNAL;
END restore_reg;

save_reg: 			PROCEDURE							EXTERNAL;
END save_reg;


DECLARE
	td$version (4)		BYTE							EXTERNAL,
	td$debug			WORD							EXTERNAL,
	td$erronly			WORD							EXTERNAL,
	td$v	(16)		WORD							EXTERNAL;

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