ack/lang/m2/libm2/head_m2.e

#
;
; (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
; See the copyright notice in the ACK home directory, in the file "Copyright".
;
;
; Module:	Modula-2 runtime startoff
; Author:	Ceriel J.H. Jacobs
; Version:	$Header$
;

 mes 2,EM_WSIZE,EM_PSIZE

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

 exa handler
 exa environ
 exa argv
 exa argc
 exa CurrentProcess
 exa MainProcess
 exa StackBase
 exa MainLB
 exa StackSize
 exp $catch
 inp $trap_handler

handler
 con $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 $trap_handler
 sig
 asp EM_PSIZE
 cal $__M2M_
 cal $halt
 loc 0			; should not get here
 ret EM_WSIZE
 end

 pro $trap_handler,0
 lol 0	; trap number
 lae handler
 loi EM_PSIZE
 cai
 lpi $trap_handler
 sig
 asp EM_PSIZE+EM_WSIZE
 rtt
 end 0
Initial revision 1987-05-13 14:36:45 +00:00			`#`
mainly new comments 1988-02-19 15:54:01 +00:00			`;`
			`; (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.`
			`; See the copyright notice in the ACK home directory, in the file "Copyright".`
			`;`
			`;`
			`; Module: Modula-2 runtime startoff`
			`; Author: Ceriel J.H. Jacobs`
			`; Version: $Header$`
			`;`
Initial revision 1987-05-13 14:36:45 +00:00
			`mes 2,EM_WSIZE,EM_PSIZE`

changed random function, added CSP module 1987-07-09 15:15:22 +00:00			`#define STACKSIZE 2048 /* maximum stack size for a coroutine */`
Initial revision 1987-05-13 14:36:45 +00:00
many minor mods: name changes 1988-03-23 17:55:57 +00:00			`exa handler`
			`exa environ`
			`exa argv`
			`exa argc`
			`exa CurrentProcess`
			`exa MainProcess`
			`exa StackBase`
			`exa MainLB`
			`exa StackSize`
			`exp $catch`
adapted for 2/4 code generation, and also fixed some bugs 1988-03-18 14:23:04 +00:00			`inp $trap_handler`
Initial revision 1987-05-13 14:36:45 +00:00
many minor mods: name changes 1988-03-23 17:55:57 +00:00			`handler`
			`con $catch`
			`environ`
Initial revision 1987-05-13 14:36:45 +00:00			`bss EM_PSIZE,0,0`
many minor mods: name changes 1988-03-23 17:55:57 +00:00			`argv`
Initial revision 1987-05-13 14:36:45 +00:00			`bss EM_PSIZE,0,0`
many minor mods: name changes 1988-03-23 17:55:57 +00:00			`argc`
Initial revision 1987-05-13 14:36:45 +00:00			`bss EM_WSIZE,0,0`
many minor mods: name changes 1988-03-23 17:55:57 +00:00			`CurrentProcess`
Initial revision 1987-05-13 14:36:45 +00:00			`bss EM_PSIZE,0,0`
many minor mods: name changes 1988-03-23 17:55:57 +00:00			`MainProcess`
Initial revision 1987-05-13 14:36:45 +00:00			`bss EM_PSIZE,0,0`
many minor mods: name changes 1988-03-23 17:55:57 +00:00			`StackBase`
Initial revision 1987-05-13 14:36:45 +00:00			`bss EM_PSIZE,0,0`
many minor mods: name changes 1988-03-23 17:55:57 +00:00			`MainLB`
Initial revision 1987-05-13 14:36:45 +00:00			`bss EM_PSIZE,0,0`
many minor mods: name changes 1988-03-23 17:55:57 +00:00			`StackSize`
Initial revision 1987-05-13 14:36:45 +00:00			`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`
many minor mods: name changes 1988-03-23 17:55:57 +00:00			`ste StackSize`
Initial revision 1987-05-13 14:36:45 +00:00
			`lor 0`
many minor mods: name changes 1988-03-23 17:55:57 +00:00			`lae MainLB`
Initial revision 1987-05-13 14:36:45 +00:00			`sti EM_PSIZE`

			`lal -EM_WSIZE`
			`adp EM_WSIZE`
many minor mods: name changes 1988-03-23 17:55:57 +00:00			`lae StackBase`
Initial revision 1987-05-13 14:36:45 +00:00			`sti EM_PSIZE`

			`lae mainroutine`
			`adp 2*EM_PSIZE`
			`dup EM_PSIZE`
many minor mods: name changes 1988-03-23 17:55:57 +00:00			`lae CurrentProcess`
Initial revision 1987-05-13 14:36:45 +00:00			`sti EM_PSIZE`
many minor mods: name changes 1988-03-23 17:55:57 +00:00			`lae MainProcess`
Initial revision 1987-05-13 14:36:45 +00:00			`sti EM_PSIZE`

			`lal EM_WSIZE+EM_PSIZE`
			`loi EM_PSIZE`
many minor mods: name changes 1988-03-23 17:55:57 +00:00			`lae environ ; save environment pointer`
Initial revision 1987-05-13 14:36:45 +00:00			`sti EM_PSIZE`

			`lal EM_WSIZE`
			`loi EM_PSIZE`
many minor mods: name changes 1988-03-23 17:55:57 +00:00			`lae argv ; save argument pointer`
Initial revision 1987-05-13 14:36:45 +00:00			`sti EM_PSIZE`

			`lol 0`
many minor mods: name changes 1988-03-23 17:55:57 +00:00			`ste argc ; save argument count`
Initial revision 1987-05-13 14:36:45 +00:00
Added some comment 1988-03-16 09:20:36 +00:00			`lpi $trap_handler`
Initial revision 1987-05-13 14:36:45 +00:00			`sig`
			`asp EM_PSIZE`
many minor mods: name changes 1988-03-23 17:55:57 +00:00			`cal $__M2M_`
			`cal $halt`
Added the Epilogue module 1988-01-25 16:14:48 +00:00			`loc 0 ; should not get here`
Initial revision 1987-05-13 14:36:45 +00:00			`ret EM_WSIZE`
			`end`
adapted for 2/4 code generation, and also fixed some bugs 1988-03-18 14:23:04 +00:00
			`pro $trap_handler,0`
			`lol 0 ; trap number`
many minor mods: name changes 1988-03-23 17:55:57 +00:00			`lae handler`
adapted for 2/4 code generation, and also fixed some bugs 1988-03-18 14:23:04 +00:00			`loi EM_PSIZE`
			`cai`
			`lpi $trap_handler`
			`sig`
			`asp EM_PSIZE+EM_WSIZE`
			`rtt`
			`end 0`