Why this MIPS code don't show me the "a" occurrences? - mips

I have a little problem with my MIPS code, because this not work with "a", I explain better... If I write:
Heeeeello world --> I obtain this output "The 'e' has the biggest number of occurrences, 5"
hi Maaaaaark --> I obtain this output "The '' has the biggest number of occurrences, "
Can someone give me a solution? this is my code:
.data
m1: .asciiz "Give me a string: "
m2: .asciiz "\nThe letter '"
m3: .asciiz "' has the biggest number of occurrences, is present "
m4: .asciiz " times."
.align 2
myArray: .space 104
.text
.globl main
main:
li $v0, 4
la $a0, m1
syscall
addi $sp, $sp, -256
move $s0, $sp
move $a0, $sp
li $a1, 255
li $v0, 8
syscall
move $a0, $s0
jal check_case
move $a0, $v0
move $a1, $v1
jal analizza_stringa
move $a0, $v0
move $a1, $v1
jal stampa_risultato
end_program:
li $v0, 10
syscall
check_case:
move $t0, $a0
while:
lb $t1, ($t0)
beq $t1, 32, ignore_value_and_continue
beq $t1, 10, exit_check_case
bge $t1, 97, continue_check_case
bge $t1, 65, change_case
change_case:
addi $t2, $t1, 32
sb $t2, ($t0)
ignore_value_and_continue:
continue_check_case:
addi $t2, $t2, 1
addi $t0, $t0, 1
j while
exit_check_case:
move $v0, $t0
move $v1, $t2
jr $ra
analizza_stringa:
li $t1, 0
li $t2, 0
li $t3, 0
li $t4, 0
move $t7, $a0
sub $a0, $a0, $v1
sub $t7, $t7, $v1
while_string:
lb $t0, ($a0)
beq $t0, $zero, check_best
beq $t1, 32, ignore_value_and_continue2
ignore_value_and_continue2:
beq $t0, 10, check_best
subi $t3, $t0, 97
mul $t4, $t3, 4
move $t6, $t7
while_occorrenza:
beq $t1, 10, continue
lb $t1,($t6)
bne $t1, $t0, continue2
addi $t5, $t5, 1
continue2:
addi $t6, $t6, 1
j while_occorrenza
continue:
sw $t5, myArray($t4)
li $t5, 0
li $t3, 0
li $t1, 0
addi $a0, $a0, 1
j while_string
check_best:
li $t0, 0
lw $t1, myArray($t0)
addi $t0, $t0, 4
while_check_best:
beq $t0, 104, exit_check
addi $t5, $t5, 1
lw $t4, myArray($t0)
bge $t4, $t1, scambia
j continue_check
scambia:
blt $t4, $t2, continue_check
move $t2, $t4
add $t3, $t5, 97
continue_check:
addi $t0, $t0, 4
j while_check_best
exit_check:
move $v0, $t3
move $v1, $t2
jr $ra
stampa_risultato:
move $t0, $a0
li $v0, 4
la $a0, m2
syscall
li $v0, 11
move $a0, $t0
syscall
li $v0, 4
la $a0, m3
syscall
li $v0, 1
move $a0, $a1
syscall
li $v0, 4
la $a0, m4
syscall
jr $ra

Related

How to count the number of spaces in MIPS?

