include 'emu8086.inc'
.model small ;Modelo de memoria m?s utilizado
.stack
.data ;definición de datos(variables), donde se almacenara información
.code
chr1 db ? ;primer digito
chr2 db ? ;segundo digito
chr3 db ? ;multiplo
chr4 db ?
r1 db ? ;resultado 1
r2 db ? ;resultado 2
r3 db ?
r4 db ?
ac db 0 ;acarreo
ac1 db 0
.startup
;cls
mov ah,00h ;Function(Set video mode)
mov al,03 ;Mode 80x25 8x8 16
int 10h ;Interruption Video
gotoxy 0,8
printn 'La multiplicacion es:'
gotoxy 0,0
printn 'Ingrese un numero de 2 digitos'
inicio:
mov ah,00h
call scan_num
mov ax,cx
cmp ax,99
jg mayor1
gotoxy 0,10
call print_num
mov al,cl
aam
mov chr1,ah ;[chr1].chr2 * chr3 = ac.r1.r2
mov chr2,al ;chr1.[chr2] * chr3 = ac.r1.r2
gotoxy 2,10
putc '*'
gotoxy 0,2
printn 'Ingrese otro numero de 2 digitos'
cont:
mov ah,00h
mov cl,00h
call scan_num
mov ax,cx
cmp ax,99
jg mayor2
gotoxy 3,10
call print_num
mov al,cl
aam
mov chr3,ah ;chr1.chr2 * [chr3].chr4 = ac.r1.r2
mov chr4,al ;chr1.chr2 * chr3.[chr4] = ac.r1.r2
putc '='
;Realizamos operaci?n
mov al,chr4 ;unidad del segundo numero
mov bl,chr2 ;unidad del primer numero
mul bl ;multiplicar
mov ah,0 ;limpiamos ah0
aam ;separamos de hex a dec
mov ac1,ah ;decenas del primera multiplicacion
mov r4,al ;unidades del primera multiplicacion
mov al,chr4 ;unidades del segundo numero
mov bl,chr1 ;decentas del primer numero
mul bl ;multiplicar
mov r3,al ;movemos el resultado de la operacion a r3
mov bl,ac1 ;movemos el acarreo a bl
add r3,bl ;sumamos resultado mas acarreo
mov ah,00h ;limpiamos ah por residuos
mov al,r3 ;movemos el resultado de la suma a al
aam ;separamos de hex a dec
mov r3,al ;guardamos unidades en r3
mov ac1,ah ;guardamos decenas en ac1
mov al,chr3 ;al = chr3
mov bl,chr2 ;bl = chr2
mul bl ;AL = chr3*chr2 (BL*AL)
mov Ah,0h ;
AAM ;ASCII Adjusment
mov ac,AH ;ac = AH (Acarreo)
mov r2,AL ;r2 = AL (Unidad del resultado)
mov al,chr3 ;AL = chr3
mov bl,chr1 ;BL = chr1
mul bl ;AL = chr1*chr3 (BL*AL)
mov r1,al ;r1 = AL (Decena del resultado)
mov bl,ac ;BL = Acarreo anterior
add r1,bl ;r1 = r1+ac (r1 + Acarreo)
mov ah,00h ;
mov al,r1 ;AL = r1 (Asignaci?n para el ajust)
AAM ;ASCII Adjustment
mov r1,al ;r1 = AL
mov ac,ah ;ac = AH (Acarreo para la Centena del resultado)
;suma final
;R4 resulta ser las unidades de mul y no se toma en cuenta ya que se pasa entero
mov ax,0000h ;limpiamos ax
mov al,r3 ;movemos el segundo resultado de la primera mult a al
mov bl,r2 ;movemos primer resultado de la segunda mult a bl
add al,bl ;sumamos
mov ah,00h ;limpiamos ah
aam ;separamos hex a dec
mov r3,al ;r3 guarda las decenas del resultado final
mov r2,ah ;r2 se utiliza como nuevo acarreo
mov ax,0000h ;''''
mov al,ac1 ;movemos el acarreo de la primera mult a al
mov bl,r1 ;movemos segundo resultado de la segunda mult a bl
add al,r2 ;sumamos el nuevo acarreo de la suma anterior a al
add al,bl ;sumamos al a bl
mov ah,00h ;limpiamos el registro ah
aam ;separamos de hex a dec
mov r1,al ;r1 guarda las centenas
mov r2,ah ;ah se sigue utilizando como acarreo
mov al,r2 ;movemos el acarreo a al
mov bl,ac ;movemos ac a bl
add al,bl ;sumamos al a bl
;aam ;separamos hex a dec
mov ac,al ;mov al a ac como nuestro acarreo final
;Mostramos resultado
mov ax,0000h
;Mostramos ac (millar)
mov ah,02h
mov dl,ac
add dl,30h
int 21h
;mov bl,ac
;add bl,30h
;lea ax,bl
;call print_num
;Mostramos r1 (centena)
mov ah,02H
mov dl,r1
add dl,30h
int 21h
;mov bl,r1
;add bl,30h
;lea ax,bl
;call print_num
;Mostramos r3 (decena)
mov ah,02H
mov dl,r3
add dl,30h
int 21h
;mov bl,r3
;add bl,30h
;lea ax,bl
;call print_num
;unidad
mov ah,02H
mov dl,r4
add dl,30h
int 21h
;mov bl,r4
;add bl,30h
;call print_num
.exit
mayor1:
gotoxy 7,1
mov dh,8
BackSpace:
cmp dh,0
jz borrado
mov ah, 02h ; DOS Display character call
mov dl, 08h ; Another backspace character to move cursor back again
int 21h ; Display it
mov dl, 20h ; A space to clear old character
int 21h ; Display it
mov dl, 08h ; Another backspace character to move cursor back again
int 21h ; Display it
dec dh
loop Backspace
borrado:
printn 'Ingrese correctamente'
gotoxy 21,1
mov dh,22
BackSpace1:
cmp dh,0
jz borrado1
mov ah, 02h
mov dl, 08h
int 21h
mov dl, 20h
int 21h
mov dl, 08h
int 21h
dec dh
loop Backspace1
borrado1:
jmp inicio
mayor2:
gotoxy 7,3
mov dh,8
BackSpace2:
cmp dh,0
jz borrado2
mov ah, 02h ; DOS Display character call
mov dl, 08h ; Another backspace character to move cursor back again
int 21h ; Display it
mov dl, 20h ; A space to clear old character
int 21h ; Display it
mov dl, 08h ; Another backspace character to move cursor back again
int 21h ; Display it
dec dh
loop Backspace2
borrado2:
printn 'Ingrese correctamente'
gotoxy 21,3
mov dh,22
BackSpace3:
cmp dh,0
jz borrado3
mov ah, 02h ; DOS Display character call
mov dl, 08h ; Another backspace character to move cursor back again
int 21h ; Display it
mov dl, 20h ; A space to clear old character
int 21h ; Display it
mov dl, 08h ; Another backspace character to move cursor back again
int 21h ; Display it
dec dh
loop Backspace3
borrado3:
jmp cont
define_scan_num
define_print_num
define_print_num_uns
end
martes, 2 de abril de 2019
Programa multiplicacion mejorado con emu8086.inc
lunes, 1 de abril de 2019
2.5 Programa que detecta si una subpalabra se encuentra dentro de una palabra
Programa mas complicado el cual detecta si dentro de una palabra se encuentra una subcadena y despliega si se encuenra o no se encuentra.
La Subpalabra a encontrar es 'tec' dentro de la palabra 'Tecnologico'
org 100h
include 'emu8086.inc'
mov si, 0 ;ponemos si en 0
comienzo:
mov al, msg2[0] ;copiar la primera letra de la palabra A al
cmp msg[si],"$" ;si es el fin de la cadena mandar a final
jz final ; brinca si es igual
cmp msg[si], al ;comparar si encuentra la primera letra de la cadena
jne seguir ;brica si es diferente
mov di, 1 ;poner en 1 di
comprobar:
mov al, msg2[di]
mov bx, di
cmp msg[si+bx], al ;posicion de la letra coincidente + di, comparar con la cadena
jne seguir ;si no coincide mandar a seguir
inc di ;incrementar di para seguir recorriendo cadena
cmp msg2[di],"$" ;si es el fin de la cadena y el programa llego
jz resultado ;aca quiere decir que la cadena es parte de la palabra
loop comprobar ;bucle para recorrer cadena
seguir:
inc si ;para seguir recorriendo la palabra
loop comienzo ;bucle principal para recorrer palabra
resultado:
mov dx, offset msg3 ;copiar msg3 a dx
mov ah, 9 ;preparar ah con 9 para la interrupcion 21h
int 21h ;mostrar contenido en dx
final:
cmp di,0
jz no
ret
no:
print "No se encontro la cadena"
ret
msg db "tecnologico$"
msg2 db "tec$"
msg3 db "Si se encuentra$"
La Subpalabra a encontrar es 'tec' dentro de la palabra 'Tecnologico'
2.4 Programa que imrpime 10 veces un letrero
Programa el cual utiliza un contador y un loop para poder imprimir 10 veces un letrero
include 'emu8086.inc'
org 100h
mov cx,10
mov bx,1
mov dl,2
comienzo:
printn 'letrero'
LOOP comienzo
ret
2.3 Programa Saltos incondicionales
Programa un poco mas complicado el cual realiza comparaciones entre 2 numeros viendo cual numero es el mayor de los 2
include 'emu8086.inc'
.model small
.stack
.data
num1 db 4
num2 db 4
msg1 db 'NUMEROS IGUALES$'
msg2 db 'NUMERO 1 MAYOR$'
msg3 db 'NUMERO 2 MAYOR$'
.code
main:
mov ax, @data
mov ds, ax
mov al, num1
cmp al, num2
jc mayor2
jz igual
jnz mayor1
.exit
igual:
mov ah, 09h
lea dx,msg1
printn 'Los numeros son iguales'
int 21h
.exit
mayor1:
mov ah, 09h
lea dx,msg2
printn 'El primer numero es mayor'
int 21h
.exit
mayor2:
mov ah, 09h
lea dx,msg3
printn 'El segundo numero es mayor'
int 21h
.exit
Los numeros al ser 2 cuatros son iguales entonces nos depslegara los numeros son iguales
2.2 Programa de saltos
Otro programa de saltos simple el cual realiza una comparacion y realiza un salto dependiendo si son iguale o si no lo son
Al no ser iguales 25 y 10 nos desplegara en pantalla que no son iguales
include "emu8086.inc" org 100h mov al, 25 ;Se le da aun valor de 25 AL. mov bl, 10 ;Se le da un valor de 10 a 25 a BL. cmp al, bl ;Compara AL y BL. je equal ;Realiza el salto si son iguales AL y BL. putc 'n' ;Si llega hasta aqui significa que AL es diferente de B. printn 'No es igual' jmp stop ;Asi que imprimira 'n' y saltaria hasta stop. equal: ;Si llega hasta aqui putc 'y' ;Entonces al = bl, asi que imprimira 'y'. stop: ret ;Llega aqui no importa que.
Al no ser iguales 25 y 10 nos desplegara en pantalla que no son iguales
2.1 Programa de saltos
Program simple el cual calcula una suma utilizando saltos dentro del programa para ver como funcionan
y salta a la seccion de temrinar el programa
.png)
ORG 100h MOV AX, 5 ;Se le asigna a AX un valro de 5. MOV BX, 2 ;Se le asigna a BX un valor de 2. JMP calc ;Salta a 'calc'. back: JMP stop ;Salta a 'stop'. calc: ADD AX, BX ;Se le añade BX a AX JMP back ;Saltamos a 'back'. stop: RET ;Regreso al sistema operativo END ;Directiva para detener el compilador
Realiza la suma y lo guarda en AX
y salta a la seccion de temrinar el programa
Suscribirse a:
Entradas (Atom)
Programa que pone 3 colores y 3 letras
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...
-
Al momento de ingresar un caracter a lenguaje ensamblador a nuestros registros, este no tma el caracter como tal, no lo toma como la letra o... -
Hola mundo en emu8086 .MODEL SMALL .STACK .DATA CADENA1 DB 'HOLA MUNDO.$' .CODE PROGRAMA: MOV AX,@DATA MOV DS,AX MOV... -
Ahora veremos un programa de cierta manera sencillo, dentro de emu8086. Sintaxis: ORG 100H ;SUMA NUMEROS DE 1 SOLO DIGITO M...