Autor Tema: RLE en ensamblador MIPS (Leído 25056 veces)

manurodri189

Cierto, tengo que coger soltura con esto, vamos a ver:

Lo de avanzar el puntero, error tonto,

Código: ASM

 #avanzo el puntero
 
    addiu $t3,$t3,1
    addiu $t4,$t4,1
 

Y lo del syscall error tonto tambien, solamente tengo que cambiar el 4 por un 1.

Y ahora creo que lo otro te he entendido, pongo lo que he modificado:

Código: ASM

start:
    la $s0, Entrance
    la $s3, encode1  #almaceno la direccion de encode1 en s3, s3 es el puntero
    la $s4, encode2  #almaceno la direccion de encode2 en s4, s4 es el puntero
    or $a3,$zero,s3
    or $a4,$zero,s4
 

Como aqui solo entra una vez, pues preparo los registros, no es asi?

Código: ASM

almacenar:
 
    sb $a0,0($a3)   #meto el caracter en la primera direccion de s3
    sw $a1,0($a4)   #meto el contador en la primera direccion de s4
 
    #avanzo el puntero
 
    addiu $a3,$a3,1
    addiu $a4,$a4,1
 
# Volvemos de la función
    jr $ra
    nop
 

Lo unico que me da errores en los or, no se hacia asi? independientemente de los errores en los or, la idea es esa, verdad?

Salu2

m0skit0

Primero, te has olvidado de sw guarda 4 bytes y no 1, por tanto hay que avanzar el puntero 4 bytes y no 1

Código: Text

 #avanzo el puntero
 
    addiu $a3,$a3,1
    addiu $a4,$a4,4
 

Cita de: "manurodri189"

solamente tengo que cambiar el 4 por un 1

Eso te imprime 1 número, no un vector de números. Tendrías que hacer un bucle de impresión. La cuestión es cuándo parar

Cita de: "manurodri189"

independientemente de los errores en los or, la idea es esa, verdad?

El error de los or es porque te has olvidado el $. Y la idea es algo así, aunque personalmente no lo haría de esa manera. Pero creo que así funcionaría. Ya me cuentas.

PD: ¿qué paso con $a2? xD

manurodri189

Pues el 2 lo he acabado usando porque con el 4 no me dejaba.

Pues lo que esta hecho funciona, al menos con los caracteres, ya que estos si me los imprime correctamete.

Lo de la impresion de los numeros de momento, como era de prueba no lo voy a hacer. Asi que supongo que en encode1, tengo los caracteres, y en encode2, las veces que se repite.

Ahora he creado un nuevo "vector" encode, tendria que almacenar un numero, una letra, y asi, hasta que no sea final de caracter, no es asi? algo como el siguiente caracter, no?

Por cierto recuerdo que el enter me lo contaba, como lo puedo eliminar de encode 1 y de encode2?

Salu2

m0skit0

Cita de: "manurodri189"

Pues el 2 lo he acabado usando porque con el 4 no me dejaba.

Normal, no existe el registro $a4

Cita de: "manurodri189"

Asi que supongo que en encode1, tengo los caracteres, y en encode2, las veces que se repite.

¿Supones? No necesitas suponer nada, tienes el contenido de la memoria a la vista, hombre...

Cita de: "manurodri189"

Ahora he creado un nuevo "vector" encode, tendria que almacenar un numero, una letra, y asi, hasta que no sea final de caracter, no es asi?

Sí, pero tu problema ahora va a ser el alineamiento. Es decir, si guardas un byte y una palabra, la palabra no va a estar alineada en una dirección múltiplo de 4 bytes y te va a dar error de alineamiento. Esto lo puedes solucionar de 2 formas: o bien convirtiendo los bytes en palabras (con el consiguiente gasto de memoria) o bien conviertes los números en bytes (con la consiguiente pérdida de rango).

Cita de: "manurodri189"

Por cierto recuerdo que el enter me lo contaba, como lo puedo eliminar de encode 1 y de encode2?

Mejor elimínalo al principio, justo tras guardar la cadena en Encode. Ya que es el penúltimo carácter, debería ser algo sencillo.

manurodri189

Cita de: "m0skit0"

Sí, pero tu problema ahora va a ser el alineamiento. Es decir, si guardas un byte y una palabra, la palabra no va a estar alineada en una dirección múltiplo de 4 bytes y te va a dar error de alineamiento. Esto lo puedes solucionar de 2 formas: o bien convirtiendo los bytes en palabras (con el consiguiente gasto de memoria) o bien conviertes los números en bytes (con la consiguiente pérdida de rango).

Que quieres decir con perdida de rango? si lo pmeto como byte, no podre operar con el como numero? porque lo necesitaria para decodificarlo, no? y si lo meto como palabra, a la hora de imprimirlo chungo, no? que me recomiendas?

Citar

