STRLEN - ASSEMBLY

.data
dir: .asciiz "Introduce el entero: "
str: .asciiz "El entero es: "
string: .space 10

.text
main: 	li $v0, 4 # código de imprimir cadena
	la $a0, dir # dirección de la cadena
	syscall # Llamada al sistema
	li $v0, 8 # código de leer str
	la $a0, string($0)
	li $a1, 10
	syscall # Llamada al sistema
	and $t0, $t0, $0 #t0=0
while:	lb $t1, string($t0) #carga en t1 el caracter
	beq $t1, $0, end #busca el \0
	addi $t0, $t0, 1 #t0++
	j while
end:	addi $t0, $t0, -1
	add $a0, $t0, $0
	li $v0, 1 #imprimir entero
	syscall