《汇编语言：基于X86处理器》第9章 编程练习

本篇记录《汇编语言：基于X86处理器》第9章 编程练习的学习笔记.

9.10 编程练习

下面的练习可以用32位模式或64位模式完成。所有字符串处理过程都假设使用的是空字符结束的字符串。即使没有明确的要求，每道练习都需编写简单的驱动程序来测试所实现的新过程。

*1.改进Str_copy过程

本章给出的Str_copy过程没有限制被复制字符的数量。编写新过程(名为Str_copyN)再接收一个输入参数，表示被复制字符数的最大值。

;9.10_1.asm 9.10 编程练习 *1.改进Str_copy过程;本章给出的Str_copy过程没有限制被复制字符的数量。;编写新过程(名为Str_copyN)再接收一个输入参数，表示被复制字符数的最大值。.386.model flat, stdcall.stack 4096ExitProcess PROTO,dwExitCode:DWORD.datasrc BYTE \"Good night Tom1\",0tgt BYTE \"hello\", 24 DUP(0), 0;30字节空间.code ;-------------------------------------------;将字符串从源串复制到目的串。;要求:目标串必须有足够空间容纳从源复制来的串。;返回：无;--------------------------------------------Str_copyN PROC USES eax ecx esi edi,source:PTR BYTE,;source stringtarget:PTR BYTE,;target stringcopyCount:DWORD;复制的字符数mov ecx, copyCount;重复计数器mov esi, sourcemov edi, target;把edi定位到tgt字符串的最后位置L1:mov al, [edi] cmp al, 0je L2inc edijmp L1L2: cld;方向为正向rep movsb;复制宇符串 [esi]=>[edi] source复制到target尾部retStr_copyN ENDPmain PROCmov ebx, LENGTHOF tgt;30字节空间INVOKE Str_copyN, ADDR src, ADDR tgt, 10nopINVOKE ExitProcess, 0main ENDP END main

运行调试：

复制后：

** 2.Str_concat 过程

编写过程 Str_concat 将源串连接到目的串的末尾。目的串必须有足够的空间来容纳新字符。传递源串和目的串的指针。示例调用如下所示:

.datatargetStr BYT \"ABCDE\", 10 DUP(0)sourceStr BYTE \"FGH\",0.codeINVOKE Str_concat, ADDR targetStr, ADDR scourceStr

完整的代码如下：

;9.10_2.asm 9.10 编程练习 ** 2.Str_concat 过程;编写过程 Str_concat 将源串连接到目的串的末尾。;目的串必须有足够的空间来容纳新字符。传递源串和目的串的指针。.386.model flat, stdcall.stack 4096ExitProcess PROTO,dwExitCode:DWORD.datatargetStr BYTE \"ABCDE\", 10 DUP(0),0sourceStr BYTE \"FGH\",0.code ;------------------------------------------;获取字符串的长度。;返回值，EAX返回字符串的长度;------------------------------------------Str_length PROC USES edi,pString:PTR BYTEmov edi, pString;指向字符串mov eax, 0;字符计数器L1:cmp BYTE PTR[edi], 0;字符结束?je L2;是:退出inc edi;否:指向下一个字符inc eax;计数器加1jmp L1L2:retStr_length ENDP;-------------------------------------------;将字符串从源串复制到目的串。;要求:目标串必须有足够空间容纳从源复制来的串。;返回：无;--------------------------------------------Str_concat PROC USES eax ecx esi edi,target:PTR BYTE, source:PTR BYTE INVOKE Str_length, target;获取字符串的长度，保存在EAX中mov edi, target;把edi定位到tgt字符串的最后位置add edi, eaxmov esi, sourceINVOKE Str_length, source;获取字符串的长度，保存在EAX中mov ecx, eax;重复计数器 cld;方向为正向rep movsb;复制宇符串 [esi]=>[edi] source复制到target尾部retStr_concat ENDPmain PROCmov ebx, LENGTHOF targetStr;30字节空间INVOKE Str_concat, ADDR targetStr, ADDR sourceStrnopINVOKE ExitProcess, 0main ENDP END main

运行调试：

连接后：

**3.Str_remove 过程

编写过程 Str_remove从字符串中删除n个字符。需传递参数为:被删除字符在串中的位置指针，以及定义删除字符数量的整数。例如，下面的代码展示了如何从target中删除“xxxx”:

.datatarget BYTE \"abcxxxxdefghijklmop\",0.codeINVOKE Str_remove, ADDR [target+3], 4

