字幕换色

贴上一篇代码，是关于改写外中断 int9来实现字幕换色

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

data segment
    dw 0,0
data ends

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

    mov ax,data
    mov ds,ax

    mov ax,0
    mov es,ax

    push es:[9*4]
    pop ds:[0]
    push es:[9*4+2]
    pop ds:[2]                    ;将原来的int9中断例程的入口地址保存在ds:0，ds:2单元中

    cli         ;此处注意，置IF=0，屏蔽一切其他外中断
    mov word ptr es:[9*4],offset int9_new
    mov es:[9*4+2],cs           ;在中断向量表中设置新的int9 中断例程的入口地址
    sti

    mov ax,0b800h
    mov es,ax
    mov ah,'a'
    s: mov es:[160*12+40*2],ah
        call delay    ;延迟字幕改变速度，掉哟dalay子程序
        inc ah
        cmp ah,'z'
        jna s
    
        mov ax,0
        mov es,ax
        push ds:[0]
        pop es:[9*4]
        push ds:[2]
        pop es:[9*4+2]         ;将中断向量表中int9 中断例程的入口恢复为原来的地址
    
        mov ax,4c00h
        int 21h
    
 delay:           push ax
     push dx
     mov dx,3000h
     mov ax,0
 
                    s1: sub ax,1
       sbb dx,0
       cmp ax,0
       jne s1
       cmp dx,0
       jne s1
       pop dx
       pop ax
       ret
   
int9_new:

    push ax
    push es

    in al,60h

    pushf
    call dword ptr ds:[0]    ;对int 9 指令进行模拟，调用原来的int9 中断例程

    cmp al,1               ;检验是否为ESC键
    jne int9_ret

    mov ax,0b800h
    mov es,ax
    inc byte ptr es:[160*12+40*2+1]       ;改变颜色

int9_ret:
    pop es
    pop ax
    iret

code ends

end start