安防之家讯：循环程序可以有两种结构形式，如图所示。一种是DO_WHILE结构形式；另一种是DO_UNTIL结构形式。

例5．1设内存BUFF开始的单元中依次存放着30个8位无符号数，求它们的和并放在SUM单元中，试编写程序。

分析：这是一个求累加的程序。程序如下：

MOVSI，BUFF；设地址指针

MOV　CX，30；设计数初值

XOR　AX，AX　；设累加器初值

AGAIN：　ADD　AL，[SI]

ADC　AH，0

INCSI

DEC　CX

JNZAGAIN　；循环累加

MOV　SUM，AX

例5．2在给定个数的16位数串中，找出大于零、等于零和小于零的个数，并紧跟着原串存放。

分析：这是一个统计问题，须设定三个计数器分别统计三种情况下的结果。程序如下：

DATA　SEGMENT

BUFF　DWX1，X2，X3，……，Xn

COUNTEQU$-BUFF　；此时，COUNT的值为BUFF所占的字节数

PLUSEDB　？

ZERO　DB　？

MINUS　DB　？

DATA　ENDS

CODE　SEGMENT

ASSUME　CS：CODE，DS：DATA

ASSUME　ES：DATA，SS：STACK

BEGIN：　MOV　AX，DATA

MOV　DS，AX

MOV　CX，COUNT

SHR　CX，1　；相当于除2,正好为BUFF中的数据个数

MOV　DX，0；设定计数器初值

MOV　AX，0；设定计数器初值

LEABX，BUFF

AGAIN：　CMPWORD　PTR[BX]，0

JAEPLU；大于等于0，则转PIU

INCAH　；<0，则统计

JMPNEXT

PLU：　JZZER　；＝0，则转ZER

INCDL；>0，则统计

JMPNEXT

ZER：INCDH；＝0，则统计

NEXT：INCBX

INCBX

LOOP　AGAIN

MOV　PLUS，DL

MOV　ZERO，DH

MOV　MINUS，AH

MOV　AX，4C00H

INT21H

CODEENDS

END　BEGIN

例5．3　在ADDR单元中存放着16位数Y的地址，试编写一程序，把Y中1的个数存入COUNT单元中。

分析：这是一个循环统计的工作。采用DO—WHILE结构，做16次循环，每次将最高位移入CF中进行测试，先判断结果是否为0，若为0，则结束；否则统计计数后循环重复。

程序如下：

DATA　SEGMENT

ADDR　DWNUMBER

NUMBER　DWY

COUNTDW？

DATAENDS

PROGRAM　SEGMENT

MAINPROC　FAR

ASSUME　CS：PROGRAM，DS：DATA

START：　PUSH　DS

MOV　AX，0

PUSH　AX

MOV　AX，DATA

MOV　DS，AX

MOV　CX，0　；计数器初值＝0

MOV　BX，ADDR

MOV　AX，[BX]　；取Y送AX

REPEAT：　TEST　AX，0FFFFH；检测是否为全0

JZEXIT　；是，则转EXIT

JNSSHIFT；最高位是0，则转SHIFT

INCCX　；最高位是1，则统计计数

SHIFT：SHLAX，1　；处理下一位

JMPREPEAT

EXIT：MOV　COUNT，CX

RET

MAINENDP

PROGRAM　ENDS

END　START

在实际应用中，有些问题较复杂，一重循环不够，必须使用多重循环实现，这些循环是一层套一层的，通常称为循环嵌套。

例5．4　在DS所决定的数据段，从偏移地址BUFFER开始顺序存放100个无符号16位数，现要编写程序将这100个字数据从大到小排序。

分析：排序的方法有很多，在这里，我们采用冒泡法。

程序如下：

LEADI，BUFFER　；DI作为指针，指向要排序的数据

MOV　BL，99　；循环控制初值

NEXT0：MOV　SI，DI

MOV　CL，BL

NEXT3：MOV　AX，[SI]；取一个数