Mejor elimínalo al principio, justo tras guardar la cadena en Encode. Ya que es el penúltimo carácter, debería ser algo sencillo.

Osea antes de meterlo a encode, directamente no lo meto y listo, no? esa es la idea verdad? Y para la decodificacion posterior algo parecido, no?

Salu2

m0skit0

Cita de: "manurodri189"

Que quieres decir con perdida de rango?

¿Qué diferencia hay entre un número de un byte y uno de una palabra?

Cita de: "manurodri189"

Osea antes de meterlo a encode, directamente no lo meto y listo, no?

No puedes evitar que se meta, puesto que tú no controlas lo que hace la llamada al sistema. Lo único que te queda es quitarlo después de que la llamada al sistema lo hay metido en el buffer.

manurodri189

Cita de: "m0skit0"

¿Qué diferencia hay entre un número de un byte y uno de una palabra?.

Pues no lo se tío, el tamaño seguro, porque una palabra son 4 bytes, pero no se la diferencia a la hora de operar.

Salu2

m0skit0

El tamaño, evidentemente, por tanto en 4 bytes podemos tener números más grandes que en un byte, ¿no? A la hora de operar no tienes ninguna diferencia.

manurodri189

Despues de unos dias ocupado con otras cosas, he vuelto a la carga con esto, a ver si ya lo acabo que creo que queda poquito.

Al final me decidí por la perdida de rango, entoces solamente tendria que hacer la siguiente modificacion:

Código: ASM

almacenar:
 
    sb $a0,0($a3)   #meto el caracter en la primera direccion de a3
    sb $a1,0($a2)   #meto el contador en la primera direccion de a4
 
    #avanzo el puntero
 
    addiu $a3,$a3,1
    addiu $a2,$a2,1
 

Osea almacenar un byte en vez de una palabra, y el desplazamiento 1 en vez de 4, cierto?

Otra cosa, me dices que para eliminar el caracter "enter" seria una vez lo tengo en el buffer quitarlo, y que es relativamente facil, mira tengo esto:

Código: ASM

#Almacenar el String en la matriz
# Número de syscall
    ori $v0,$zero,8
# $a0 = buffer para guardar la cadena
    la $a0,Entrance
# $a1 = tamaño a leer
    ori $a1,$zero,80
    syscall
 

Ahora mismo tengo la cadena en Entrance, incluyendo el caracter "enter", no se me ocurre como, o almenos una manera sencilla, se me ocurre, que una vez tenga la cadena medita en Entrance, calcular el tamaño de entrance, y volver a leer pero ahora desde Entrance, a una nueva matriz, donde el tamaño sea el tamaño de Entrance-1, pero esto no se me ocurre como hacerlo y menos de manera sencilla, alguna solución mas factible?

Salu2

PD: Muchas gracias de nuevo.

manurodri189

Por cierto para almacenar en encode la salida final, he hecho algo así:

Código: ASM

almacenar_salida:
    sb encode1,0($a0)
    sb encode2,0($a1)
    sb encode,0($a3)
 
while:
 
    beq $a0, $zero, finwhile    #si es el caracter vacio acabo
    lbu $a3,0($a1)              #cargo el primer numero en encode
    addiu $a3,$a3,1             #avanzo el puntero de encode
    lbu $a3,0($a0)              #cargo el caracter en encode
 
    #avanzo todos los punteros
    addiu $a3,$a3,1
    addiu $a2,$a2,1
    addiu $a1,$a1,1
 
    jal while                   #llamo a while de nuevo
 
 
finwhile:
 
# Volvemos de la función
    jr $ra
    nop
 

Que te parece?

Salu2

Edito: para almacenar la direccion hay que usar esto que se me habia pasado:

Código: ASM

almacenar_salida:
    la $a0,encode1
    la $a1,encode2
    la $a3,encode
 

manurodri189

Bueno he seguido trabajando, y creo que ya he acabado el programa, pero obviamente no funciona, te pego el código.

Código: ASM

.data
Entrance: .space 80
Entranceaux: .space 80
encode1: .space 40
encode2: .space 40
encode: .space 40
decode: .space 80
msg1: .asciiz "Please insert the String: "
msg2: .asciiz " "
msg3: .asciiz "n String encode like: "
msg4: .asciiz "n String decode like: "
.text
.globl main
 
#
# Main
#
main:
    ori $v0,$zero,4
    la $a0,msg1
    syscall
 
#Almacenar el String en la matriz
# Número de syscall
    ori $v0,$zero,8
# $a0 = buffer para guardar la cadena
    la $a0,Entranceaux
# $a1 = tamaño a leer
    ori $a1,$zero,80
    syscall
 
#quitar el ultimo caracter de entrance.
 
