王爽.汇编.第三版.实验16.答案

; int 7c中断例程
; 

assume  cs:code

code segment

start:
    ; 拷贝代码
    mov ax, 0
    mov es, ax
    mov ax, 200h
    mov di, ax

    push cs
    pop ds
    mov ax, offset int7c
    mov si, ax

    mov cx, offset int7c_end - offset int7c

    cld
    rep movsb

    cli
    mov ax, 0
    mov ds, ax
    mov bx, 07ch*4
    mov word ptr ds:[bx], 200h
    mov word ptr ds:[bx+2], 0
    sti

    mov ax, 4c00h
    int 21h

int7c:
    jmp short int7c_code
    ; 注意此处放的是放在绝对地址0:200时，子程序处于的相对地址，
    ; 此方法不好，因为如果程序不是安装在0:200，就会出错
    ; 当如如果直接jmp到标号，是没有问题的
    table dw sub1-int7c+200h, sub2-int7c+200h
int7c_code:
    push ax 
    push bx

    ; 功能号
    cmp ah, 1
    ja int7c_ok
    sub bx, bx
    mov bl, ah

    add bx, bx
    push cs
    pop ds
    ; 200是本中断代码的起始地址，2：是jmp指令的长度。bx索引到相应table位置
    call word ptr [bx+200h+2]
int7c_ok:
    pop bx
    pop ax

    iret

    ; clear screen
sub1:
    push bx
    push cx
    push es

    mov bx, 0b800h
    mov es, bx
    mov bx, 0
    mov cx, 2000
sub1s:
    mov byte ptr es:[bx], ' '
    add bx, 2
    loop sub1s

    pop es
    pop cx
    pop bx

    ret
    ; change text color
sub2:
    push bx
    push cx
    push es

    mov bx, 0b800h
    mov es, bx
    mov bx, 1
    mov cx, 2000
sub2s:
    and byte ptr es:[bx], 11111000b
    or byte ptr es:[bx], al
    add bx, 2
    loop sub2s

    pop es
    pop cx
    pop bx

    ret
suberror:


    ret

int7c_end:
    nop
code ends

end start