$SAVE NOLIST
/*****************************************************************************
 * TSCRN.LIT:	Definition of the terminal$attributes data structure and
 *				bit masks for clearing connection, terminal, special, and
 *				link parameter modes used in the BIOS system call RQ$A$SPECIAL
 *				and the EIOS system call RQ$S$SPECIAL.
 *****************************************************************************/

DECLARE
	TERM$ATTR$STRUCT$1	LITERALLY	'
		num$words			WORD_16,
		num$used			WORD_16,
		connection$flags	WORD_16,
		terminal$flags		WORD_16,
		in$baud$rate		SIZE$OF$WORD,
		out$baud$rate		SIZE$OF$WORD,
		scroll$lines		WORD_16',

	TERM$ATTR$STRUCT$2	LITERALLY	'
		page$width			BYTE,
		page$length			BYTE,
		cursor$offset		BYTE,
		overflow$offset		BYTE,
		special$modes		WORD_16,
		high$water$mark		WORD_16,
		low$water$mark		WORD_16',

	TERM$ATTR$STRUCT$3	LITERALLY	'
		fc$on$char			WORD_16,
		fc$off$char			WORD_16,
		link$parameter		WORD_16,
		spc$hi$water$mark	WORD_16,
		special$char(4)		BYTE',

	TERMINAL$ATTRIBUTES$STRUCTURE	LITERALLY	'STRUCTURE(
														TERM$ATTR$STRUCT$1,
														TERM$ATTR$STRUCT$2,
														TERM$ATTR$STRUCT$3)',


	C$MASK$LINE$EDIT			LITERALLY	'00000000$00000011B',
	C$MASK$ECHO					LITERALLY	'00000000$00000100B',
	C$MASK$INPUT$PARITY			LITERALLY	'00000000$00001000B',
	C$MASK$OUTPUT$PARITY		LITERALLY	'00000000$00010000B',
	C$MASK$OUTPUT$CONTROL		LITERALLY	'00000000$00100000B',
	C$MASK$OSC					LITERALLY	'00000000$11000000B',

	T$MASK$LINE$PROTOCOL		LITERALLY	'00000000$00000010B',
	T$MASK$MEDIUM				LITERALLY	'00000000$00000100B',
	T$MASK$MODEM				LITERALLY	'00000000$00001000B',
	T$MASK$INPUT$PARITY			LITERALLY	'00000000$00110000B',
	T$MASK$OUTPUT$PARITY		LITERALLY	'00000001$11000000B',
	T$MASK$TRANSLATION			LITERALLY	'00000010$00000000B',
	T$MASK$AXES					LITERALLY	'00000100$00000000B',
	T$MASK$HORIZONTAL			LITERALLY	'00001000$00000000B',
	T$MASK$VERTICAL				LITERALLY	'00010000$00000000B',

	S$MASK$FLOW					LITERALLY	'00000000$00000001B',
	S$MASK$SPECIAL$CHARACTER	LITERALLY	'00000000$00000010B',
	S$MASK$BUFFER$DEVICE		LITERALLY	'10000000$00000000B',

	L$MASK$LINK$PARITY			LITERALLY	'00000000$00000011B',
	L$MASK$LINK$CHAR$LENGTH		LITERALLY	'00000000$00001100B',
	L$MASK$LINK$STOP			LITERALLY	'00000000$00110000B',
	L$MASK$LINK$USED			LITERALLY	'10000000$00000000B';
$RESTORE