Включение диодов на клавиатуре

[posix]

Всем доброго времени суток. У меня такая проблемка: необходимо написать прогу, что бы загорались диоды на клаве(NUM, SCROLL, CAPS), и причем не сами собой, а по нажатию на конкретные клавиши, которые задаются в самой программе (например на клавиши HOME, PAGE UP, PAGE DOWN). Искал я на вашем форуме, в других разделах. Были примеры на Delphi. Находил вот такие куски кода (для ASM):
Включение Scroll

Asm 
  mov si,40h 
  mov es,si 
  mov si,17h 
  mov al,00010000b 
  mov es:[si],al 
end;

Включение Caps
Код

Asm 
  mov si,40h 
  mov es,si 
  mov si,17h 
  mov al,01000000b 
  mov es:[si],al 
end;

Включение Num
Код

Asm 
  mov si,40h 
  mov es,si 
  mov si,17h 
  mov al,00100000b 
  mov es:[si],al 
end;

закидываю в файл компилю но не воркает. Надеюсь на ваш МОЗГ!!!

[Stilet]

Уверен на 99%, что этот код в Делфи не пройдет.

[posix]

мне на делфях и не надо. Мне просто на asm'e нужно сделать. этот код, который я привел не работает в nasm.

[Stilet]

А ты под чем компилируешь? Если под Windows то да. Он не будет работать. Он предназначен для ДОС, ну или типа того старых систем, с 16-разрядными операционками, которые способны пропустить такой код на выполнение.

[posix]

понял уже))) точнее нашел на сайте...
Вот такой есть кусок... на удивление заработал(в отличии от десятка других, которые находил) ))) с использованием API. зажигает Num. Теперь его надо под asm заточить.. поможете???

procedure ToggleNumLock; 
var 
   KeyState: TKeyboardState; 
begin 
   // Используй VK_CAPITAL для Caps Lock, VK_SCROLL для Num Lock 

   GetKeyboardState(KeyState) ; 

   // Эмулируем события клавиш (down + up) (нажать и отпустить) 
   if (KeyState[VK_NUMLOCK] = 0) then 
   begin 
     Keybd_Event(VK_NUMLOCK, 1, KEYEVENTF_EXTENDEDKEY or 0, 0) ; 
     Keybd_Event(VK_NUMLOCK, 1, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0) ; 
   end 
   else 
   begin 
     Keybd_Event(VK_NUMLOCK, 0, KEYEVENTF_EXTENDEDKEY or 0, 0) ; 
     Keybd_Event(VK_NUMLOCK, 0, KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0) ; 
   end; 
end;

[Stilet]

на удивление

Ничего удивительного )))
Сделай так: Запусти прогу в Делфи, поставь бряк на первую строчку на GetKeyboardState, и открой CPU, отладчик короче - там будет ассемблерный код, который подскажет тебе как действовать.
Помочь я тебе врядли смогу другим, ибо NASM не знаю.

[posix]

ок. гляну)))