practica1241451

.data
cadenainicio: .asciiz "Introduzca una Frase: "
cadenafinal1: .asciiz "La Cadena tiene: "
cadenafinal2: .asciiz "aes"
a: .byte 'a'

#Reservamos 100 en memoria, VALE oC !?
cadleida: .space 100

###########################################

#1. Imprimir: "Introduzca..."
.globl main
.text
main:
li $v0, 4
la $a0, cadenainicio
syscall

#2. Pedir cadena y guardarla en zona de memoria => "cadleida"
li $v0, 8
la $a0, cadleida
li $a1, 100
syscall

#3. Llamar a función "contaraes" => 2 Parametros
#   {1. el byte 'a' // 2. la direccion de cadleida.}
lb $a2, a
la $a0, cadleida
li $a1, 0

jal contaraes

li $v0,4
move $a0, cadenafinal2
syscall





li $v0, 10
syscall

contaraes:
    li $t0,0 #guardar letra
    li $t1, 0 #contador cadena

    bucle:
        lb $t0, 0($a0)
        beqz $t0,escero
        beq $t0,$a1,contador
        addi $a0, $a0,1
    j bucle
    contador:
    addi $t1,$t1, 1
    addi $a0,$a0, 1
    j bucle
    escero:
    move $v0,$t1
    jr $ra