1 " ***********************************************************
 2 " *                                                         *
 3 " * Copyright, (C) Honeywell Bull Inc., 1987                *
 4 " *                                                         *
 5 " * Copyright, (C) Honeywell Information Systems Inc., 1982 *
 6 " *                                                         *
 7 " * Copyright (c) 1972 by Massachusetts Institute of        *
 8 " * Technology and Honeywell Information Systems, Inc.      *
 9 " *                                                         *
10 " ***********************************************************
11 
12 name      ipc_
13 
14 """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
15 "
16 "         This procedure is a transfer vector for the several pieces of IPC.
17 "
18 "         Originally coded by R. J. Feiertag on May 13, 1972.
19 "         Changed by E. Donner Jan 1981 for new ipc from rest_of_ipc_.alm
20 "         Modified by J. Bongiovanni Septemper 1981 for name ipc_, macro
21 "
22 """"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
23 
24 
25 " HISTORY COMMENTS:
26 "  1) change(86-08-12,Kissel), approve(86-08-12,MCR7473),
27 "     audit(86-10-08,Fawcett), install(86-11-03,MR12.0-1206):
28 "     Modified to support control point management.  This change was actually
29 "     made in February 1985 by G. Palter.
30 "  2) change(86-08-12,Kissel), approve(86-08-12,MCR7479),
31 "     audit(86-10-08,Fawcett), install(86-11-03,MR12.0-1206):
32 "     Added the create_event_channel and run_event_calls entries to support
33 "     asynch event channels.
34 "                                                      END HISTORY COMMENTS
35 
36 
37 "         The following is the normal transfer-vector macro
38 "
39 "         ipc_tv    <entry in ipc_>,<seg$entry to transfer to>
40 
41           macro     ipc_tv
42           segdef    &1
43 &1:
44           tsx0      getlp
45           tra       &2
46           &end
47 
48 
49 
50 "
51 "         The following subroutine calculate the lp for this procedure.
52 "
53 
54 getlp:
55           epaq      *                   get ptr to ourselves
56           lprplp    sb|stack_header.lot_ptr,*au get ptr to linkage from packed ptr
57           tra       0,0                 return
58 "^L
59           %include  stack_header
60 "^L
61           ipc_tv    block,ipc_fast_$block
62           ipc_tv    create_ev_chn,ipc_real_$create_ev_chn
63           ipc_tv    create_event_channel,ipc_real_$create_event_channel
64           ipc_tv    cutoff,ipc_real_$cutoff
65           ipc_tv    decl_ev_call_chn,ipc_real_$decl_ev_call_chn
66           ipc_tv    decl_ev_wait_chn,ipc_real_$decl_ev_wait_chn
67           ipc_tv    decl_event_call_chn,ipc_real_$decl_event_call_chn
68           ipc_tv    delete_ev_chn,ipc_real_$delete_ev_chn
69           ipc_tv    drain_chn,ipc_real_$drain_chn
70           ipc_tv    mask_ev_calls,ipc_real_$mask_ev_calls
71           ipc_tv    read_ev_chn,ipc_real_$read_ev_chn
72           ipc_tv    reassign_call_channels,ipc_real_$reassign_call_channels
73           ipc_tv    reconnect,ipc_real_$reconnect
74           ipc_tv    reset_ev_call_chn,ipc_real_$reset_ev_call_chn
75           ipc_tv    run_event_calls,ipc_real_$run_event_calls
76           ipc_tv    set_call_prior,ipc_real_$set_call_prior
77           ipc_tv    set_wait_prior,ipc_real_$set_wait_prior
78           ipc_tv    unmask_ev_calls,ipc_real_$unmask_ev_calls
79           ipc_tv    wait_for_an_event,ipc_real_$wait_for_an_event
80 
81 "         This is an obsolete entry, from the days before IPC
82 "         used standard error codes. It is a no-op
83 
84           segdef    convert_ipc_code_
85 convert_ipc_code_:
86           short_return
87 
88 
89           end