Programa Que Muestra Calificación Aprobada O Reprobado 12/02/2019

.model small

.stack 64

.data ;Seccion de Variables

    msg1 db 'Dame una Calificacion (Seguida 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