xjuanch0x dijo:
alguien me pued colaborar este progrma suma resta y multiplica pero al realizar la resta no me funciona y no me da los valores.;******************** C A L C U L A D O R A ************************
; «««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««
; Plantilla de Inicio
; «««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««
.486
.model flat, stdcall
option casemap :none
include \masm32\include\windows.inc
include \masm32\macros\macros.asm
; «««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««
; Cabezeras
; «««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««
include \masm32\include\masm32.inc
include \masm32\include\gdi32.inc
include \masm32\include\user32.inc
include \masm32\include\kernel32.inc
; «««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««
; archivos de librerias que estan definidas para la funcion
; exportadas y examinadas por codigo preconstruido
; «««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««
includelib\masm32\lib\masm32.lib
includelib\masm32\lib\gdi32.lib
includelib\masm32\lib\user32.lib
includelib\masm32\lib\kernel32.lib
.code
; «««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««
start:
call main ;llamando a la funcion
exit
main proc
LOCAL var1WORD
LOCAL var2
LOCAL str1
LOCAL str2
LOCAL men1
LOCAL men2
LOCAL opcion
print chr$("1.- Multiplicacion",13,10)
print chr$("2.- Suma",13,10)
print chr$("3.- Resta",13,10)
print chr$("4.- Division",13,10)
mov opcion, sval(input ("Que Operacion desea Realizar: "))
; «««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««
; M U L T I P L I C A C I O N
; «««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««
.IF (opcion==1)
print chr$("**** M u l t i p l i c a c i o n ****",13,10)
mov var1, input ("Ingrese un numero: ",13,10)
mov str1, sval(var1)
mov var2, input ("Ingrese UN numero: ",13,10)
mov str2, sval(var2)
mov eax, str1
mov ebx, str2
mul ebx
print str$(eax)
print chr$(13,10)
.ENDIF
; «««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««
; S U M A
; «««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««
.IF(opcion==2)
print chr$("**** S u m a ****",13,10)
mov var1, input ("Ingrese un numero: ",13,10)
mov str1, sval(var1)
mov var2, input ("Ingrese UN numero: ",13,10)
mov str2, sval(var2)
mov eax, str1
mov ebx, str2
add eax, ebx
print str$(eax)
print chr$(13,10)
.ENDIF
; «««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««
; R E S T A
; «««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««
.IF(opcion==3)
print chr$("**** R e s t a ****",13,10)
mov var1, input ("Ingrese un numero: ",13,10)
mov str1, sval(var1)
mov var2, input ("Ingrese UN numero: ",13,10)
mov str2, sval(var2)
mov eax, str1
mov ebx, str2
sub eax, ebx
print str$(eax)
print chr$(13,10)
.ENDIF
; «««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««
; D I V I S I O N
; «««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««««
.IF (opcion==4)
print chr$("**** D i v i s i o n****",13,10)
mov var1, input ("Ingrese un numero: ",13,10)
mov str1, sval(var1)
mov var2, input ("Ingrese UN numero: ",13,10)
mov str2, sval(var2)
mov eax, str1
invoke IntDiv,eax, str2
print str$(eax)
print chr$(13,10)
.ENDIF
main endp
end start
), bueno, lo unico que quiero q haga el programa es q por ejemplo, yo le digite "te amo" y el pc me lo muestre muchas veces, por ejemplo asi:
Berseker1 dijo:hola, comunidad de assembler, les queria pedir ayuda, esque quiero hacerle un programa por medio del emu8086 a mi novia(que complicacion la mia), bueno, lo unico que quiero q haga el programa es q por ejemplo, yo le digite "te amo" y el pc me lo muestre muchas veces, por ejemplo asi:
te amo te amo
te amo te amo
te amo te amo
algo asi, que cada letra salga con un color diferente, y q el fondo de cada carater tambien cambie
si alguien me puede echar una manito... se lo agradezco
saludos
name "colores" ;Nombre del programa
;Posición de arranque en memoria
org 100h
cad db '?','?','?','?','?','?','?','?','?','?','?','?','?','?','?','?' ;Arreglo de caracteres
pos dw ? ;Variable de posición
lea si, cad ;Enlaza el arreglo con el registro si para usarlo como
;indice de movimiento.
mov pos,si ;Copia en pos la posición de arranque para si
mov ax, 3 ;Inicia pantalla
int 10h
mov ax, 1003h ;Activa modo de color y elimina parapadeo
mov bx, 0
int 10h
mov dx, offset msi ;Improme mensaje de inicio
mov ah, 9
int 21h
mov dl, 38 ;Coloca el cursor en (38,0)
mov dh, 0
mov ah, 02h
int 10h
mov dl, 0 ;Limpia el contador de buffer 'dl'
jmp cap ;Salta a rutina de captura
mod: ;Rutina para el modo de inicio.
mov dl, 10 ;Fiaja fila y columna (10,5)
mov dh, 5
mov si, pos ;Coloca si en el inicio del arreglo
mov bl, 0 ;Arranca el modo de color en negro sobre negro
jmp nchar ;Salta a la rutina de impresión
cap: ;Rutina de captura
mov ah, 1 ;Captura un caracter en al
int 21h
mov [si], al ;Guarda el caracter en cad[si]
inc si ;Salta al siguiente cajon del arreglo
inc dl ;Incrementa el contador del buffer
cmp dl,16 ;Compara el contador de buffer con el maximo posible
je mod ;Salta a la rutina del modo de inicio
jmp cap ;Salta a la rutina de captura "ciclo"
nfil: ;Rutina de nueva fila
mov si, pos ;Devuelva si al inicio del arreglo
inc dh ;Incrementa la posición del cursor en fila
cmp dh, 21 ;Compara la fila con el maximo posible
je alto ;Salta a la rutina de alto
mov dl, 10 ;Devuelve a la primer columna valida
nchar: ;Rutina de impresión
mov ah, 02h ;Posiciona el cursor por (dh,dl)
int 10h
mov al, [si] ;Carga el caracter en cad[si]
inc si ;Salta al siguiente cajon
mov bh, 0 ;Imprime el caracter
mov cx, 1
mov ah, 09h
int 10h
inc bl ;Incrementa valor de color
inc dl ;Incrementa columna
cmp dl, 26 ;Compara la columna con el maximo posible
je nfil ;Salta a la rutina de nueva fila
jmp nchar ;Salta a la rutina de impresión "ciclo"
alto: ;Rutina de alto
mov dl, 0 ;Coloca el cursor en (0,23)
mov dh, 23
mov ah, 02h
int 10h
;Muestra mensaje de despedida
mov dx, offset msg
mov ah, 9
int 21h
mov ah, 0 ;Espera que se pulse una tecla
int 16h
mov ax, 4c00h ;Termina programa y libera recursas
int 21h
msg db "Fin...$" ;Mensajes
msi db "Ingrese una cadena de 16 caracteres = ________________$"
name "Minas"
org 100h
mov pts, 0
mov ax,3
int 10h
mov dx, offset ini
mov ah, 09h
int 21h
mov dx,0
mov dh, 0
mov dl, 19
mov ah, 02h
int 10h
mov ah, 1
int 21h
mov mn1, al
mov ah, 1
int 21h
mov mn2, al
mov ah, 1
int 21h
mov mn3, al
mov dx,0
mov dh, 7
mov dl, 20
mov ah, 02h
int 10h
mov dx, offset lle
mov ah, 09h
int 21h
mov dh, 8
mov dl, 20
mov ah, 02h
int 10h
mov dx, offset ppp
mov ah, 09h
int 21h
mov dh, 9
mov dl, 20
mov ah, 02h
int 10h
mov dx, offset uni
mov ah, 09h
int 21h
mov dh, 10
mov dl, 20
mov ah, 02h
int 10h
mov dx, offset lug
mov ah, 09h
int 21h
mov dx, 0
jmp rnd
tab:
mov dh, 2
mov dl, 1
mov ah, 02h
int 10h
mov dx, offset cab
mov ah, 09h
int 21h
mov dx, 0
mov cx, 12
latr:
mov dh, cl
add dh, 2
mov dl, 1
mov ah, 02h
int 10h
mov dx, offset lat
mov ah, 09h
int 21h
mov dx, 0
loop latr
mov cx, 12
fond:
mov dh, cl
add dh, 2
mov dl, 2
mov ah, 02h
int 10h
mov dx, offset fon
mov ah, 09h
int 21h
mov dx, 0
loop fond
mov dh, 15
mov dl, 1
mov ah, 02h
int 10h
mov dx, offset cab
mov ah, 09h
int 21h
mov dx, 0
jmp mus
mus:
mov ax, 0003h
int 33h
cmp bl, 1
je script
ja alto
jmp mus
script:
mov si, ps1
mov di, ps2
mov bl, 0
mov ax, 0
mov al, cl
mov cl, 08h
div cl
mov cl, al
mov ax, 0
mov al, dl
mov dl, 08h
div dl
mov dl, al
cmp cl, 2
jae p1
jmp mus
p1:
cmp cl, 13
jbe p2
jmp mus
p2:
cmp dl, 3
jae p3
jmp mus
p3:
cmp dl, 14
jbe dib
jmp mus
dib:
mov dh, dl
mov dl, cl
mov ah, 02h
int 10h
tst:
mov ah, 0
cmp [si], dl
je cxy
jmp ts2
ts2:
mov bh, [di]
cmp [di], dh
je mut
jmp stad
ind:
mov al, 'O'
mov bh, 0
mov bl, 0Ah
mov cx, 1
mov ah, 09h
int 10h
jmp mus
cxy:
mov ah, 1
jmp ts2
mut:
cmp ah, 1
je fin
jmp stad
stad:
inc si
inc di
inc bl
jmp verif
verif:
cmp bl, 10
je punto
jmp tst
punto:
inc pts
cmp pts, 134
je win
jmp ind
rnd:
lea si, mix
mov ps1, si
lea di, miy
mov ps2, di
add mn1, 2
sub mn1, 30h
mov al, mn1
mov [si], al
inc si
add mn2, 1
sub mn2, 30h
mov al, mn2
mov [si], al
inc si
add mn3, 3
sub mn3, 30h
mov al, mn3
mov [si], al
inc si
sub mn1, 1
mov al, mn1
mov [si], al
inc si
add mn2, 1
mov al, mn2
mov [si], al
inc si
sub mn3, 2
mov al, mn3
mov [si], al
inc si
add mn1, 2
mov al, mn1
mov [si], al
inc si
sub mn2, 1
mov al, mn2
mov [si], al
inc si
sub mn3, 1
mov al, mn3
mov [si], al
inc si
add mn2, 2
mov al, mn2
mov [si], al
mov cx, 10
ver:
mov al, [si]
add al, 1
mov [si], al
add al, 1
mov [di], al
dec si
inc di
loop ver
jmp tab
win:
mov al, 'O'
mov bh, 0
mov bl, 09h
mov cx, 1
mov ah, 09h
int 10h
mov dh, 16
mov dl, 0
mov ah, 02h
int 10h
mov dx, offset wii
mov ah, 09h
int 21h
jmp alto
fin:
mov al, 'x'
mov bh, 0
mov bl, 0Ch
mov cx, 1
mov ah, 09h
int 10h
mov dh, 17
mov dl, 0
mov ah, 02h
int 10h
mov dx, offset fii
mov ah, 09h
int 21h
jmp alto
alto:
mov ah, 0
int 16h
ret
mn1 db ?
mn2 db ?
mn3 db ?
ps1 dw ?
ps2 dw ?
pts db ?
mix db ?,?,?,?,?,?,?,?,?,?
miy db ?,?,?,?,?,?,?,?,?,?
cab db "--------------$"
lat db "| |$"
fon db "############$"
ini db "Ingrese 3 números: ___$"
fii db "¡¡¡¡PERDISTE!!!!$"
wii db "¡¡¡¡GANASTE!!!!!$"
lle db " KRIPTO - MINAS $"
ppp db " EDISON JAVIER HERRAN CORTES $"
uni db "UNIVERSIDAD PILOTO DE COLOMBIA$"
lug DB " GIRARDOT 2008 $"
