/* THE COMPUTER CODE CONTAINED HEREIN IS THE SOLE PROPERTY OF PARALLAX SOFTWARE CORPORATION ("PARALLAX"). PARALLAX, IN DISTRIBUTING THE CODE TO END-USERS, AND SUBJECT TO ALL OF THE TERMS AND CONDITIONS HEREIN, GRANTS A ROYALTY-FREE, PERPETUAL LICENSE TO SUCH END-USERS FOR USE BY SUCH END-USERS IN USING, DISPLAYING, AND CREATING DERIVATIVE WORKS THEREOF, SO LONG AS SUCH USE, DISPLAY OR CREATION IS FOR NON-COMMERCIAL, ROYALTY OR REVENUE FREE PURPOSES. IN NO EVENT SHALL THE END-USER USE THE COMPUTER CODE CONTAINED HEREIN FOR REVENUE-BEARING PURPOSES. THE END-USER UNDERSTANDS AND AGREES TO THE TERMS HEREIN AND ACCEPTS THE SAME BY USE OF THIS FILE. COPYRIGHT 1993-1999 PARALLAX SOFTWARE CORPORATION. ALL RIGHTS RESERVED. */ //#define PASS_KEYS_TO_BIOS 1 //if set, bios gets keys #pragma off (unreferenced) static char rcsid[] = "$Id: key.c,v 1.1.1.1 2006/03/17 20:00:16 zicodxx Exp $"; #pragma on (unreferenced) #include #include #include #include #include //#define WATCOM_10 #include "error.h" #include "key.h" #include "timer.h" #include "dpmi.h" #define KEY_BUFFER_SIZE 16 //-------- Variable accessed by outside functions --------- unsigned char keyd_buffer_type; // 0=No buffer, 1=buffer ASCII, 2=buffer scans unsigned char keyd_repeat; unsigned char keyd_editor_mode; volatile unsigned char keyd_last_pressed; volatile unsigned char keyd_last_released; volatile unsigned char keyd_pressed[256]; volatile int keyd_time_when_last_pressed; typedef struct keyboard { unsigned short keybuffer[KEY_BUFFER_SIZE]; fix time_pressed[KEY_BUFFER_SIZE]; fix TimeKeyWentDown[256]; fix TimeKeyHeldDown[256]; unsigned int NumDowns[256]; unsigned int NumUps[256]; unsigned int keyhead, keytail; unsigned char E0Flag; unsigned char E1Flag; int in_key_handler; void (__interrupt __far *prev_int_9)(); } keyboard; static volatile keyboard key_data; static unsigned char Installed=0; unsigned char ascii_table[128] = { 255, 255, '1', '2', '3', '4', '5', '6', '7', '8', '9', '0', '-', '=',255,255, 'q', 'w', 'e', 'r', 't', 'y', 'u', 'i', 'o', 'p', '[', ']', 255, 255, 'a', 's', 'd', 'f', 'g', 'h', 'j', 'k', 'l', ';', 39, '`', 255, '\\', 'z', 'x', 'c', 'v', 'b', 'n', 'm', ',', '.', '/', 255,'*', 255, ' ', 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255,255,255, 255, 255, 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255, 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255, 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255, 255,255,255,255,255,255,255,255 }; unsigned char shifted_ascii_table[128] = { 255, 255, '!', '@', '#', '$', '%', '^', '&', '*', '(', ')', '_', '+',255,255, 'Q', 'W', 'E', 'R', 'T', 'Y', 'U', 'I', 'O', 'P', '{', '}', 255, 255, 'A', 'S', 'D', 'F', 'G', 'H', 'J', 'K', 'L', ':', '"', '~', 255, '|', 'Z', 'X', 'C', 'V', 'B', 'N', 'M', '<', '>', '?', 255,255, 255, ' ', 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255,255,255, 255, 255, 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255, 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255, 255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255, 255,255,255,255,255,255,255,255 }; extern char key_to_ascii(int keycode ) { int shifted; shifted = keycode & KEY_SHIFTED; keycode &= 0xFF; if ( keycode>=127 ) return 255; if (shifted) return shifted_ascii_table[keycode]; else return ascii_table[keycode]; } void key_putkey (unsigned short keycode) { // this function simulates a key stroke entered char temp; temp = key_data.keytail+1; if ( temp >= KEY_BUFFER_SIZE ) temp=0; if (temp!=key_data.keyhead) { key_data.keybuffer[key_data.keytail] = keycode; key_data.keytail = temp; } } void key_clear_bios_buffer_all() { // Clear keyboard buffer... *(ushort *)0x41a=*(ushort *)0x41c; // Clear the status bits... // *(ubyte *)0x417 = 0; // *(ubyte *)0x418 = 0; } void key_clear_bios_buffer() { // Clear keyboard buffer... *(ushort *)0x41a=*(ushort *)0x41c; } void key_flush() { int i; fix CurTime; _disable(); // Clear the BIOS buffer key_clear_bios_buffer(); key_data.keyhead = key_data.keytail = 0; //Clear the keyboard buffer for (i=0; i= KEY_BUFFER_SIZE ) n=0; return n; } // Returns 1 if character waiting... 0 otherwise int key_checkch() { int is_one_waiting = 0; _disable(); key_clear_bios_buffer(); if (key_data.keytail!=key_data.keyhead) is_one_waiting = 1; _enable(); return is_one_waiting; } int key_inkey() { int key = 0; _disable(); key_clear_bios_buffer(); if (key_data.keytail!=key_data.keyhead) { key = key_data.keybuffer[key_data.keyhead]; key_data.keyhead = add_one(key_data.keyhead); } _enable(); return key; } int key_inkey_time(fix * time) { int key = 0; _disable(); key_clear_bios_buffer(); if (key_data.keytail!=key_data.keyhead) { key = key_data.keybuffer[key_data.keyhead]; *time = key_data.time_pressed[key_data.keyhead]; key_data.keyhead = add_one(key_data.keyhead); } _enable(); return key; } int key_peekkey() { int key = 0; _disable(); key_clear_bios_buffer(); if (key_data.keytail!=key_data.keyhead) { key = key_data.keybuffer[key_data.keyhead]; } _enable(); return key; } // If not installed, uses BIOS and returns getch(); // Else returns pending key (or waits for one if none waiting). int key_getch() { int dummy=0; if (!Installed) return getch(); while (!key_checkch()) dummy++; return key_inkey(); } unsigned int key_get_shift_status() { unsigned int shift_status = 0; _disable(); key_clear_bios_buffer(); if ( keyd_pressed[KEY_LSHIFT] || keyd_pressed[KEY_RSHIFT] ) shift_status |= KEY_SHIFTED; if ( keyd_pressed[KEY_LALT] || keyd_pressed[KEY_RALT] ) shift_status |= KEY_ALTED; if ( keyd_pressed[KEY_LCTRL] || keyd_pressed[KEY_RCTRL] ) shift_status |= KEY_CTRLED; #ifndef NDEBUG if (keyd_pressed[KEY_DELETE]) shift_status |=KEY_DEBUGGED; #endif _enable(); return shift_status; } // Returns the number of seconds this key has been down since last call. fix key_down_time(int scancode) { fix time_down, time; if ((scancode<0)|| (scancode>255)) return 0; #ifndef NDEBUG if (keyd_editor_mode && key_get_shift_status() ) return 0; #endif _disable(); if ( !keyd_pressed[scancode] ) { time_down = key_data.TimeKeyHeldDown[scancode]; key_data.TimeKeyHeldDown[scancode] = 0; } else { time = timer_get_fixed_secondsX(); time_down = time - key_data.TimeKeyWentDown[scancode]; key_data.TimeKeyWentDown[scancode] = time; } _enable(); return time_down; } // Returns number of times key has went from up to down since last call. unsigned int key_down_count(int scancode) { int n; if ((scancode<0)|| (scancode>255)) return 0; _disable(); n = key_data.NumDowns[scancode]; key_data.NumDowns[scancode] = 0; _enable(); return n; } // Returns number of times key has went from down to up since last call. unsigned int key_up_count(int scancode) { int n; if ((scancode<0)|| (scancode>255)) return 0; _disable(); n = key_data.NumUps[scancode]; key_data.NumUps[scancode] = 0; _enable(); return n; } // Use intrinsic forms so that we stay in the locked interrup code. void Int5(); #pragma aux Int5 = "int 5"; #pragma off (check_stack) void __interrupt __far key_handler() { unsigned char scancode, breakbit, temp; unsigned short keycode; #ifndef WATCOM_10 #ifndef NDEBUG ubyte * MONO = (ubyte *)(0x0b0000+24*80*2); if ( ((MONO[0]=='D') && (MONO[2]=='B') && (MONO[4]=='G') && (MONO[6]=='>')) || ((MONO[14]=='<') && (MONO[16]=='i') && (MONO[18]=='>') && (MONO[20]==' ') && (MONO[22]=='-')) || ((MONO[0]==200 ) && (MONO[2]==27) && (MONO[4]==17) ) ) _chain_intr( key_data.prev_int_9 ); #endif #endif // Read in scancode scancode = inp( 0x60 ); switch( scancode ) { case 0xE0: key_data.E0Flag = 0x80; break; default: // Parse scancode and break bit if (key_data.E1Flag > 0 ) { // Special code for Pause, which is E1 1D 45 E1 9D C5 key_data.E1Flag--; if ( scancode == 0x1D ) { scancode = KEY_PAUSE; breakbit = 0; } else if ( scancode == 0x9d ) { scancode = KEY_PAUSE; breakbit = 1; } else { break; // skip this keycode } } else if ( scancode==0xE1 ) { key_data.E1Flag = 2; break; } else { breakbit = scancode & 0x80; // Get make/break bit scancode &= 0x7f; // Strip make/break bit off of scancode scancode |= key_data.E0Flag; // Add in extended key code } key_data.E0Flag = 0; // Clear extended key code if (breakbit) { // Key going up keyd_last_released = scancode; keyd_pressed[scancode] = 0; key_data.NumUps[scancode]++; temp = 0; temp |= keyd_pressed[KEY_LSHIFT] || keyd_pressed[KEY_RSHIFT]; temp |= keyd_pressed[KEY_LALT] || keyd_pressed[KEY_RALT]; temp |= keyd_pressed[KEY_LCTRL] || keyd_pressed[KEY_RCTRL]; #ifndef NDEBUG temp |= keyd_pressed[KEY_DELETE]; if ( !(keyd_editor_mode && temp) ) #endif // NOTICE LINK TO ABOVE IF!!!! key_data.TimeKeyHeldDown[scancode] += timer_get_fixed_secondsX() - key_data.TimeKeyWentDown[scancode]; } else { // Key going down keyd_last_pressed = scancode; keyd_time_when_last_pressed = timer_get_fixed_secondsX(); if (!keyd_pressed[scancode]) { // First time down key_data.TimeKeyWentDown[scancode] = timer_get_fixed_secondsX(); keyd_pressed[scancode] = 1; key_data.NumDowns[scancode]++; #ifndef NDEBUG if ( (keyd_pressed[KEY_LSHIFT]) && (scancode == KEY_BACKSP) ) { keyd_pressed[KEY_LSHIFT] = 0; Int5(); } #endif } else if (!keyd_repeat) { // Don't buffer repeating key if repeat mode is off scancode = 0xAA; } if ( scancode!=0xAA ) { keycode = scancode; if ( keyd_pressed[KEY_LSHIFT] || keyd_pressed[KEY_RSHIFT] ) keycode |= KEY_SHIFTED; if ( keyd_pressed[KEY_LALT] || keyd_pressed[KEY_RALT] ) keycode |= KEY_ALTED; if ( keyd_pressed[KEY_LCTRL] || keyd_pressed[KEY_RCTRL] ) keycode |= KEY_CTRLED; #ifndef NDEBUG if ( keyd_pressed[KEY_DELETE] ) keycode |= KEY_DEBUGGED; #endif temp = key_data.keytail+1; if ( temp >= KEY_BUFFER_SIZE ) temp=0; if (temp!=key_data.keyhead) { key_data.keybuffer[key_data.keytail] = keycode; key_data.time_pressed[key_data.keytail] = keyd_time_when_last_pressed; key_data.keytail = temp; } } } } #ifndef NDEBUG #ifdef PASS_KEYS_TO_BIOS _chain_intr( key_data.prev_int_9 ); #endif #endif temp = inp(0x61); // Get current port 61h state temp |= 0x80; // Turn on bit 7 to signal clear keybrd outp( 0x61, temp ); // Send to port temp &= 0x7f; // Turn off bit 7 to signal break outp( 0x61, temp ); // Send to port outp( 0x20, 0x20 ); // Reset interrupt controller } #pragma on (check_stack) void key_handler_end() { // Dummy function to help calculate size of keyboard handler function } ubyte Status1,Status2; void key_init() { // Initialize queue Status1= *(ubyte*)0x417; Status2= *(ubyte*)0x418; keyd_time_when_last_pressed = timer_get_fixed_seconds(); keyd_buffer_type = 1; keyd_repeat = 1; key_data.in_key_handler = 0; key_data.E0Flag = 0; key_data.E1Flag = 0; // Clear the keyboard array key_flush(); if (Installed) return; Installed = 1; //--------------- lock everything for the virtal memory ---------------------------------- if (!dpmi_lock_region ((void near *)key_handler, (char *)key_handler_end - (char near *)key_handler)) { Error( "Can't lock keyboard handler!\n" ); } if (!dpmi_lock_region (&key_data, sizeof(keyboard))) { Error( "Can't lock keyboard handler's data!\n" ); } if (!dpmi_lock_region (&keyd_buffer_type, sizeof(char))) { Error( "Can't lock keyboard handler's data!\n" ); } if (!dpmi_lock_region (&keyd_repeat, sizeof(char))) { Error( "Can't lock keyboard handler's data!\n" ); } if (!dpmi_lock_region (&keyd_editor_mode, sizeof(char))) { Error( "Can't lock keyboard handler's data!\n" ); } if (!dpmi_lock_region (&keyd_last_pressed, sizeof(char))) { Error( "Can't lock keyboard handler's data!\n" ); } if (!dpmi_lock_region (&keyd_last_released, sizeof(char))) { Error( "Can't lock keyboard handler's data!\n" ); } if (!dpmi_lock_region (&keyd_pressed, sizeof(char)*256)) { Error( "Can't lock keyboard handler's data!\n" ); } if (!dpmi_lock_region (&keyd_time_when_last_pressed, sizeof(int))) { Error( "Can't lock keyboard handler's data!\n" ); } key_data.prev_int_9 = _dos_getvect( 9 ); _dos_setvect( 9, key_handler ); atexit( key_close ); } void key_close() { if (!Installed) return; Installed = 0; _dos_setvect( 9, key_data.prev_int_9 ); _disable(); key_clear_bios_buffer_all(); _enable(); *(ubyte*)0x417=Status1; *(ubyte*)0x418=Status2; }