实验16

雪球丶

1. assume cs:code
   
2. 
   
3. code segment
   
4. start:
   
5.                 mov ax,cs
   
6.                 mov ds,ax
   
7.                 mov si,offset do0
   
8.                 mov ax,0
   
9.                 mov es,ax
   
10.                 mov di,200h                ;将do0写到0:200处
    
11.                 mov cx,offset do0end-offset do0
    
12.                 cld
    
13.                 rep movsb
    
14.                
    
15.                 ;设置中断向量表
    
16.                 mov ax,0                                       
    
17.                 mov es,ax                                                ;将es指向中断向量表
    
18.                 mov word ptr es:[7ch*4],200h        ;发生7ch中断时跳转到0:200处执行
    
19.                 mov word ptr es:[7ch*4+2],0
    
20.                
    
21.                 mov ax,4c00h
    
22.                 int 21h
    
23.                
    
24.                
    
25. ;(1)清屏
    
26. ;(2)设置前景色
    
27. ;(3)设置背景色
    
28. ;(4)向上滚动一行               
    
29. ;参数：
    
30. ;ah:功能号，0清屏，1设置前景色，2设置背景色，3向上滚动一行
    
31. ;针对1，2号功能，用al传递颜色值，0<=al<=7
    
32. do0:        jmp short set
    
33. table: dw 200h+offset sub1-offset do0,200h+offset sub2-offset do0,200h+offset sub3-offset do0,200h+offset sub4-offset do0
    
34. 
    
35. set:       
    
36.                 cmp ah,3
    
37.                 ja sret
    
38.                
    
39.                 push es
    
40.                 push si
    
41.                 push ax
    
42.                 push cx
    
43.                 push bx
    
44.                 push di
    
45.                
    
46.                 mov cx,0B800H
    
47.                 mov es,cx
    
48.                 mov si,0       
    
49.                 add ah,ah                                        ;word两字节，ah*2
    
50.                 mov cx,0
    
51.                 mov cl,ah
    
52.                 mov bx,200h+offset table-offset do0
    
53.                 add bx,cx
    
54.                 call word ptr cs:[bx]                ;调用对应的功能子程序
    
55.                
    
56.                 pop di
    
57.                 pop bx
    
58.                 pop cx
    
59.                 pop ax
    
60.                 pop si
    
61.                 pop es
    
62.                
    
63. sret:        iret
    
64.                
    
65. sub1:
    
66.                 mov ax,0020H        ;' '               
    
67.                 mov cx,80*25                ;每页80*25个字符
    
68.         s0:        mov es:[si],ax
    
69.                 add si,2
    
70.                 loop s0
    
71.                 ret
    
72.                
    
73. sub2:
    
74.                 mov cx,80*25                ;每页80*25个字符
    
75.                 cmp al,1
    
76.                 jb rsub2
    
77.                 cmp al,7
    
78.                 ja rsub2
    
79.                
    
80.         s1:       
    
81.                 mov bh,es:[si+1]
    
82.                 and bh,11111000b        ;前景色清零
    
83.                 or bh,al
    
84.                 mov es:[si+1],bh
    
85.                 add si,2
    
86.                 loop s1
    
87. rsub2:        ret
    
88.                
    
89. sub3:
    
90.                 mov cx,80*25                ;每页80*25个字符
    
91.                 cmp al,1
    
92.                 jb rsub3
    
93.                 cmp al,7
    
94.                 ja rsub3
    
95.                 shl al,1
    
96.                 shl al,1
    
97.                 shl al,1
    
98.                 shl al,1
    
99.                
    
100.         s2:       
     
101.                 mov bh,es:[si+1]
     
102.                 and bh,10001111b        ;被景色清零
     
103. 
     
104.                 or bh,al
     
105.                 mov es:[si+1],bh
     
106.                 add si,2
     
107.                 loop s2
     
108. rsub3:        ret
     
109. 
     
110. sub4:
     
111.                 mov cx,80*24       
     
112.                 mov di,160
     
113.         s3:       
     
114.                 mov ax,es:[di]
     
115.                 mov es:[si],ax
     
116.                 add si,2
     
117.                 add di,2
     
118.                 loop s3
     
119.                
     
120.                 mov cx,80                        ;清空最后一行
     
121.                 mov bh,20H
     
122.         s4:        mov es:[si],bh
     
123.                 add si,2
     
124.                 loop s4
     
125.                 ret
     
126. 
     
127. do0end: nop               
     
128. 
     
129. code ends
     
130. end start

复制代码

心情不太好，感觉有点乱糟糟的，懒得改了

雪球丶

测试程序

1. assume cs:code
   
2. 
   
3. code segment
   
4. start:
   
5.                 ;设置前景色为2  ok
   
6.                 mov al,2
   
7.                 mov ah,1
   
8.                 int 7ch
   
9.                 call delay
   
10.                 ;设置背景色 4
    
11.                 mov al,4
    
12.                 mov ah,2
    
13.                 int 7ch
    
14.                 call delay       
    
15.                
    
16.                 ;向上滚动一行
    
17.                 mov ah,3
    
18.                 int 7ch
    
19.                 call delay
    
20.                
    
21.                 ;清屏
    
22.                 mov ah,0
    
23.                 int 7ch
    
24.                 call delay
    
25. 
    
26.                
    
27.                 mov ax,4c00h
    
28.                 int 21h
    
29.        
    
30.        
    
31.        
    
32. delay:        push ax
    
33.                 push dx
    
34.                 mov dx,10h
    
35.                 mov ax,0
    
36.                
    
37. s1:                sub ax,1
    
38.                 sbb dx,0
    
39.                 jne s1
    
40.                
    
41.                 cmp dx,0
    
42.                 jne s1
    
43.                 pop dx
    
44.                 pop ax
    
45.                 ret
    
46.        
    
47. 
    
48. 
    
49. code ends
    
50. end start

复制代码