##
 ## This is a MIPS specific routine, only!!!
 ##
 ## A routine allocate space on the stack, like the BSD alloca routine.
 ##

	.globl  alloca		## Make this routine visible to everyone


	.ent	alloca  1
alloca:			        ## Define the routine entry point and number of args

	subu	$4, $sp, $2	## Take the current stack pointer
                                ##  and subtract the size of the new stack
                                ##  which is passed in as an argument
                                ##  in $4

	j	$31		## Return to caller (address is stored in $31)

	.end	alloca