完整的代码：

;9.10_3.asm 9.10 编程练习 **3.Str_remove 过程;编写过程 Str_remove从字符串中删除n个字符。需传递参数为:被删除字符在串中的位置指针，;以及定义删除字符数量的整数。例如，下面的代码展示了如何从target中删除“xxxx”:.386.model flat, stdcall.stack 4096ExitProcess PROTO,dwExitCode:DWORD.datatarget BYTE \"abcxxxxdefghijklmop\",0.code ;-------------------------------------------;从字符串中删除n个字符;接收：删除的起始位置，删除的个数;返回：无;--------------------------------------------Str_remove PROC USES eax ecx esi edi,tgt:PTR BYTE,;target stringremoveCount:DWORD;移除的字符数mov ecx, removeCount;重复计数器mov edi, tgt;起始位置mov esi, tgtadd esi, removeCount;[esi]==>[edi];cld;方向为正向;rep movsb;[edi+removeCount]=>[edi] 字符串前移abcdefgdefghijklmop ;abcdefghijklmoplmopL1:mov al, [esi] cmp al, 0je L2mov [edi],alinc esiinc edijmp L1;abcdefghijklmoplmop=====>abcdefghijklmop L2: dec esimov BYTE PTR [esi], 0loop L2retStr_remove ENDPmain PROCmov ebx, LENGTHOF targetINVOKE Str_remove, ADDR target+3, 4nopINVOKE ExitProcess, 0main ENDP END main

运行调试：

删除后：

***4.Str_find 过程

编写过程 Str_find在目的串中查找第一次出现的源串，并返回其位置。输入参数为源串指针和目的串指针。如果查找成功，过程将零标志位ZF置1，用EAX指向目的串的匹配位置。否则，ZF清零，EAX无定义。例如，下面的代码查找“ABC”，并用EAX返回“A”在目的串中的位置:

.datatarget BYTE \"123ABC342432\", 0source BYTE \"ABC\", 0pos DWORD ?.codeINVOKE Str_find, ADDR source, ADDR targetjnz notFoundmov pos, eax;保存位置值

完整的代码如下：

;9.10_4.asm 9.10 编程练习 ***4.Str_find 过程;编写过程Str_find在目的串中查找第一次出现的源串，并返回其位置。;输入参数为源串指针和目的串指针。如果查找成功，过程将零标志位ZF置1，;用EAX指向目的串的匹配位置。否则，ZF清零，EAX无定义.386.model flat, stdcall.stack 4096ExitProcess PROTO,dwExitCode:DWORD.datatarget BYTE \"123ABC342432\", 0source BYTE \"ABC\", 0pos DWORD ?.code ;-----------------------------------------------------;从目标串中查找源串。;接收: source:源字符串的指针，target：目的字符串的指针;返回: 返回的位置保存到EAX中;-----------------------------------------------------Str_find PROC USES ecx esi edi,src:PTR BYTE,;source stringtgt:PTR BYTE;target string mov edi, tgtmov esi, srcmov ebx, 0;查找L1:mov al, [esi + ebx] cmp [edi], alje L2;相等inc edi;不相等，查找下一个字符mov al, [edi]cmp al, 0je L4;目标字符串到结尾，没有找到子串mov ebx, 0;子串从初始位置开始jmp L1L2: inc ediinc ebxmov al, [esi+ebx]cmp al, 0je L3;子串在目标字符串中查找结果mov al, [edi]cmp al, 0je L4;目标字符串到结尾，没有找到子串jmp L1 L3:;查找成功，将零标志位ZF置1xor eax, eax;将寄存器与自身异或，结果为 0，ZF=1mov eax, ebx;保存位置到eax中jmp quitL4:;没有找到子串，将零标志位ZF置0or eax, 0FFFFFFFEhquit:retStr_find ENDPmain PROCmov ebx, LENGTHOF target INVOKE Str_find, ADDR source, ADDR targetjnz notFoundmov pos, eax;保存位置值notFound:nopINVOKE ExitProcess, 0main ENDP END main

运行调试：

把子串改为“ABCD”，再次运行调试测试：

**5.Str_nextWord 过程

编写过程Str_nextWord扫描字符串，查找第一次出现的指定分隔符，并将其替换为空字节输入参数有两个:字符串指针和分隔符。调用之后，如果发现分隔符，零标志位ZF置1，EAX为分隔符下一个字符的偏移量。否则，ZF清零，EAX无定义。下面的示例代码传递了target的指针和分隔符“,”:

