1 /* Begin include file tc_asyncronity_info.incl.pl1 BIM June 1981 */
 2 /* format: style3 */
 3 /* include condition_info_header along with this */
 4 
 5 declare   tc_asyncronity_     condition;
 6 declare   TC_ASYNCRONITY_CONDITION_NAME
 7                               character (15) init ("tc_asyncronity_") internal static options (constant);
 8 
 9 declare   tc_async_info_ptr   pointer;
10 declare   1 tc_async_info     aligned based (tc_async_info_ptr),
11             2 header          aligned like condition_info_header,
12             2 flags           aligned,
13               3 input         bit (1) unaligned,            /* we are interrupting an input request */
14               3 pad           bit (35) unaligned,
15             2 request_id      fixed bin (71),
16             2 window_id       bit (36) aligned;
17 
18 /* the windows do not return any state here. Since there may
19    be more than one invocation of tc on the stack, the window
20    must set the info in its own request structure. this
21    will happen redundantly, because each invocation of tc_request
22    will signal up this structure (unless its throw bit has been set).
23 */
24 
25 /* End include file tc_asyncronity_info.incl.pl1 */