编写包含多个功能子程序的中断例程 

安装一个新的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] 

分析：对于本实验，第一点是：各个子程序的编写，这并不难，参考书上很轻松就能搞定。第二点是：设置int 7ch的中断向量表项是关键，刚开始我也发现是调用时子程序的地址不对，但是还是没得解决。上论坛看过之后，采取了程序中这种比较简单的方法。具体的在程序中有分析。第三点就是编写测试程序。这点受到了sirius的思路指引。

具体源代码如下：

assume cs:codesg,ds:datasg

datasg        segment 
fun_table dw  funShowA,  funClrSc, funChFgC, funChBgC,  funRoOnL, funExitP, inpFunNu, inpColNu,errInpFu,errInpCo, space 

funShowA    db '0 Show character A','$' 
funClrSc    db '1 Clear Screen','$' 
funChFgC    db '2 Change Foreground Color','$' 
funChBgC    db '3 Change Background Color','$' 
funRoOnL    db '4 Roll Up One Line','$' 
funExitP    db '5 Exit Program','$' 
inpFunNu    db 'Input Function Number:[0,1,2,3,4,5]:','$' 
inpColNu    db 'Input Color Attribute:[0,1,2,3,4,5,6,7]:','$' 
errInpFu    db 'Error!Input Function Number Range:[0,1,2,3,4]','$' 
errInpCo    db 'Error!Input Color Attribute Range:[0,1,2,3,4,5,6,7]','$' 
space       db '                                                   ','$'
row        db 5,6,7,8,9,10,12,13,14,15 
datasg        ends 
  
stacksg segment
    db 128 dup (0)
stacksg ends     

codesg segment
;;;;;;;;;;;以下是int 7ch中断程序;;;;;;;;;;;;;;;;;;;;;;
     setscreen:
     jmp short set
     table dw  showchar,clearscreen, setForeground,  setBackground ,scrolloneline
     
     set:
     push bx
     
    
     cmp ah,4
     ja setret ;判断所输入的功能号，大于4就是非法输入
     cmp ah,0
     jb setret ;判断所输入的功能号，小于零也是非法输入
     mov bl,ah
     mov bh,0
     add bx,bx;因为table定义的是字型数据，所以要把bx的值乘以2，才是其对应的子程序的入口地址 
     
     call word ptr table[bx];调用相应的子程序
     
   setret:
     pop bx
     iret

;此子程序是显示满屏的字母'A'
showchar:
     push ax
     push bx
     push cx
     push es
     
     mov ax,0b800h
     mov es,ax
     mov bx,0
     mov cx,2000;在第0页上显示满屏的'A'，循环2000次
     
   lp_showchar:
     mov byte ptr es:[bx],41h;显示'A' 
     add bx,2
     loop lp_showchar  
     
     pop es
     pop cx
     pop bx
     pop ax
     
     ret

;清屏
clearscreen:
     
     push ax
     push bx
     push cx
     push es
     
     mov ax,0b800h
     mov es,ax
     mov bx,0
     mov cx,2000
     
lp_clrscr:
     mov byte ptr es:[bx],20h;清屏的关键就是在偶地址位上填充空格
     add bx,2
     loop lp_clrscr  
     
     pop es
     pop cx
     pop bx
     pop ax
     
     ret 

;设置前景色，
setForeground:
     push ax
     push bx
     push cx
     push es
     
     mov bx,0b800h
     mov es,bx
     mov bx,1;因为奇数地址位存放的是显示颜色属性字节，所以偏移地址bx从1开始
     mov cx,2000
     
   lp_setFG:
     and byte ptr es:[bx],11111000b;这一步骤很关键，因为与前景色有关的颜色属性字节位
     ;是0，1，2三位，所以我要保留之前颜色属性的其他位不变，把这三位清零
     or byte ptr es:[bx],al ;接着是用要设置的前景色的颜色属性值与原来的颜色属性值逻辑或后，就更改了前景颜色属性值
     add bx,2
     loop lp_setFG  
     
     pop es
     pop cx
     pop bx
     pop ax
     
     ret  
 
