Вывод сообщение на заданную клавишу

[Jonikru]

Задание: Написать программу, которая при нажатии "стрелка вправо" выводит вашу фамилию, имя, отчество, по нажатии буквы "М" выходит из программы. На остальные клавиши не реагирует.

Проблема: По заданию у нас получается так, что мы можем для "стрелка вправо" использовать только ASCII код. Большая буква М у меня работает, а стрелка нет. Не могу понять в чём дело...

;Вывод сообщения по нажатию клавиши.
.model small              ;орпеделить модель вычислений
.stack 100h               ;определяем сегмент стека и задаём его, задаём размер
.data                     ;определяем сегмент данных
                                     
message1 db 'Jonikru Jonikru Jonikru', 0dh, 0ah, '$'  ;сообщение
 
.code                     ;определяем сегмент кода
      mov ax,@data        ;инициализируем сегмент данных
      mov ds,ax           ;в DS заносим адрес начала сегмента данных
if_char:                  ;закр. метка
      mov ah,0h           ;вызов обработки клавиши
      int 16h             ;вызываем 16 прерывание функции 0h
      cmp al,0h

      cmp ah,1ah          ;код клавиши 'right'
jne strv                  ;метка: если нет то переходим по метке
      mov dx,offset message1  ;первая строка
      mov ah,9h               ;вывод строки на экран
      int 21h                 ;вызываем 21 прерывание
jmp if_char               ;метка: возврат

strv:                     ;закр. метка
      cmp al,4dh          ;код клавиши M
jne if_char               ;метка: если нет то переходим по метке
      mov ah,4ch          ;выход из программы
      int 21h             ;вызываем 21 прерывание
end                       ;конец

[Stilet]

cmp ah, 77 ; а не 1а

[Jonikru]

Сообщение от Stilet

cmp ah, 77 ; а не 1а

Это понятно А если в 16 с\с?

[Ivan_32]

4Dh это будет. Переводить можно очень быстро с помощью дефолтового калькулятор или лучше конечно в уме. Отнимаете ближайшее число-степень двойки(в данном случае это 64) и дальше уже считаете как одно разрядное число -
77-64 = 13 = D
64= 40h
40+D= 4Dh

[Jonikru]

Сообщение от Ivan_32

4Dh это будет. Переводить можно очень быстро с помощью дефолтового калькулятор или лучше конечно в уме. Отнимаете ближайшее число-степень двойки(в данном случае это 64) и дальше уже считаете как одно разрядное число -
77-64 = 13 = D
64= 40h
40+D= 4Dh

Но и это не поможет Код правильный! Почему-то нет отображение, хотя если ставить вместо стрелки буквы - будет отображение!
Для наглядности напишу вам табличку в 16 с\с:

Символ                       |  ASCII| SCAN
"Стрелка вправо"      |    1a  |  4d
"Заглавная буква М"  |    4d  |  нет

То бишь, ситуация такая, нам надо использовать только ASCII коды! Плюс только 16 с\с.

[Ulex]

16-ое прерывание по стрелке вправо возвращает ax = 4D00h

[kirillmm]

Прикольно, спасибо за советик.

[Jonikru]

Сообщение от Ulex

16-ое прерывание по стрелке вправо возвращает ax = 4D00h

Спасибо! А как вы это определили? Просто вдруг другие похожие ситуации будут, а что с ними делать не знаю...

[Serge_Bliznykov]

Сообщение от Jonikru

Спасибо! А как вы это определили? Просто вдруг другие похожие ситуации будут, а что с ними делать не знаю...

1) есть таблицы с кодами.
2) ну Вы программист или где?!

вот (для простоты на TurboPascal) программка показывающая коды нажатых клавиш!

исходный текст

var Cod : word;

function ReadKeyWord : word; assembler;
asm
      mov ah,0h
      int 16h
      ret
end;

const
  Digits : array[0..$F] of Char = '0123456789ABCDEF';

function HexW(W : Word) : string;
    {-Return hex string for word}
  begin
    HexW[0] := #4;
    HexW[1] := Digits[hi(W) shr 4];
    HexW[2] := Digits[hi(W) and $F];
    HexW[3] := Digits[lo(W) shr 4];
    HexW[4] := Digits[lo(W) and $F];
  end;
  
begin
   repeat
     Cod := ReadKeyWord;
     WriteLn(HexW(Cod));
   until (Cod=$1C0D) or (Cod=$011B);
end.

[Jonikru]

Сообщение от Serge_Bliznykov

1) есть таблицы с кодами.
2) ну Вы программист или где?!

вот (для простоты на TurboPascal) программка показывающая коды нажатых клавиш!

исходный текст

Вы конечно молодец...
1. Толи вы до сих пор сути проблемы не поняли, я уже не знаю как объяснять.
2. Нет не являюсь, просто изучаю(сарказм здесь не уместен).

Получается вы предлагаете чтобы написать одну программу, надо параллельно написать ещё одну. Этот способ я пробовал, мне интересно есть ли более простое решение.