Shift левая, правая

@Shura_deg · Регистрация: 01.02.2015

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

программа для определения какая Shift нажата (левая или правая).

Assembler

.model small
.stack 100h
.data 
mesg     db "Press Shift Left\Right! $"
msgLeft  db "Left Shift! $"
msgRight  db "Left Shift! $"
.code
main:
        mov ax, @data ; настраивается сегментный регистр
        mov ds, ax
        
        mov ah, 09
        mov dx, offset mesg ; вывод сообщения
        int 21h
key:        
    mov ah, 2
    int 16h
    test    al, 2
    jnz leftShift ; нажата левая шифт
    mov ah, 1
    int 16h
    jz  key ; переход на начало подпрограммы если ничего не нажато
;че-то нажато помимо шифтов и котролов
    mov ah, 0
    int 16h
;в al ASCII код нажатой клавиши, в ah скан-код
;   ...
leftShift:
        mov ah, 09
        mov dx, offset msgLeft ; вывод сообщения
        int 21h
exit:        
        mov ah, 01 ; ждет нажатия кнопок
        int 21h
 
        mov ax,4c00h ; выход
        int 21h
 
end main

переходит при нажатии любой кнопки, а должно показывать например нажата левая шифт, правая шифт или вы нажали не ту клавишу

Добавлено через 49 секунд
инфу нашёл но не знаю чё к чему
INT 16h, AH = 02h, 12h, 22h — Считать состояние клавиатуры
Ввод: АН = 02h (83/84-key), 12h (101/102-key), 22h (122-key)
Вывод: AL = байт состояния клавиатуры 1
АН = байт состояния клавиатуры 2 (только для функций 12h и 22h)
Байт состояния клавиатуры 1 (этот байт всегда расположен в памяти по адресу 0000h:0417h или 0040h:0017h):
Бит 7: Ins включена
Бит 6: CapsLock включена
Бит 5: NumLock включена
Бит 4: ScrollLock включена
Бит 3: Alt нажата (любая Alt для функции 02h, часто только левая Alt для 12h/22h)
Бит 2: Ctrl нажата (любая Ctrl)
Бит 1: Левая Shift нажата
Бит 0: Правая Shift нажата
Байт состояния клавиатуры 2 (этот байт всегда расположен в памяти по адресу 0000h:0418h или 0040h:0018h):
Бит 7: SysRq нажата
Бит 6: CapsLock нажата
Бит 5: NumLock нажата
Бит 4: ScrollLock нажата
Бит 3: Правая Alt нажата
Бит 2: Правая Ctrl нажата
Бит 1: Левая Alt нажата
Бит 0: Левая Ctrl нажата

@Argogo · 31.10.2015, 03:56

Shura_deg, как-то так:

Assembler

    ...
    ...
key:        
    hlt
    mov ah, 2
    int 16h
    test    al, 2
    jnz leftShift ; нажата левая шифт
    test    al, 1
    jz  key
; нажата правая шифт
    ...

@Shura_deg · 31.10.2015, 11:25 **[ТС]**

вот получившийся код, работает, но когда вначале например ввожу "р" или любую другую букву а потом shift то программа сразу завершает работу... не могу понять в чём дело

Assembler

.model small
.stack 100h
.data 
mesg     db "Press Shift Left\Right! $"
msgLeft  db "Left Shift! $"
msgRight  db "Right Shift! $"
.code
main:
        mov ax, @data ; настраивается сегментный регистр
        mov ds, ax
        mov ah, 09
        mov dx, offset mesg ; вывод сообщения
        int 21h
key:        
        hlt
        mov ah, 2
        int 16h
        test    al, 2
        jnz leftShift ; нажата левая шифт
        test    al, 1
        jz  key
        ; нажата правая шифт
        mov ah, 09
        mov dx, offset msgRight ; вывод сообщения
        int 21h
        JMP exit
leftShift:      
        mov ah, 09
        mov dx, offset msgLeft ; вывод сообщения
        int 21h     
exit:        
        mov ah, 01 ; ждет нажатия кнопок
        int 21h
        mov ax,4c00h ; выход
        int 21h
end main

@Argogo · 31.10.2015, 12:10

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

но когда вначале например ввожу "р" или любую другую букву а потом shift то программа сразу завершает работу.

Не знаю. У меня такого ни под чистым досом, ни в досбоксе не происходит.

Добавил очистку буфера клавиатуры перед выходом и пару сообщений:

Assembler

.model  small
.stack  100h
.data
mesg        db  "Press Shift Left\Right! $"
msgLeft     db  0dh, 0ah, "Left Shift! $"
msgRight    db  0dh, 0ah, "Right Shift! $"
msgPress    db  0dh, 0ah, "Press a key to exit...$"
msgCrLf     db  0dh, 0ah, '$'
    ;-------
mDisp   MACRO   aStr
    mov dx, offset aStr
    mov ah, 9
    int 21h
    ENDM
    ;-------
.code
main:
    mov ax, @data ; настраивается сегментный регистр
    mov ds, ax
 
    mDisp   mesg ; вывод сообщения
key:        
    hlt
    mov ah, 2
    int 16h
    test    al, 2
    jnz leftShift ; нажата левая шифт
    test    al, 1
    jz  key
    ; нажата правая шифт
    mDisp   msgRight ; вывод сообщения
        JMP exit
leftShift:      
    mDisp   msgLeft ; вывод сообщения
exit:        
    ; очистка буфера клавиатуры
preview:
    mov ah, 1
    int 16h
    jz  end_clr_key
    mov ah, 0
    int 16h
    jmp preview
end_clr_key:
 
    mDisp   msgPress
    mov ah, 0   ; ждет нажатия кнопок
    int 16h
    mDisp   msgCrLf
 
    mov ax, 4c00h ; выход
    int 21h
    end main

	31.10.2015, 12:10

Shift левая, правая

Решение