Programa que compara la edad 

org 100h
.model small
.stack 64 ;segmento de pila
.data
    msg db "Ingrese su edad'$"
    msg1 db 13,10,"Eres mayor de edad.$"
    msg2 db 13,10,"Eres menor de edad.$"
    num1 db 0 ;Variable para la edad
    diez db 10 ;variable para poder imprimir dos caracteres y multiplicar el valor por 10    
    
.code ;Inicio del programa  
    inicio proc Far
    MOV AX,@DATA
    MOV DS,AX
    
    ;Despliega el mensaje 1
    MOV AH,09
    lea DX,msg
    int 21h
    
    ;Ingresa el numero
    MOV AH,01
    int 21h
    ;MOV num1,AX
    sub al,30h ;Convirtiendo a valor
    mul diez ;se multiplica el numero ingresado para las decenas
    mov num1,al ;se pasa a num la multiplicacion   
    
    ;Ingresa otro numero
    mov ah,01
    int 21h
    sub al,30h 
    add num1,al ;se suma a las decenas  
    mov al,num1
    
    ;Momento de evaluar  
    CMP AL,18
    JGE MAYOR ;En caso de ser mayor brinca aqui
    JMP MENOR ;en caso de ser menor de edad
    
    
    MAYOR:
    MOV AH,09
    lea DX,msg1
    int 21h 
    jmp fin
    
    
    MENOR: 
    MOV AH,09
    lea DX,msg2
    int 21h
    jmp fin
    
    
    fin:
    mov ax,4c00h
    

    
    
    inicio endp
    end

ret














































Comentarios











Publicar un comentario























Entradas populares de este blog









Letras de colores con emu8086 Alex




















Imagen







include 'emu8086.inc'   CUADRO MACRO XI,YI,XF,YF,COLOR  MOV AX, 0600H ;  MOV BH, COLOR ; COLOR DE FONDO Y LETRA  MOV BL, 00H  MOV CH, YI ; Y INICIAL  MOV CL, XI ; X INICIAL  MOV DH, YF ; Y FINAL  MOV DL, XF ; X FINAL  INT 10h  endM   POSICION MACRO X,Y  ; **** POSICIONA EL CURSOR ********  MOV DH, Y ; POSICI[ON EN Y  MOV DL, X ; POSICI[ON EN X  MOV AH, 02  MOV BH, 00  INT 10H                         ENDM                   DESPLEGAR MACRO MENSAJE  MOV AH,09 ;****** MUESTRA MENSAJE *******  MOV DX,OFFSET MENSAJE  INT 21h  ENDM   DATOS SEGMENT ;SEGMENTO DE DATOS  M1 DB "A",'$'  M2 DB "B",'$'  M3 DB "C",'$'  ;M4 DB "N",'$'   datos ends  cincocuadros macro   cuadro 1,1,20,5,71  posicion 10,3  desplegar M1   cuadro 21,1,40,5,22  posicion 30,3  desplegar M2   cuadro 41,1,60,5,33  posicion 50,3  desplegar M3   ;cuadro 61,1,78,5,54  ;posicion 70,3  ;desplegar M4     endM  CODIGO SEGMENT  ASSUME CS...








Leer más










Ejemplos de la libreria emu8086.inc




















Imagen







   Ejemplo 1     org 100h  ; inicio de programa   include 'emu8086.inc'  ;Incluye funciones de libreria emu8086   ; DEFINE_SCAN_NUM   ; DEFINE_PRINT_STRING     DEFINE_PRINT_NUM     DEFINE_PRINT_NUM_UNS         mov si, 0   mov al, 0   ;Convertir primera cadena a numero     cadAnum:   cmp  cad1[si], "$"     jz seguir       mov bl, 10     mul bl   sub cad1[si], '0'     add al, cad1[si]       inc si ;realiza un incremento   loop cadAnum ;     seguir:   mov aux1, al   ;Convertir segunda cadena a numero   mov si, 0   mov al, 0   cadAnum2:   cmp  cad3[si], "$"     jz seguir2 ;Saltar si el resultado es cero       mov bl, 10     mul bl   sub cad3[si], '0'     add al, cad3[si]       inc si   loop cadAnum2     seguir2:   mov bl, al   mov al, aux1   ;realizar operaciones normalmente teniendo ya los dos numeros decimales   cmp  cad2, "-"   jz resta   cmp  cad2, "+"   jz suma   cmp  cad2, "*"   jz multi   cmp  cad2, "/...








Leer más










Programa de numeros decimales y hexadecimales (Mejora)




















Imagen







 include 'emu8086.inc'       Mostrar Macro Mensaje        LEA DX,Mensaje ;mandamos el mensaje a leer        MOV AH, 9  ;usamos el servicio para mostrar en pantalla        INT  21H   endM             Terminar Macro        MOV AX, 4C00H        INT  21H   endM       DATOS SEGMENT        ENCABEZADO DB 13 , 10 , 13 , 09h , 09h , "==============================="        DB 13 , 10 , 13 , 09h , 09h , "PROGRAMA QUE IMPRIME VALORES NUMERICOS DEC Y HEXA "        DB 13 , 10 , 13 , 09h , 09h , "================================" , 13 , 10 , "$"          ALINEAR DB 13 , 10 , 13 , 09h , 09h        VALOR_1 DW 41D , "$"        VALOR_2 DW 42D , "$"        VALOR_3 DW 43D , "$"        VALOR_4 DW 44D , ...








Leer más