/*
**	Called as start(argc, argv, envp)
*/

/*	gs:edx points to prog_info structure.  All other registers are OBSOLETE
**	but included for backwards compatibility
*/

/* These symbols are for global constructors and destructors */
#if 0
	.section	.ctor
	.globl		___go32_first_ctor
___go32_first_ctor:
	.section	.dtor
	.globl		___go32_last_ctor
___go32_last_ctor:
	.globl		___go32_first_dtor
___go32_first_dtor:
	.data
	.globl		___go32_last_dtor
___go32_last_dtor:
#endif
	.text
	.globl	_start
_start:
	.globl	start
start:
#ifdef EMU387
	pusha
	push	%gs
#endif
	movl	%eax,__hard_master
	movl	%esi,___pid
	movl	%edi,___transfer_buffer
	movl	%ebx,_ScreenPrimary
	movl	%ebp,_ScreenSecondary

	cmpl	$0, %edx
	je	Lcopy_none
	movw	%gs,%cx
	movw	%ds,%ax
	cmpw	%cx,%ax
	je	Lcopy_none

	movl	%gs:(%edx), %ecx
	cmpl	__go32_info_block, %ecx
	jbe	Lcopy_less
	movl	__go32_info_block, %ecx
Lcopy_less:
	movl	$__go32_info_block, %edi
	addl	$3, %ecx
	andl	$0xfffffffc, %ecx
	movl	%ecx, (%edi)
	addl	$4, %edi
	addl	$4, %edx
	subl	$4, %ecx
Lcopy_more:
	movl	%gs:(%edx), %eax
	movl	%eax, (%edi)
	addl	$4, %edx
	addl	$4, %edi
	subl	$4, %ecx
	jnz	Lcopy_more

	movl	__go32_info_block+4, %eax
	movl	%eax, _ScreenPrimary
	movl	__go32_info_block+8, %eax
	movl	%eax, _ScreenSecondary
/* Backward compatibility - do not copy this one!
**	movl	__go32_info_block+12, %eax
**	movl	%eax, ___transfer_buffer
*/
	movl	__go32_info_block+20, %eax
	movl	%eax, ___pid
	movl	__go32_info_block+24, %eax
	movl	%eax, __hard_master

	jmp	Lcopy_done

Lcopy_none:
	movl	%ebx,__go32_info_block+4
	movl	%ebp,__go32_info_block+8
	movl	%edi,__go32_info_block+12
	movl	$4096,__go32_info_block+16
	movl	%esi,__go32_info_block+20
	movl	%eax,__go32_info_block+24
	movl	$28, __go32_info_block
Lcopy_done:

#ifndef EMU387
	call	__setstack
#endif
	xorl	%esi,%esi
	xorl	%edi,%edi
	xorl	%ebp,%ebp
	xorl	%ebx,%ebx

	movl	%esp,%ebx
#ifdef MAKE_GCRT0
	call	mcount_init /* initialize the profiler */
#endif
	movl	8(%ebx),%eax
	pushl	%eax
	movl	%eax,_environ
	pushl	4(%ebx)
	pushl	(%ebx)
	call	___main
	call	_main
	addl	$12,%esp
#ifdef EMU387
	pop	%gs
	popa
#else
	pushl	%eax
	call	_exit

exit_again:
	movl	$0x4c00,%eax
	int	$0x21
	jmp	exit_again
#endif

	ret


#ifdef MAKE_GCRT0
	.globl	__exit
__exit:
	call	mcount_write /* make sure we dump the output */
exit_again2:
	movb	4(%esp),%al
	movb	$0x4c,%ah
	int	$0x21
	jmp	exit_again2

/* Here is where we initialize the timer interrupt - specific to go32 */
/* In this case, the timer calls mcount_isr */
	.globl	mcount_isr_init
mcount_isr_init:
	movw	__go32_info_block+36, %ax	/* run mode */
	cmp	$1,%ax
	jb	skip_mcount
	cmp	$3,%ax
	ja	skip_mcount
	
	movw	$16,%ax
	movw	%ax,%gs

	movzbl	__hard_master,%eax	/* timer is on irq 0 */
	shll	$3,%eax /* times 8 bpv */
/*	movl	$960,%eax	   vector 0x78 * 8 bpv */
	movw	%gs:(%eax),%cx
	movw	%cx,mc_chain
	movw	%gs:6(%eax),%cx
	movw	%cx,mc_chain_hi
	movw	%gs:2(%eax),%cx
	movw	%cx,mc_chain_sel

	movl	$mcount_isr,%ecx
	movw	%cx,%gs:(%eax)
	movw	$0xd8,%gs:2(%eax)	/* selector 27 == 32-bit code */
	movw	$0x8f00,%gs:4(%eax)
	rorl	$16,%ecx
	movw	%cx,%gs:6(%eax)
	movw	%ds,%ax
	movw	%ax,%gs
skip_mcount:
	movl	mcount_histogram,%eax
	movl	$1,(%eax)
	ret

/* Obtain the PC where we interrupted, and bump the histogram.  We should  */
/* do error checking here, but we don't.  This routine is specific to go32 */
/* in some spots */
mcount_isr:
	pushl	%eax
	cmpl	$1,mcount_skip
	je	L0
	movl	4(%esp),%eax /* get the PC */
	subl	$0x1020,%eax /* to fit in low..high */
	andl	$0xfffffffc,%eax
	shrl	$1,%eax /* now points to one 4-byte entry */
	addl	mcount_histogram,%eax
	incw	(%eax)
L0:
	popl	%eax
	ljmp	mc_chain /* chain to the next timer vector */
	iret
#endif

	.data

	.globl	_environ
_environ:
	.long	0

	.globl	___pid
___pid:
	.long	42

	.globl	___transfer_buffer
___transfer_buffer:
	.long	0

	.globl	_ScreenPrimary
_ScreenPrimary:
	.long	0

	.globl	_ScreenSecondary
_ScreenSecondary:
	.long	0

	.globl	__hard_master
	.globl	__hard_slave
	.globl	__core_select
__hard_master:
	.byte	0
__hard_slave:
	.byte	0
__core_select:
	.short	0

#ifdef MAKE_GCRT0
mc_chain:
	.short	0
mc_chain_hi:
	.short	0
mc_chain_sel:
	.short	0
#endif