#
#  fcall.zasm  --  a zasm program demonstrating function calls with
#                  parameter passing
#

#  We will have one local variable in the start routine
routine _start 1
	call_2s :print_and_double 3 $1
	
	print "print_and_double returned "
	print_num $1
	new_line

	ret 0

#  The print_and_double routine will print the number passed in and
#  return double that number
routine print_and_double 1
	print "The number is "
	print_num $1
	new_line

	mul $1 2 $1
	ret $1