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