49 lines
745 B
NASM
49 lines
745 B
NASM
|
ideal
|
||
|
|
p386
|
||
|
|
model flat,c
|
||
|
|
|
||
|
|
extrn scode:byte
|
||
|
|
|
||
|
|
global kisr:near
|
||
|
|
|
||
|
|
|
||
|
|
SEGMENT kbdriver USE32
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
proc kisr near
|
||
|
|
pushad
|
||
|
|
push es
|
||
|
|
|
||
|
|
mov ax, DGROUP
|
||
|
|
mov es, ax
|
||
|
|
mov ebx, offset scode
|
||
|
|
|
||
|
|
in al,60h
|
||
|
|
cmp al,7fh
|
||
|
|
ja kb_release
|
||
|
|
mov [es:ebx], al
|
||
|
|
jmp xit_kisr
|
||
|
|
kb_release:
|
||
|
|
mov [byte es:ebx], 0
|
||
|
|
|
||
|
|
xit_kisr:
|
||
|
|
in al, 61h ;read in 8255 port PB
|
||
|
|
or al, 80h ;set keybrd acknowledge
|
||
|
|
out 61h, al ;send it
|
||
|
|
and al, 7fh ;reset it
|
||
|
|
out 61h, al ;restore original condition
|
||
|
|
|
||
|
|
mov dx, 20h
|
||
|
|
mov al, dl ;end the interrput
|
||
|
|
out dx, al
|
||
|
|
|
||
|
|
pop es
|
||
|
|
popad
|
||
|
|
iretd
|
||
|
|
endp
|
||
|
|
|
||
|
|
ends kbdriver
|
||
|
|
end
|
||
|
|
|