[Back to KEYBOARD SWAG index] [Back to Main SWAG index] [Original]
UNIT HTkb;
{ Complete set of all keyboard scan codes.
Part of the Heartware Toolkit v2.00 (HTkb.PAS) for Turbo Pascal.
Author: Jose Almeida. P.O.Box 4185. 1504 Lisboa Codex. Portugal.
I can also be reached at RIME network, site ->TIB or #5314.
Feel completely free to use this source code in any way you want, and, if
you do, please don't forget to mention my name, and, give me and Swag the
proper credits. }
INTERFACE
const
{ letters úúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúú }
kb_AA = $1E61; { a }
kb_A = $1E41; { A }
kb_CtrlA = $1E01; { ^A }
{ SOH - Start Of Header }
kb_AltA = $1E00; { ALT A }
kb_BB = $3062; { b }
kb_B = $3042; { B }
kb_CtrlB = $3002; { ^B }
{ STX - Start Of Text }
kb_AltB = $3000; { ALT B }
kb_CC = $2E63; { c }
kb_C = $2E43; { C }
kb_CtrlC = $2E03; { ^C }
{ ETX - End Of Text }
kb_AltC = $2E00; { ALT C }
kb_DD = $2064; { d }
kb_D = $2044; { D }
kb_CtrlD = $2004; { ^D }
{ EOT - End Of Transmission }
kb_AltD = $2000; { ALT D }
kb_EE = $1265; { e }
kb_E = $1245; { E }
kb_CtrlE = $1205; { ^E }
{ ENQ - Enquire }
kb_AltE = $1200; { ALT E }
kb_FF = $2166; { f }
kb_F = $2146; { F }
kb_CtrlF = $2106; { ^F }
{ ACK - Acknowledge }
kb_AltF = $2100; { ALT F }
kb_GG = $2267; { g }
kb_G = $2247; { G }
kb_CtrlG = $2207; { ^G }
{ BEL - Bell }
kb_AltG = $2200; { ALT G }
kb_HH = $2368; { h }
kb_H = $2348; { H }
kb_CtrlH = $2308; { ^H }
{ BS - BackSpace }
kb_AltH = $2300; { ALT H }
kb_II = $1769; { i }
kb_I = $1749; { I }
kb_CtrlI = $1709; { ^I }
{ HT - Horizontal Tab }
kb_AltI = $1700; { ALT I }
kb_JJ = $246A; { j }
kb_J = $244A; { J }
kb_CtrlJ = $240A; { ^J }
{ LF - Line Feed }
kb_AltJ = $2400; { ALT J }
kb_KK = $256B; { k }
kb_K = $254B; { K }
kb_CtrlK = $250B; { ^K }
{ VT - Vertical Tab }
kb_AltK = $2500; { ALT K }
kb_LL = $266C; { l }
kb_L = $264C; { L }
kb_CtrlL = $260C; { ^L }
{ FF - Form Feed (new page) }
kb_AltL = $2600; { ALT L }
kb_MM = $326D; { m }
kb_M = $324D; { M }
kb_CtrlM = $320D; { ^M }
{ CR - Carriage Return }
kb_AltM = $3200; { ALT M }
kb_NN = $316E; { n }
kb_N = $314E; { N }
kb_CtrlN = $310E; { ^N }
{ SO - Shift Out (numbers) }
kb_AltN = $3100; { ALT N }
kb_OO = $186F; { o }
kb_O = $184F; { O }
kb_CtrlO = $180F; { ^O }
{ SI - Shift In (letters) }
kb_AltO = $1800; { ALT O }
kb_PP = $1970; { p }
kb_P = $1950; { P }
kb_CtrlP = $1910; { ^P }
{ DEL - Delete }
kb_AltP = $1900; { ALT P }
kb_QQ = $1071; { q }
kb_Q = $1051; { Q }
kb_CtrlQ = $1011; { ^Q }
{ DC1 - Device Control 1 }
kb_AltQ = $1000; { ALT Q }
kb_RR = $1372; { r }
kb_R = $1352; { R }
kb_CtrlR = $1312; { ^R }
{ DC2 - Device Control 2 }
kb_AltR = $1300; { ALT R }
kb_SS = $1F73; { s }
kb_S = $1F53; { S }
kb_CtrlS = $1F13; { ^S }
{ DC3 - Device Control 3 }
kb_AltS = $1F00; { ALT S }
kb_TT = $1474; { t }
kb_T = $1454; { T }
kb_CtrlT = $1414; { ^T }
{ DC4 - Device Control 4 }
kb_AltT = $1400; { ALT T }
kb_UU = $1675; { u }
kb_U = $1655; { U }
kb_CtrlU = $1615; { ^U }
{ NAK - Negative Acknowlegde }
kb_AltU = $1600; { ALT U }
kb_VV = $2F76; { v }
kb_V = $2F56; { V }
kb_CtrlV = $2F16; { ^V }
{ SYN - Syncronize }
kb_AltV = $2F00; { ALT V }
kb_WW = $1177; { w }
kb_W = $1157; { W }
kb_CtrlW = $1117; { ^W }
{ ETB - End of Text Block }
kb_AltW = $1100; { ALT W }
kb_XX = $2D78; { x }
kb_X = $2D58; { X }
kb_CtrlX = $2D18; { ^X - }
{ CAN - Cancel }
kb_AltX = $2D00; { ALT X }
kb_YY = $1579; { y }
kb_Y = $1559; { Y }
kb_CtrlY = $1519; { ^Y }
{ EM - End of Medium }
kb_AltY = $1500; { ALT Y }
kb_ZZ = $2C7A; { z }
kb_Z = $2C5A; { Z }
kb_CtrlZ = $2C1A; { ^Z }
{ SUB - Substitute }
kb_AltZ = $2C00; { ALT Z }
{ numbers úúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúú }
kb_1 = $0231; { 1 }
kb_Pad1 = $4F31; { SHIFT 1 number pad }
kb_Alt1 = $7800; { ALT 1 }
kb_2 = $0332; { 2 }
kb_Pad2 = $5032; { SHIFT 2 number pad }
kb_Alt2 = $7900; { ALT 2 }
kb_Ctrl2 = $0300; { ^1 (NUL) }
kb_3 = $0433; { 3 }
kb_Pad3 = $5133; { SHIFT 3 number pad }
kb_Alt3 = $7A00; { ALT 3 }
kb_4 = $0534; { 4 }
kb_Pad4 = $4B34; { SHIFT 4 number pad }
kb_Alt4 = $7B00; { ALT 4 }
kb_5 = $0635; { 5 }
kb_Pad5 = $4C35; { SHIFT 5 number pad }
kb_Alt5 = $7C00; { ALT 5 }
kb_6 = $0736; { 6 }
kb_Pad6 = $4D36; { SHIFT 6 number pad }
kb_Ctrl6 = $071E; { ^6 (RS) }
kb_Alt6 = $7D00; { ALT 6 }
kb_7 = $0837; { 7 }
kb_Pad7 = $4737; { SHIFT 7 number pad }
kb_Alt7 = $7E00; { ALT 7 }
kb_8 = $0938; { 8 }
kb_Pad8 = $4838; { SHIFT 8 number pad }
kb_Alt8 = $7F00; { ALT 8 }
kb_9 = $0A39; { 9 }
kb_Pad9 = $4939; { SHIFT 9 number pad }
kb_Alt9 = $8000; { ALT 9 }
kb_0 = $0B30; { 0 }
kb_Pad0 = $5230; { SHIFT 0 number pad }
kb_Alt0 = $8100; { ALT 0 }
{ etc: characters úúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúú }
kb_Less = $333C; { < }
kb_Great = $343E; { > }
kb_Minus = $352D; { - }
kb_GrayMinus = $4A2D; { - }
kb_CtrlMinus = $0C1F; { ^- }
kb_AltMinus = $8200; { ALT - }
kb_ShiftGrayMinus = $4A2D; { SHIFT - }
kb_Plus = $1A2B; { + }
kb_GrayPlus = $4E2B; { + }
kb_WhitePlus = $0D2B; { + }
kb_ShiftGrayPlus = $4E2B; { SHIFT + }
kb_Equal = $0D3D; { = }
kb_AltEqual = $8300; { ALT = }
kb_Slash = $352F; { / }
kb_BackSlash = $2B5C; { \ }
kb_CtrlBackSlash = $2B1C; { ^\ }
{ FS - File Separator }
kb_OpenBracket = $1A5B; { [ }
kb_CtrlOpenBracket = $1A1B; { ^[ }
{ ESC - Escape }
kb_CloseBracket = $1B5D; { ] }
kb_CtrlCloseBracket = $1B1D; { ^] }
{ GS - Group Separator }
kb_OpenParenthesis = $0A28; { ( }
kb_CloseParenthesis = $0B29; { ) }
kb_OpenBrace = $1A7B; { can't write it }
kb_CloseBrace = $1B7D; { can't write it }
kb_Apostrophe = $2827; { ' }
kb_Grave = $2960; { ` }
kb_Quote = $2822; { " }
kb_Tilde = $297E; { ~ }
kb_Cater = $075E; { ^ }
kb_Semicolon = $273B; { ; }
kb_Comma = $332C; { , }
kb_Colon = $273A; { : }
kb_Period = $342E; { . }
kb_ShiftPeriod = $532E; { SHIFT . number pad }
kb_GrayAsterisk = $372A; { * }
kb_WhiteAsterisk = $1A2A; { * }
kb_ExclamationPoint = $0221; { ! }
kb_QuestionMark = $353F; { ? }
kb_NumberSign = $0423; { # }
kb_Dollar = $0524; { $ }
kb_Percent = $0625; { % }
kb_AmpersAnd = $0826; { & }
kb_At = $0340; { @ }
{ ^@ = 00h }
{ NUL - Null Character }
kb_UnitSeparator = $0C5F; { _ }
{ ^_ = 1Fh }
{ US - Unit Separator }
kb_Vertical = $2B7C; { | }
kb_Space = $3920; { SPACE BAR }
{ functions úúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúú }
kb_F1 = $3B00; { F1 }
kb_ShiftF1 = $5400; { SHIFT F1 }
kb_CtrlF1 = $5E00; { ^F1 }
kb_AltF1 = $6800; { ALT F1 }
kb_F2 = $3C00; { F2 }
kb_ShiftF2 = $5500; { SHIFT F2 }
kb_CtrlF2 = $5F00; { ^F2 }
kb_AltF2 = $6900; { ALT F2 }
kb_F3 = $3D00; { F3 }
kb_ShiftF3 = $5600; { SHIFT F3 }
kb_CtrlF3 = $6000; { ^F3 }
kb_AltF3 = $6A00; { ALT F3 }
kb_F4 = $3E00; { F4 }
kb_ShiftF4 = $5700; { SHIFT F4 }
kb_CtrlF4 = $6100; { ^F4 }
kb_AltF4 = $6B00; { ALT F4 }
kb_F5 = $3F00; { F5 }
kb_ShiftF5 = $5800; { SHIFT F5 }
kb_CtrlF5 = $6200; { ^F5 }
kb_AltF5 = $6C00; { ALT F5 }
kb_F6 = $4000; { F6 }
kb_ShiftF6 = $5900; { SHIFT F6 }
kb_CtrlF6 = $6300; { ^F6 }
kb_AltF6 = $6D00; { ALT F6 }
kb_F7 = $4100; { F7 }
kb_ShiftF7 = $5A00; { SHIFT F7 }
kb_CtrlF7 = $6400; { ^F7 }
kb_AltF7 = $6E00; { ALT F7 }
kb_F8 = $4200; { F8 }
kb_ShiftF8 = $5B00; { SHIFT F8 }
kb_CtrlF8 = $6500; { ^F8 }
kb_AltF8 = $6F00; { ALT F8 }
kb_F9 = $4300; { F9 }
kb_ShiftF9 = $5C00; { SHIFT F9 }
kb_CtrlF9 = $6600; { ^F9 }
kb_AltF9 = $7000; { ALT F9 }
kb_F10 = $4400; { F10 }
kb_ShiftF10 = $5D00; { SHIFT F10 }
kb_CtrlF10 = $6700; { ^F10 }
kb_AltF10 = $7100; { ALT F1\0 }
{ cursors úúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúú }
kb_Up = $4800; { UP }
kb_Down = $5000; { DOWN }
kb_Left = $4B00; { LEFT }
kb_CtrlLeft = $7300; { ^LEFT }
kb_Right = $4D00; { RIGHT }
kb_CtrlRight = $7400; { ^RIGHT }
kb_Home = $4700; { HOME }
kb_CtrlHome = $7700; { ^HOME }
kb_End = $4F00; { END }
kb_CtrlEnd = $7500; { ^END }
kb_PgUp = $4900; { PG UP }
kb_CtrlPgUp = $8400; { ^PG UP }
kb_PgDown = $5100; { PG DN }
kb_CtrlPgDown = $7600; { ^PG DN }
{ etc: keys úúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúú }
kb_Esc = $011B; { ESC }
kb_Enter = $1C0D; { RETURN }
kb_CtrlEnter = $1C0A; { ^ENTER }
{ LF - Line Feed }
kb_BackSpace = $0E08; { BACKSPACE }
kb_CtrlBackspace = $0E7F; { ^BACKSPACE }
{ DEL - Delete }
kb_Tab = $0F09; { TAB }
kb_Shift_Tab = $0F00; { SHIFT TAB }
kb_Ins = $5200; { INSERT }
kb_Del = $5300; { DELETE }
kb_45 = $565C; { Key 45 [2] }
kb_Shift45 = $567C; { SHIFT KEY 45 [2] }
kb_CtrlPrtSc = $7200; { ^PRTSC [2] }
kb_CtrlBreak = $0000; { ^BREAK [2] }
{ footnotes úúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúú
[1] All key codes refers to Interrupt 16h Services 0 and 1,
the "Standard Function", that works with all keyboards types.
[2] These key codes are only availlable in the 101/102-key keyboard,
the current IBM standard ("Enhanced") keyboard.
úúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúú
INT 16h, 00h (0) Keyboard Read all
Returns the next character in the keyboard buffer; if no character is
available, this service waits until one is available.
On entry: AH 00h
Returns: AL ASCII character code
AH Scan code
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
Notes: The scan codes are the numbers representing the
location of the key on the keyboard. As new keys
have been added and the keyboard layout rearranged,
this numbering scheme has not been consistent with
its original purpose.
If the character is a special character, then AL
will be 0 and the value in AH will be the extended
scan code for the key.
Use the scan codes to differentiate between keys
representing the same ASCII code, such as the plus
key across the top of the keyboard and the gray plus
key.
After the character has been removed from the
keyboard buffer, the keyboard buffer start pointer
(at 0:041Ah) is increased by 2. If the start pointer
is beyond the end of the buffer, the start pointer
is reset to the start of the keyboard buffer.
If no character is available at the keyboard, then
the AT, XT-286, and PC Convertible issue an INT 15h,
Service 90h (Device Busy), for the keyboard,
informing the operating system that there is a
keyboard loop taking place and thereby allowing the
operating system to perform another task.
After every character is typed, the AT, XT-286, and
PC Convertible issue an INT 15h, Service 91h
(Interrupt Complete). This allows the operating
system to switch back to a task that is waiting for
a character at the keyboard.
See Service 10h for an equivalent service that
supports the enhanced (101/102-key) keyboard.
úúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúú
INT 16h, 01h (1) Keyboard Status all
Checks to see if a character is available in the buffer.
On entry: AH 01h
Returns: Zero 0, if character is available
1, if character is not available
AL ASCII character code (if character is
available)
AH Scan code (if character is available)
ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
Notes: If a character is available, the Zero Flag is
cleared and AX contains the ASCII value in AL and
the scan code in AH. The character is not removed
from the buffer. Use Service 00h to remove the
character from the buffer. See Service 00h for a
complete description of the meaning of AX if a
character is available.
This service is excellent for clearing the keyboard
or allowing a program to be interruptable by a
specific key sequence.
See Service 11h for an equivalent service that
supports the enhanced (101/102-key) keyboard.
úúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúúú }
IMPLEMENTATION
END. { HTkb.PAS }
[Back to KEYBOARD SWAG index] [Back to Main SWAG index] [Original]