王爽汇编语言
实验16 编写包含多个功能子程序的中断例程
一、实验要求
安装一个新的int 7ch中断例程，为显示输出提供如下功能子程序
（1）清屏；
（2）设置前景色
（3）设置背景色
（4）向上滚动一行
入口参数说明：
（1）用ah寄存器传递功能号，0表示清屏，1表示设置前景色，2表示设置背景色，3表示向上滚动一行
（2）对于2，3功能，用al传递颜色值，（al）取值{0，1，2，3，4，5，6，7}
二、程序代码
assume cs:code
code segment
setscreen:
jmp short set
table dw sub1,sub2,sub3,sub4 ;通过该表查找子程序的始地址
set:
push bx
cmp ah,3
ja sret
mov bl,ah
mov bh,0
add bx,bx
call word ptr table[bx]
sret:
pop bx
iret
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
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 es:[bx],al
add bx,2
loop sub2s
pop es
pop cx
pop bx
ret
sub3: ;设置背景色
push bx
push cx
push es
mov cl,4
shl al,cl
mov bx,0b800h
mov es,bx
mov bx,1
mov cx,2000
sub3s:
and byte ptr es:[bx],10001111b
or es:[bx],al
add bx,2
loop sub3s
pop es
pop cx
pop bx
ret
sub4: ;滚动一格
push cx
push si
push di
push es
push ds
mov si,0b800h
mov es,si
mov ds,si
mov si,160
mov di,0
cld
mov cx,24
sub4s:
push cx
mov cx,160
rep movsb
pop cx
loop sub4s
mov cx,80
mov si,0
sub4s1:
mov byte ptr [160*24+si],' '
add si,2
loop sub4s1
pop ds
pop es
pop di
pop si
pop cx
ret
setup:
;初始化安装过程
mov ax,cs
mov ds,ax
mov si,offset setscreen
mov ax,0
mov es,ax
mov di,200h
;开始安装
mov cx,offset setup-offset setscreen
cld
rep movsb
;设置中断向量表
mov ax,0
mov es,ax
mov word ptr es:[7ch*4],0 ;ip
mov word ptr es:[7ch*4+2],20h ;cs
;安装结束，返回操作系统
mov ax,4c00h
int 21h
code ends
end setup