循环程序设计实验-创新互联

循环程序设计实验

 实验目的

掌握循环程序的设计方法。

 实验设备

PC 微机一台。

 实验内容及说明

本实验要求通过求某数据区内负数的个数来表现循环程序的结构形式。要求

实验程序在数据区中存放一组数据，为统计负数的个数，逐个判断区内的数据，

然后将所有数据中凡是符号位为1 的数据的个数累加起来，即得到区内所包含负

数的个数。

实验程序清单

STACK1 SEGMENT STACK

DW 256 DUP(?)

STACK1 ENDS

DATA SEGMENT

NUMB DB 12H,88H,82H,89H,33H,90H,01H,10H,0BDH,01H

MES1 DB 'The number of negative is:$'

DATA ENDS

CODE SEGMENT

ASSUME CS:CODE, DS:DATA

START: MOV AX,DATA

MOV DS,AX

MOV DI,OFFSET NUMB

XOR BH,BH

MOV CX,10D

A1: MOV AL,[DI]

TEST AL,80H

JE A2

INC BL

A2: INC DI

LOOP A1

MOV DX,OFFSET MES1

MOV AH,09H

INT 21H

MOV AL,BL

AND AL,0F0H

MOV CL,4

SHR AL,CL

CMP AL,0AH

JB C2

ADD AL,07H

C2: ADD AL,30H

MOV DL,AL

MOV AH,02H

INT 21H

MOV AL,BL

AND AL,0FH

CMP AL,0AH

JB C3

ADD AL,07H

C3: ADD AL,30H

MOV DL,AL

MOV AH,02H

INT 21H

WAIT1: MOV AH,1

INT 16H

JZ WAIT1

MOV AX,4C00H

INT 21H

CODE ENDS

END START

 实验步骤

(1) 根据实验要求编写程序。在数据段声明10个数据：12H，88H，82H，89H，33H，90H，01H，10H，0BDH，01H。

(2) 对实验程序进行编译、链接。

(3) 运行程序并观察运行结果。

(4) 更改数据区中的数据，反复测试，验证程序功能。

另外有需要云服务器可以了解下创新互联scvps.cn，海内外云服务器15元起步，三天无理由+7*72小时售后在线，公司持有idc许可证，提供“云服务器、裸金属服务器、高防服务器、香港服务器、美国服务器、虚拟主机、免备案服务器”等云主机租用服务以及企业上云的综合解决方案，具有“安全稳定、简单易用、服务可用性高、性价比高”等特点与优势，专为企业上云打造定制，能够满足用户丰富、多元化的应用场景需求。