DATA SEGMENT
X DB 080H ;NEG
Y DB 7FH ;POS
Z DB 0
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START:MOV AX,DATA
MOV DS,AX
MOV AL,X
CMP AL,Y ;X COMPARE WITH Y
JGE NEXT ;X>=Y,Y->Z
MOV AL,Y
NEXT:MOV Z,AL
MOV AH,4CH
INT 21H
CODE ENDS
END START
DATA SEGMENT
BUF DB 21,35,45,65,98,13,34,10
COUNT EQU $-BUF
MAX DB 0
DATA ENDS
CODE SEGMENT
ASSUME CS:CODE,DS:DATA
START:MOV AX,DATA
MOV DS,AX
MOV CX,COUNT
MOV AL,0 ;AL--MAX NUM,INIT 0
ALOOP:MOV SI,CX
DEC SI
CMP AL,BUF[SI];COMPARE WITH AL FROM LAST TO HEAD
JAE GOON
MOV AL,BUF[SI]
GOON:LOOP ALOOP
MOV MAX,AL
MOV AH,4CH ;code end function number
INT 21H
CODE ENDS
END START