;设置背景色
setBackground:
     push ax
     push bx
     push cx
     push es
     
     mov cx,0
     mov cl,4
     shl al,cl
     
     mov bx,0b800h
     mov es,bx
     mov bx,1
     mov cx,2000
     
   lp_setBG:
     and byte ptr es:[bx],10001111b;道理同设置前景色，与设置背景色有关的是颜色属性值字节位是4，5，6三位，
     ;所以也要保留之前颜色属性值的其它位不变，把此三位清零
     or byte ptr es:[bx],al;接着是用要设置的前景颜色属性值与原来的颜色属性值逻辑或后，就更改了背景颜色属性值 
     add bx,2
     loop lp_setBG  
     
     pop es
     pop cx
     pop bx
     pop ax
     
     ret 
 ;向上滚动一行    
 scrolloneline:
     push ax
     push bx
     push cx
     push es
     push ds
     push si
     push di
     
     
     
     mov bx,0b800h
     mov es,bx
     mov ds,bx;因为要做的事是：依次把第n+1行的内容复制到第n行；然后最后一行清空，而目的段地址都是0b800h
     mov si,160;因为ds:[si]是数据源，所以设置初始值是你为0，即n+1为1。即初始是把第二行的复制到第一行，
     ;而一行的大小是160B。所以si初始值是160
     mov di,0;es:[di]就是目的地址了。而目的是要把第n+1行的内容复制到第n行。所以di的值为0
     cld
     mov cx,24
     
lp_copyOL:
     push cx
     mov cx,160
     rep movsb
     add bx,2 
     pop cx
     loop lp_copyOL 
     
     mov cx,80
     mov si,0
lp_setSpace:
     mov byte ptr [160*24+si],20h
     add si,2
     loop lp_setSpace;把最后一行清空
     
     pop di
     pop si
     pop ds
     pop es
     pop cx
     pop bx
     pop ax
     
     ret 
 
 setend:nop
;;;;;;;;;;;到这里中断程序结束了;;;;;;;;;;;;;;;;;;;;;;;;; 

;;;;;;;;;;;以下是主程序;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

    start:
     mov ax,stacksg
     mov ss,ax
     mov sp,128 

;;;;;复制 int 7ch 的中断程序;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;     
     mov ax,cs
     mov ds,ax
     mov si,offset setscreen
     
     mov ax,0
     mov es,ax
     mov di,200h
     
     mov cx,offset setend - offset setscreen
     cld
     rep movsb
;;;;;;;;复制 int 7ch 的中断程序结束;;;;;;;;;;;;;;;;;;;;;;;


;;;;;;;设置int 7ch的中断向量表项;;;;;;;;;;;;;;;;;;;;;;;;;;
     mov ax,0
     mov es,ax
     mov word ptr es:[7ch*4],0h
     mov word ptr es:[7ch*4+2],20h;这里的设置很关键，把中断程序拷贝到了0000:0200h开始处。
     ;原本设置cs=0000,而ip=0200h的。但是调用中断例程后ip的值是0，所以为了设置ip的值是0
     ;就只有设置cs=0020h了，因为0000:0200h和0020：0000h所表示的地址是一样的，都是00200h。但是
     ;通过这样设置之后，可以使得ip的值是0，以便能找到中断程序的子程序
;;;;;;;设置int 7ch的中断向量表结束束;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;以下的程序是测试程序，它提供了一个图形化的界面，用户输入相应的功能测试上面的中端程序的相关功能;;;;;;;;;;;;;;;;;;;;;;;;;;
   
     mov ax,datasg 
     mov ds,ax 

;循环输出菜单
menu:
     mov bx,offset fun_table;把在datasg段定义的菜单信息的首地址给bx
     mov si,offset row ;把在datasg段定义的行信息的首地址给si
     mov cx,7;循环7次的目的是输出菜单的功能信息和提示信息。但是错误信息不要输出
print_menu: 
        call showstr ;调用此子程序输出菜单信息
        inc si;
        add bx,2;
        loop print_menu      
        
        mov ah,0 
        int 16h ;因为int 16h的功能是从键盘读取一个字符。入口参数是把0送给ah。
        ;出口参数是al中的内容是字符码，ah中的内容是扫描码。
        ;所以调用int 16h的0号子程序读取从键盘输入入的字符
        cmp al,'0'
        je show_char_A;0就是显示满屏的字母A
        cmp al,'1' 
        je clear_screen;1是清屏
        cmp al,'2' 
        je change_color ;2改变前景色
        cmp al,'3' 
        je change_color ;3改变背景色
        cmp al,'4' 
        je roll_up_oneline ;4屏幕向上滚动一行
        cmp al,'5' 
        je exit_program  ;退出程序
   
        ;如果范围不在0到5之间就说嘛输入有错误，应该提示功能号输入误的信息
        mov si,offset row+7 ;row+7也就是在13行显示错误信息
        mov bx,offset fun_table+10h ;fun_table+10h存放的是功能号输入错误的信息
        call showstr;调用输出字符子程序输出错误信息
        call delay
        mov si,offset row+7 
        mov bx,offset fun_table+14h;等待用户重新输入之前要把错误信息清除，而fun_table+14h存放的就是清屏要用到的空格符
        call showstr;清除错误信息 
        jmp menu;一直循环直到用户输入5退出程序

