lib/ack/libp/sav.e

   1 #
   2 ; $Header$
   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
  18 /* Author: J.W. Stevenson */
  19
  20
  21  mes 2,_EM_WSIZE,_EM_PSIZE
  22
  23 #define PTRAD   0
  24
  25 #define HP      2
  26
  27 ; _sav called with one parameter:
  28 ;       - address of pointer variable (PTRAD)
  29
  30  exp $_sav
  31  pro $_sav,0
  32  lor HP
  33  lal PTRAD
  34  loi _EM_PSIZE
  35  sti _EM_PSIZE
  36  ret 0
  37  end ?
  38
  39 ; _rst is called with one parameter:
  40 ;       - address of pointer variable (PTRAD)
  41
  42  exp $_rst
  43  pro $_rst,0
  44  lal PTRAD
  45  loi _EM_PSIZE
  46  loi _EM_PSIZE
  47  str HP
  48  ret 0
  49  end ?