This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
org 100h | |
.model small | |
.stack 64 | |
.data ;seccion de variables | |
msg1 db "Dame una calificacion (seguida de un enter):$" | |
aprobado db 13,10, "Aprobado$" ;13 es salto de linea y 10 es salto de carro | |
reprobado db 13,10, "Reprobado$" | |
var1 dw ?,"$" ;variable data write | |
var2 dw ?,"$" | |
var3 dw ?,"$" | |
.code ;inicia el segmento de codigo | |
resultado proc far ;declaracion de funcion | |
mov ax, @data ;como inicio | |
mov ds, ax | |
;------------desplegar primer mensaje | |
mov ah,09 ;inicio de mensaje | |
lea dx,msg1 | |
int 21h | |
;------------pedir un caracter | |
mov ah,01 | |
int 21h ;parpadea el cursor | |
mov var1,ax | |
;------------pedir segundo caracter | |
mov ah,01 | |
int 21h ;parpadea el cursor | |
mov var2,ax | |
;------------pedir un caracter | |
mov ah,01 | |
int 21h ;parpadea el cursor | |
mov var3,ax | |
;------------momento de evaluar | |
cmp al,13 ;compara con el enter | |
je continue ;salto si se cumple la condicion igual a 13 | |
jmp mayor | |
;inicia funcion | |
continue: | |
mov ax, var1 ;valor de var1 se va a reg ax | |
cmp al,037h | |
jge mayor ;salta si es mayor o igual | |
jmp menor ;si no se cumplio se va a funcion 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, 4ch | |
int 21h | |
resultado endp | |
end |