.TITLE	ALLOCA	Allocate dynamic storage on stack/free on return
	.IDENT	/1.00/

	.PSECT	$CODE,LONG,PIC,REL,SHR,EXE,RD,NOWRT
	.ENTRY	ALLOCA,^M<>
	SUBL2	4(AP),SP
	MOVL	16(FP),R1
	MOVQ	8(FP),AP
	BICL2	#3,SP
	ADDL2	#28,SP
	MOVL	SP,R0
	JMP 	(R1)

	.END