1 ;编写一个有主程序和子程序结构的程序模块。
2 ;子程序的参数是一个N字节数组的首地址TABLE，数N及字符CHAR。
3 ;要求在N字节数组中查找字符CHAR，并记录该字符出现的次数。
4 ;主程序则要求从键盘接收一串字符以建立字节数组TABLE，
5 ;并逐个显示从键盘输入的每个字符CHAR以及它在TABLE数组中出现的次数。
6 ;(为简化起见，假设出现次数≤15，可以用16进制形式把它显示出来。)
7
8 data segment
9 table db 255 dup(0)
10 n dw 255
11 char db 0
12 num db 0
13 ends
14
15 stack segment
16 dw 100 dup(?)
17 tos label word
18 ends
19
20 code segment
21 main proc far
22 assume cs:code,ds:data,ss:stack
23 start:
24 mov ax,stack ;预处理
25 mov ss,ax
26 mov sp,offset tos
27 push ds
28 sub ax,ax
29 mov ax,data
30 mov ds,ax
31 begin:
32 mov bx,0 ;table数组的指针
33 mov cx,255 ;下面loop循环的次数
34 input: ;循环输入字符串，遇到
35 mov ah,1
36 int 21h
37 cmp al,0DH ;输入换行跳出循环
38 jz set_n
39 mov table[bx],al
40 inc bx ;加1不影响cf
41 loop input
42 set_n: ;循环结束后把数组大小bx给n,然后等待字符输入
43 mov n,bx
44 call disp_crlf
45 input_char:
46 mov ah,1 ;从键盘接收一个字符的DOS功能调用al等于输入内容
47 int 21h
48 cmp al,0DH ;如果输入为换行就停止
49 jz exit
50 mov char,al ;将输入内容给char
51 call search ;调用统计函数
52 mov dl,'-' ;显示一个分隔符
53 mov ah,02h
54 int 21h
55 mov dl,num ;计算的结果放在num中，传入dl中
56 add dl,30H ;把dl转换为ascial码并输出
57 cmp dl,39H
58 jbe next
59 add dl,07H
60 next:
61 mov ah,2
62 int 21H
63 call disp_crlf
64 jmp short input_char
65 exit:
66 ret
67 main endp
68 ;---------------------------------
69 search proc near
70 mov si,0 ;table指针
71 mov cx,n ;循环次数
72 mov num,0 ;计算个数
73 mov al,char ;把待查自符放在al中
74 rotate: ;循环查找，找到就num++
75 cmp al,table[si]
76 jnz rotate1
77 inc num
78 rotate1:
79 inc si
80 loop rotate
81 ret
82 search endp
83 ;--------------------------------
84 disp_crlf proc near;换行子函数
85 mov dl,0DH
86 mov ah,02H
87 int 21H
88 mov dl,0AH
89 mov ah,02H
90 int 21H
91 ret
92 disp_crlf endp
93 ;-------------------------------
94 code ends
95 end start
96
