sav.e 875 B

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849
  1. #
  2. ; $Id$
  3. ; (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
  4. ;
  5. ; This product is part of the Amsterdam Compiler Kit.
  6. ;
  7. ; Permission to use, sell, duplicate or disclose this software must be
  8. ; obtained in writing. Requests for such permissions may be sent to
  9. ;
  10. ; Dr. Andrew S. Tanenbaum
  11. ; Wiskundig Seminarium
  12. ; Vrije Universiteit
  13. ; Postbox 7161
  14. ; 1007 MC Amsterdam
  15. ; The Netherlands
  16. ;
  17. /* Author: J.W. Stevenson */
  18. mes 2,EM_WSIZE,EM_PSIZE
  19. #define PTRAD 0
  20. #define HP 2
  21. ; _sav called with one parameter:
  22. ; - address of pointer variable (PTRAD)
  23. exp $_sav
  24. pro $_sav,0
  25. lor HP
  26. lal PTRAD
  27. loi EM_PSIZE
  28. sti EM_PSIZE
  29. ret 0
  30. end ?
  31. ; _rst is called with one parameter:
  32. ; - address of pointer variable (PTRAD)
  33. exp $_rst
  34. pro $_rst,0
  35. lal PTRAD
  36. loi EM_PSIZE
  37. loi EM_PSIZE
  38. str HP
  39. ret 0
  40. end ?