编写程序Word格式文档下载.docx

编写程序Word格式文档下载.docx

《编写程序Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《编写程序Word格式文档下载.docx（44页珍藏版）》请在冰豆网上搜索。

公共的程序段如下：

MOVDI,DS

MOVES,DI

（1）MOVCX,132

MOVAL.,‘’；

空格的ASCII码送AL寄存器

LEADI,PRINT_LINE

REPSTOSB

（2）MOVCX,9

MOVAL.,‘-’

LEADI,STUDENT_ADDR

REPNESCASB

JNENO_DASH

NO_DASH:

┇

（3）MOVCX,9

STD

ADDDI,9-1

INCDI

（4）MOVCX,30

MOVAL,‘’；

LEADI,STUDENT_NAME

REPESCASB

JNENEXT

MOVCX,30

MOVAL,‘*’；

“*”的ASCII码送AL寄存器

（5）MOVCX,30

LEASI,STUDENT_NAME

REPMOVSB

MOVCX,9

LEASI,STUDENT_ADDR+9-1

LEADI,PRINT_LINE+132-1

3.32编写一程序段：

比较两个5字节的字符串OLDS和NEWS，如果OLDS字符串不同于NEWS字符串则执行NEW_LESS；

否则顺序执行程序。

MOVCX,5

MOVDI,SEGOLDS

MOVDS,DI

MOVES,DI

LEASI,OLDS

LEADI,NEWS

REPECMPSB

JNENEW_LESS

┇

NEW_LESS:

3.47请编写一程序段，要求把ECX、EDX和ESI的内容相加，其和存入EDI寄存器中（不考虑溢出）。

MOVEDI，0也可为：

MOVEDI，ECX

ADDEDI，ECXADDEDI，EDX

ADDEDI，EDXADDEDI，ESI

ADDEDI，ESI

3.49试编写一程序段，要求把BL中的数除以CL中的数，并把其商乘以2，最后的结果存入DX寄存器中。

MOVAL，BL

MOVAH，0;

假定为无符号数，否则用CBW指令即可

DIVCL

MOVAH，0

SHLAX，1;

逻辑左移1位

MOVDX，AX

3.51试编写一程序段，要求在长度为100H字节的数组中，找出大于42H的无符号数的个数并存入字节单元UP中；

找出小于42H的无符号数的个数并存入字节单元DOWN中。

JMPBEGIN;

无条件转移

UPDB0

DOWNDB0

TABLEDB100HDUP（?

）；

数组

BEGIN：

MOVCX，100H

MOVBX，-1；

数组下标

MOVSI，0

MOVDI，0

L1：

INCBX

CMPTABLE[BX]，42H

JAL2；

高于

JBL3；

低于

JMPL4；

否则跳到L4

L2：

INCSI;

UP

JMPL4

L3：

INCDI;

DOWN

L4：

LOOPL1

MOVUP，SI

MOVDOWN，DI

4.11试写出一个完整的数据段DATA_SEG，它把整数5赋予一个字节，并把整数-1，0，2，5和4放在10字数组DATA_LIST的头5个单元中。

然后，写出完整的代码段，其功能为：

把DATA_LIST中头5个数中的最大值和最小值分别存入MAX和MIN单元中。

DATA_SEGSEGMENT

NUMDB5

DATA_LISTDW-1,0,2,5,4,5DUP（?

MAXDW?

MINDW?

DATA_SEGENDS

；

----------------------------------------------------------------

CODE_SEGSEGMENT

MAINPROCFAR

ASSUMECS:

CODE_SEG,DS:

DATA_SEG

START:

PUSHDS；

设置返回DOS

SUBAX,AX

PUSHAX

MOVAX,DATA_SEG；

给DS赋值

MOVDS,AX

MOVCX,4；

程序段开始

LEABX,DATA_LIST

MOVAX,[BX]

MOVMAX,AX

MOVMIN,AX

ROUT1:

ADDBX,2

CMPAX,MAX

JNGEROUT2

ROUT2:

CMPAX,MIN

JNLEROUT3

ROUT3:

LOOPROUT1；

程序段结束

RET

MAINENDP

CODE_SEGENDS

ENDSTART

4.17写一个完整的程序放在代码段C_SEG中，要求把数据段D_SEG中的AUGEND和附加段E_SEG中的ADDEND相加，并把结果存放在D_SEG段中的SUM中。

其中AUGEND、ADDEND和SUM均为双精度数，AUGEND赋值为99251，ADDEND赋值为-15962。

