Programa de comparación de calificaciones

Código:

.model small
.stack 64

.data ;Seccion de variable  
   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
Resultado PROC FAR
    MOV AX, @DATA;Como inicio
    MOV DS, AX
;----------------Desplegar primer mensaje
    MOV AH, 09
    lea dx,msg1
    int 21h        
    
;------------Pedir primer caracter    
    MOV AH,01
    INT 21h 
    MOV VAR1,AX                       

;------------Pedir segundo 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 ;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 si es mayor o igual a 7
    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 Resultado

Resultado: