汇编语言 实验14

 1 assume cs:code
 2 
 3 data segment
 4         db 9,8,7,4,2,0
 5         db 0,3,6,9,12,15
 6 data ends
 7 
 8 stack segment
 9         dw 16 dup (0)
10 stack ends
11 
12 code segment
13 begin:
14         mov ax,stack
15         mov ss,ax
16         mov sp,20h
17 
18         mov ax,0b800h
19         mov es,ax
20         mov di,0
21 
22         mov ax,data
23         mov ds,ax
24    again:
25         mov si,0
26         mov di,160*10+60
27         call clear_screen
28         mov byte ptr es:[di+4],‘/‘
29         mov byte ptr es:[di+5],2
30         mov byte ptr es:[di+10],‘/‘
31         mov byte ptr es:[di+11],2
32         mov byte ptr es:[di+22],‘:‘
33         mov byte ptr es:[di+23],2
34         mov byte ptr es:[di+28],‘:‘
35         mov byte ptr es:[di+29],2
36 
37         mov cx,6
38    s0:
39         call shuchu
40         inc si
41         loop s0
42         jmp again
43 
44         mov ax,4c00h
45         int 21h
46 
47 shuchu:
48         push ax
49         push cx
50         push di
51 
52         mov al,ds:[si+6]
53         mov ah,0
54         add di,ax
55         add di,ax
56 
57         mov al,ds:[si]
58         out 70h,al
59         in al,71h
60 
61         mov ah,al
62         mov cl,4
63         shr ah,cl
64         and al,00001111b
65         add ah,30h
66         add al,30h
67         mov byte ptr es:[di],ah
68         mov byte ptr es:[di+1],2
69         mov byte ptr es:[di+2],al
70         mov byte ptr es:[di+3],2
71 
72         pop di
73         pop cx
74         pop ax
75         ret
76 
77 clear_screen:
78         push cx
79         push di
80         mov di,160*10
81         mov cx,80
82    scs0:
83         push cx
84         mov cx,1
85    scs1:
86         mov word ptr es:[di],0
87         add di,2
88         loop scs1
89         pop cx
90         loop scs0
91         pop di
92         pop cx
93         ret
94 
95 code ends
96 end begin