鱼C论坛

 找回密码
 立即注册
查看: 1977|回复: 0

[技术交流] 实验16

[复制链接]
发表于 2020-9-19 18:09:58 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能^_^

您需要 登录 才可以下载或查看,没有账号?立即注册

x
本帖最后由 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[bx]  ;调用对应的功能子程序


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:[bx],' '
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:[bx],11111000b      ;把前景色清0
or es:[bx],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:[bx],10001111b     ;把背景色清0
or es:[bx],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 [160*24+si],' '  ;最后一行清空
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:[7ch*4],0
mov word ptr es:[7ch*4+2],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

截图未命名16.jpg

测试程序代码:
assume cs:code
code segment
start: mov ah,2         ;传递功能号
mov al,4                ;传递颜色
int 7ch

mov ax,4c00h
int 21h
code ends

end start
截图未命名17.jpg
想知道小甲鱼最近在做啥?请访问 -> ilovefishc.com
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

小黑屋|手机版|Archiver|鱼C工作室 ( 粤ICP备18085999号-1 | 粤公网安备 44051102000585号)

GMT+8, 2024-3-29 13:55

Powered by Discuz! X3.4

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表