la $a0,Entrance         #Almaceno la entrada sin el caracter "enter"
la $a1,Entranceaux      #Cadena de entrada
la $a2,Entranceaux+1´   #puntero al segundo caracter de la cadena de entrada
 
recorrer:
    beq $a2, $zero, imprimir
    lbu $a0,0($a1)      #meto el caracter
 
    #avanzo todos los punteros
    addiu $a2,$a2,1
    addiu $a0,$a0,1
    addiu $a1,$a1,1
     
    j recorrer
 
 
imprimir:
 
#Imprimir la matriz
# Número de syscall
    ori $v0,$zero,4
# $a0 = buffer a imprimir
    la $a0,Entrance
    syscall
 
#
# Codificar
#
start:
    la $s0, Entrance
    la $s3, encode1  #almaceno la direccion de encode1 en s3, s3 es el puntero
    la $s4, encode2  #almaceno la direccion de encode2 en s4, s4 es el puntero
    or $a3,$zero,$s3
    or $a2,$zero,$s4
 
sig_carac:
    lbu $s1, 0($s0)
    beq $s1, $zero, fin   # Si es el carácter de final de cadena, ya terminamos
    add $a0,$zero,$s1     # Pasando el primer parámetro a la función procesar()
    
    jal procesar          # Llamamos a la función procesar()
    addiu $a1,$s0,1       # Pasando el segundo parámetro a la función procesar()
    
    add $a0,$zero,$s1  #El carácter en $a0
    jal almacenar     # Llamamos a la función almacenar()
    add $a1,$zero,$v0  # Ponemos el número de caracteres en $a1
    
    beq $zero,$zero,sig_carac  # Siguiente carácter diferente
    or $s0, $zero, $v1        # Actualizamos el puntero con el valor devuelto
 
#
# Exit
#
fin:
 
    jal almacenar_salida
 
    #Imprimir la matriz de salida codificada
    # Número de syscall
    ori $v0,$zero,4
    # $a0 = buffer a imprimir
    la $a0,encode
    syscall
 
    jal decodificar
 
    #Imprimir la matriz de salida decodificada
    # Número de syscall
    ori $v0,$zero,4
    # $a0 = buffer a imprimir
    la $a0,decode
    syscall
 
    ori $v0,$zero,10   # Terminamos con exit
    syscall
 
#
# Procesar (habría que poner un nombre más explicativo :)
#
# Recibe un carácter y el puntero a una cadena
# Cuenta cuántos caracteres iguales al pasado consecutivos hay en la cadena
# Devuelve en $v0 el número de caracteres iguales
# y en $v1 el puntero al primer carácter diferente encontrado
procesar:
    add $v0, $zero, $zero   # Inicializamos valores de retorno
    add $v1, $zero, $a1
    add $t1, $zero, $zero   # Contador de caracteres iguales consecutivos
procesar_iguales:
    lbu $t0, 0($a1)                    # Cargamos el siguiente carácter a comparar
    bne $a0, $t0, procesar_noiguales   # Si no son iguales, terminamos
    addiu $a1, $a1, 1                  # Apuntamos al siguiente carácter    
    beq $zero, $zero, procesar_iguales
    addiu $t1, $t1, 1                  # Si son iguales, aumentamos el contador en uno
 
procesar_noiguales:
    add $v0, $v0, $t1   # Ponemos los valores de retorno
    add $v1, $v1, $t1
 
 
# Volvemos de la función
    jr $ra
    nop
 
 
almacenar:
 
    sb $a0,0($a3)   #meto el caracter en la primera direccion de a3
    sb $a1,0($a2)   #meto el contador en la primera direccion de a4
 
    #avanzo el puntero
 
    addiu $a3,$a3,1
    addiu $a2,$a2,1
 
 
 
# Volvemos de la función
    jr $ra
    nop
 
almacenar_salida:
    la $a0,encode1
    la $a1,encode2
    la $a3,encode
 
while:
 
    beq $a0,$zero,finwhile    #si es el caracter vacio acabo
    lbu $a3,0($a1)              #cargo el primer numero en encode
    addiu $a3,$a3,1             #avanzo el puntero de encode
    lbu $a3,0($a0)              #cargo el caracter en encode
 
    #avanzo todos los punteros
    addiu $a3,$a3,1
    addiu $a0,$a0,1
    addiu $a1,$a1,1
 
    j while                   #llamo a while de nuevo
 
 
finwhile:
 
# Volvemos de la función
    jr $ra
    nop
 
 
decodificar:
 
    la $a0,encode1
    la $a1,encode2
    la $a3,decode
 
while2:
 
    beq $a0,$zero,finwhile2    #si es el caracter vacio acabo
    lbu $a3,0($a0)             #cargo el caracter en decode
    addiu $a3,$a3,1            #avanzo el puntero decode
    addiu $a1,$a1,-1           #a1-1 #le resto 1 al primer numero
    bnez $a1,while2            #repito el while2 si $a1 es distinto de 0
 
    #avanzo todos los punteros
    addiu $a3,$a3,1
    addiu $a0,$a0,1
    addiu $a1,$a1,1
 
    j while2
    
 
 
