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

 exa handler
 exa environ
 exa argv
 exa argc
 exa MainLB
 exa bkillbss
 exp $catch
 exp $init
 inp $trap_handler

bkillbss
 bss EM_PSIZE,0,0

 exp $_m_a_i_n
 pro $_m_a_i_n, 0

 lor 0
 lae MainLB
 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 $init
 cal $__M2M_
 cal $halt
 loc 0			; should not get here
 ret EM_WSIZE
 end

 pro $trap_handler,0
 lpi $trap_handler
 sig
 lol 0	; trap number
 lae handler
 loi EM_PSIZE
 lpi $catch
 lae handler
 sti EM_PSIZE
 cai
 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`

many minor mods: name changes 1988-03-23 17:55:57 +00:00			`exa handler`
			`exa environ`
			`exa argv`
			`exa argc`
			`exa MainLB`
better attempt to indicate start and end of own BSS; still not good enough 1989-04-04 10:09:27 +00:00			`exa bkillbss`
many minor mods: name changes 1988-03-23 17:55:57 +00:00			`exp $catch`
Added some unix signal handling 1988-04-29 14:38:36 +00:00			`exp $init`
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
better attempt to indicate start and end of own BSS; still not good enough 1989-04-04 10:09:27 +00:00			`bkillbss`
			`bss EM_PSIZE,0,0`

m_a_i_n --> _m_a_i_n 1991-03-06 14:26:16 +00:00			`exp $_m_a_i_n`
			`pro $_m_a_i_n, 0`
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+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`
Added some unix signal handling 1988-04-29 14:38:36 +00:00			`cal $init`
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`
improved trap handling 1988-04-27 18:11:33 +00:00			`lpi $trap_handler`
			`sig`
adapted for 2/4 code generation, and also fixed some bugs 1988-03-18 14:23:04 +00:00			`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`
improved trap handling 1988-04-27 18:11:33 +00:00			`lpi $catch`
Added some unix signal handling 1988-04-29 14:38:36 +00:00			`lae handler`
improved trap handling 1988-04-27 18:11:33 +00:00			`sti EM_PSIZE`
adapted for 2/4 code generation, and also fixed some bugs 1988-03-18 14:23:04 +00:00			`cai`
			`asp EM_PSIZE+EM_WSIZE`
			`rtt`
			`end 0`