汇编程序52：实验15 安装新的int9中断例程

 assume cs:code
 ;重写int9中断例程,当按住a后松开,便会产生满屏A
 stack segment
     dw  dup()
 stack ends

 code segment
     start:
           mov ax,stack
           mov ss,ax
           mov sp,80h

           mov ax,
           mov es,ax

           push cs
           pop ds ;设置当前段地址

           mov si,offset int9;设置当前偏移地址
           mov di,204h ;设置目的偏移地址
           mov cx,offset int9end - int9 ;复制的执行代码长度
           cld
           rep movsb

           push es:[*]
           pop es:[200h]
           push es:[*+]
           pop es:[202h] ;把原int9入口地址储存到0020:0到0020:4处

           cli
           mov word ptr es:[*],204h
           mov word ptr es:[*+], ;把信int9入口地址复制到中断向量表
           sti

           mov ax,4c00h
           int 21h
      int9:
           push ax
           push bx
           push cx
           push es

           in al,60h

           pushf
           call dword ptr cs:[200h]

           cmp al,1Eh
           jne int9ret
        s0: ;在按到a的可能上,确定放开才执行后面打印程序
           in al,60h
           cmp al,9Eh
           jne s0  ;确定断开,才打印屏幕A
           mov ax,0b800h
           mov es,ax
           mov bx,
           mov cx,
         s:
           mov byte ptr es:[bx],'A'
           add bx,
           loop s
   int9ret:
           pop es
           pop cx
           pop bx
           pop ax
           iret
   int9end:
           nop
 code ends

 end start