实验16

拖着拖把去拖鞋

使用call指令直接调用标号不需要计算偏移量

1. assume cs:code
   
2. 
   
3. code segment
   
4.     start:     mov  ax,0
   
5.                mov  es,ax
   
6.                mov  di,200H
   
7. 
   
8.                mov  ax,cs
   
9.                mov  ds,ax
   
10.                mov  si,offset setscreen
    
11. 
    
12.                mov  cx,offset int7ch_end-offset setscreen
    
13.                cld
    
14.                rep  movsb
    
15. 
    
16.                mov  word ptr es:[7ch*4],200h
    
17.                mov  word ptr es:[7ch*4+2],0h
    
18. 
    
19.                mov  ax,4c00h
    
20.                int  21h
    
21. 
    
22.     ; 功能: 调用指定的子程序
    
23.     ; 参数: (ah)=功能号(0-3)
    
24.     ;      (al)=颜色值(0-7)
    
25.     setscreen: cmp  ah,0
    
26.                je   do1
    
27.                cmp  ah,1
    
28.                je   do2
    
29.                cmp  ah,2
    
30.                je   do3
    
31.                cmp  ah,3
    
32.                je   do4
    
33.                jmp  short sret
    
34. 
    
35.     do1:       call sub1
    
36.                jmp  short sret
    
37.     do2:       call sub2
    
38.                jmp  short sret
    
39.     do3:       call sub3
    
40.                jmp  short sret
    
41.     do4:       call sub4
    
42. 
    
43.     sret:      iret
    
44. 
    
45.     ; 清屏
    
46.     sub1:      push bx
    
47.                push cx
    
48.                push es
    
49.                mov  bx,0b800h
    
50.                mov  es,bx
    
51.                mov  bx,0
    
52.                mov  cx,2000
    
53.     sub1s:     mov  byte ptr es:[bx],' '
    
54.                add  bx,2
    
55.                loop sub1s
    
56.                pop  es
    
57.                pop  cx
    
58.                pop  bx
    
59.                ret
    
60. 
    
61.     ; 设置前景色
    
62.     sub2:      push bx
    
63.                push cx
    
64.                push es
    
65. 
    
66.                mov  bx,0b800h
    
67.                mov  es,bx
    
68.                mov  bx,1
    
69.                mov  cx,2000
    
70.     sub2s:     and  byte ptr es:[bx],11111000b               ; 前景色置0
    
71.                or   es:[bx],al                               ; 放入颜色值
    
72.                add  bx,2
    
73.                loop sub2s
    
74. 
    
75.                pop  es
    
76.                pop  cx
    
77.                pop  bx
    
78.                ret
    
79. 
    
80.     ; 设置背景色
    
81.     sub3:      push bx
    
82.                push cx
    
83.                push es
    
84.                mov  cl,4
    
85.                shl  al,cl
    
86.                mov  bx,0b800h
    
87.                mov  es,bx
    
88.                mov  bx,1
    
89.                mov  cx,2000
    
90.     sub3s:     and  byte ptr es:[bx],10001111b               ; 背景色置0
    
91.                or   es:[bx],al                               ; 放入背景色值
    
92.                add  bx,2
    
93.                loop sub3s
    
94.                pop  es
    
95.                pop  cx
    
96.                pop  bx
    
97.                ret
    
98. 
    
99.     ; 向上滚动一行
    
100.     sub4:      push cx
     
101.                push si
     
102.                push di
     
103.                push es
     
104.                push ds
     
105. 
     
106.                mov  si,0b800h
     
107.                mov  es,si
     
108.                mov  ds,si
     
109.                mov  si,160                                   ; ds:si指向n+1行
     
110.                mov  di,0                                     ; es:di指向n行
     
111.                cld
     
112.                mov  cx,24
     
113. 
     
114.     sub4s:     push cx
     
115.                mov  cx,160
     
116.                rep  movsb                                    ; n+1行覆盖到n行上
     
117.                pop  cx
     
118.                loop sub4s
     
119. 
     
120.                mov  cx,80
     
121.                mov  si,0
     
122.     sub4s1:    mov  byte ptr [160*24+si],' '                 ; 最后一行清空
     
123.                add  si,2
     
124.                loop sub4s1
     
125. 
     
126.                pop  ds
     
127.                pop  es
     
128.                pop  di
     
129.                pop  si
     
130.                pop  cx
     
131.                ret
     
132.     int7ch_end:nop
     
133. code ends
     
134. 
     
135. end start

复制代码