编写程序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
升级会员 