程序如下：

D_SEGSEGMENT

AUGWLABELWORD

AUGENDDD99251

SUMDD?

D_SEGENDS；

以上定义数据段

E_SEGSEGMENT

ADDWLABELWORD

ADDENDDD-15962

E_SEGENDS；

以上定义附加段

C_SEGSEGMENT

C_SEG,DS:

D_SEG,ES:

E_SEG

PUSHDS；

MOVAX,D_SEG

MOVDS,AX；

MOVAX,E_SEG

MOVES,AX；

给ES赋值

MOVAX,AUGW；

以下6条指令进行加法计算

MOVBX,AUGW+2

ADDAX,ES:

ADDW

ADCBX,ES:

ADDW+2；

不考虑有符号数溢出

MOVWORDPTRSUM,AX

MOVWORDPTR[SUM+2],BX

C_SEGENDS；

以上定义代码段

5.1试编写一个汇编语言程序，要求对键盘输入的小写字母用大写字母显示出来。

BEGIN:

MOVAH,1；

从键盘输入一个字符的DOS调用

INT21H

CMPAL,‘a’；

输入字符<

‘a’吗？

JBSTOP

CMPAL,‘z’；

输入字符>

‘z’吗？

JASTOP

SUBAL,20H；

转换为大写字母，用ANDAL,11011111B也可

MOVDL,AL；

显示一个字符的DOS调用

MOVAH,2;

从键盘输入第二个字符

JMPBEGIN

STOP:

RET

5.2编写程序，从键盘接收一个小写字母，然后找出它的前导字符和后续字符，再按顺序显示这三个字符。

DECAL；

得到前导字符

准备显示三个字符

MOVCX,3

DISPLAY:

MOVAH,2；

INCDL

LOOPDISPLAY

5.3将AX寄存器中的16位数分成4组，每组4位，然后把这四组数分别放在AL、BL、CL和DL中。

DSEGSEGMENT

STOREDB4DUP（?

DSEGENDS

MOVCL,4；

右移四次

MOVCH,4；

循环四次

LEABX,STORE

A10:

MOVDX,AX

ANDDX,0FH；

取AX的低四位

MOV[BX],DL；

低四位存入STORE中

SHRAX,CL；

DECCH

JNZA10；

循环四次完了码？

B10:

MOVDL,STORE；

四组数分别放在AL、BL、CL和DL中

MOVCL,STORE+1

MOVBL,STORE+2

MOVAL,STORE+3

5.4试编写一程序，要求比较两个字符串STRING1和STRING2所含字符是否完全相同，若相同则显示‘MATCH’，若不相同则显示‘NOMATCH’。

STRING1DB‘Iamastudent.’

STRING2DB‘Iamastudent!

YESDB‘MATCH’,0DH,0AH,‘$’

NODB‘NOMATCH’,0DH,0AH,‘$’

--------------------------------------------------------------------------

CSEGSEGMENT

CSEG,DS:

DSEG,ES:

DSEG

PUSHAX

MOVAX,DSEG

LEASI,STRING1；

设置串比较指令的初值

LEADI,STRING2

MOVCX,STRING2-STRING1

REPECMPSB；

串比较

JNEDISPNO

LEADX,YES；

显示MATCH

JMPDISPLAY

DISPNO:

LEADX,NO；

显示NOMATCH

MOVAH,9；

显示一个字符串的DOS调用

CSEGENDS；

5.5试编写一程序，要求能从键盘接收一个个位数N，然后响铃N次（响铃的ASCII码为07）。

SUBAL,‘0’

JBSTOP；

‘0’吗？

CMPAL,9；

‘9’吗？

CBW

MOVCX,AX；

响铃次数N

JCXZSTOP

BELL:

MOVDL,07H；

准备响铃

显示一个字符的DOS调用，实际为响铃

CALLDELAY100ms；

延时100ms

LOOPBELL

5.6编写程序，将一个包含有20个数据的数组M分成两个数组：

正数数组P和负数数组N，并分别把这两个数组中数据的个数显示出来。

COUNTEQU20

ARRAYDW20DUP（?

）；

存放数组

COUNT1DB0；

存放正数的个数

ARRAY1DW20DUP（?

存放正数

COUNT2DB0；

存放负数的个数

ARRAY2DW20DUP（?

存放负数

ZHENDB0DH,0AH,‘Thepositivenumberis：

’,‘$’；

