# procedure max (array, size) {
#    max = 0
#    i = 0
#    while (i < size) do {
#       v = array[i]
#       if (v > max) {
#          max = v
#       }
#       i = i + 1
#    }
#    print "The max is " + max + "\n"
# }
	
	
# procedure max (array, size) {
#		s1 = 0			# max = 0
#		s2 = 0			# i = 0
#		s3 = size		
#	loop:	if s2 >= s3 goto done
#		s0 = array[i]		
#		if s0 <= s2 goto notGT
#		s1 = s0
#	notGT:	s2 = s2 + 1
#		goto loop
#	done:	print "The max is " + max + "\n"
# }
	
	
	.data
array:	.byte 10,23,99,1,98,56,23
	.align 2
size:	.word 7
res:    .asciiz "The max is: "
nl:     .asciiz "\n"

	.text
# $s1:	max
# $s2:	index into array
# $s3:	array bound
main:
	li	$s1,0		# max = 0
	li	$s2,0		# i = 0
	lw	$s3,size	# $s3 = size
	
loop:	bge	$s2,$s3,done	# while (i<size) do
	
	la	$s0,array	
	add	$s0,$s0,$s2
	lb	$s0,($s0)	# $s0 = array[i]
	
	ble	$s0,$s1,notGT	# if (array[i]<max) goto notGT
	move	$s1,$s0		# max = array[i]
notGT:	
	add	$s2,$s2,1	# i++
	
	b	loop		# endwhile
done:		
	li	$v0,4		# print("The max is: ")
	la	$a0,res		
	syscall

	li	$v0,1		# print(max)
	move	$a0,$s1
	syscall

	li	$v0,4		# print("\n")
	la	$a0,nl		
	syscall

	li	$v0, 10		# exit
	syscall