.datatarget BYTE \"Johnson,Calvin\",0.codeINVOKE Str_nextWord, ADDR target, \',\'jnz notFount

如图9-5所示，调用StrnextWord后，EAX指向了被发现(并替换)的“,”后面的那个字符。

;9.10_5.asm 9.10 编程练习 **5.Str_nextWord 过程;编写过程Str_nextWord扫描字符串，查找第一次出现的指定分隔符，;并将其替换为空字节输入参数有两个:字符串指针和分隔符。;调用之后，如果发现分隔符，零标志位ZF置1，EAX为分隔符下一个字符的偏移量。;否则，ZF清零，EAX无定义。下面的示例代码传递了target的指针和分隔符“,”:.386.model flat, stdcall.stack 4096ExitProcess PROTO,dwExitCode:DWORD.datatarget BYTE \"Johnson,Calvin\",0pos DWORD ?.code ;-----------------------------------------------------;查找第一次出现的指定分隔符，并将其替换为空字节输入参数有两个:字符串指针和分隔符。;接收: tgt：目的字符串的指针, ;返回: 返回的位置保存到EAX中;-----------------------------------------------------Str_nextWord PROC, tgt:PTR BYTE,;target stringval:BYTEmov edi, tgt;查找L1:mov al, [edi] cmp al, 0je L4;到字符串末尾了还没有找到分隔符cmp al, valje L2;相等跳转到L2inc edi;不相等，查找下一个字符jmp L1L2: mov BYTE PTR [edi], \' \';将分隔符替换为空字符inc edi;查找成功，将零标志位ZF置1xor eax, eax;将寄存器与自身异或，结果为 0，ZF=1jmp quitL4:;没有找到子串，将零标志位ZF置0or eax, 0FFFFFFFEhquit:retStr_nextWord ENDPmain PROCmov ebx, LENGTHOF target INVOKE Str_nextWord, ADDR target, \'?\'jnz notFoundmovzx eax, BYTE PTR [edi];eax指向分隔符的下一个字符notFound:nopINVOKE ExitProcess, 0main ENDP END main

运行调试：

把分隔符换成？号测试：

**6.构建频率表

编写过程 Get_frequencies构建一个字符频率表。需向过程输人字符串指针，以及一个数组指针，该数组包含 256个双字，并已初始化为全0。每个数组位置都由其对应字符的ASCII码进行索引。过程返回时，数组中的每一项包含的是对应字符在串中出现的次数。例如，

.datatarget BYTE \"AAEBDCFBBC\", 0freqTable DWORD 256 DUP(0).codeINVOKE Get_frequencies, ADDR target, ADDR freqTable

图9-6展示了一个字符串和频率表的表项41(十六进制)到4B。位置41包含数值2，原因是字母A(ASCII码为41h)在字符串中出现了两次。其他字符也进行相同的计数。频率表常用于数据压缩和其他涉及字符处理的应用。例如，哈夫曼(Huffman)编码算法中，与较不常用的字符相比，最常出现字符的保存位数更少。

;9.10_6.asm 9.10 编程练习 **6.构建频率表;编写过程 Get_frequencies构建一个字符频率表。需向过程输人字符串指针，;以及一个数组指针，该数组包含 256个双字，并已初始化为全0。;每个数组位置都由其对应字符的ASCII码进行索引。过程返回时，;数组中的每一项包含的是对应字符在串中出现的次数。.386.model flat, stdcall.stack 4096ExitProcess PROTO,dwExitCode:DWORD.datatarget BYTE \"AAEBDCFBBC\", 0freqTable DWORD 256 DUP(0).code ;-------------------------------------------;构建一个字符频率表;接收:目标字符串， 频率表;返回：无;--------------------------------------------Get_frequencies PROC USES ebx esi edi,tgt:PTR BYTE,;target stringfreq:PTR BYTE;频率表mov esi, tgtmov edi, freq ;根据[esi]中的值为索引，找频率表的位置L1:movzx ebx, BYTE PTR [esi];esi里的值为频率表索引值cmp ebx, 0je L2;等于0表示字符串结束shl ebx, 2;相当于ebx * 4, 频率表的位置是32位的inc DWORD PTR[edi+ebx];[edi + index*4]inc esijmp L1L2:retGet_frequencies ENDPmain PROCmov ebx, LENGTHOF target INVOKE Get_frequencies, ADDR target, ADDR freqTablenopINVOKE ExitProcess, 0main ENDP END main

