/*
 *	Written Jan. 84 by David Bridgham.
 */

#define TRUE -1
#define FALSE 0

/*
 * Since various parts of UNIX just can't hack the 0200 bit, we define
 * a fake lead-in escape - 0177, to avoid a sail graphic that is used
 * sometimes...
 */
#define KLUDGE_ESCAPE 0177

/* ITP bits (from the 12-bit character set */
#define ITP_ASCII	00177	/* ascii part of character */
#define ITP_CTL		00200	/* CONTROL key depressed */
#define ITP_MTA		00400	/* META key depressed */
#define ITP_TOP		04000	/* TOP key depressed */
#define CTL_PREFIX	0237	/* c-m-_ is control prefix */
#define ITP_ESCAPE	034	/* user input escape for meta bits
				   or ITP_* frobs */
#define ITP_CHAR(char1,char2) (((char1 & 037) << 7) + char2)

#define ITP_CURSORPOS 020	/* user sends vpos/hpos */
#define ITP_FLOW_CONTROL_START 032 /* Set buffer to zero -- ignored */
#define ITP_FLOW_CONTROL_INCREASE 001 /* increase buffer size -- ignored */
#define ITP_FLOW_CONTROL_END 009 /* Set buffer to infinity -- ignored */

#define ITP_PIATY 003		/* user says her screen is messed-up
				 we don't (can't) hack this */
#define ITP_STOP_OUTPUT 023	/* Ignore it */
#define ITP_RESTART_OUTPUT 022  /* Ignore it */

#define ASCII_CTL_MASK ~(0177-037)
#define ASCII_ESCAPE	033
#define ASCII_PART(char) (char & ITP_ASCII)

#define	ITP_HELP	04110
#define SUPDUP_ESCAPE 	0300
#define SUPDUP_LOGOUT	0301
#define SUPDUP_LOCATION	0302

#define TDMOV	0200
#define TDMV1	0201	/* not defined in supdup spec AIM 644 */
#define TDEOF	0202
#define TDEOL	0203
#define TDDLF	0204
#define TDCRL	0207
#define TDNOP	0210
#define TDBS	0211	/* not defined in supdup spec AIM 644 */
#define TDLF	0212	/* not defined in supdup spec AIM 644 */
#define TDCR	0213	/* not defined in supdup spec AIM 644 */
#define TDORS	0214
#define TDQOT	0215
#define TDFS	0216
#define TDMV0	0217
#define TDCLR	0220
#define TDBEL	0221
#define TDILP	0223
#define TDDLP	0224
#define TDICP	0225
#define TDDCP	0226
#define TDBOW	0227
#define TDRST	0230
#define TDGRF	0231
#define TDSCU	0232	/* Scroll region up */
#define TDSCD	0233	/* Scroll region down */
#define	TDUP	0237	/* Interpreted locally, not in supdup at all */

#define TOERS	(ttyopt[0] & 4)		/* Terminal can erase */
#define TOMVB	(ttyopt[0] & 1)		/* can move backwards */
#define TOOVR	(ttyopt[1] & 010)	/* Over printing */
#define TOMVU	(ttyopt[1] & 4)		/* can move up */
#define	TOFCI	(ttyopt[2] & 010)	/* Terminal has Meta key */
#define TOLID	(ttyopt[2] & 2)		/* Line insert/delete */
#define TOCID	(ttyopt[2] & 1)
#define TOSA1	(ttyopt[1] & 020)	/* send SAIL characters direct */
#define TOMOR	(ttyopt[1] & 2)		/* Do more processing */
#define TOROL	(ttyopt[1] & 1)		/* Do scrolling */
#define TPPRN	(ttyopt[4] & 2)		/* Swap parans and brackets */