正数的个数是：

FUDB0DH,0AH,‘Thenegativenumberis：

负数的个数是：

CRLFDB0DH,0AH,‘$’

MAINPROCFAR

MOVCX,COUNT

LEABX,ARRAY

LEASI,ARRAY1

LEADI,ARRAY2

BEGIN1:

MOVAX,[BX]

CMPAX,0；

是负数码？

JSFUSHU

MOV[SI],AX；

是正数，存入正数数组

INCCOUNT1；

正数个数+1

ADDSI,2

JMPSHORTNEXT

FUSHU:

MOV[DI],AX；

是负数，存入负数数组

INCCOUNT2；

负数个数+1

ADDDI,2

ADDBX,2

LOOPBEGIN1

LEADX,ZHEN；

显示正数个数

MOVAL,COUNT1

CALLDISPLAY；

调显示子程序

LEADX,FU；

显示负数个数

MOVAL,COUNT2

DISPLAYPROCNEAR；

显示子程序

MOVAH,9；

AAM；

将（AL）中的二进制数转换为二个非压缩BCD码

ADDAH,‘0’；

变为0～9的ASCII码

MOVDL,AH

MOVAH,2；

ADDAL,‘0’；

MOVDL,AL

LEADX,CRLF；

显示回车换行

DISPLAYENDP；

显示子程序结束

5.7试编写一个汇编语言程序，求出首地址为DATA（DATA数组）的100D字数组中的最小偶数，并把它存放在AX中。

MOVBX,0

MOVCX,100

COMPARE:

MOVAX,DATA[BX]；

取数组的第一个偶数

ADDBX,2

TESTAX,01H；

是偶数吗?

（偶数与01H逻辑与，不是0，不是偶数）

LOOPNZCOMPARE；

不是，比较下一个数

JNZSTOP；

没有偶数，退出

JCXZSTOP；

最后一个数是偶数，即为最小偶数，退出

COMPARE1:

MOVDX,DATA[BX]；

取数组的下一个偶数

TESTDX,01H；

是偶数吗？

JNZNEXT；

CMPAX,DX；

（AX）<

（DX）吗？

JLENEXT

MOVAX,DX；

（DX），则置换（AX）为最小偶数

LOOPCOMPARE1

5.8把AX中存放的16位二进制数K看作是8个二进制的“四分之一字节”。

试编写程序要求数一下值为3（即11B）的四分之一字节数，并将该数（即11B的个数）在终端上显示出来。

（例如：

1010101010101010分为101010101010101010）

MOVDL,0；

计数初始值

MOVCX,8

TESTAX,03H；

是数03吗？

JNZNOEQUAL；

不是，转走

INCDL；

是，计数

NOEQUAL:

RORAX,1；

准备判断下一个数

RORAX,1

LOOPCOMPARE

ADDDL,‘0’；

将计数值转换为ASCII码

进行显示

5.9试编写一个汇编语言程序，要求从键盘接收一个四位的16进制数（1234H），并在终端上显示与它等值的二进制数。

MOVBX,0；

用于存放四位的16进制数

MOVCH,4

MOVCL,4

INPUT:

SHLBX,CL;

将前面输入的数左移4位

MOVAH,1；

从键盘取数

CMPAL,30H；

<

0吗？

JBINPUT；

不是‘0～F’的数重新输入

CMPAL,39H；

是‘0～9’吗？

JAAF；

不是，转‘A～F’的处理

ANDAL,0FH；

转换为：

0000B～1001B

JMPBINARY

AF:

ANDAL,11011111B；

转换为大写字母

CMPAL,41H；

又<

A吗？

JBINPUT;

不是‘A～F’的数重新输入

CMPAL,46H；

>

F吗？

JAINPUT;

1010B～1111B

ADDAL,9

BINARY:

ORBL,AL;

将键盘输入的数进行组合

DELCH

JNZINPUT

DISPN:

MOVCX,16；

将16位二进制数一位位地转换成ASCII码显示

DISP:

MOVDL,0

ROLBX,1

RCLDL,1

ORDL,30H

LOOPDISP

5.10设有一段英文，其字符变量名为ENG，并以$字符结束。

试编写一程序，查对单词SUN在该文中的出现次数，并以格式“SUN：

xxxx”显示出次数。

ENGDB‘Hereissun,sun,…,$’

DISPDB‘SUN：

DATDB‘0000’,0DH,0AH,‘$’

KEYWORDDB‘sun’

MOVES