运行调试：

调用后：

***7.厄拉多塞过滤算法

厄拉多塞(Eratosthenes)过滤算法，由同名的希腊数学家发明，提供了在给定范围内快速查找所有质数的方法。该算法创建一个字节数组，并按如下方式在“被标记”位置上插入1:从位置2(2是质数)开始，则数组中所有2的倍数的位置都插入1。接着，对下一个质数3，用同样的方法处理3的倍数。查找3之后的质数，该数为5，再对所有5的倍数的位置进行标记。持续这种操作直到找出质数的全部倍数。那么，剩下数组中没有被标记的位置就表示其数为质数。编写程序，创建一个含有65000个元素的数组，并显示2到65000之间的所有质数。要求，在未初始化数据段中声明该数组(参见3.4.1节)，且使用STOSB把0填充到数组中。

;9.10_7.asm 9.10 编程练习 ***7.厄拉多塞过滤算法;.386;.model flat, stdcall;.stack 4096;ExitProcess PROTO,dwExitCode:DWORDINCLUDE Irvine32.inc.datasrc BYTE 65000 DUP(?);65000字节空间.code ;-------------------------------------------;厄拉多塞(Eratosthenes)过滤算法标记素数。;接收:source:字节数指针， count数组元素个数。;返回：无;--------------------------------------------Eratosthenes PROC USES ebx ecx esi edi,source:PTR BYTE,count:DWORDmov edi, source;数组的指针mov ecx, count;元素个数mov ebx, 2;质数从2开始mov esi, 2L1:mov bl, BYTE PTR[edi + esi]cmp bl, 1;被标记过了，不是素数je next;判断下一个数mov ebx, 2;从2开始判断是否有被整除的L2:cmp ebx, esije prime;相等说明前面都没有被整除，该数是素数mov edx, 0;高位清0mov eax, esi;被除数放在eax中div ebx;商在eax中，余数在edx中cmp edx, 0je next;等于0， 有被整除，不是素数，检查下一个数cmp ebx, esijl next2;ebx比esi小，再除下一个数jmp next next2:inc ebxjmp L2 prime:mov eax, esi;打印素数call WriteDec call Crlf 换行;在数组中标记素数mov BYTE PTR [eax + edi], 0;eax的倍数都不是素数，要标记为1L3:add eax, esicmp eax, count;判断有没有超出范围ja next;大于跳转到nextmov BYTE PTR [eax + edi], 1;标记为1jmp L3 next:inc esiloop L1retEratosthenes ENDP main PROC;初始化字符串mov al, 0;要保存的数值mov edi, OFFSET src;EDI指向目标字符串mov ecx, LENGTHOF src;字符计数器cld;方向为正rep stosb;用AL的内容实现填充INVOKE Eratosthenes, ADDR src, LENGTHOF src;打印素数, 从2开始mov esi, OFFSET srcmov ecx, LENGTHOF srcsub ecx, 2mov ebx, 2mov edi, 0prime:movzx eax, BYTE PTR [esi+ebx]cmp eax, 1je nextmov eax, ebxcall WriteDec ;一行输出12个质数cmp edi, 12je L1mov al, 9;输出tab符call WriteCharjmp L2L1:call Crlf;换行mov edi, 0jmp nextL2:inc edinext:inc ebxloop primecall CrlfINVOKE ExitProcess,0main ENDPEND main

运行调试：

调用Eratosthenes过程后，标记素数：

输出素数：

*8.冒泡排序

向 9.5.1节的 BubbleSort 过程添加一个变量，进行内循环时，只要有一对数值交换就将其置1.若在某次遍历过程中发现没有数值交换，就在过程正常结束之前，利用该变量提前退出。(该变量通常被称为交换标志(exchange flag)。)

