/* APE startup following exec.  assume vlong alignment of SP */
#define NPRIVATES	16
#define FCSR		3

GLOBL	_tos(SB), $XLEN
GLOBL	_privates(SB), $XLEN
GLOBL	_nprivates(SB), $4
GLOBL	_savedargc(SB), $4
GLOBL	_savedargv(SB), $XLEN

TEXT	_main(SB), 1, $(4*XLEN + NPRIVATES*XLEN)
	MOV	$setSB(SB), R3
	MOV	R0, CSR(FCSR)

	/* _tos = arg */
	MOV	R8, _tos(SB)

	MOV	$p-(NPRIVATES*XLEN)(SP), R9
	MOV	R9, _privates(SB)
	MOV	$NPRIVATES, R9
	MOVW	R9, _nprivates(SB)

	/* save argc & argv before envsetup */
	MOVW	inargc-XLEN(FP), R9
	MOVW	R9, _savedargc(SB)
	MOV	$inargv+0(FP), R9
	MOV	R9, _savedargv(SB)
	MOV	R0, environ(SB)		/* TODO debug */
	JAL	R1, _envsetup(SB)	/* may trash any non-stable register */

	/* exit(main(argc, argv, environ)); */
//#define R2 SP
	MOVW	_savedargc(SB), R8	/* argc */
	MOVW	R8, XLEN(R2)
	MOV	_savedargv(SB), R9
	MOV	R9, (2*XLEN)(R2)	/* argv */
	MOV	environ(SB), R9
	MOV	R9, (3*XLEN)(R2)	/* environ */
	JAL	R1, main(SB)

	JAL	R1, exit(SB)
	RET