汇编语言中断程序实例

安装一个新的int 7ch中断例程，为显示输出提供如下的功能子程序。

（1）清屏。

（2）设置前景色。

（3）设置背景色。

（4）向上滚动一行

（一）用ah寄存器传递功能号：0表示清屏，1表示设置前景色，2表示设置背景色，3表示向上滚动一行；

（二）对于2、3号功能，用al传递颜色值，(al)∈{0,1,2,3,4,5,6,7}。

代码如下：

;功能：安装一个新的int7ch中断例程，实现一个子程序 setScreen ，提供如下功能：

; （1）清屏。

; （2）设置前景色。

; （3）设置背景色。

; （4）向上滚动一行

; 入口参数说明：

; （1）每个子程序用 ah 寄存器传递功能号：

; （2）对于2、3号功能，用al传送颜色值，

assume cs:code,ds:data

data segment

err db ' ~~~~~ ah args is error! ~~~~~','$'

init dw 10 dup(0)

data ends

code segment

start:

mov ax,data

mov ds,ax

mov ax,0

mov es,ax

mov ax,es:[7ch*4]

mov init[0],ax

mov ax,es:[7ch*4+2]

mov init[1],ax

mov es:[7ch*4],offset setScreen

mov es:[7ch*4+2],cs

mov ax,102h

int 7ch

;call breakPoint

mov ax,201h

int 7ch

;call breakPoint

mov ax,300h

int 7ch

;call breakPoint

mov ax,0h

int 7ch

mov ax,400h

int 7ch

mov ax,0

mov es,ax

mov ax,data

mov ds,ax

mov ax,init[0]

mov es:[7ch*4],ax

mov ax,init[1]

mov es:[7ch*4+2],ax

ok: mov ax,4c00h

int 21h

setScreen:

jmp short setmain

list dw sub0,sub1,sub2,sub3

setmain:

cmp ah,3

ja subErr

mov bl,ah

mov bh,0

shl bx,1

call word ptr list[bx]

iret

sub0: ;清屏

mov cx,0b800h

mov es,cx

mov cx,2000

mov bx,0

sub0s:

mov byte ptr es:[bx],' '

add bx,2

loop sub0s

ret

sub1: ;设置前景色。

mov cx,0b800h

mov es,cx

mov cx,2000

mov bx,1

sub1s:

and byte ptr es:[bx],11111000b

or es:[bx],al

add bx,2

loop sub1s

ret

sub2: ;设置背景色。

mov cx,0b800h

mov es,cx

mov cx,2000

mov bx,1

shl al,1

shl al,1

shl al,1

shl al,1

sub2s:

and byte ptr es:[bx],10001111b

or es:[bx],al

add bx,2

loop sub2s

ret

sub3: ;向上滚动一行

mov cx,0b800h

mov es,cx

mov ds,cx

mov di,0

mov si,160

cli

mov cx,24

sub3s:

push cx

mov cx,160

rep movsb

pop cx

loop sub3s

mov cx,160

mov bx,0

sub3s1:

mov byte ptr es:3840[bx],' '

add bx,2

loop sub3s1

ret

subErr: ;显示错误信息

mov ax,data

mov ds,ax

mov ah,9

mov dx,offset err

int 21h

jmp ok

breakPoint: ;设置断点，用于调试

pushf

pop bx

or bh,3

push bx

popf

ret

code ends

end start