.data
str1:	.asciiz	"Introduza um numero: "
str2: 	.asciiz	"\nO valor em binario: "
	.text
	.globl main
main:


	la	$a0,str1
	li	$v0,4
	syscall			#imprime str1



	li	$v0,5		#ler inteiros
	syscall			#

	move	$t1,$v0		#$t1->value
				#coloco em $t1 o que está em $v0


	la	$a0,str2	#
	li	$v0,4		#
	syscall			#imprime str2

	li	$t0,0		#i=0



for:	bgeu 	$t0,32,endfor		#for(i=0; i < 32; i++)

	andi	$t2,$t1,0x80000000	#bit = value & 0x80000000;
					#bit->$t2

if:	bnez	$t2,endif	#if(bit == 0)

	li	$a0,'0'		#imprimir char '0'
	li	$v0,11		#
	syscall			#


endif:	li	$a0,'1'		#imprimir char '1'
	li	$v0,11		#
	syscall			#


	sll	$t1,$t1,1	#value = value << 1;

	addiu	$t0,$t0,1	#i++

	j	for	#volta ao chamar o ciclo

endfor:
	jr $ra