求数组的最大数：要求数组显示每个数，空格并以最大数显示
DATA SEGMENT
STR DW 54,19,23,21,77
N DW 5
MAX DW ?
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
BEGIN:MOV AX,DATA
MOV DS,AX
LEA SI,STR
MOV CX,5
T: MOV BX,[SI]
PUSH CX
CALL TEN
CALL KONG
POP CX
ADD SI,2
LOOP T
CALL KONGHUAN
CALL ZUIDA
MOV AH,4CH
INT 21H
TEN PROC
CALL TEN0
RET
TEN ENDP
TEN0 PROC
MOV CX,10
CALL DECDIV
MOV CX,1
CALL DECDIV
RET
TEN0 ENDP
DECDIV PROC
MOV DX,0
MOV AX,BX
DIV CX
MOV BX,DX
MOV DL,AL
ADD DL,30H
MOV AH,2
INT 21H
RET
DECDIV ENDP
KONG PROC
MOV DL,20H
MOV AH,2
INT 21H
RET
KONG ENDP
KONGHUAN PROC
MOV DL,0DH
MOV AH,2
INT 21H
MOV DL,0AH
MOV AH,2
INT 21H
RET
KONGHUAN ENDP
ZUIDA PROC
LEA BX,STR
MOV AX,[BX]
ADD BX,2
MOV CX,N
DEC CX
TT: CMP AX,[BX]
JAE NEXT
MOV AX,[BX]
NEXT: ADD BX,2
LOOP TT
MOV MAX,AX
MOV BX,MAX
CALL TEN
RET
ZUIDA ENDP
CODE ENDS
END BEGIN
(1-2)
