calificacion

.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,09
    lea dx,msg1
    int 21h
 ;------------pedir un caracter
    mov ah,01
    int 21h
    mov var1, ax
 ;------------pedir un segundo caracter
    mov ah,01
    int 21h
    mov var2, ax
 ;------------pedir un segundo caracter
    mov ah,01
    int 21h
    mov var3, ax   
   
 ;momento de evaluar la calif

    cmp al,13
    je  CONTINUE  ;salta si es igual a 13
    jmp mayor
 ;inicia funcion

 CONTINUE:
    MOV AX,var1
    cmp al,037h ;7 es 37 en ASCII
    jge mayor  ;salta su el mayor o igual
    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

 resultado endp
 end resultado