finwhile2:
 
# Volvemos de la función
    jr $ra
    nop
 

Ahora vayamos por partes, y a ver si estoy en el buen camino de lo que se me ha ocurrido:

Código: ASM

#Almacenar el String en la matriz
# Número de syscall
    ori $v0,$zero,8
# $a0 = buffer para guardar la cadena
    la $a0,Entranceaux
# $a1 = tamaño a leer
    ori $a1,$zero,80
    syscall
 
#quitar el ultimo caracter de entrance.
 
la $a0,Entrance         #Almaceno la entrada sin el caracter "enter"
la $a1,Entranceaux      #Cadena de entrada
la $a2,Entranceaux+1´   #puntero al segundo caracter de la cadena de entrada
 
recorrer:
    beq $a2, $zero, imprimir
    lbu $a0,0($a1)      #meto el caracter
 
    #avanzo todos los punteros
    addiu $a2,$a2,1
    addiu $a0,$a0,1
    addiu $a1,$a1,1
     
    j recorrer
 

Se me ha ocurrido almacenar la entrada por teclado en una matriz auxiliar, tener 2 punteros, uno que apunte al primer caracter de esta matriz, y otro al segundo. Si el segundo puntero apunta al caracter fin de cadena, se acaba, por lo tanto no me meterá el caracter intro.

Código: ASM

almacenar_salida:
    la $a0,encode1
    la $a1,encode2
    la $a3,encode
 
while:
 
    beq $a0,$zero,finwhile    #si es el caracter vacio acabo
    lbu $a3,0($a1)              #cargo el primer numero en encode
    addiu $a3,$a3,1             #avanzo el puntero de encode
    lbu $a3,0($a0)              #cargo el caracter en encode
 
    #avanzo todos los punteros
    addiu $a3,$a3,1
    addiu $a0,$a0,1
    addiu $a1,$a1,1
 
    j while                   #llamo a while de nuevo
 
 
finwhile:
 
# Volvemos de la función
    jr $ra
    nop
 

Al macenar la salida es como lo he puesto antes, pero en vez de jal, j porque no necesito almacenar la direccion de salto.

Código: ASM

 
decodificar:
 
    la $a0,encode1
    la $a1,encode2
    la $a3,decode
 
while2:
 
    beq $a0,$zero,finwhile2    #si es el caracter vacio acabo
    lbu $a3,0($a0)             #cargo el caracter en decode
    addiu $a3,$a3,1            #avanzo el puntero decode
    addiu $a1,$a1,-1           #a1-1 #le resto 1 al primer numero
    bnez $a1,while2            #repito el while2 si $a1 es distinto de 0
 
    #avanzo todos los punteros
    addiu $a3,$a3,1
    addiu $a0,$a0,1
    addiu $a1,$a1,1
 
    j while2
    
 
 
finwhile2:
 
# Volvemos de la función
    jr $ra
    nop
 

Y luego para decodificar, pues directamente, si el puntero a la matriz de caracter es el de final de cadena, acabo, si no, lo que hago es decrementar el primer numero de la matriz de numeros, y meter el caracter en la matriz final, avanzo el puntero de la matriz final, y vuelvo a hacer el while. Asi hasta que sea 0, entonces avanzo todos los punteros y otra vez a empezar.

Como te he dicho antes, obviamente no funciona, pero creo que la idea es esa, y creo que van por ahi los tiros, creo que no debo de tener fallos muy gordos, o al menos eso espero. Tu como lo ves?

Salu2

PD: luego me mandas tu direccion por privado, a la que quieres que te envie el jamon,

m0skit0

Bueno, vamos por pasos.

La verdad es que lo que has hecho de 2 buffers, copiar uno a otro, aparte de que está mal, no tiene mucho sentido utilizar Entranceaux. Aún así, el puntero a Entranceaux+1 sobra. Además, ¿para qué sumas 1 a a0 si tienes un carácter? Tienes que concentrarte un poco más en lo que estés haciendo...

Yo como soy de funciones, voy a hacer una función que sustituya el carácter 0xA (el molesto enter) por un 0 (final de cadena

):

Código: Text

# void EliminarEnter(char* entrada)
eliminar_enter:
    li $t1,0xA
ee_bucle:
    lbu $t0,0($a0)
    beq $t0,0xA,fin_ee
    addiu $a0,$a0,1
    beq $zero,$zero,ee_bucle
    nop
fin_ee:
    jr $ra
    sb $zero,-1($a0)
 

Y para llamar a la función (evidente, pero lo pongo iwalmente):

Código: Text

la $a0,entrance
jal eliminar_enter
nop
 

