Practica #7

Programa en el que se ingresa una calificación y este muestra un mensaje de "Aprobado" ó "Reprobado"

Código 
.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 ?, '$'
    VAR2 dw ?, '$'
    VAR3 dw ?, '$'

.code  ;Inicia el segmento de codigo del programa

    Resultado PROC FAR
        MOV AX, @DATA ;Como Inicio
        MOV DS, AX

;----Desplegar Primer Mensaje

        MOV AH, 09
        LEA DX, msg1
        INT 21h
       
;------ Pedir un Caracter
       
        MOV AH, 01
        INT 21h 
        MOV VAR1, AX
       
;------ Pedir un Caracter
       
        MOV AH, 01
        INT 21h 
        MOV VAR2, AX

;------ Pedir un Caracter
       
        MOV AH, 01
        INT 21h 
        MOV VAR3, AX
       
;------ Momento de Evaluar la calificacion
        CMP AL, 13
        JE CONTINUE
        JMP MAYOR
       
   
;------ Inicia Funciones
   
    CONTINUE: 
   
        MOV AX, VAR1
        CMP AL, 55
        JGE MAYOR
        JMP MENOR
   
    MAYOR:
        MOV AH, 09
        LEA DX, aprobado
        INT 21h
        JMP SALIR
       
    MENOR:
       
        MOV AH, 09
        LEA DX, reprobado
        INT 21h
        JMP SALIR
       
    SALIR:
   
        MOV AX, 4C00H
        INT 21H
   
    RESULTADO ENDP
    END