ack/lang/pc/libpc/trap.e
1984-07-20 11:03:31 +00:00

16 lines
170 B
Text

#
; $Header$
mes 2,EM_WSIZE,EM_PSIZE
#define TRAP 0
; trap is called with one parameter:
; - trap number (TRAP)
exp $trap
pro $trap,0
lol TRAP
trp
ret 0
end ?