PROGRAMA QUE DETERMINA SI UN ALUMNO ESTÀ REPROBADO O NO: EMU8086

org 100h

.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 ;segmento de codigo
resultado PROC FAR
    mov ax, @data  ;como inicio
    mov ds, ax         
    
;--------DESPLEGAR PRIMER MENSAJE------
    mov ah, 09H 
    lea dx, msg1
    int 21h 
    
    ;----PEDIR CARACTER---
    mov ah, 01
    int 21h
    mov VAR1, ax
    
    ;----PEDIR SEGUNDO CARACTER---
    mov ah, 01
    int 21h
    mov VAR2, ax
    
    ;----PEDIR TERCER CARACTER---
    mov ah, 01
    int 21h
    mov VAR3, ax
    
    
    ;----EVALUAR LA CALIFICACION---
    
    CMP AL, 13
    JE  CONTINUE
    JMP MAYOR
    
    
    ;----INICIA FUNCION-----
    
CONTINUE:
        MOV AX, VAR1
        CMP AL, 037H
        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