;调用int 7ch的0号功能显示满屏的字母A
show_char_A:
        mov ah,0
        int 7ch
        call delay
        jmp menu

;调用int 7ch的1号功能清屏
clear_screen:
        mov ah,1;
        int 7ch              
        
        call delay 
        jmp menu 

;调用int 7ch的4号功能屏幕向上滚动一行
roll_up_oneline: 
        mov ah,4 
        int 7ch 
        call delay 
        jmp menu 

;调用int 7ch的5号功能退出程序
exit_program: 
        mov ax,4c00h 
        int 21h 

;这里是判断是设置前景色或者背景色
change_color:
        mov dl,al;al里是用户输入的功能号，不是2就是3

loop_color_attri:         
        mov si,offset row+8 
        mov bx,offset fun_table+14 ;在row+8也就是第14行显示提示颜色属性值的信息
        ;（fun_table+14中存放提示颜色属性值输入的信息字符串的偏移地址）
        call showstr;输出提示输入颜色属性值的信息 
        mov ah,0 
        int 16h;调用16h的0号功能获得用户的输入
        mov ah,'0' 
        mov cx,8 

;判段颜色属性值的正确性，它的范围只能是0到7
test_color:
        cmp al,ah 
        je setFG_or_setBG;如果输入是合理的就跳转到setFG_or_setBG处判断是设置前景色还是设置背景色
        add ah,1
        loop test_color;这里循环8次，检查输入的颜色属性值是否合理
        
        ;如果循环进行完之后没有跳转到setFG_or_setBG，就说明颜色属性值输入有错，需提示错误信息

        mov si,offset row+9
        mov bx,offset fun_table+18 
        call showstr;同理显示颜色属性输入错误的信息 
        call delay 
        mov si,offset row+9 
        mov bx,offset fun_table+20 
        call showstr;把颜色提示信息清空 
        jmp loop_color_attri;一直循环到用户输入正确的颜色属性值 
setFG_or_setBG: 
        mov si,offset row+8
        mov bx,offset fun_table+20 
        call showstr;拿到合适的颜色属性之后要把提示输入颜色属性值的信息清除
        cmp dl,'3' 
        je set_bg_color ;判断如果是3号功能就是设置背景色

;调用int 7ch的2号功能设置前景色
set_fg_color:         
        mov ah,2 
        int 7ch 
        jmp menu
        
;调用int 7ch的3号功能设置背景色景色
set_bg_color: 
        mov ah,3 
        int 7ch 
        jmp menu 

;;;;;;;显示字符串的子程序;;;;;;;;;;;;;;;;;;;;;
showstr: 
        push bx 
        push dx 
        push ax 
        push si
         
        mov bh,0 ;显示在第0页
        mov dh,ds:[si] ;行号
        mov dl,20 ;列号
        mov ah,2 ;要调用int 10h的2号子程序
        int 10h;调用了int 10h的2号子程序对光标进行定位
      
        mov dx,ds:[bx];设置ds:dx指向要显示的字符串的首地址 
        mov ah,9  
        int 21h ;调用int 21h的第9号子程序显示字符串
        
        pop si 
        pop ax 
        pop dx 
        pop bx 
        ret 
;;;;;;;显示字符串的子程序的结束;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;这里是延时程序的开始;;;;;;;;;;;;;;;;;;;;;;
delay:         
        push ax 
        push dx 

        mov dx,2000h 
        mov ax,0
         
loop_delay: 
        sub ax,1 
        sbb dx,0 
        cmp ax,0 
        jne loop_delay 
        cmp dx,0 
        jne loop_delay 

        pop dx 
        pop ax 
        ret 
;;;;;;;;;这里是延时程序的结束;;;;;;;;;;;;;;;;;;;;;;     
     
     mov ax,4c00h
     int 21h



    
 codesg ends
 end start