12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849 |
- #
- ; $Id$
- ; (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: J.W. Stevenson */
- mes 2,EM_WSIZE,EM_PSIZE
- #define PTRAD 0
- #define HP 2
- ; _sav called with one parameter:
- ; - address of pointer variable (PTRAD)
- exp $_sav
- pro $_sav,0
- lor HP
- lal PTRAD
- loi EM_PSIZE
- sti EM_PSIZE
- ret 0
- end ?
- ; _rst is called with one parameter:
- ; - address of pointer variable (PTRAD)
- exp $_rst
- pro $_rst,0
- lal PTRAD
- loi EM_PSIZE
- loi EM_PSIZE
- str HP
- ret 0
- end ?
|