lib/ack/libp/trap.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 #define TRAP    0
  24
  25 ; trap is called with one parameter:
  26 ;       - trap number (TRAP)
  27
  28  exp $trap
  29  pro $trap,0
  30  lol TRAP
  31  trp
  32  ret 0
  33  end ?