Practica 9 emmu8086 CALIFICACION (12-02-19)

CODIGO


.model small

.stack 64

.data
   msg1 db 'Dame una calificacion (seguido de un enter)$'
   aprobado db 13,10, 'aprobado$'
   reprobado db 13,10, 'reprobado$'
   VAR1 dw ?,'$' ; de tipo write
   VAR2 dw ?,'$'
   VAR3 dw ?,'$'
  
.code ;inicia la seccion de codigo

RESULTADO PROC FAR
    MOV AX,@DATA ;PARA INICIAR
    MOV DS,AX

;----------------desplegar el primer mensaje    
    MOV AH,09H
    LEA DX,msg1
    int 21h  

;-------INTRODUCIR UN CARACTER
    MOV AH,01
    INT 21H
    MOV VAR1,AX   

;-------INTRODUCIR UN CARACTER
    MOV AH,01
    INT 21H 
    MOV VAR2,AX

;-------INTRODUCIR UN CARACTER  PARA ENTER
    MOV AH,01
    INT 21H 
    MOV VAR3,AX
                                
;USO DE IF Y COMPARAR
    CMP AL,13 ;pregunta si en AL hay un 13
    je continue
    jmp mayor
   
continue:
    mov AX,VAR1
    CMP AL,037H ;37H es 7 en hexadecimal y 55 es 7 en ASCII
    JGE mayor
    JMP menor
   
mayor:
    MOV AH,09H
    LEA DX,aprobado
    int 21h
    jmp fin                                 

menor:
    MOV AH,09H
    LEA DX,reprobado
    int 21h
    jmp fin                                 

fin:
    MOV AX,4C00H
    INT 21H                                
                                
   
RESULTADO ENDP ; FIN DEL PROCEDIMIENTO     
END RESULTADO


EJECUCION