;The following program finds the highest among 5 grades


   TITLE     	PROG3-3  (EXE)   CMP EXAMPLE
   PAGE 	60,132
   .MODEL SMALL
   .STACK 64
   ;--------------
   		.DATA
   GRADES 	DB      	69,87,96,45,75
             	ORG    	0008
   HIGHEST	DB    	?
   ;--------------
   		.CODE
   MAIN      	PROC  	FAR
             	MOV  	AX,@DATA
             	MOV  	DS,AX
                MOV     CX,5               ;set up loop counter
                MOV     BX,OFFSET GRADES   ;BX points to GRADE data
                SUB     AL,AL              ;AL holds highest grade found so far
   AGAIN:       CMP     AL,[BX]            ;compare next grade to highest
                JA      NEXT               ;jump if AL still highest
                MOV     AL,[BX]            ;else AL holds new highest
   NEXT:        INC     BX                 ;point to next grade
                LOOP    AGAIN              ;continue search
                MOV     HIGHEST,AL         ;store highest grade
             	MOV  	AH,4CH
                INT     21H                ;go back to dos
   MAIN      	ENDP
                END     MAIN