Canvia un caracter de una cadena de caracter | MIPS R2000

.data 0x10000000
    impr: .asciiz "Caracter a canviar:"
    impr2: .asciiz "Cadena a analitzar:"
    cadena: .space 100
    cadena1: .space 100

.globl __start
.text 0x00400000

__start:
    li $v0,4            # printf("%s",impr)
    la $a0,impr         #
    syscall             #

    li $v0,12           # scanf("%c",$s0)
    syscall             #
    add $t3,$zero,$v0       #

    li $v0,4            # printf("%s",impr2)
    la $t0,impr2            #
    add $a0,$zero,$t0       #
    syscall             #

    li $v0,8            # scanf("%s",cadena)
    la $a0,cadena           #
    li $a1,79           # Maxim 79 carà cters
    syscall             #
    add $s0,$zero,$v0       #

    la $a0, cadena      # analitza(cadena)
    add $a1,$zero,$t3   #
    jal analitza        #

    li $v0,4                # printf("%s",cadena2)
    la $a0,cadena1              #
    syscall                 #

    li $v0,10               # exit()
    syscall                 #

analitza:   add $a3,$zero,$a1   #
        la $a0,cadena       #
        la $a1,cadena1      #
        li $a2,'*'      #


    buc:    lbu $t0,0($a0)      # $t0=cadena[x];
        beq $t0,$zero,final # if(cadena[x]==0) goto final;
        beq $t0,$a3,dif     # if(cadena[x]!=caracter) goto dif;
        sb $t0,0($a1)       # guarda '*' en la memòria
    dif:    sb $a2,0($a1)       # guarda cadena[x] en la memòria
    nog:    addi $a0,$a0,1      # Avança una posició en la cadena
        addi $a1,$a1,1      # Avança una posició en la cadena1
        j buc           # bucle

    final:  j $ra