Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ESC_ equ 1Bh ;скан-код клавиши ESC
- org 100h
- start:
- mov ah,0h
- int 16h ;получаем байт статуса
- cmp al,ESC_ ;проверяем ESC
- je exit
- cmp al,2 ;проверяем SHIFT
- je start ;если 0, то SHIFT выключен
- cmp al, 'Q' ; Q check
- je ShiftQ
- cmp al, 'W' ; W check
- je ShiftW
- cmp al, 'E' ; E check
- je ShiftE
- cmp al, 'R' ; R check
- je ShiftR
- mov ah, 2h
- mov dl, 7h ;7h - bell
- int 21h
- jmp start
- ShiftQ:
- mov ah, 09h ; вывод сообщения
- mov bl, 09fh ; синий текст на белом фоне
- mov cx, 9 ; сообщение длиной 9 байт
- int 10h
- mov dx,str1
- int 21h
- jmp start
- ShiftW:
- mov ah, 09h ; вывод сообщения
- mov bl, 020h ; синий текст на белом фоне
- mov cx, 9 ; сообщение длиной 9 байт
- int 10h
- mov dx,str1
- int 21h
- jmp start
- ShiftE:
- mov ah, 09h ; вывод сообщения
- mov bl, 0FCh ; синий текст на белом фоне
- mov cx, 9 ; сообщение длиной 9 байт
- int 10h
- mov dx,str1
- int 21h
- jmp start
- ShiftR:
- mov ah, 09h ; вывод сообщения
- mov bl, 00Eh ; синий текст на белом фоне
- mov cx, 9 ; сообщение длиной 9 байт
- int 10h
- mov dx,str1
- int 21h
- jmp start
- exit:
- mov ah, 2h
- mov dl, '!'
- int 21h
- mov ah,8h ;ждать нажатия любой клавиши для выхода из программы
- int 21h
- ret
- str1 db "Some Text", $0d,$0a,'$'
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement