.data
arbol:	.word nodo00
nodo00:	.word 6, nodo01, nodo02
nodo01:	.word 6, 0, nodo03
nodo02:	.word 6, 0, nodo04
nodo03:	.word 6, 0, 0
nodo04:	.word 6, nodo05, nodo06
nodo05:	.word 6, nodo07, 0
nodo06:	.word 6, 0, 0
nodo07:	.word 6, 0, 0

.text
	lw a0, arbol	
	jal conta
	li a7, 1
	ecall
	li a7, 10
	ecall
	
conta:	bne a0, zero, conta_rec	# caso base
	jalr zero, ra, 0
conta_rec:
	addi sp, sp, -12
	sw ra, 0(sp)	# ra en el stack
	sw a0, 4(sp)	# a0 en el stack
	lw a0, 4(a0)	# cargo a0 SA izdo
	jal conta
	sw a0, 8(sp)	# stack <- nr nodo subarbol derecho
	lw a0, 4(sp)	# voy a retomar los valores del stack
	lw a0, 8(a0)	
	jal conta
			# a0 contiene nr nodos sa dx
	lw t0, 8(sp)	# retomo del stack nr sa izdo
	add a0, a0, t0	# sumamos izdo y dcho
	addi a0, a0, 1	# añado 1 al conteo
	lw ra, 0(sp)
	addi sp, sp, 12
	jalr zero, ra, 0
	
