王爽《汇编语言》实验16——编写包含多个功能子程序的中断例程

;MASM5编译通过
;==========================================================================
;安装一个新的
INT 9 中断例程,为显示输出提供如下功能子程序:
;(1)清屏;(2)设置前景色;(3)设置背景色;(4)向上滚动一行

;用AH传递功能号,0表示清屏,1表示设置前景色,2表示设置背景色,3表示向上滚动一行.
;对于1、2号功能,用AL传递颜色值,(AL)∈{0,1,2,3,4,5,6,7}
;==========================================================================
ASSUME
CS:CODE

 
CODE
SEGMENT

   
S1  DB
"Good,better,best,",'$'
   
S2  DB
"Never let itrest,",'$'
   
S3 DB
"Till good isbetter,",'$'

   
S4 DB
"Andbetter,best.",'$'

   
S   DW
OFFSET S1,OFFSET
S2,OFFSET
S3,OFFSET
S4
   
ROW DB
2,4,6,8

 
START:
   
;安装中断处理程序到0:200H处

   
PUSH
CS

   
POP
DS
     ;(DS)=传送原始位置的段地址

   
MOV
SI,OFFSET
INT7START ;DS:SI指向传送原始位置的首地址

   
MOV
AX,0

   
MOV
ES,AX
  ;(ES)=0,传送目的位置的段地址

   
MOV
DI,200H
;ES:SI指向传送目的位置的首地址

   
MOV
CX,OFFSET
INT7END-OFFSET
INT7START ;传送长度

   
CLD
    ;正向

   
REP
MOVSB
  ;传送

   

   
;设置中断向量表

   
MOV
WORD
PTR
ES:[4*7CH],200H

   
MOV
WORD
PTR
ES:[4*7CH+2],0

   

   
;测试
INT 7CH 0号子程序

   
MOV
AH,0

   
INT
7CH

   

   
;向屏幕输出四句英文诗

   
MOV
AX,CS
          ;DS和CS使用同一段

   
MOV
DS,AX

   
MOV
BX,OFFSET
S     ;BX用来寻址字符串的首地址

   
MOV
SI,OFFSET
ROW   ;SI用来寻址行数

   
MOV
CX,4
           ;循环次数4

   

   
OK:
   
MOV
BH,0
           ;0页
   
MOV
DH,BYTE
PTR
CS:[SI]
;(DH)=行数

   
MOV
DL,0
           ;(DL)=列数

   
MOV
AH,2
           ;置光标

   
INT
10H

   

   
MOV
DX,CS:[BX] 
;DS:DX指向字符串的首地址

   
MOV
AH,9
           ;输出以"$"结尾的字符串

   
INT
21H

   

   
INC
SI
             ;SI指向下一句诗的行数

   
ADD
BX,2
           ;BX指向下一句诗的字符串的首地址

   
LOOP
OK         ;输出下一句诗
   

   
;以下,测试
INT 7CH 1~3号子程序
   
MOV
AH,1

   
MOV
AL,10 

   
INT
7CH

   

   
MOV
AH,2

   
MOV
AL,4

   
INT
7CH

   

   
MOV
AH,3

   
INT
7CH

   

   
;程序返回

   
MOV
AX,4C00H

   
INT
21H

 
   
;新的
INT 9 中断例程

;-----------------------------------------------------------------------------------   

;功能:0号子程序:清屏
1号子程序:设置前景色
2号子程序:设置背景色
3号子程序:向上滚动一行
;参数:(AH)=功能选择,(AL)=颜色

;返回:无
INT7
PROC
NEAR

   
INT7START:
   
JMP
SHORT INT7_REAL_START

   
;直接定址表

   
TABLE DW
SUB0-INT7+200H,SUB1-INT7+200H,SUB2-INT7+200H,SUB3-INT7+200H

   
;这一句执行完以后,TABLE中存放中断处理程序中各子程序的IP

   
;因为位移是在编译的时候算出来的,一定要保证这里算出来的结果和
   
;安装到0:200H处以后的结果相符

   
INT7_REAL_START:
   
PUSH
AX
    ;保护现场

   
PUSH
BX

   
PUSH
DX

   
PUSH
DS

   
PUSH
ES

   

   
PUSH
CS
    ;进入中断处理程序前,(CS)=0,(DS)可能≠0

   
POP
DS
         ;设置(DS)=0

   

   
MOV
BL,AH

   
MOV
BH,0

   
SHL
BX,1 
      ;(BX)=(BX)*2

   
MOV
DX,0B800H

   
MOV
ES,DX

   
;这里取得0:200H处中断处理程序子程序IP,也要按(CS)=0000考虑

   
CALL
WORD
PTR
[TABLE-INT7+200H+BX]
;(DS)=0,DS:[TABLE-INT7+200H+BX]存放着
                                       
;中断处理程序被安装0:200H处后子程序的IP
   
JMP
INT7RET    
   

   
SUB0:          
;0号子程序,清屏

   
PUSH
CX

   
PUSH
DI

   

   
;把屏幕上的所有字符替换成空格

   
MOV
DI,0

   
MOV
CX,2000

   
SUB0S:
   
MOV
BYTE
PTR
ES:[DI],'
' 

   
INC
DI

   
INC
DI

   
LOOP
SUB0S
   

   
POP
DI

   
POP
CX

   
RET

   

   
SUB1:          
;1号子程序,改变前景色

   
PUSH
CX

   
PUSH
DI

   

   
;修改显示缓冲区所有字符属性字节的值
   
MOV
DI,1

   
MOV
CX,2000

   
SUB1S:
   
AND
BYTE
PTR
ES:[DI],11111000B

   
OR
ES:[DI],AL

   
INC
DI

   
INC
DI

   
LOOP
SUB1S
   

   
POP
DI

   
POP
CX

   
RET

   

   
SUB2:
          ;2号子程序,改变背景色

   
PUSH
AX

   
PUSH
CX

   
PUSH
DI

   

   
;修改显示缓冲区所有字符属性字节的值
   
MOV
CL,4

   
SHL
AL,CL

   
MOV
DI,1

   
MOV
CX,2000

   
SUB2S:
   
AND
BYTE
PTR
ES:[DI],10001111B

   
OR
ES:[DI],AL

   
INC
DI

   
INC
DI

   
LOOP
SUB2S
   

   
POP
DI

   
POP
CX

   
POP
AX

   
RET

   

   
SUB3:          
;3号子程序,上卷一行

   
PUSH
CX

   
PUSH
SI

   
PUSH
DI

   
PUSH
DS

   

   
PUSH
ES

   
POP
DS
         ;设置(ES)=(DS)=显示缓冲区段地址

   
MOV
SI,160
     ;DS:SI指向传送原始位置的首地址
   
MOV
DI,0
       ;ES:SI指向传送目的位置的首地址
   
MOV
CX,24*160
  ;传送长度

   
REP
MOVSB
      ;传送

   
MOV
DI,24*160
  ;最后一行的偏移地址 

   
MOV
CX,160
     ;传送长度

   
SUB3S:         
;用空格代替

   
MOV
BYTE
PTR
ES:[DI],'
'

   
INC
DI

   
INC
DI

   
LOOP
SUB3S
   

   
POP
DS

   
POP
DI

   
POP
SI

   
POP
CX

   
RET

   

   
INT7RET:       
;恢复现场

   
POP
ES

   
POP
DS

   
POP
DX

   
POP
BX

   
POP
AX

   
IRET
           ;中断返回

   

   
INT7END:
   
NOP

INT7
ENDP
 
 
CODE
ENDS

END
START