I need to write a program in which the output will be the number of sentences and average number of words. The code is working perfectly for counting the sentences, but for the second task, it doesn't work. I'm using branch if equal with the current char and the register in which I've declared the ascii value for space which is 32. With this code, the output for the average words is the total number of characters from the whole input. I can't understand how it can count every character when the beq is clearly incorrect. (I've also tried with emptySpace: .asciiz " ", but it's not working)
This is what I got so far:
.data
str_input: .space 256
dot: .asciiz "."
msg1: .asciiz "Number of sentences: "
msg2: .asciiz "\nAverage number of words: "
.text
li $v0, 8 #read string
la $a0, str_input #address of str_input vo $a0
li $a1, 256 #256 max
la $a2, dot
lb $a2, 0($a2)
li $a3, 32
syscall
addi $t4, $zero, 0 #counter for words
addi $t5, $zero, 0 #counter for sentences
or $t0, $a0, $zero #$t0 pointer to array
start:
lb $t1, 0($t0) #$t1 current char
beqz $t1, end
jal check
addiu $t0, $t0, 1
j start
chech:
beq $t1, $a2, IsDot
beq $t1, $a3, IsEmptySpace
IsDot:
addi $t5, $t5, 1
jr $ra
IsEmptySpace:
addi $t4, $t4, 1
jr $ra
end:
la $a0, msg1 #address of msg1 in $a0
li $v0, 4 #load string in $v0
syscall
add $a0, $t5, $zero
li $v0, 1
syscall #print number of sentences
addi $t4, $t4, 1 #add the last word
div $t4, $t5 #divide number of words with number of sentences
mflo $t6
la $a0, msg2 #address of msg2
li $v0, 4 #load string in $v0
syscall
add $a0, $t6, $zero
li $v0, 1
syscall

I can't print "enter" in Mips

I'm converting C code to Mips code
The C code is
int main(void) {
int i;
int data [10] = { 10, -2, 5, 22, 99, 0, -5, 8, 30, 7};
for(i=0; i<10; i++){
printf("%d\n", data[i]);
}
return 0;
}
my Mips code is
.data
data: .space 10
enter: .asciiz "\n"
.text
.globl main
main:
addi $s0, $zero, 10
add $t0, $zero, $zero
sw $s0, data($t0)
addi $s0, $zero, -2
addi $t0, $t0, 4
sw $s0, data($t0)
addi $s0, $zero, 5
addi $t0, $t0, 4
sw $s0, data($t0)
addi $s0, $zero, 22
addi $t0, $t0, 4
sw $s0, data($t0)
addi $s0, $zero, 99
addi $t0, $t0, 4
sw $s0, data($t0)
addi $s0, $zero, 0
addi $t0, $t0, 4
sw $s0, data($t0)
addi $s0, $zero, -5
addi $t0, $t0, 4
sw $s0, data($t0)
addi $s0, $zero, 8
addi $t0, $t0, 4
sw $s0, data($t0)
addi $s0, $zero, 30
addi $t0, $t0, 4
sw $s0, data($t0)
addi $s0, $zero, 7
addi $t0, $t0, 4
sw $s0, data($t0)
addi $t0, $zero, 0
Loop: slti $t1, $t0, 10
beq $t1, $zero, Exit
mul $t2, $t0, 4
li $v0, 1
lw $a0, data($t2)
syscall
li $v0, 4
la $a0, enter
syscall
addi $t0, $t0, 1
j Loop
Exit:
end:
li $v0, 10
syscall
s1 is for saving a value.
t0 is for index
t1 is a flag for slt
t1 multiply 4 is t2
you should just focus on
li $v0, 4
la $a0, enter
syscall
it prints
10-2522990-58307
dddddddddddddddddddddddddddddddddddasdfasdfasdfasdfasdfasdfasdf
plz help me dddddddddddddddddddddddddddddddddddddd
You haven't reserved enough memory for your data array. .space 10 reserves 10 bytes of memory, but you're trying to store 10 words (40 bytes). So you end up overwriting the newline character.
If you change the declaration to data: .space 40 you should get the expected output.

Replacing repeated consecutive characters with X

