Programa de comparación de calificaciones

.MODEL SMALL
.STACK 64
.DATA
    MENSAJE1 DB 10,13,"INTRODUZCA UN VALOR (SEGUIDO DE UN ENTER): $" 
    APROBADO DB 10,13,"APROBADO$"
    REPROBADO DB 10,13,"REPROBADO$"
    VAR1 DW ?,'$';DW TIPO DE DATO PARA ALMACENAR CADENAS 
    VAR2 DW ?,'$'                                       
    VAR3 DW ?,'$'
    
.CODE   
OPERACIONES PROC FAR ;DECLARACION DE PROCEDIMIENTO    
    
    MOV AX,@DATA   ;INICIO
    MOV DS,AX
    ;----------------------------------------
    
    ;MUESTRO EL MENSAJE 1
    MOV AH,09; SERVICIO DE IMPRESION DE CADENAS
    MOV DX,OFFSET MENSAJE1
    INT 21H
    
    ;lEO LOS DATOS POR TECLADO    
    ;CARACTER 1
    MOV AH,01 ;SERVICIO DEL TECLADO
    INT 21H
    
    MOV VAR1,AX
    
    ;CARACTER 2   
    MOV AH,01
    INT 21H
    
    ;LECTURA DEL ENTER
    MOV AH,01
    INT 21H  
    
    CMP AL,13   ;CMP COMPRARE     AL==13
    JGE   CONTINUE
    JMP   MAYOR
    
    ;INICIA FUNCIONES
    
   CONTINUE:     ;DECLARACION DE FUNCIONES ETIQUETA_NOMBRE:
        ;OPERACIONES
        MOV AX,VAR1
        CMP AL,037H 
        JGE MAYOR
        JMP MENOR
        
   MAYOR:   
   MOV AH,09
   MOV DX,OFFSET APROBADO 
   INT 21H
   JMP SALIR 
        
   MENOR:   
   MOV AH,09
   MOV DX,OFFSET REPROBADO 
   INT 21H 
   JMP SALIR
    
   SALIR:
   MOV AX,400CH  
   INT 21H
       
OPERACIONES ENDP   
   
END   

;02 IMPRIMIR ALGO DESDE LOS REGISTROS
;09 ALGO GUARDADO EN VARIABLES