Запрет приема скан-кода с клавиатуры на 10 секунд: программа зацикливается

@ugabuga · Регистрация: 05.04.2012

Author24 — интернет-сервис помощи студентам

Всем привет!

У меня проблема технического характера... Работаю на ноутике i7 Windows 7 x64, данный код не работает даже из под Windows. Пытался запустить через MS-DOS, но без успешно. Знакомый проверял код и сказал, что он циклится.
П.С только учусь писать на Ассемблере, и вот такая беда... Что не могу даже проверить программу... Компьютеров в доме больше нет... Пожалуйста скажите в чем проблема то.

Суть программы в запрете приема скан-кода с клавиатуры на 10сек.
(написано на Турбо Паскале):

Pascal

BEGIN
ASM
 
@METKA:
IN AL, 64h     
AND AL, 00000010b    
JNZ @METKA   
 
MOV  AL, 0F5H   
OUT 60h, AL   
 
PUSH DS  
 
MOV DX, 40h  
MOV DS, DX  
MOV DX, DS:[6Ch]   
ADD DX, 180   
@PAUSE:
CMP DX, DS:[6Ch]  
JNZ @PAUSE 
 
MOV CX, 0 
 
@@:
IN AL, 64h   
AND AL, 00000010b   
OUT 60h, AL
    
JZ @PROCEED 
LOOP @@ 
 
@PROCEED:   
 
MOV AL, 0F6H 
OUT 60h, AL  
 
POP DS  
 
END;
END.
 
// Этот код якобы циклится....
// Я решил его подправить, но не могу проверить правильно или тоже шлак... :( 
 
Версия два : 
 
BEGIN
ASM
 
MOV BL, 10
 
@BEGIN 
 
@METKA:
IN AL, 64h     
AND AL, 00000010b    
JNZ @METKA   
 
MOV  AL, 0F5H   
OUT 60h, AL   
 
PUSH DS  
 
MOV DX, 40h  
MOV DS, DX  
MOV DX, DS:[6Ch]   
ADD DX, 180   
@PAUSE:
CMP DX, DS:[6Ch]  
JNZ @PAUSE 
 
MOV CX, 0 
 
@@:
IN AL, 64h   
AND AL, 00000010b   
OUT 60h, AL
    
JZ @PROCEED 
LOOP @@ 
 
@PROCEED:   
 
MOV AL, 0F6H 
OUT 60h, AL  
 
POP DS  
 
DEC BL
JNZ @BEGIN
 
END;
END.

@int9h · 17.12.2012, 15:54

В первом варианте вместо:

Pascal

1
2
3

@PAUSE:
CMP DX, DS:[6Ch] 
JNZ @PAUSE

Попробуй:

Pascal

1
2
3

@PAUSE:
CMP DX, DS:[6Ch] 
JA @PAUSE

Charles Kludge · 17.12.2012, 17:43

А кто сказал, что 0F6h - команда разрешения клавы?

Сообщение от Ralf Brown's Port List

F4h sngl enable keyboard
F5h sngl disable keyboard. set default parameters (no keyboard scanning)
F6h sngl set default parameters

@ugabuga · 17.12.2012, 18:31 **[ТС]**

Вот здесь были описаны коды :

0FFh Сброс клавиатуры и запуск внутреннего теста.

0FEh Повторить последнюю передачу.

0FDh Вызов прерывания IRQ1.

0F6h Привести клавиатуру в исходное состояние и
разрешить сканирование.

0F5h Привести клавиатуру в исходное состояние и
запретить сканирование.

0F4h Сбросить буфер клавиатуры и начать сканирование.

0F3h Задать задержку и скорость ввода символов.
Первоначально клавиатура начинает повторять
нажатую клавишу через 0,5 сек со скоростью
10 повторов в секунду.

Добавлено через 1 минуту
Буду пробывать в 04Fh.
Писец какой-то ... значит не всем интернет ресурсам можно верить....

Charles Kludge · 17.12.2012, 18:42

Вот поэтому я и не люблю переводные доки. Здесь и здесь(+железо/память).

Charles Kludge Клюг 7674 / 3189 / 382 Регистрация: 03.05.2011 Сообщений: 8,380
	17.12.2012, 17:43	3
	А кто сказал, что 0F6h - команда разрешения клавы? Сообщение от Ralf Brown's Port List F4h sngl enable keyboard F5h sngl disable keyboard. set default parameters (no keyboard scanning) F6h sngl set default parameters 0

@ugabuga 1 / 1 / 0 Регистрация: 05.04.2012 Сообщений: 22
	17.12.2012, 18:31 [ТС]	4
	Вот здесь были описаны коды : 0FFh Сброс клавиатуры и запуск внутреннего теста. 0FEh Повторить последнюю передачу. 0FDh Вызов прерывания IRQ1. 0F6h Привести клавиатуру в исходное состояние и разрешить сканирование. 0F5h Привести клавиатуру в исходное состояние и запретить сканирование. 0F4h Сбросить буфер клавиатуры и начать сканирование. 0F3h Задать задержку и скорость ввода символов. Первоначально клавиатура начинает повторять нажатую клавишу через 0,5 сек со скоростью 10 повторов в секунду. Добавлено через 1 минуту Буду пробывать в 04Fh. Писец какой-то ... значит не всем интернет ресурсам можно верить.... 0

Charles Kludge Клюг 7674 / 3189 / 382 Регистрация: 03.05.2011 Сообщений: 8,380
	17.12.2012, 18:42	5
	Вот поэтому я и не люблю переводные доки. Здесь и здесь(+железо/память). 1