ADD　SI，2

CMP　AX，[SI]；与下一个数进行比较

JNCNEXT5；大于等于时转移

MOV　DX，[SI]；否则，两数交换

MOV　[SI-2]，DX

MOV　[SI]，AX

NEXT5：DEC　CL　；控制进行交换的次数

JNZNEXT3

DEC　BL　；修改交换的次数

JNZNEXT0

HLT

例5．5试编制一个程序，把BX寄存器中的二进制数以十六进制的形式显示在屏幕上。

解析：根据题目要求应将BX中的内容从左到右每4位一组显示出来，共显示4个十六进制数位。如果显示的数位是0~9，则把4位二进制数加上30H，转换成相应的ASCII码30H~39H；如果是A~F，则应加上37H（30H+7），转换成ASCII码41H~46H。显示字符可以使用DOS功能调用来实现。下图是程序框图。



以binihex．asm为文件名，建立源程序如下：

;　binihex．Asm

prognam　segment　;　定义代码段

main　proc　far

assume　cs:prognam　

start:;　程序从此处开始执行　

;　为正常返回DOS而设置堆栈

pushds　

sub　ax,ax　

pushax　

;　下面是程序的主要部分

movch,4　;　4组二进制数

rotate:

movcl,4;　每组4个二进制位

rolbx,cl;　把bx循环左移4位

moval,bl;　暂存bl到al中

andal,0fh;　仅保留al的低4位

addal,30h　;　转换成ASCII码

cmpal,3ah　;　要显示的数大于9　?

jl　printit　;　如果数在0～9之间则显示

addal,7h;　数在A～F之间则调整

printit:

movdl,al;　把要显示字符的ASCII码送dl

movah,2　;　功能号2送ah

int21h　;　DOS功能调用

decch;　(ch)-1

jnzrotate;　4组都处理完？否，循环处理下一组

ret;　返回DOS

main　endp;　主程序main结束

prognamends;　代码段结束

endstart;　结束汇编

例5．6　从键盘接收十进制数并存入　BX

prognam　segment

main　proc　far

assume　cs:prognam　

start:

push　ds

subax,ax

push　ax

mov　bx,　0

newchar:

mov　ah,　1;键盘输入

int　21h

sub　al,　30h

jl　exit;<0退出

cmp　al,　9

jg　exit;>9退出

cbw



例5．7　从键盘接收十六进制数并存入　BX



codesegment　

assume　cs:code,　ds:data　



start:

mov　ax,4c00h

int　21h;　返回DOS

codeends

endstart



例5．8　将正数N插入一个已整序的字数组的正确位置。该数组的首地址和末地址分别为ARRAY_HEAD和ARRAY_END，其中所有数均为正数且已按递增的次序排列。



;　定义数据段

datarea　segment

xdw?

array_headdw23,37,49,52,65,78,99

array_enddw105

n　dw32　

datarea　ends

;　定义代码段

prognam　segment

mainprocfar;　主程序部分 assume　cs:prognam,ds:datarea

start:　;　程序从此处开始执行

pushds

subax,ax　

pushax

movax,datarea

movds,ax

;　程序的主要部分

movax,n

movarray_head-2,0ffffh;　-1送array_head-2单元

movsi,0

compare:

cmparray_end[si],ax

jleinsert

movbx,array_end[si]

movarray_end[si+2],bx

subsi,2

jmpshort　compare

insert:

movarray_end[si+2],ax

ret

mainendp;　主程序main结束

prognam　ends

endstart

例5.9设有数组X　(,…,)　和Y　(,…,)　，编程计算数组Z　(,…,)　，其中：







;　定义数据段

datarea　segment　

x　dwx1,x2,x3,x4,x5,x6．x7,x8,x9,x10

ydwy1,y2,y3,y4,y5,y6,y7,y8,y9,y10

zdwz1,z2,z3,z4,z5,z6,z7,z8,z9,z10

logic_rule　dw00dch

