trap.e 610 B

123456789101112131415161718192021222324252627282930313233
  1. #
  2. ; $Id$
  3. ;
  4. ; (c) copyright 1983 by the Vrije Universiteit, Amsterdam, The Netherlands.
  5. ;
  6. ; This product is part of the Amsterdam Compiler Kit.
  7. ;
  8. ; Permission to use, sell, duplicate or disclose this software must be
  9. ; obtained in writing. Requests for such permissions may be sent to
  10. ;
  11. ; Dr. Andrew S. Tanenbaum
  12. ; Wiskundig Seminarium
  13. ; Vrije Universiteit
  14. ; Postbox 7161
  15. ; 1007 MC Amsterdam
  16. ; The Netherlands
  17. ;
  18. ;
  19. mes 2,EM_WSIZE,EM_PSIZE
  20. #define TRAP 0
  21. ; trap is called with one parameter:
  22. ; - trap number (TRAP)
  23. exp $trap
  24. pro $trap,0
  25. lol TRAP
  26. trp
  27. ret 0
  28. end ?