实验16
本帖最后由 sbx 于 2020-9-19 18:36 编辑实验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
stack segment
db 128 dup(0)
stack ends
code segment
do7h:
jmp short set
table dw sub1,sub2,sub3,sub4
set:
push bx
cmp ah,3;判断传递的是否大于3
ja sret
mov bl,ah
mov bh,0
add bx,bx ;根据ah中的功能号计算对应子程序的地址在table表中的偏移
call word ptr table;调用对应的功能子程序
sret:
pop bx
iret
;功能子程序1：清屏
sub1:push bx
push cx
push es
mov bx,0b800h
mov es,bx
mov bx,0
mov cx,2000
sub1s:mov byte ptr es:,' '
add bx,2
loop sub1s
pop es
pop cx
pop bx
ret
;功能子程序2：设置前景,(al)∈{0,1,2,3,4,5,6,7}
sub2:push bx
push cx
push es
mov bx,0b800h
mov es,bx
mov bx,1
mov cx,2000
sub2s:and byte ptr es:,11111000b ;把前景色清0
or es:,al ;设置前景色
add bx,2
loop sub2s
pop es
pop cx
pop bx
ret
;功能子程序3：设置背景色,(al)∈{0,1,2,3,4,5,6,7}
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:,10001111b ;把背景色清0
or es:,al ;设置背景色
add bx,2
loop sub3s
pop es
pop cx
pop bx
ret
;功能子程序4：向上滚动一行
sub4:push cx
push si
push di
push es
push ds
mov si,0b800h
mov es,si
mov ds,si
mov si,160 ;ds:si指向第n+1行
mov di,0 ;es:di指向第n行
cld
mov cx,24 ;共复制24行
sub4s: push cx
mov cx,160
rep movsb ;复制
pop cx
loop sub4s
mov cx,80
mov si,0
sub4s1: mov byte ptr ,' ';最后一行清空
add si,2
loop sub4s1
pop ds
pop es
pop di
pop si
pop cx
ret
do7hend: nop
start:
mov ax,stack
mov ss,ax
mov sp,128
mov ax,cs
mov ds,ax
mov si,offset do7h
mov cx,offset do7hend - offset do7h
mov ax,0
mov es,ax
mov di,200h
cld
rep movsb
cli
mov word ptr es:,0
mov word ptr es:,20h
sti
mov ax,4c00h
int 21h
code ends
end start
测试程序代码：
assume cs:code
code segment
start: mov ah,1 ;传递功能号
mov al,4 ;传递颜色
int 7ch
mov ax,4c00h
int 21h
code ends
end start
测试程序代码：
assume cs:code
code segment
start: mov ah,2 ;传递功能号
mov al,4 ;传递颜色
int 7ch
mov ax,4c00h
int 21h
code ends
end start
页:
[1]