//
// Aufruf als start(argc, argv, envp) (C-Aufrufkonventionen)
//
	.text

	.long	0		/* in case of null references */
	.long	0

	.globl	start
start:
	movl	%ebx,_ScreenPrimary
	movl	%esp,%ebx
	movl	8(%ebx),%eax
	movl	%eax,_environ
	movl	4(%ebx),%eax
	movl	%eax,_args
	movl	(%ebx),%eax
	movl	%eax,_argc

	call	PASCALMAIN

	movl	$0x4c00,%eax
	int	$0x21

	ret

	.data

	.globl	_environ
_environ:
	.long	0
	.globl	_ScreenPrimary
_ScreenPrimary:
	.long	0
	.globl  _argc
_argc:
	.long   0
	.globl  _args
_args:
	.long	0