/* k 0016 	09/07/90	*/
/* k 0224       23/09/91        *//* ebss */
/* k 0227       26/09/91        *//* corrections for literals */
#define TEXTCOLOR WHITE
#define ERRORCOLOR LIGHTRED + BLINK
#define BLANKCOLOR BLACK
#define HEADERCOLOR WHITE + (RED << 4)
#define REDGREEN    RED + (GREEN << 4)
#define GREENRED    GREEN + (RED << 4)
#define BLACKGREEN  BLACK + (GREEN << 4)

#define HIGHpos(z) z >> 8
#define LOWpos(z)  z & 0xFF

#define SField 0x1D
#define SBA 0x11
#define InsCursor 0x13
#define RepeatAddr 0x14
#define EraseUA 0x12
#define PTab 0x09
#define EraseWr 0x35
#define Wr 0x31
#define ErUnprot 0x3F
#define RdMod 0x36
#define Rd  0x032


#define ON 1
#define OFF 0
#define BS 8
#define FORMFEED 12
#define CR 13
#define LF 10
#define CTRLZ 26
#define ESC 27
#define HOMEKEY 327
#define ENDKEY 335
#define UPKEY 328
#define DOWNKEY 336
#define PGUPKEY 329
#define PGDNKEY 337
#define LEFTKEY 331
#define INSKEY 338
#define RIGHTKEY 333
#define DELKEY 339
#define CTRLLEFTKEY 371
#define CTRLRIGHTKEY 372
#define CTRLEND 373
#define CTRLPGDN 374
#define CTRLHOME 375
#define TABLEFT 271
#define TABRIGHT 9
#define F1 315
#define F2 316
#define F3 317
#define F4 318
#define F5 319
#define F6 320
#define F7 321
#define F8 322
#define F9 323
#define F10 324
#define F11 388
#define F12 389
#define SF1 340
#define SF2 341
#define SF3 342
#define SF4 343
#define SF5 344
#define CTRLF1 350
#define CTRLF9 358
#define CTRLF10 359
#define ALTF1 360
#define ALTF2 361
#define ALTF8 367
#define ALTF9 368
#define ALTQ 272
#define ALTI 279
#define ALTM 306
#define ALTJ 292
#define ALTK 293
#define ALTZ 300
#define ALTX 256+45						/* 0016 */
#define ALTslash 309
#define TESTREQ 276 /*alt-t*/
#define DUP 288    /*alt-d*/
#define FM  289    /*alt-f*/

#define VT_MODE 0x40
#define VT_ACT  0x80
#define VT_IO   0x20
/* @0224 */
#define D7	    0x80
#define SYSD	    0x04
#define VVODZ	    0x08
#define BUFMODIFY   0x10
#define SOUND	    0x20
#define KURSOR_MASK 0x08
#define ATTRIB_MASK 0x02
#define RBYTE	0
#define WBYTE	1
#define WCURSOR 2
#define WBYTEATTR 1
#define RCURSOR 3
#define WIV	4
#define RESETBM 7
#define RESETSND 11

#define HIGHpos(z) z >> 8
#define LOWpos(z)  z & 0xFF

#define DATA	0x240
#define CODE	0x241
#define LOWADDR 0x242
#define HIGHADDR 0x243
#define INDPORT 0x24F
#define SETD7	outportb(0x24C,0);
#define PORT7	0x24C
#define INDICATE(z) z = inportb(0x24F);
#define WAITD7	while (inportb(24F) & D7);

#define EX_WIV(z)  outportb (DATA,z); outportb (CODE,WIV);outportb(PORT7,0);while(inportb(INDPORT) & D7);
#define EX_RESETBM  outportb (CODE,RESETBM);outportb(PORT7,0);while(inportb(INDPORT) & D7);
#define EX_RESETSND  outportb (CODE,RESETSND);outportb(PORT7,0);while(inportb(INDPORT) & D7);
 