VPF::KBD - Форум программистов

Конус

Дата 3.5.2004, 14:57 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Вот хочу чтобы у клавы загорелись три индикатора, но ничего не работает.

BEGIN
ASM
@M1: IN AL,64h
AND AL,00000010b
JNZ @M1

MOV AL,0EDh
OUT 60h,AL

@M2: IN AL,64h
AND AL,00000001b
JZ @M2

MOV AL,00000111
OUT 60h,AL
END;
END.

Помогите!

Jin X

Дата 3.5.2004, 17:23 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 157
Регистрация: 5.3.2004

Репутация: 1
Всего: 1

1. Под NT-шки (в т.ч. 2K/XP) работать не будет.
2. Почему во втором цикле ты проверяешь уже 1-й бит? Там должно быть то же самое. Вообще говоря, лучше сделать timeout (loopnz):

Код

{$S-,G+}
Procedure SendKbdPort(Val: Byte); assembler;
Asm
   cli
   mov cx,2000h
 @:in al,64h
   test al,2
   loopnz @
   mov al,Val
   out 60h,al
   sti
End;

Procedure SetKbdLEDs(Mask: Word); assembler;
Asm
   push 0EDh
   call SendKbdPort
   push Mask
   call SendKbdPort
End;

Begin
  SetKbdLEDs(7)
End.

--------------------

Бойся своей мечты, ибо она осуществима!

Конус

Дата 3.5.2004, 17:45 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

это чтобы проц успел прочитать команду, а уж потом параметр

Jin X

Дата 3.5.2004, 17:53 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 157
Регистрация: 5.3.2004

Репутация: 1
Всего: 1

Как это?

--------------------

Бойся своей мечты, ибо она осуществима!

Guest

Дата 3.5.2004, 17:59 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

А почему работать не будет и нельзя ли попроще это написать.
(насчет первой единицы: рызные тактовые частоты, поэтому надо глянуть RG Status)

Конус

Дата 4.5.2004, 10:01 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Хоть кто-нибудь может помочь, очень надо

Jin X

Дата 6.5.2004, 18:12 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 157
Регистрация: 5.3.2004

Репутация: 1
Всего: 1

Проще можно, но лучше так

--------------------

Бойся своей мечты, ибо она осуществима!

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Asm: Общие вопросы \| Следующая тема »