I have some trouble with my code.
I need this in/output on the console.
Input String : aaabcccdeefggg
Input char: X
Replace:XXXbXXXdXXfXXX <--I want this output
But i get this output-->XXabXXcdXefXXg
I dont know where the bug is, i am searching for hours for this bug.
.data
enterString: .asciiz "Input String > "
enterChar: .asciiz "Input char> "
changedString: .asciiz "\nReplace: "
numberOfAdditions: .asciiz "\Total Replaces: "
userInput: .space 555
.text
main:
li $v0, 4
la $a0, enterString
syscall
li $v0, 8
la $a0, userInput
li $a1, 554
syscall
li $v0,4
la $a0,enterChar
syscall
li $v0,12
syscall
move $t5,$v0 # $t0 = character to be replaced
li $t0, 0
li $t1, 1
j findDoubleCharacters
findDoubleCharacters:
lbu $s0, userInput( $t0 )
lbu $s1, userInput( $t1 )
addi $t0, $t0, 1
addi $t1, $t1, 1
beq $s0, $s1, found
beq $s1, 0, end
j findDoubleCharacters
found:
subi $t0, $t0, 1
subi $t1, $t1, 1
sb $t5, userInput($t0)
addi $s2, $s2, 1
j findDoubleCharacters
end:
li $v0, 4
la $a0, changedString
syscall
li $v0, 4
la $a0, userInput
syscall
li $v0, 4
la $a0, numberOfAdditions
syscall
li $v0, 1
move $a0, $s2
syscall
...

MIPS store byte

I have a problem with this code. It should do this:
gabriele -> grl
but instead of 3 characters it redouble the last one. Hence: gabriele -> grll
Why?
.data 0x10010000
nome: .asciiz "gabriele"
voc: .asciiz "aeiou"
st_nome:
.text 0x400000
main: la $s1, voc #address of voc in s1
la $s2, nome #address di nome in s2
li $t3, 0 #index name
li $t4, 0 #index vowel
li $t5, 0 #memory index
li $a1, 4 #max number of character
cerca_nom: lbu $t0, nome($t3)
beqz, $t0, fine
sc_voc2: lbu $t1, voc($t4)
beq $t0, $t1, ignora2
addi $t4, $t4, 1
beqz $t1, salva_n
j sc_voc2
salva_n: sb $t0, st_nome($t5)
addiu $t5, $t5, 1
bge $t5, $a1, prime
ignora2: addi $t3, $t3, 1
li $t4, 0
j cerca_nom
prime: li $t5, 0
la $t1, st_nome
lbu $t0, 0($t1)
sb $t0, st_nome($t5) #take the first character
addi $t5, $t5, 1
lbu $t0, 2($t1)
sb $t0, st_nome($t5) #take the third character
addi $t5, $t5, 1
lbu $t0, 3($t1)
sb $t0, st_nome($t5) #take the fourth character
fine:
In your cerca_nom loop you're removing the vowels from the name and storing the remaining characters ('g', 'b', 'r', 'l') at st_nome.
So now you've got 'gbrl' at st_nome.
Then you do:
st_nome[0] = st_nome[0] ; still 'gbrl'
st_nome[1] = st_nome[2] ; 'grrl'
st_nome[2] = st_nome[3] ; 'grll'
You're never overwriting st_nome[3], so there will still be an 'l' there.

Exception 4 on mips bubblesort