;9.10_8.asm 9.10 编程练习 *8.冒泡排序.386.model flat, stdcall.stack 4096BubbleSort PROTO, pArray:PTR DWORD, Count:DWORD, isChange:PTR DWORDExitProcess PROTO,dwExitCode:DWORD.datatableD DWORD 100h, 20h, 3030h, 402h, 50h, 80h, 6070h, 6020hisXchg DWORD 0.code main PROCmov esi, OFFSET tableDINVOKE BubbleSort, OFFSET tableD, LENGTHOF tableD, OFFSET isXchgINVOKE ExitProcess, 0main ENDP ;------------------------------------------;使用冒泡算法，将一个32位有符号整数数组按升序进行排列;接收:数组指针，数组大小, 交换判断标志;返回:无;------------------------------------------BubbleSort PROC USES eax ecx esi,pArray:PTR DWORD,;数组指针Count:DWORD,;数组大小isChange:PTR DWORD;用来判断内循环是否有交换mov ecx, Countdec ecx;计数值减1L1:push ecx;保存外循环计数值mov esi, pArray;指向第一个数值L2:mov eax, [esi];取数组元素值cmp [esi + 4], eax;比较两个数值jg L3;如果[ESI]<=[ESI+4]，不交换xchg eax, [esi+4];交换两数mov [esi], eaxmov [isChange], 1L3:add esi,4;两个指针都向前移动一个元素loop L2;内循环pop ecx;恢复外循环计数值cmp [isChange], 0;判断内循环是否有交换je L4;没有交互，结束循环，说明已经排好序loop L1;若计数值不等于0，则继续外循环L4:retBubbleSort ENDPEND main

运行调试：

排序后：

**9.对半查找

重新编写本章给出的对半查找过程，用寄存器来表示mid、first 和last。添加注释说明寄存器的用法。

;9.10_9.asm 9.10 编程练习 **9.对半查找;重新编写本章给出的对半查找过程，用寄存器来表示mid、first 和last。添加注释说明寄存器的用法。;.386;.model flat, stdcall;.stack 4096INCLUDE Irvine32.inc.dataarray DWORD 12h, 30h, 52h, 64h, 78h, 93h, 97h.code ;------------------------------------------;BinarySearch;在一个有符号整数数组中查找某个数值。;接收:数组指针、数组大小、给定查找数值;返回:若发现匹配项，则EAX=该匹配元素在数组中的位置;否则，EAX=-1。;------------------------------------------BinarySearch PROC USES ebx edx esi edi,pArray:PTR DWORD,;数组指针Count:DWORD,;数组大小searchVal:DWORD;给定查找数值mov esi, pArraymov ecx, Countmov ebx, 0;ebx=first=0(数组起始索引);mov edx, Count ;dec edx;edx = last = Count-1 (数组结束索引)lea edx, [ecx - 1];返回间接操作数的地址 其原理返回实现的有效地址 7 - 1 = 6;lea edx, [ecx];这里有个现象，如果ecx是值，返回的是这个ecx的值， 7, 其实质是[ecx+0];lea edx, [esi];如果esi是地址，返回的就是esi的址址 00404000h 其实质是[esi+0] esi本身的值是00404000h;lea edx, [50h];edx = 50h;lea edx, [00404060h];edx = 00404060hsearchLoop:cmp ebx, edx;比较first和lastjgnotFount;如果first>last,未找到;计算mid = (first + last) / 2mov edi, ebx;edi=firstadd edi, edx;edi=first+lastshr edi, 1;edi=(first+last)/2;比较array[mid]和搜索值mov ecx, [esi + edi*4];ecx = array[mid] 数组元素为DWORD型cmp eax, ecxje found;相等，找到元素jl searchLeft;如果搜索值 < array[mid]，搜索左半部分;否则搜索右半部分searchRight:lea ebx, [edi+1]; first = mid + 1jmp searchLoopsearchLeft:lea edx, [edi - 1]; last = mid - 1jmp searchLoopfound:mov eax,edi;返回找到的索引(mid)jmp done;返回 midnotFount:mov eax,-1;查找失败done:retBinarySearch ENDPmain PROCmov eax, 52h;实现对半查找 用EAX返回INVOKE BinarySearch, ADDR array, LENGTHOF array, eaxnopINVOKE ExitProcess, 0main ENDP END main

运行调试：

***10.字母矩阵

编写过程生成一个4x4的矩阵，矩阵元素为随机选择的大写字母。选择字母时，必须保证被选字母是元音的概率为 50%。编写测试程序，用循环调用该过程5次，并在控制台窗口显示所有矩阵。前三次矩阵的示例输出如下所示:

元音字母有五个，分别是 ‌a、e、i、o、u‌。

原理，先用RandomRange生成元音或辅音的随机会，再根据随机数，生成元音的随机数，或辅音的随机会。如果随机数为0，调用RandomRange生成元音随机数，如果随机数为1生成辅音的随机数。

