#
/*
 * (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
 *
 *          This product is part of the Amsterdam Compiler Kit.
 *
 * Permission to use, sell, duplicate or disclose this software must be
 * obtained in writing. Requests for such permissions may be sent to
 *
 *      Dr. Andrew S. Tanenbaum
 *      Wiskundig Seminarium
 *      Vrije Universiteit
 *      Postbox 7161
 *      1007 MC Amsterdam
 *      The Netherlands
 *
 */

/* Author: C.J.H. Jacobs */

 mes 2,EM_WSIZE,EM_PSIZE

#define STACKSIZE	2048	/* maximum stack size for a coroutine */

 exa _environ
 exa _argv
 exa _argc
 exa _CurrentProcess
 exa _MainProcess
 exa _StackBase
 exa _MainLB
 exa _StackSize
 exp $_catch

_environ
 bss EM_PSIZE,0,0
_argv
 bss EM_PSIZE,0,0
_argc
 bss EM_WSIZE,0,0
_CurrentProcess
 bss EM_PSIZE,0,0
_MainProcess
 bss EM_PSIZE,0,0
_StackBase
 bss EM_PSIZE,0,0
_MainLB
 bss EM_PSIZE,0,0
_StackSize
 bss EM_WSIZE,0,0
mainroutine
 bss 2*EM_PSIZE,0,0

 exp $m_a_i_n
 pro $m_a_i_n, STACKSIZE

 loc STACKSIZE
 ste _StackSize

 lor 0
 lae _MainLB
 sti EM_PSIZE

 lal -EM_WSIZE
 adp EM_WSIZE
 lae _StackBase
 sti EM_PSIZE

 lae mainroutine
 adp 2*EM_PSIZE
 dup EM_PSIZE
 lae _CurrentProcess
 sti EM_PSIZE
 lae _MainProcess
 sti EM_PSIZE

 lal EM_WSIZE+EM_PSIZE
 loi EM_PSIZE
 lae _environ		; save environment pointer
 sti EM_PSIZE

 lal EM_WSIZE
 loi EM_PSIZE
 lae _argv		; save argument pointer
 sti EM_PSIZE

 lol 0
 ste _argc		; save argument count

 lpi $_catch
 sig
 asp EM_PSIZE
 cal $_M2M
 loc 0
 ret EM_WSIZE
 end