1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374 |
- #
- #include "em_abs.h"
- /*
- * (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
- *
- */
- mes 2,_EM_WSIZE,_EM_PSIZE
- exa environ
- exa _end
- exp $_m_a_i_n
- pro $_m_a_i_n,0
- loc 1336 ; EIOVFL | EIUND | ECONV | EFOVFL | EFUNFL
- sim ; ignored
- lal _EM_WSIZE+_EM_PSIZE
- loi _EM_PSIZE
- lae environ
- sti _EM_PSIZE
- #if __unix && ! (__em22 || __em24 || __em44)
- lpi $_ctch_
- sig
- asp _EM_PSIZE
- #endif
- lal _EM_WSIZE+_EM_PSIZE
- loi _EM_PSIZE
- lal _EM_WSIZE
- loi _EM_PSIZE
- lal 0
- loi _EM_WSIZE
- cal $main
- asp _EM_WSIZE+_EM_PSIZE+_EM_PSIZE
- lfr _EM_WSIZE
- cal $exit
- end
- #if __unix && ! (__em22 || __em24 || __em44)
- exp $_ctch_
- pro $_ctch_,0
- lol 0
- loc EIDIVZ
- beq *1
- lol 0
- loc EFDIVZ
- beq *1
- lol 0
- trp
- bra *3
- 1
- loc 8
- cal $getpid
- lfr _EM_WSIZE
- cal $kill
- asp 2*_EM_WSIZE
- 3
- lpi $_ctch_
- sig
- asp _EM_PSIZE
- rtt
- end 0
- #endif
|