Lenguajes de Interfaz

name "Suma dos numeros" include "emu8086.inc" org 100h .data suma db 2 dup (?) ;Creamos un arreglo llamado suma de 2 espacios de tipo byte .code Sumas proc ;Se crea un proceso de sumas y se piden los numeros printn " " print "Introduce el primer numero ==>" call scan_num mov suma[0],cl ;guarda el valor en cl,y lo manda al arreglo printn " " print "Introduce el segundo numero ==>" call scan_num ; mov suma[1],cl printn " " xor ax,ax ;se limpia el registro ax add al,suma[0] ;se manda la suma al registro al add al,suma[1] ;se manda para poder imprimir printn " " print "La suma es: " call print_num Sumas endp exit: printn " " printn " " print "Presiona enter para salir..";etiqueta con instruccion para salir del programa mov ah,0 int 16h ret define_print_string ;ap...

org 100h mov ax,100 ;pone al registro ax un valor de 9 mov bx,5 ;pone al registro bx un valor de 9 div bx ;divide lo que hay en ax, entre lo que se encuentra en bx ret

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 MA...

.model small .stack 64 .data ;seccion de variables     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 del programa RESULTADO PROC FAR     MOV AX,@DATA ;Inicio del programa     MOV DS,AX     ;Desplegar primer mensaje         MOV AH,09     lea DX,msg1     int 21h     ;Pedir un numero     MOV AH,01     int 21h     MOV VAR1,AX     ;Pedir un segundo numero     MOV AH,01     int 21h     MOV VAR2,AX     ;Pedir un tercer numero     MOV AH,01     int 21h     MOV VAR3,AX     ;Momento de evaluar la calificacion       ...

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 .model small     .stack 64 .data      ;declarando variables globales numero1 db 0 numero2 db 0   resta db 0   msjn1 db 10 , 13 , "INGRESE EL PRIMER NUMERO A RESTAR=  " , '$' ;ingrese n1 msjn2 db 10 , 13 , "INGRESE EL SEGUNDO NUMERO A RESTAR=  " , '$' ;ingrese n2   ;mensaje para mostrar los resultados       msjnR db 10 , 13 , "LA RESTA DE LA OPERACION DADA ES=  " , '$'       .code begin proc far                   ...