lib/ack/libp/hol0.e

   1 #
   2
   3 ; $Header$
   4 ;
   5 ; (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
   6 ;
   7 ;          This product is part of the Amsterdam Compiler Kit.
   8 ;
   9 ; Permission to use, sell, duplicate or disclose this software must be
  10 ; obtained in writing. Requests for such permissions may be sent to
  11 ;
  12 ;      Dr. Andrew S. Tanenbaum
  13 ;      Wiskundig Seminarium
  14 ;      Vrije Universiteit
  15 ;      Postbox 7161
  16 ;      1007 MC Amsterdam
  17 ;      The Netherlands
  18 ;
  19 ;
  20
  21  mes 2,_EM_WSIZE,_EM_PSIZE
  22
  23 ; _hol0 return the address of the ABS block (hol0)
  24
  25  exp $_hol0
  26  pro $_hol0,0
  27  lae 0
  28  ret _EM_PSIZE
  29  end ?