... phím nào là xong, đơn vị này tên là Keyboardvà có thể dịch trong các môi trường Turbo Pascal và Borland Pascal.Trong đơn vị chương trình nàycó lệnh InstallKeyboard dùng để cài lệnh thường trú ... *)VARKeyPress,Key : Array[0..127] of Boolean;OldInt9h : Procedure;PROCEDURE InstallKeyboard;PROCEDURE UnInstallKeyboard;IMPLEMENTATION{$F+}PROCEDURE NewInt9h; Assembler;AsmPush AXPush BXPush DSMov ... InstallKeyboard;Var KeyCount : Byte;BeginIf Install then Exit;FillChar(KeyPress,SizeOf(KeyPress),False);GetIntVec(9,@OldInt9h);SetIntVec(9,@NewInt9h);Install:=True;End;PROCEDURE UnInstallKeyboard;BeginIf...