Calcolare le occorrenze delle vocali in una stringa (MIPS with SPIM)

[sblantipodi]

Qualcuno di voi è in grado di aiutarmi a trovare uno spezzone di codice che mi indirizzi a risolvere il problema in TOPIC.
Ovviamente devo usare Assembler per MIPS usando SPIM.

Io ho trovato questo, purtroppo però calcola solamente le occorrenze di B in una stringa.
Il programma che mi serve deve calcolare tutte le vocali presenti in una stringa.

Ecco quello che conta le B :

# Esercizi P&H 3.23 e 3.24: bfind e bcount

.data
hello:	.asciiz "Scrivi una parola: "
out:	.asciiz "Numero di b = "
str:	.space 32

.text
.globl 	main	

bfind:
	li 	$t0, 98			# $t0 = 'b'
	move 	$t1, $zero		# i = 0
loopbfind:
	add	$v0, $a0, $t1		# $v0: indirizzo di s[i]
	lb 	$t2, 0($v0)		# $t2 = s[i]
	beq	$t2, $zero, endbfind	# s[i] = '\0'
	beq	$t2, $t0, endbfind	# s[i] = 'b'
	addi	$t1, $t1, 1		# i = i+1
	j	loopbfind
endbfind:
	jr	$ra


bcount:
        addi    $sp, $sp, -8		# Alloca 8 byte per lo stack
        sw      $ra, 0($sp)		# Salva return address
        sw      $s0, 4($sp)		# Salva $s0
	
	move	$s0, $zero		# $s0 = numero di b
loopbcount:
	jal	bfind
	lb	$t0, 0($v0)
	beq	$t0, $zero, endbcount
	addi	$s0, $s0, 1
	addi	$a0, $v0, 1
	j	loopbcount
endbcount:	
	move	$v0, $s0
	lw	$ra, 0($sp)
	lw	$s0, 4($sp)
	addi	$sp, $sp, 8
	jr	$ra


main:
	li	$v0, 4			# print_string 
	la	$a0, hello
	syscall
	la	$a0, str
	li	$a1, 32
	li	$v0, 8			# read_string 	
	syscall

	jal	bcount
	move	$s0, $v0

	li	$v0, 4			# print_string
	la	$a0, out
	syscall
	move	$a0, $s0
	li	$v0, 1			# print_int
	syscall




	# Uscita
	li $v0, 10	# carica in $v0 il codice della exit
	syscall		# uscita dal programma

Spero che qualcuno mi aiuti

[akyra]

guarda, l'ho fatto molto di fretta (ed è un po' cervellotico) comunque se ti ci rompi un po' sopra la testa capisci come funzia...lascio a te eventuali correzioni e miglioramenti (che ce ne sono da fare) per purificare il codice e renderlo più leggibile....

.data
hello:	.asciiz "Scrivi una parola: "
out:	.asciiz "Numero di vocali = "
str:	.space 32


.text
contavocali:
    addi    $sp, $sp, -4		# Alloca 4 byte per lo stack
    sw      $ra, 0($sp)		# Salva return address
	move 	$t1, $zero		# i = 0

nuovo_carattere:
	addi $t4, $zero, 6
	addi $t0, $zero, 93		#resetta gli indici
	addi $t6, $zero, 4
	addi $t5, $zero, 0
	addi $t7, $zero, 3
	add	$v0, $a0, $t1		# $v0: indirizzo di s[i]

confrontavocale:
	beq $t5,$t7, cambia		#allora cambia il valore di $t6 
	beq $t5, $t4, continua		#il carattere non è una vocale
continua2:
	add $t0, $t0,$t6			# $t0 = 'a'-->'e'-->'i'--->'o'--->'u'	carica una vocale alla volta
	addi $t5, $t5, 1		#indice che dice con quante vocali ho confrontato--->se superiore a 5--->non è una vocale

	lb 	$t2, 0($v0)		# $t2 = s[i]
	beq	$t2, $zero, endcount	# s[i] = '\0'		#abbiamo finito
	beq	$t2, $t0, find	# s[i] = 'vocale'--->vocale trovata!
	#confronta con altre vocali
	j confrontavocale

	
continua:
	addi	$t1, $t1, 1		# i = i+1
	j	nuovo_carattere
find:
	addi $s0, $s0, 1		#trovata la vocale--->aumenta $s0
	j	continua	
	
cambia:
	addi $t6, $zero, 6
	j continua2
	


endcount:	
	lw	$ra, 0($sp)
	addi	$sp, $sp, 4
	jr	$ra


main:
	addi $sp, $sp, -4
	sw $ra, 0($sp)	
	li	$v0, 4			# print_string 
	la	$a0, hello
	syscall
	la	$a0, str
	li	$a1, 16
	li	$v0, 8			# read_string 	
	syscall

	jal	contavocali


	li	$v0, 4			# print_string
	la	$a0, out
	syscall
	move	$a0, $s0
	li	$v0, 1			# print_int
	syscall


	# Uscita
	lw $ra, 0($sp)
	jr $ra

spero di esserti stato d'aiuto....ciao!