ack/lang/m2/libm2/head_m2.e

97 lines
1.5 KiB
Plaintext
Raw Normal View History

1987-05-13 14:36:45 +00:00
#
/*
* (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 */
1987-05-13 14:36:45 +00:00
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