# Lee 10 enteros y los guarda en un arreglo
# Imprime el arreglo
# Agosto 2009

	.data
a:	.word 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
size: .word 10

	.text

	la $t0, size	# t0 apunta a size (t0 = &size)
	lw $s1, 0($t0)  # s1 = size (s1 = *t0)

	li $s0, 0		# contador en ceros
	la $s2, a		# s2 apunta al comienzo del arreglo

Ciclo1:
	beq $s0, $s1, Salir1

	li $v0, 5			# llamada a read_int
	syscall

	sw $v0, 0($s2)  	# *s2 = v0
	addi $s2, $s2, 4	# s2 apunta al siguiente elemento

	addi $s0, $s0, 1	# incrementa el contador
	j Ciclo1

Salir1:

	li $s0, 0		# contador en ceros
	la $s2, a		# s2 apunta al comienzo del arreglo

Ciclo2:
	beq $s0, $s1, Salir2

	li $v0, 1			# llamada a print_int
	lw $a0, 0($s2)		# a0 = *s2
	syscall

	li $v0, 11			# llamada a print_char
	li $a0, 32			# a0 = " "
	syscall

	addi $s2, $s2, 4	# s2 apunta al siguiente elemento

	addi $s0, $s0, 1	# incrementa el contador
	j Ciclo2

Salir2:

	li $v0, 10		# syscall code 10 is for exit.
	syscall 		# make the syscall.
