;求出首地址为DATA的字数组中的最小偶数,并将它放在AX中
DATAS SEGMENT
DATA DW 1 DUP(1,1,1,1,1,2) ;随便设置的数据,可换为其他数据
COUNT DW ($-DATA)/2 ;COUNT保存数组的字个数,数据全部为正时,有偶数时程序正常显示最小偶数
NOEN DB "NO EVEN NUMBERS!",'$' ;当出现负偶数时,程序将负偶数放在AX中,但不
SUCCESS DB "MIN EVEN MATCH!",'$' ;能正确显示负偶数,因为负偶数没有对应的ASCII码
CRLF DB 0AH,0DH,'$' ;换行
DATAS ENDS
STACK SEGMENT PARA STACK
DW 128 DUP(?)
TOP LABEL WORD
STACK ENDS
CODE SEGMENT
ASSUME CS:CODE,SS:STACK,DS:DATAS
MAIN PROC FAR
START:MOV AX,DATAS
MOV DS,AX
MOV AX,STACK
MOV SS,AX
LEA SP,TOP
DATAS SEGMENT
DATA DW 1 DUP(1,1,1,1,1,2) ;随便设置的数据,可换为其他数据
COUNT DW ($-DATA)/2 ;COUNT保存数组的字个数,数据全部为正时,有偶数时程序正常显示最小偶数
NOEN DB "NO EVEN NUMBERS!",'$' ;当出现负偶数时,程序将负偶数放在AX中,但不
SUCCESS DB "MIN EVEN MATCH!",'$' ;能正确显示负偶数,因为负偶数没有对应的ASCII码
CRLF DB 0AH,0DH,'$' ;换行
DATAS ENDS
STACK SEGMENT PARA STACK
DW 128 DUP(?)
TOP LABEL WORD
STACK ENDS
CODE SEGMENT
ASSUME CS:CODE,SS:STACK,DS:DATAS
MAIN PROC FAR
START:MOV AX,DATAS
MOV DS,AX
MOV AX,STACK
MOV SS,AX
LEA SP,TOP