Teniendo en cuenta que hemos guardado la cadena en entrance y no en entranceaux, que como ya te dije, sobra.

Otra cosilla: los while se hacen con instrucciones branch, no jump

manurodri189

Ok, gracias, pongo de nuevo todo el codigo, para que lo veas, y tener una copia de seguridad que nunca está demás

Código: ASM

.data
Entrance: .space 80
encode1: .space 40
encode2: .space 40
encode: .space 40
decode: .space 80
msg1: .asciiz "Please insert the String: "
msg2: .asciiz " "
msg3: .asciiz "n String encode like: "
msg4: .asciiz "n String decode like: "
.text
.globl main
 
#
# Main
#
main:
    ori $v0,$zero,4
    la $a0,msg1
    syscall
 
#Almacenar el String en la matriz
# Número de syscall
    ori $v0,$zero,8
# $a0 = buffer para guardar la cadena
    la $a0,Entrance
# $a1 = tamaño a leer
    ori $a1,$zero,80
    syscall
 
la $a0,Entrance
jal eliminar_enter
nop
 
#Imprimir la matriz
# Número de syscall
    ori $v0,$zero,4
# $a0 = buffer a imprimir
    la $a0,Entrance
    syscall
 
#
# Codificar
#
start:
    la $s0, Entrance
    la $s3, encode1  #almaceno la direccion de encode1 en s3, s3 es el puntero
    la $s4, encode2  #almaceno la direccion de encode2 en s4, s4 es el puntero
    or $a3,$zero,$s3
    or $a2,$zero,$s4
 
sig_carac:
    lbu $s1, 0($s0)
    beq $s1, $zero, fin   # Si es el carácter de final de cadena, ya terminamos
    add $a0,$zero,$s1     # Pasando el primer parámetro a la función procesar()
    
    jal procesar          # Llamamos a la función procesar()
    addiu $a1,$s0,1       # Pasando el segundo parámetro a la función procesar()
    
    add $a0,$zero,$s1  #El carácter en $a0
    jal almacenar     # Llamamos a la función almacenar()
    add $a1,$zero,$v0  # Ponemos el número de caracteres en $a1
    
    beq $zero,$zero,sig_carac  # Siguiente carácter diferente
    or $s0, $zero, $v1        # Actualizamos el puntero con el valor devuelto
 
#
# Exit
#
fin:
 
    jal almacenar_salida
 
    #Imprimir la matriz de salida codificada
    # Número de syscall
    ori $v0,$zero,4
    # $a0 = buffer a imprimir
    la $a0,encode
    syscall
 
    jal decodificar
 
    #Imprimir la matriz de salida decodificada
    # Número de syscall
    ori $v0,$zero,4
    # $a0 = buffer a imprimir
    la $a0,decode
    syscall
 
    ori $v0,$zero,10   # Terminamos con exit
    syscall
 
#
# Procesar (habría que poner un nombre más explicativo :)
#
# Recibe un carácter y el puntero a una cadena
# Cuenta cuántos caracteres iguales al pasado consecutivos hay en la cadena
# Devuelve en $v0 el número de caracteres iguales
# y en $v1 el puntero al primer carácter diferente encontrado
procesar:
    add $v0, $zero, $zero   # Inicializamos valores de retorno
    add $v1, $zero, $a1
    add $t1, $zero, $zero   # Contador de caracteres iguales consecutivos
procesar_iguales:
    lbu $t0, 0($a1)                    # Cargamos el siguiente carácter a comparar
    bne $a0, $t0, procesar_noiguales   # Si no son iguales, terminamos
    addiu $a1, $a1, 1                  # Apuntamos al siguiente carácter    
    beq $zero, $zero, procesar_iguales
    addiu $t1, $t1, 1                  # Si son iguales, aumentamos el contador en uno
 
procesar_noiguales:
    add $v0, $v0, $t1   # Ponemos los valores de retorno
    add $v1, $v1, $t1
 
 
# Volvemos de la función
    jr $ra
    nop
 
 
almacenar:
 
    sb $a0,0($a3)   #meto el caracter en la primera direccion de a3
    sb $a1,0($a2)   #meto el contador en la primera direccion de a4
 
    #avanzo el puntero
 
    addiu $a3,$a3,1
    addiu $a2,$a2,1
 
 
 
# Volvemos de la función
    jr $ra
    nop
 
almacenar_salida:
    la $a0,encode1
    la $a1,encode2
    la $a3,encode
 
while:
 
    beq $a0,$zero,finwhile    #si es el caracter vacio acabo
    lbu $a3,0($a1)              #cargo el primer numero en encode
    addiu $a3,$a3,1             #avanzo el puntero de encode
    lbu $a3,0($a0)              #cargo el caracter en encode
 
    #avanzo todos los punteros
    addiu $a3,$a3,1
    addiu $a0,$a0,1
    addiu $a1,$a1,1
 
    b while                   #llamo a while de nuevo
 
 
