实验15

sbx

;安装一个新的int 9中断例程，功能：
;在DOS下, 按下"A"键后, 除非不再松开, 如果松开，就显示满屏幕的"A", 其它的键照常处理

assume cs:code
stack segment
db 128 dup(0)
stack ends

code segment
start:mov ax,stack
mov ss,ax
mov sp,128

push cs
pop ds

mov ax,0
mov es,ax

mov si,offset int9                 ;设置ds:si指向源地址
mov di,204h                        ;设置ds:di指向目的地址
mov cx,offset int9end - offset int9;设置cx为传输长度

cld                                ;设置传输方向为正
rep movsb

push es:[9*4]                           
pop  es:[200h]
push es:[9*4+2]
pop es:[202h]                            ;将原来的int 9中断例程的入口地址保存在es:200、es:202单元中

cli
mov word ptr es:[9*4],204h               ;设置中断向量表
mov word ptr es:[9*4+2],0
sti

mov ax,4c00h
int 21h

int9:
push ax
push bx
push cx
push es

in al,60h                                ;将60端口的内容读入al中

pushf
push ax
mov ax,0
mov es,ax
pop ax
call dword ptr es:[200h]                 

cmp al,9eh
jne in9ret
mov ax,0b800h
mov es,ax
mov bl,'A'
mov cx,2000
mov di,0
s: mov es:[di],bl
add di,2
loop s

in9ret:
pop es
pop cx
pop bx
pop ax
iret

int9end:nop

code ends
end start