#include <proto/exec.h>
#include <proto/dos.h>
 
int function_that_needs_more_stack (int argc, char **argv);
int32 GetStackSize (void);
 
int main (int argc, char **argv) {
	int rc;
	IDOS->Printf("main()\n");
	IDOS->Printf("Stack Size: %ld\n", GetStackSize());
	rc = IExec->NewStackRunTags((APTR)function_that_needs_more_stack,
		NSR_StackSize,	1000000,
		NSR_Arg1,		argc,
		NSR_Arg2,		argv,
		TAG_END);
	IDOS->Printf("main() again\n");
	IDOS->Printf("Stack Size: %ld\n", GetStackSize());
	return rc;
}
 
int function_that_needs_more_stack (int argc, char **argv) {
	int i;
	IDOS->Printf("function_that_needs_more_stack()\n");
	IDOS->Printf("Stack Size: %ld\n", GetStackSize());
	IDOS->Printf("argc: %ld\n", argc);
	for (i = 0; i < argc; i++) {
		IDOS->Printf("argv[%ld]: %s\n", i, argv[i]);
	}
	return RETURN_OK;
}
 
int32 GetStackSize (void) {
	struct Task *task = IExec->FindTask(NULL);
	return (int32)task->tc_SPUpper - (int32)task->tc_SPLower;
}