datarea　ends

;　定义代码段

prognam　segment

mainprocfar

assume　cs:prognam,ds:datarea

start:　

pushds　

subax,　ax　

pushax　

movax,　datarea　

movds,　ax　

movbx,　0

movcx,　10

movdx,　logic_rule

next:　

movax,　x[bx]

shrdx,　1

jcsubtract

addax,　y[bx]

jmpshort　result

subtract:

subax,　y[bx]

result:

movz[bx],　ax

addbx,　2

loopnext

ret

mainendp　

prognamends

endstart

这种设置逻辑尺的方法是很常用的。例如，在矩阵运算中，为了跳过操作数为0的计算，经常采用这种方法。又如，把一组数据存入存储器时，如果其中数值为0的元素很多，也可用这种方法设立一个每位表示一个下标的逻辑尺（这样的逻辑尺可能占有几个字，由数组的长度确定。），0元素就可不占有存储单元了。每个标志只占一位，如果要表示的特征数更多，则每个标志可占有几位，而在处理方法上是完全相同的。设立标志位的方法除了如逻辑尺那样可静态地预置外，还可以在程序中动态地修改标志位的值，以达到控制的目的，下例将说明这种方法。

例5．10　试编制一程序：从键盘输入一行字符，要求第一个键入的字符必须是空格符，如不是，则退出程序；如是，则开始接收键入的字符并顺序存放在首地址为BUFFER的缓冲区中（空格符不存入），直到接收到第二个空格符时退出程序。

这一程序要求接收的字符从空格符开始又以空格符结束，因此程序中必须区分所接收的字符是否是第一个字符。为此，设立作为标志的存储单元FLAG。一开始将其置为0，接收第一个字符后可将其置1。整个程序的框图如图所示。



；定义数据段

datareasegment

buffer　db　80　dup(?)

flag　db　?

datareaends

；定义代码段

prognamsegment　

main　proc　far

assume　cs:prognam,ds:datarea

start:

push　ds

subax,ax

push　ax

movax,datarea

movds,ax

leabx,buffer

movflag,0

next:　

movah,01

int21h

test　flag,01h

jnz/jnefollow

cmpal,20h

jnz/jneexit

movflag,1

jmpnext

follow:　

cmpal,20h

jz/jeexit

mov[bx],al

incbx

jmpnext

exit:　

ret　

mainendp　

prognam　ends　

endstart　



例5．11　有一个首地址为A的N字数组，请编制程序使该数组中的数按照从小到大的次序整序。

解析：这里采用起泡排序算法实现数组整序。从第一个数开始依次对相邻两个数Ki和Ki+1进行比较，若Ki≤Ki+1，Ki的位置不动，Ki+1继续和Ki+2比较；若Ki＞Ki+1，则两者交换位置，Ki+1（交换前的Ki）继续和Ki+2比较。

（气泡算法，多重循环）　32,85,16,15,　8



;　定义数据段

dsegsegment

n　equ5　;　数组中数的个数

a　dwn　dup(?)

dseg　ends

;　定义代码段

csegsegment

mainprocfar

assume　cs:cseg,　ds:dseg

start:

movax,dseg

movds,ax

movcx,n

deccx;　设置count1

loop1:

movdi,cx　;　保存count1

movsi,　0;　初始化si

loop2:

movax,a[si]

cmpax,a[si+2];　Ki与Ki+1比较

jlecontinue　;　如果Ki≤Ki+1,不交换

xchg　ax,a[si+2]

mova[si],ax　;　如果Ki＞Ki+1,交换

continue:

addsi,2;　修改地址

looploop2　;　内循环

movcx,di　;　恢复count1

looploop1　;　外循环

movax,4c00h

int21h

mainendp

csegends

endstart

安防之家专注于各种家居的安防,监控,防盗,安防监控,安防器材,安防设备的新闻资讯和O2O电商导购服务，敬请登陆安防之家：http://anfang.jc68.com/