finwhile:
 
# Volvemos de la función
    jr $ra
    nop
 
 
decodificar:
 
    la $a0,encode1
    la $a1,encode2
    la $a3,decode
 
while2:
 
    beq $a0,$zero,finwhile2    #si es el caracter vacio acabo
    lbu $a3,0($a0)             #cargo el caracter en decode
    addiu $a3,$a3,1            #avanzo el puntero decode
    addiu $a1,$a1,-1           #a1-1 #le resto 1 al primer numero
    bnez $a1,while2            #repito el while2 si $a1 es distinto de 0
 
    #avanzo todos los punteros
    addiu $a3,$a3,1
    addiu $a0,$a0,1
    addiu $a1,$a1,1
 
    b while2
    
 
 
finwhile2:
 
# Volvemos de la función
    jr $ra
    nop
 
# void EliminarEnter(char* entrada)
eliminar_enter:
    li $t1,0xA
ee_bucle:
    lbu $t0,0($a0)
    beq $t0,0xA,fin_ee
    addiu $a0,$a0,1
    beq $zero,$zero,ee_bucle
    nop
fin_ee:
    jr $ra
    sb $zero,-1($a0)
 

He cambiado las j por b, como me has dicho que usa branches y no jumps. Pero sigue sin ir, es posible que la logica esté mal? o son las intrucciones? aunque creo que la lógica es la correcta. Muchas gracias.

Salu2

m0skit0

Así a primera vista, te veo un error muy gordo: la instrucción que va después de los jal se ejecuta siempre, y la dirección de retorno es jal + 8, por tanto:

Código: Text

fin:
 
    jal almacenar_salida
 
    #Imprimir la matriz de salida codificada
    # Número de syscall
    ori $v0,$zero,4
    # $a0 = buffer a imprimir
    la $a0,encode
    syscall
 

está mal, puesto que ori $v0,$zero,4 se ejecuta antes de jal almacenar_salida, y al volver de la función caes en la $a0,encode. Y así todos los siguientes.

manurodri189

Ok, entiendo se me pasó poner nop detras de la instruccion, con uno seria suficiente, no?

Salu2

PD: sigue sin tirar.

m0skit0

En

Código: Text

    add $a0,$zero,$s1  #El carácter en $a0
    jal almacenar     # Llamamos a la función almacenar()
    add $a1,$zero,$v0  # Ponemos el número de caracteres en $a1
 

Ten en cuenta que $v0 lleva el número de caracteres repetidos tras el primero leído, por tanto el número de caracteres iguales es $v0 + 1.

manurodri189

Corregido de la siguiente maner:

Código: ASM

add $a0,$zero,$s1  #El carácter en $a0
    jal almacenar     # Llamamos a la función almacenar()
    addiu $v0,$v0,1    #sumamos 1 a v0
    add $a1,$zero,$v0  # Ponemos el número de caracteres en $a1
 

Tiene que haber más errores. porque sucede lo mismo. Muchas gracias de verdad.

Salu2

m0skit0

Cita de: "manurodri189"

Corregido de la siguiente maner:

Mal again: add $a1,$zero,$v0 no se ejecuta antes de saltar a la función, sino una vez ejecutada...

Cita de: "manurodri189"

Tiene que haber más errores

Sí, hay unos cuantos, pero sinceramente no te voy a hacer todo y me estoy cansando un poco... La de codificar funciona, así que vuelve a mirar las funciones que has hecho, sobre todo la de decodificar. Sólo tiene que hacer el proceso inverso a codificar, así que es sencillo. La vas a tener que hacer tú solito

PD: repites siempre los mismos errores, concéntrate en lo que haces y déjate de prisas

manurodri189

Ok, tio la verdad es que llevas razon, pero aunque creo que le estoy cogiendo la dinamica a esto estoy un poco verdad, todavia.

Mira he actualizado asi, para que si se ejecute ese comando:

Código: ASM

add $a0,$zero,$s1  #El carácter en $a0
    addiu $v0,$v0,1    #sumamos 1 a v0
    jal almacenar     # Llamamos a la función almacenar()
    add $a1,$zero,$v0  # Ponemos el número de caracteres en $a1
 

Debajo de la llamada a decodifcar, me ocurria lo mismo así que también he puesto un nop.

Me has dicho que codificar funciona, pero creo que el almacenamiento en encode, no porque lo imprimo y no hace nada.

También he puesto el nop debajo de beq, porque tambien consume 8 al igual que jal.

Código: ASM

almacenar_salida:
    la $a0,encode1
    la $a1,encode2
    la $a3,encode
 