RandomRange过程在范围0~n-1内生成一个随机整数，其中n是用EAX寄存器传递的输入参数。生成的随机数也用EAX返回。

;9.10_10.asm 9.10 编程练习 ***10.字母矩阵;编写过程生成一个4x4的矩阵，矩阵元素为随机选择的大写字母。;选择字母时，必须保证被选字母是元音的概率为 50%。;编写测试程序，用循环调用该过程5次，并在控制台窗口显示所有矩阵。INCLUDE Irvine32.inc.datamatrixSize equ 16;4x4 matrixvowels BYTE \'AEIOU\', 0;元音列表consonants BYTE \'BCDFGHJKLMNPQRSTVWXYZ\', 0;辅音列表matrix BYTE 16 dup(0);存储生成的矩阵.code ;-------------------------------------------;生成矩阵;要求:目标串必须有足够空间容纳从源复制来的串。;返回：无;--------------------------------------------GenerateMatrix PROC USES eax ebx ecx edx esi edi,source:PTR BYTE, ;source stringvowel:PTR BYTE, ;元音列表consonant:PTR BYTE, ;辅音列表copyCount:DWORD ;复制的字符数mov ecx, copyCount ;重复计数器mov esi, sourcemov edi, 0mov ebx, 0;生成随机数L1:mov eax, 2;生成的范围在0或1call RandomRange;生成的随机数保存在eax中cmp eax, 0je L2;如果eax==0,接下来生成随机数，取元音字符;否则取辅音字母，辅音字母有21个，因此序号在0~20mov eax, 21;设置随机数范围call RandomRange;生成随机数0~20;mov al, BYTE PTR consonants[eax];取辅音字母 mov ebx, consonantmov al, BYTE PTR[ebx+eax]mov BYTE PTR[esi+edi], al;把辅音字母存入矩阵中jmp nextL2: ;元音字母只有5个，因此序号在0~4mov eax, 5;设置随机数范围call RandomRange;生成随机数0~4;mov al, BYTE PTR vowels[eax];取元音字母 mov ebx, vowelmov al, BYTE PTR[ebx+eax]mov BYTE PTR [esi+edi], al;把元音字母存入矩阵中[esi+edi]next:inc ediloop L1;打印4 * 4矩阵mov ecx, copyCountmov ebx, 0L3:mov al, BYTE PTR[esi+ebx]call WriteChar inc ebxmov edx, 0mov eax, ebxmov edi, 4div edi;余数在edx中cmp edx, 0je L4mov al, 9;tab符号call WriteCharjmp nextCharL4:call Crlf;换行nextChar:loop L3retGenerateMatrix ENDPmain PROCmov ecx, 5mov ebx, LENGTHOF matrixL1:INVOKE GenerateMatrix, ADDR matrix, ADDR vowels, ADDR consonants, matrixSizecall Crlfloop L1nopINVOKE ExitProcess, 0main ENDP END main

运行调试：

生成矩阵：

输出：

****11.字母矩阵/按元音分组

本程序以上一道编程练习生成的字母矩阵为基础。生成一个4x4的字母矩阵，其中每个字母都有 50%的概率为元音字母。遍历矩阵的每一行，每一列，和每个对角线，并产生字母组。当一组四个字母中只有两个元音字母时，显示该字母组。比如，假设生成矩阵如下所示:

则程序应显示的四字母组为POAZ、GKAE、IAGD、PAGI、ZUED、PEAD和ZAKI。各组内字母的顺序并不重要。

**** 12.数组行求和

编写程序 calc_row_sum计算二维的字节数组、字数组或双字数组中单行的总和。过程需有如下堆栈参数:数组偏移量、行大小、数组类型、行索引。返回的和数必须在EAX中。要求使用不能用INVOKE或扩展的PROC。编写程序，分别用字节数组、字数组和双字数显式堆栈参数，组来测试过程。要求用户输人行索引，并显示被选择行的和数。

***13.裁剪前导字符

编写Str_trim过程的变体，使得主调程序能从字符串中删除所有的前导字符。比如，若调用过程时，有一指针指向字符串“###ABC”，且向过程传递了字符“#”，则结果字符串应为“ABC”。

***14.去除一组字符

编写Str_trim 过程的变体，使得主调程序能从字符串末尾删除一组字符。比如，若调用过程时，有一指针指向字符串“ABC#S&”，且向过程传递了过滤字符数组“%#!;S&*”的指针，则结果字符串应为“ABC”。