STACK SEGMENT
      DB 200H DUP(?)
STACK ENDS
DATA  SEGMENT
   ARRAY DB 0CBH,89,23,5BH,60,2,0F4H,27,3AH
   MAX	DB ?
   MIN	DB ?
   A_LEN EQU $-ARRAY
DATA  ENDS
CODE  SEGMENT
      ASSUME CS:CODE,DS:DATA,SS:STACK
START:
      MOV AX,DATA
      MOV DS,AX
      MOV CX,A_LEN
      MOV AL,ARRAY
      MOV SI,OFFSET ARRAY
      MOV BH,AL
      MOV BL,AL
 LOP1:
      CMP BH,[SI+1]
      JB  LOP2
      CMP BL,[SI+1]
      JA  LOP3
 LOP2:
      MOV BH,[SI+1]
      INC SI
 LOP3:
      MOV BL,[SI+1]
      INC SI
 LOOP LOP1
      MOV MAX,BH
      MOV MIN,BL
      MOV DL,MAX
      MOV AL,02H
      INT 21H
      MOV DL,MIN
      MOV AL,02H
      INT 21H
      MOV AH,4CH
      INT 21H
CODE ENDS
     END START