Работа с портами 60h,61h,62h,63h,64h

segm segment para public 'code'
assume cs:segm,ds:segm
org 100h
start:jmp init
mas db 128 dup (0) ; массив для хранения нажатий
old09 dd ? ; адрес старого обработчика
sign dw 0fedch ; сигнатура
Int09 proc far
sti
push ax
push bx
push dx
push di
push es
mov ax,40h
mov es,ax
in al,60h ; считаем scan-код из порта
mov ah,al ; проверим, что это не управляющая
IRP
X,<1DH,2AH,36H,3BH,3CH,3DH,3EH,3FH,40H,41H,42H,43H,44H>
cmp ah,X ; клавиша, и, если да, проигнорируем
je ignor ; для этого используем циклическую
ENDM ; макрогенерацию
cmp ah,01h ; если нажата ESC
je sbros ; перейдем на метку sbros
cbw ; расширим scan-код до слова
lea bx,cs:[mas] ; загрузим в bx адрес начала массива
mov si,ax ; в si scan-код – индекс в массиве
mov dh,byte ptr cs:[bx][si] ; из массива в dh поместим
cmp dh,0 ; флаг нажатия и сравним его с 0
jne ignor ; если нажата клавиша – ее игнорируем
mov byte ptr cs:[bx][si],1 ; иначе установим флаг
jmp pass ; и перейдем к стандартному обработчику
ignor:
in al,61h ; подтвердим обработку scan-кода
mov ah,al
or al,80h
out 61h,al
mov al,ah
out 61h,al
cli
mov al,20h ; пошлем EOI в контроллер прерываний
out 20h,al
pop es
pop di
pop dx
pop bx
pop ax
iret
sbros:
lea bx,cs:[mas] ; в bx загрузим адрес начала массива
mov si,0
REPT 128 ; и сбросим флаги нажатий всех
mov byte ptr cs:[bx][si],0 ; клавиш
inc si
ENDM
pass:
pop es
pop di
pop dx
pop bx
pop ax
jmp cs:[old09] ; передадим управление стандартному
Int09 endp ; обработчику
init:
mov ax,3509h ; проверим адрес обработчика int 09h
int 21h
mov ax,es:[bx-2] ; это наш обработчик в памяти?
cmp ax,cs:sign
je outmem ; если наш – на выгрузку
mov word ptr old09,bx ; системный – сохраним его
mov word ptr old09+2,es ; адрес в двойном слове old09
mov bx,cs
mov ds,bx ; установим ds на наш сегмент
mov dx,offset int09 ; в dx поместим адрес нашей ISR
mov ax,2509h ; и запишем адреса в вектор
int 21h ; прерываний
lea dx, init
int 27h ; оставим резидентно
outmem: ; выгрузка
mov dx, word ptr es:old09
mov bx, word ptr es:old09+2
mov ds,bx
mov ax,2509h ; запись в вектор прерываний
int 21h ; адреса стандартного обработчика
push es
mov es,es:[2Ch] ; выгрузка окружения
mov ah,49h
int 21h
pop es
mov ah,49h ; выгрузка программы
int 21h
int 20h
segm ends
end start

