#

#include "apl.h"

/*
 *	name line
 */

char	headline[] = {
	"a p l ? 1 1    `` 1 june 1979 ``\n"
};

int	cs_size = STKS;		/* Current stack size */

newstak()
{
register struct item **news, **olds;
register i;
struct	 item **oldstak;
unsignd	 diff;

#ifdef TRACE
	aprintf("\nnew stack allocated\n");
#endif

	diff = sp - stack;
	olds = stack;oldstak	= stack;
	stack	= alloc((cs_size+STKS)*sizeof(stack));news = stack;
	for(i=0; i<cs_size; ++i)
		*news++ = *olds++;
	cs_size += STKS;
	afree(oldstak);
	staktop = &stack[cs_size-1];
	sp = &stack[diff];
}
