Aprobado o no aprobado.

.model small
.stack 64
.data
   msg1 db 'Dame una calificacion (seguido de un enter):$'
   aprobado db 13,10,'APROBADO$'
   reprobado db 13,10,'REPROBADO$'
   VAR1 dw ?,'$' ;de tipo write
   VAR2 dw ?,'$'
   VAR3 dw ?,'$'
 
.code ;inicia la seccion de codigo

RESULTADO PROC FAR
    MOV AX, @DATA
    MOV DS, AX
;-----------------desplegar el primer mensaje
    MOV AH,09H
    LEA DX,msg1
    INT 21h
;-----------------introducir un caracter
    MOV AH,01
    INT 21h
    MOV VAR1,AX
;-----------------introducir un caracter
    MOV AH,01
    INT 21h
    MOV VAR2,AX
;-----------------introducir un caracter
    MOV AH,01
    INT 21h
    MOV VAR3,AX

;uso de if y compara
    CMP AL,13 ;pregunta si en AL hay un
    je continue
    jmp mayor
   
continue:
    mov AX,VAR1
    CMP AL,037H ;35 3w 7 en hexa, 55 es 7 en
    JGE mayor
    JMP menor
   
mayor:
    MOV AH,09H
    LEA DX,aprobado
    INT 21h
    jmp fin
   
menor:
    MOV AH,09H
    LEA DX,reprobado
    INT 21h
    jmp fin
   
fin:
    MOV AX,4C00H
    INT 21h     
   
   
   
RESULTADO ENDP ;fin del procedimiento
END RESULTADO