.data
cad1:
.asciiz "Introduzca cadena de Caracteres: "
cadleida: .space 100
strfin: .asciiz "La cadena de caracteres contiene...: "
.globl main
.text
li $v0, 4
la $a0, cad1
syscall # llamada al sistema que imprime la cadena que se
# encuentra en la dirección especificada por la
# etiqueta 'cad1:'
main:
li $v0, 8
la $a0, cadleida #puntero a la posición de memoria donde se almacenará
li $a1, 100
syscall


li $t1, 0
la $a0, cadleida


bucle:
lb $t2, 0($a0)
beqz $t2, fin
addi $t1,$t1, 1
addi $a0,$a0, 1
j bucle

fin:
li $v0, 4
la $a0, strfin
syscall

li $v0, 1
move $a0, $t1
syscall


li $v0, 10
syscall