|
1145
|
1 **************************************************
|
|
|
2 * System Call: F$Icpt
|
|
|
3 *
|
|
|
4 * Function: Sets the function to be called when a signal arrives.
|
|
|
5 *
|
|
|
6 *
|
|
|
7 * Input: X = Address of intercept routine
|
|
|
8 * U = Address of intercept routine data area
|
|
|
9 *
|
|
|
10 * Output: None
|
|
|
11 *
|
|
|
12 * Error: CC = C bit set; B = error code
|
|
|
13 *
|
|
|
14 FIcpt ldx <D.Proc get current process pointer
|
|
|
15 ldd R$X,u Get vector for signal trap handler
|
|
|
16 IFNE H6309
|
|
|
17 ldw R$U,u Get data area ptr for signal trap handler
|
|
|
18 stq P$SigVec,x Save them in descriptor
|
|
|
19 ELSE
|
|
|
20 std P$SigVec,x
|
|
|
21 ldd R$U,u
|
|
|
22 std P$SigDat,x
|
|
|
23 ENDC
|
|
|
24 clrb clear errors
|
|
|
25 rts return
|