while:
 
    beq $a0,$zero,finwhile    #si es el caracter vacio acabo
    nop
    lbu $a3,0($a1)              #cargo el primer numero en encode
    addiu $a3,$a3,1             #avanzo el puntero de encode
    lbu $a3,0($a0)              #cargo el caracter en encode
 
    #avanzo todos los punteros
    addiu $a3,$a3,1
    addiu $a0,$a0,1
    addiu $a1,$a1,1
 
    b while                   #llamo a while de nuevo
 
finwhile:
 
# Volvemos de la función
    jr $ra
    nop
 

Y en decodificar lo mismo.

Código: ASM

decodificar:
 
    la $a0,encode1
    la $a1,encode2
    la $a3,decode
 
while2:
 
    beq $a0,$zero,finwhile2    #si es el caracter vacio acabo
    nop
    lbu $a3,0($a0)             #cargo el caracter en decode
    addiu $a3,$a3,1            #avanzo el puntero decode
    addiu $a1,$a1,-1           #a1-1 #le resto 1 al primer numero
    bnez $a1,while2            #repito el while2 si $a1 es distinto de 0
    nop
   
 
    #avanzo todos los punteros
    addiu $a3,$a3,1
    addiu $a0,$a0,1
    addiu $a1,$a1,1
 
    b while2
 
finwhile2:
 
# Volvemos de la función
    jr $ra
    nop
 

La verdad es que no se por donde cogerlo, ten en cuenta que es mi primera vez, no digo que me lo hagas, si no un poco de ayuda, si no te importa, mas que nada para los conceptos, y luego yo localizo los errores y los intento arreglar, porque sigo pensando que estoy en la dinamica, o no?

Salu2

Edito: acabo de modifcar lo de la instruccion de debajo porque veo que lo uso en el bnez.

manurodri189

Por cierto, por más que lo miro, sigo pensando que la lógica está bien, pero falla algo de Mips que no controlo.

Salu2

m0skit0

Cita de: "manurodri189"

Me has dicho que codificar funciona, pero creo que el almacenamiento en encode, no porque lo imprimo y no hace nada.

Funciona bien codificar y almacenar. Míra los valores en la memoria. Por tanto tienes mal el procedimiento de impresión.

Cita de: "manurodri189"

También he puesto el nop debajo de beq, porque tambien consume 8 al igual que jal.

Todos los saltos son así.

¿Qué tal si me pones qué debes hacer para descodificar? En pseudocódigo, para ver.

manurodri189

Ok, a ver si escribo bien el pseudocodigo:

Código: Text

Mientras encode1 no sea fin de cadena.
     
     meter el primer caracter de encode1 en decode.
     avanzar el puntero de decode
     restar 1 al primer numero de encode2   (porque ya hemos metido un caracter en el resultado)
     si el primer numero de encode2 es cero
            avanzar los punteros, encode1, encode2 y decode
repetir
fin mientras.
 

Es esto lo que quiero que haga, y creo que el procedimiento en mips es el correcto, no? creo que lo que tiene que fallar es algo de intrucciones.

Por cierto como es que hago mal el proceso de impresion?

Salu2

m0skit0

Intenta usar sólo los registros $aX (preferiblemente sólo lectura) y $tX (puedes hacer con ellos lo que quieras) dentro de las funciones

Primero, se supone que el número de elementos de encode1 y encode2 es el mismo, y no vamos a verificar esto. Resumidamente: por cada carácter de encode1, escribirlo en decode tantas veces veces como indique el elemento correspondiente en encode2. El pseudo-código sería por tanto:

Código: Text

Cargamos dirección de "encode1", "encode2" y "decode"
Cargamos carácter de "encode1" y avanzamos puntero
Mientras no sea fin de cadena
    Cargamos número de caracteres de "encode2" y avanzamos puntero
    Mientras número de caracteres sea distinto de 0
        Escribe carácter en decode y avanza puntero
        Restar 1 al número de caracteres
    Repetir
    Cargamos carácter de "encode1" y avanzamos puntero
Repetir
 

manurodri189

A ver que te parece la funcion:

Código: ASM

decodificar:
 
    la $a0,encode1
    la $a1,encode2
    la $a3,decode
    lbu $a3,0($a0)             #cargo el caracter en decode
    addiu $a3,$a3,1            #avanzo el puntero decode
 
while2:
 
    beq $a0,$zero,finwhile2    #si es el caracter vacio acabo
    nop
    lbu $a2,0($a1)             #cargo el numero
    addiu $a1,$a1,1            #avanzo el puntero
 
while3:
 
    beq $a2,$zero,etiqueta   #salto a etiqueta si es igual a 0
    nop
    
    lbu $a3,0($a0)             #cargo el caracter en decode
    addiu $a3,$a3,1            #avanzo el puntero decode
    addiu $a2,$a2,-1           #a2-1 #le resto 1 al primer numero
 
    b while3
 
