$eject

/*
 *   Name:        KEYBOARD.LIT
 */


DECLARE
		/* TYPES contain types of scancodes 0 - 83; see do case */

	types (N$KEY$CODES) BYTE DATA(

	/*  0-15 */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
	/* 16-31 */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0,
	/* 32-47 */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0,
	/* 48-63 */ 0, 0, 0, 0, 0, 0, 2, 0, 3, 0, 4, 0, 0, 0, 0, 0,
	/* 64-79 */ 0, 0, 0, 0, 0, 5, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0,
	/* 80-95 */ 0, 0, 0, 7);
 
/*
 * Values contains ASCII codes for scancodes 0 - 84  (10 * 84 = 840)
 */

DECLARE
	values (840)  BYTE  DATA(

	/* at offset 0 * 84 - Normal case */

/*  0-15 */ 00H,1BH,'1','2','3','4','5','6','7','8','9','0','-','=',7FH,09H,
/* 16-31 */ 'q','w','e','r','t','y','u','i','o','p','[',']',0DH,00H,'a','s',
/* 32-47 */ 'd','f','g','h','j','k','l',';',27H,'`',00H,'\','z','x','c','v',
/* 48-63 */ 'b','n','m',',','.','/',00H,'*',00H,' ',00H,3BH,3CH,3DH,3EH,3FH,
/* 64-79 */ 40H,41H,42H,43H,44H,00H,00H,1DH,1EH,00H,'-',1FH,00H,19H,'+',00H,
/* 80-95 */ 1CH,00H,00H,7FH,

	/* at offset 1 * 84 - shift */

/*  0-15 */ 00H,1BH,'!','@','#','$','%','^','&','*','(',')','_','+',7FH,00H,
/* 16-31 */ 'Q','W','E','R','T','Y','U','I','O','P','{','}',0DH,00H,'A','S',
/* 32-47 */ 'D','F','G','H','J','K','L',':','"','~',00H,'|','Z','X','C','V',
/* 48-63 */ 'B','N','M','<','>','?',00H,'*',00H,' ',00H,54H,55H,56H,57H,58H,
/* 64-79 */ 59H,5AH,5BH,5CH,5DH,00H,00H,'7','8','9','-','4','5','6','+','1',
/* 80-95 */ '2','3','0',7FH,

	/* at offset 2 * 84 - caps lock */

/*  0-15 */ 00H,1BH,'1','2','3','4','5','6','7','8','9','0','-','=',7FH,09H,
/* 16-31 */ 'Q','W','E','R','T','Y','U','I','O','P','[',']',0DH,00H,'A','S',
/* 32-47 */ 'D','F','G','H','J','K','L',';',27H,'`',00H,'\','Z','X','C','V',
/* 48-63 */ 'B','N','M',',','.','/',00H,'*',00H,' ',00H,54H,55H,56H,57H,58H,
/* 64-79 */ 59H,5AH,5BH,5CH,5DH,00H,00H,1DH,1EH,00H,'-',1FH,00H,19H,'+',00H,
/* 80-95 */ 1CH,00H,00H,7FH,

	/* at offset 3 * 84 - shift and caps lock */

/*  0-15 */ 00H,1BH,'!','@','#','$','%','^','&','*','(',')','_','+',7FH,00H,
/* 16-31 */ 'q','w','e','r','t','y','u','i','o','p','{','}',0DH,00H,'a','s',
/* 32-47 */ 'd','f','g','h','j','k','l',':','"','~',00H,'|','z','x','c','v',
/* 48-63 */ 'b','n','m','<','>','?',00H,'*',00H,' ',00H,54H,55H,56H,57H,58H,
/* 64-79 */ 59H,5AH,5BH,5CH,5DH,00H,00H,'7','8','9','-','4','5','6','+','1',
/* 80-95 */ '2','3','0',7FH,

	/* at offset 4 * 84 - num lock */

/*  0-15 */ 00H,1BH,'1','2','3','4','5','6','7','8','9','0','-','=',7FH,09H,
/* 16-31 */ 'q','w','e','r','t','y','u','i','o','p','[',']',0DH,00H,'a','s',
/* 32-47 */ 'd','f','g','h','j','k','l',';',27H,'`',00H,'\','z','x','c','v',
/* 48-63 */ 'b','n','m',',','.','/',00H,'*',00H,' ',00H,3BH,3CH,3DH,3EH,3FH,
/* 64-79 */ 40H,41H,42H,43H,44H,00H,00H,'7','8','9','-','4','5','6','+','1',
/* 80-95 */ '2','3','0',7FH,

	/* at offset 5 * 84 - shift and num lock */

/*  0-15 */ 00H,1BH,'!','@','#','$','%','^','&','*','(',')','_','+',7FH,00H,
/* 16-31 */ 'Q','W','E','R','T','Y','U','I','O','P','{','}',0DH,00H,'A','S',
/* 32-47 */ 'D','F','G','H','J','K','L',':','"','~',00H,'|','Z','X','C','V',
/* 48-63 */ 'B','N','M','<','>','?',00H,'*',00H,' ',00H,54H,55H,56H,57H,58H,
/* 64-79 */ 59H,5AH,5BH,5CH,5DH,00H,00H,1DH,1EH,00H,'-',1FH,00H,19H,'+',00H,
/* 80-95 */ 1CH,00H,00H,7FH,

	/* at offset 6 * 84 - caps lock and num lock */

/*  0-15 */ 00H,1BH,'1','2','3','4','5','6','7','8','9','0','-','=',7FH,09H,
/* 16-31 */ 'Q','W','E','R','T','Y','U','I','O','P','[',']',0DH,00H,'A','S',
/* 32-47 */ 'D','F','G','H','J','K','L',';',27H,'`',00H,'\','Z','X','C','V',
/* 48-63 */ 'B','N','M',',','.','/',00H,'*',00H,' ',00H,3BH,3CH,3DH,3EH,3FH,
/* 64-79 */ 40H,41H,42H,43H,44H,00H,00H,'7','8','9','-','4','5','6','+','1',
/* 80-95 */ '2','3','0',7FH,

	/* at offset 7 * 84 - shift and caps lock and num lock */

/*  0-15 */ 00H,1BH,'!','@','#','$','%','^','&','*','(',')','_','+',7FH,00H,
/* 16-31 */ 'q','w','e','r','t','y','u','i','o','p','{','}',0DH,00H,'a','s',
/* 32-47 */ 'd','f','g','h','j','k','l',':','"','~',00H,'|','z','x','c','v',
/* 48-63 */ 'b','n','m','<','>','?',00H,'*',00H,' ',00H,54H,55H,56H,57H,58H,
/* 64-79 */ 59H,5AH,5BH,5CH,5DH,00H,00H,1DH,1EH,00H,'-',1FH,00H,19H,'+',00H,
/* 80-95 */ 1CH,00H,00H,7FH,

	/* at offset 8 * 84 - ctl */

/*  0-15 */ 00H,1BH,00H,00H,00H,00H,1EH,00H,00H,00H,00H,00H,1FH,00H,7FH,00H,
/* 16-31 */ 11H,17H,05H,12H,14H,19H,15H,09H,0FH,10H,1BH,1DH,0AH,00H,01H,13H,
/* 32-47 */ 04H,06H,07H,08H,0AH,0BH,0CH,00H,00H,00H,00H,12H,1AH,18H,03H,16H,
/* 48-63 */ 02H,0EH,0DH,00H,00H,00H,00H,00H,00H,00H,00H,5EH,5FH,60H,61H,62H,
/* 64-79 */ 63H,64H,65H,66H,67H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,
/* 80-95 */ 00H,00H,00H,00H,

	/* at offset 9 * 84 - alt */

/*  0-15 */ 00H,00H,78H,79H,7AH,7BH,7CH,7DH,7EH,7FH,00H,00H,00H,00H,00H,00H,
/* 16-31 */ 00H,00H,00H,00H,00H,00H,00H,00H,00H,00H,1AH,1BH,1CH,00H,1EH,1FH,
/* 32-47 */ 20H,21H,22H,23H,24H,25H,26H,27H,28H,29H,00H,2BH,2CH,2DH,2EH,2FH,
/* 48-63 */ 30H,31H,32H,33H,34H,35H,00H,37H,00H,39H,00H,68H,69H,6AH,6BH,6CH,
/* 64-79 */ 6DH,6EH,6FH,70H,71H,00H,00H,00H,00H,00H,4AH,00H,00H,00H,4EH,00H,
/* 80-95 */ 00H,00H,00H,00H);

/*
 * End of  KEYBOARD.LIT
 */
$eject