So i have to write a bubblesort programm in mips using QtSpim for a class but i get an Exception 4 [Adress error in inst/data fetch]. I have searched in other topics and use the .align 2 directive before defining an array for 5 integers but it still isn't getting fixed.
Here's the code:
.text
.globl main
main:
la $t1, array #sets the base adress of the array to t1
la $a0, in_prompt
li $v0, 4
syscall
li $t2, 0 #init to 1
read_loop:
beq $t2, 5, read_key #break if t2 = 5
la $a0, num_prompt
li $v0, 4
syscall #"Give number"
#move $a0, $t2
#li $v0, 1
#syscall #current number to be read
li $v0, 5 #read int. 5 times
syscall
sw $v0, ($t1) #move input from v0 to the array
addi $t1, $t1, 4 #move t1 to the next position in the array
addi $t2, $t2, 1 #increment counter (t2) by 1
j read_loop
read_key:
la $a0, search_q
li $v0, 4
syscall #print query prompt
li $v0, 5
syscall
move $t3, $v0 #number we're looking for (KEY)
move $a0, $t1 #array to pass as arguement
jal bubblesort
move $a0, $v0 #move into a0 the sorted array
move $a1, $t3 #move the KEY into a1 as arguement
jal binarysearch
move $t1, $a0 #move into t1 the array
move $t0, $a1 #move into t0 the KEY
move $t3, $v0 #move into t3 the result of binarySearch
beq $t3, -1, not_found #if key was not found
move $a0, $t0
li $v0, 1
syscall
la $a0, found_pr
li $v0, 4
syscall
j print_array
not_found:
move $a0, $t0
li $v0, 1
syscall
la $a0, not_found_pr
li $v0, 4
syscall
j print_array
print_array:
li $t2, 1 #init to 1
print_loop:
beq $t2, 5, EXIT
lw $a0, ($t1)
li $v0, 1
syscall
addi $t1, $t1, 4
addi $t2, $t2, 1
j print_loop
EXIT:
li $v0, 10
syscall
##############binarysearch#################
binarysearch:
addi $sp, $sp, -24 #reserve space for 6 elements
sw $a0, 0($sp) #push a0 (array)into stack
sw $a1, 4($sp) #push a1(KEY) into stack
sw $s0, 8($sp) #push s0
sw $s1, 12($sp) #push s1
sw $s2, 16($sp) #push s2
sw $ra, 20($sp) #push ra
sw $s3, 24($sp) #push s3
li $s0, 0 #low = 0
li $s1, 4 #high = 4
while:
bgt $s0, $s1, exit_search #if low > high branch
move $a1, $s0 #move into a1 low
move $a2, $s1 #move into a2 high
jal calc_middle #jump to calc_middle
move $s2, $v0 #move into s2 the return value of calc_middle
lw $a0, 0($sp) #restore into a0 the 1st stack el(array)
lw $a1, 4($sp) #restore into a1 the 2nd stack el(KEY)
add $a0, $a0, $s2 #move the array to middle
lw $s3, ($a0) #load into s3 the a[middle]
beq $a1, $s3, exit_search_found #break if KEY == a[middle]
blt $a1, $s3, less_t_middle #if the key is less than the middle element
addi $s0, $s2, 1 #if the key is greater than the middle element set new low
j while
less_t_middle:
addi $s1, $s2, -1 #new high
j while
exit_search_found:
move $v0, $s2 #return found
lw $s0, 8($sp)
lw $s1, 12($sp)
lw $s2, 16($sp)
lw $ra, 20($sp)
addi $sp, $sp, 24
jr $ra
exit_search:
li $v0, -1 #return -1
lw $s0, 8($sp)
lw $s1, 12($sp)
lw $s2, 16($sp)
lw $ra, 20($sp)
addi $sp, $sp, 24
jr $ra
##############calc_middle##################
calc_middle:
add $a1, $a1, $a2
sra $a1, $a1, 1
move $v0, $a1
jr $ra
##############bubblesort###################
bubblesort:
addi $sp, $sp, -12
sw $s0, 0($sp)
sw $s1, 4($sp)
sw $s2, 8($sp)
li $s2, 4 #j = 5
li $s1, 0 #i = 0
outer_loop:
addi $s2, $s2, -1 #i = j - 1
blt $s2, $zero, exit_sort
inner_loop:
bgt $s1, $s2, outer_loop #if i > j - 1
lw $s3, 0($a0) #load into s3 the a[i]
lw $s4, 4($a0) #load into s4 the a[i+1]
bgt $s3, $s4, swap #if a[i] > a[i+1]
addi $s1, $s1, 1 #i++
j inner_loop
swap: move $s0, $s3 #tmp = a[i]
move $s3, $s4 #a[i] = a[i+1]
move $s4, $s0 #a[i+1] = tmp
addi $a0, $a0, 4 #point to the next element ????
addi $s1, $s1, 1 #i++
j inner_loop
exit_sort:
lw $s0, 0($sp)
lw $s1, 4($sp)
lw $s2, 8($sp)
addi $sp, $sp, 8
move $v0, $a0 #pass into v0 the sorted array
jr $ra
.data
.align 2
array: .space 20
in_prompt: .asciiz "Enter 5 numbers:\n"
num_prompt: .asciiz "Give number: "
search_q: .asciiz "what are you looking for?\n"
not_found_pr: .asciiz " not found in array: \n"
found_pr: .asciiz " found in array: \n"