etiqueta:
 
    lbu $a3,0($a0)             #cargo el caracter en decode
    addiu $a3,$a3,1            #avanzo el puntero decode
 
    b while2
 
finwhile2:
 
# Volvemos de la función
    jr $ra
    nop
 

Pero creo que si mal no he entendido, que tendria que restar uno al contador ya que ya he metido uno a la matriz decode antes de entrar a los while, no es asi?.

Salu2

m0skit0

Sigues haciendo los mismos errores

. Cargas punteros y los usas como caracteres, especificas mal las entradas de función (y eso que ni siquiera estamos usando la pila

), te haces un lío con los registros, lees en vez de escribir en memoria, te olvidas de que la instrucción siguiente a los saltos se ejecuta antes que el salto (y eso que lo acabamos de hablar

). Las instrucciones están bien planteadas, pero tienes que estar más al loro de que estás haciendo mal. No hacer lo primero que se te ocurra, probarlo, y si no funciona, esperar a que yo te ponga la corrección. Si no funciona, mira a ver por qué, ejecuta paso a paso y ve viendo qué hace tu código y cómo debería hacerlo en realidad. Así es como realmente se aprende, y sí, aprender requiere un esfuerzo

A ver, primero vamos a suponer que la función es (estilo C, que mola más

): void decodificar(const char* caracteres, const BYTE* frecuencias, const char* cadena_decodificada), siendo evidentemente caracteres = encode1 cargado en $a0, frecuencias = encode2 cargado en $a1, cadena_decodificada = decode cargado en $a2, y no devuelve ningún valor (void), así que no hace falta cargar $v0 (el registro en el que ponen el valor de retorno) con ningún valor. Estos parámetros los recibe la función cuando empieza, y trabaja suponiendo que están bien cargados antes de ser llamada. decodificar() es una función, por tanto los parámetros se le pasan y no hay que cargarlos. Así si queremos utilizar la función con otros parámetros no tenemos que modificar la función en sí (aunque esto creo que ya lo he dicho...

). Espero haberme explicado mejor esta vez sobre cómo crear y usar funciones en ensamblador MIPS

Por tanto el inicio de la función tendría que ser directamente la carga del primer carácter de encode1 (o caracteres como definimos en C), que debe estar ya cargado en $a0. Además fíjate que caracteres y frecuencias están definidos como const en el prototipo de la función, así que no debemos modificar esas cadenas. Aparte, tampoco es necesario modificar los valores de los registros $aX, así que los usaremos sólo para leer (como te indiqué en el post anterior).

Código: Text

decodificar:
    # cargamos los parámetros en otros registros
    or $t0,$zero,$a0   # encode1
    or $t1,$zero,$a1   # encode2
    or $t2,$zero,$a2   # decode
 

Cargamos cada $aX en su $tX correspondiente, así no tenemos que modificar los $aX para nada, y podemos decir que nuestra función mantiene esos registros sin modificar.

Código: Text

    lbu $t3,0($t0)  # Carácter de "encode1" -> T3     
    addiu $t0,$t0,1  # Avanzamos puntero
 

Cargamos el carácter del puntero móvil de encode1 a $t3.

Código: Text

decod_while1:    
    beq $t3,$zero,fin_dec_while1  # Mientras no sea fin de cadena
    nop
    lbu $t4, 0($t1)  # Número de repeticiones del carácter
    addiu $t1,$t1,1  # Avanzamos de elemento
 

Aquí vamos recorriendo los carácteres de encode1 hasta encontrar el carácter de fin de cadena 0.

Código: Text

decode_while2:
    beq $t4,$zero,fin_dec_while2  # Mientras el número de caracteres no sea cero
    nop
    sb $t3, 0($t2)   # Escribimos el carácter en decode
    addiu $t2,$t2,1  # Avanzamos el puntero móvil de decode
    beq $zero,$zero dec_while2  # Repetimos
    addiu $t4,$t4,-1  # Restamos uno al número de caracteres
 

Mientras queden repeticiones, escribimos el caracter consecutivamente en la cadena decode.

Código: Text

fin_dec_while2:    
    lbu $t3,0($t0)  # Carácter de "encode1" -> T3     
    beq $zero,$zero,decode_while1
    addiu $t0,$t0,1  # Avanzamos puntero
 

Siguiente carácter de encode1

Código: Text

fin_dec_while1:
    sb $zero, 0($t2)   # Escribimos el carácter de fin de cadena
    jr $ra
    nop
 

No hay que olvidar poner un final de cadena en decode, porque si no no es una cadena de caracteres válida

No lo he probado, hazlo tú (ve paso a paso y fíjate bien los valores que hay en memoria y los registros), y asegúrate de que le pasas bien los parámetros a la función en los registros $aX.

Si puedes decirme dónde fallaba tu código, estaría bien también, así analizas qué has hecho mal.