old_9int dd ? ;для хранения адреса обработчика старого
;прерывания 09h
;Обработчик прерывания
new_9int proc far
push ax ;сохраняем регистры в стеке
push bx
push di
push es
sti ;разрешить прерывания
pushf ;для iret в системном прерывании
call cs:[old_9int] ;вызов системного прерывания
mov ax,40h ;устанавливаем регистр es на область
;данных BIOS
mov es,ax
mov di,es:[1ch];получаем указатель на голову
cmp di,01Eh ;он указывает на начало буфера?
jne minus2 ;если нет, то для доступа к только
89
mov di,03Ch ;что помещенным в буфер scan и ascii-
;кодам необходимо отнять 2 от нового “хвоста”
jmp el ;иначе старый “хвост” указывал на
minus2: sub di,2 ;конец буфера, что и запишем в di
;и перейдем на el.
el: mov ax,es:[di] ;cчитаем scan код из буфера клавиатуры
mov bl,01000000b ;запишем в bl для test строку с
;установленным 6 битом
test es:[17h],bl ;в слове флагов клавиатуры есть
;признак нажатия CapsLock
jz Caps_NO ;если 0 , то CapsLock не нажата
cmp al,41h ;проверка, что буква от A до Z
jb do ;если нет , то выход – на метку do
cmp al,5ah
ja do
add al,32 ;если буквы большие, то прибавим к
mov es:[di],ax ;ascii-коду 32, получим маленькую
;букву и запишем в буфер
jmp do ;перейдем на конец
Caps_NO: ;Caps Lock не нажат
cmp al,61h ;проверка что буква в буфере от a до z
jb do ;если нет , то переход на метку do
cmp al,7ah
ja do
sub al,32 ;отнимем от ascii-кода 32 - получим
mov es:[di],ax ;большую букву и запишем в буфер
do: cli ;запретить прерывания
mov al,20h ;выдаем сигнал о завершении
out 20h,al ;аппаратного прерывания
pop es ;восстанавливаем регистры из стека
pop di
pop bx
pop ax
iret ;возврат из прерывания
new_9int endp

segm segment para public 'code'
assume cs:segm,ds:segm
org 100h
start:jmp init
mas db 128 dup (0) ; массив для хранения нажатий
old09 dd ? ; адрес старого обработчика
sign dw 0fedch ; сигнатура
Int09 proc far
sti
push ax
push bx
push dx
push di
push es
mov ax,40h
mov es,ax
in al,60h ; считаем scan-код из порта
mov ah,al ; проверим, что это не управляющая
IRP X,<1DH,2AH,36H,3BH,3CH,3DH,3EH,3FH,40H,41H,42H,43H,44H>
cmp ah,X ; клавиша, и, если да, проигнорируем
je ignor ; для этого используем циклическую
ENDM ; макрогенерацию
cmp ah,01h ; если нажата ESC
je sbros ; перейдем на метку sbros
cbw ; расширим scan-код до слова
lea bx,cs:[mas] ; загрузим в bx адрес начала массива
mov si,ax ; в si scan-код – индекс в массиве
mov dh,byte ptr cs:[bx][si] ; из массива в dh поместим
cmp dh,0 ; флаг нажатия и сравним его с 0
jne ignor ; если нажата клавиша – ее игнорируем
mov byte ptr cs:[bx][si],1 ; иначе установим флаг
jmp pass ; и перейдем к стандартному обработчику
ignor:
in al,61h ; подтвердим обработку scan-кода
mov ah,al
or al,80h
out 61h,al
mov al,ah
out 61h,al
cli
mov al,20h ; пошлем EOI в контроллер прерываний
out 20h,al
pop es
pop di
pop dx
pop bx
pop ax
iret
sbros:
lea bx,cs:[mas] ; в bx загрузим адрес начала массива
mov si,0
REPT 128 ; и сбросим флаги нажатий всех
mov byte ptr cs:[bx][si],0 ; клавиш
inc si
ENDM
pass:
pop es
pop di
pop dx
pop bx
pop ax
jmp cs:[old09] ; передадим управление стандартному
Int09 endp ; обработчику
init:
mov ax,3509h ; проверим адрес обработчика int 09h
int 21h
mov ax,es:[bx-2] ; это наш обработчик в памяти?
cmp ax,cs:sign
je outmem ; если наш – на выгрузку
mov word ptr old09,bx ; системный – сохраним его
mov word ptr old09+2,es ; адрес в двойном слове old09
mov bx,cs
mov ds,bx ; установим ds на наш сегмент
mov dx,offset int09 ; в dx поместим адрес нашей ISR
mov ax,2509h ; и запишем адреса в вектор
int 21h ; прерываний
lea dx, init
int 27h ; оставим резидентно
outmem: ; выгрузка
mov dx, word ptr es:old09
mov bx, word ptr es:old09+2
mov ds,bx
mov ax,2509h ; запись в вектор прерываний
int 21h ; адреса стандартного обработчика
push es
mov es,es:[2Ch] ; выгрузка окружения
mov ah,49h
int 21h
pop es
mov ah,49h ; выгрузка программы
int 21h
int 20h
segm ends
end start