| Line | |
|---|
| 1 | #
|
|---|
| 2 | ;
|
|---|
| 3 | ; (c) copyright 1988 by the Vrije Universiteit, Amsterdam, The Netherlands.
|
|---|
| 4 | ; See the copyright notice in the ACK home directory, in the file "Copyright".
|
|---|
| 5 | ;
|
|---|
| 6 | ;
|
|---|
| 7 | ; Module: Modula-2 runtime startoff
|
|---|
| 8 | ; Author: Ceriel J.H. Jacobs
|
|---|
| 9 | ; Version: $Header: /cvsup/minix/src/lib/ack/libm2/head_m2.e,v 1.1 2005/10/10 15:27:46 beng Exp $
|
|---|
| 10 | ;
|
|---|
| 11 |
|
|---|
| 12 | mes 2,_EM_WSIZE,_EM_PSIZE
|
|---|
| 13 |
|
|---|
| 14 | exa handler
|
|---|
| 15 | exa argv
|
|---|
| 16 | exa argc
|
|---|
| 17 | exa MainLB
|
|---|
| 18 | exa bkillbss
|
|---|
| 19 | exp $catch
|
|---|
| 20 | exp $init
|
|---|
| 21 | inp $trap_handler
|
|---|
| 22 |
|
|---|
| 23 | bkillbss
|
|---|
| 24 | bss _EM_PSIZE,0,0
|
|---|
| 25 |
|
|---|
| 26 | exp $_m_a_i_n
|
|---|
| 27 | pro $_m_a_i_n, 0
|
|---|
| 28 |
|
|---|
| 29 | lor 0
|
|---|
| 30 | lae MainLB
|
|---|
| 31 | sti _EM_PSIZE
|
|---|
| 32 |
|
|---|
| 33 | lal _EM_WSIZE
|
|---|
| 34 | loi _EM_PSIZE
|
|---|
| 35 | lae argv ; save argument pointer
|
|---|
| 36 | sti _EM_PSIZE
|
|---|
| 37 |
|
|---|
| 38 | lol 0
|
|---|
| 39 | ste argc ; save argument count
|
|---|
| 40 |
|
|---|
| 41 | lpi $trap_handler
|
|---|
| 42 | sig
|
|---|
| 43 | asp _EM_PSIZE
|
|---|
| 44 | cal $init
|
|---|
| 45 | cal $__M2M_
|
|---|
| 46 | cal $halt
|
|---|
| 47 | loc 0 ; should not get here
|
|---|
| 48 | ret _EM_WSIZE
|
|---|
| 49 | end
|
|---|
| 50 |
|
|---|
| 51 | pro $trap_handler,0
|
|---|
| 52 | lpi $trap_handler
|
|---|
| 53 | sig
|
|---|
| 54 | lol 0 ; trap number
|
|---|
| 55 | lae handler
|
|---|
| 56 | loi _EM_PSIZE
|
|---|
| 57 | lpi $catch
|
|---|
| 58 | lae handler
|
|---|
| 59 | sti _EM_PSIZE
|
|---|
| 60 | cai
|
|---|
| 61 | asp _EM_PSIZE+_EM_WSIZE
|
|---|
| 62 | rtt
|
|---|
| 63 | end 0
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
