1 /*  START OF:       tape_ioi_dcls.incl.pl1                    *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */
 2 
 3 /* Written 22 April 1982 by Chris Jones */
 4 /* Modified September 1983 by Chris Jones for reserve_buffer and release_buffer */
 5 /* format: style4,delnl,insnl,indattr,ifthen,declareind10,dclind10 */
 6 
 7 /* call   tape_ioi_$activate     (rsc_ptr, tioi_info_ptr, tioi_id, code); */
 8 dcl       tape_ioi_$activate     entry (ptr, ptr, bit (36) aligned, fixed bin (35));
 9 
10 /* call   tape_ioi_$allocate_buffers (tioi_id, req_length, req_number, act_length, act_number, buffer_ptrs, code); */
11 dcl       tape_ioi_$allocate_buffers
12                                  entry (bit (36) aligned, fixed bin (21), fixed bin, fixed bin (21), fixed bin,
13                                  dim (*) ptr, fixed bin (35));
14 
15 /* call   tape_ioi_$allocate_work_area (tioi_id, req_size, act_size, work_area_ptr, code); */
16 dcl       tape_ioi_$allocate_work_area
17                                  entry (bit (36) aligned, fixed bin (19), fixed bin (19), ptr, fixed bin (35));
18 
19 /* call   tape_ioi_$buffer_status (tioi_id, buffer_ptr, tbs_ptr, code); */
20 dcl       tape_ioi_$buffer_status
21                                  entry (bit (36) aligned, ptr, ptr, fixed bin (35));
22 
23 /* call   tape_ioi_$check_order  (tioi_id, ocount, rx, code); */
24 dcl       tape_ioi_$check_order  entry (bit (36) aligned, fixed bin, fixed bin, fixed bin (35));
25 
26 /* call   tape_ioi_$check_read   (tioi_id, buffer_ptr, data_len, rx, code); */
27 dcl       tape_ioi_$check_read   entry (bit (36) aligned, ptr, fixed bin (21), fixed bin, fixed bin (35));
28 
29 /* call   tape_ioi_$check_write  (tioi_id, buffer_ptr, rx, code); */
30 dcl       tape_ioi_$check_write  entry (bit (36) aligned, ptr, fixed bin, fixed bin (35));
31 
32 /* call   tape_ioi_$deactivate   (tioi_id, error_ptr, code); */
33 dcl       tape_ioi_$deactivate   entry (bit (36) aligned, ptr, fixed bin (35));
34 
35 /* call   tape_ioi_$deallocate   (tioi_id, code); */
36 dcl       tape_ioi_$deallocate   entry (bit (36) aligned, fixed bin (35));
37 
38 /* call   tape_ioi_$deallocate_buffers   (tioi_id, code); */
39 dcl       tape_ioi_$deallocate_buffers
40                                  entry (bit (36) aligned, fixed bin (35));
41 
42 /* call   tape_ioi_$get_mode     (tioi_id, mode, data_ptr, code); */
43 dcl       tape_ioi_$get_mode     entry (bit (36) aligned, char (*), ptr, fixed bin (35));
44 
45 /* call   tape_ioi_$get_statistics (tioi_id, tec_ptr, code); */
46 dcl       tape_ioi_$get_statistics
47                                  entry (bit (36) aligned, ptr, fixed bin (35));
48 
49 /* call   tape_ioi_$hardware_status (tioi_id, ths_ptr, code); */
50 dcl       tape_ioi_$hardware_status
51                                  entry (bit (36) aligned, ptr, fixed bin (35));
52 
53 /* call   tape_ioi_$list_buffers (tioi_id, state, buffer_ptrs, num_buffers, code); */
54 dcl       tape_ioi_$list_buffers entry (bit (36) aligned, fixed bin, dim (*) ptr, fixed bin, fixed bin (35));
55 
56 /* call   tape_ioi_$order        (tioi_id, order, count, data_ptr, ocount, rx, code); */
57 dcl       tape_ioi_$order        entry (bit (36) aligned, char (4), fixed bin, ptr, fixed bin, fixed bin, fixed bin (35));
58 
59 /* call   tape_ioi_$queue_order  (tioi_id, order, count, data_ptr, code); */
60 dcl       tape_ioi_$queue_order  entry (bit (36) aligned, char (4), fixed bin, ptr, fixed bin (35));
61 
62 /* call   tape_ioi_$queue_read   (tioi_id, buffer_ptr, code); */
63 dcl       tape_ioi_$queue_read   entry (bit (36) aligned, ptr, fixed bin (35));
64 
65 /* call   tape_ioi_$queue_write  (tioi_id, buffer_ptr, data_len, code); */
66 dcl       tape_ioi_$queue_write  entry (bit (36) aligned, ptr, fixed bin (21), fixed bin (35));
67 
68 /* call   tape_ioi_$read         (tioi_id, buffer_ptr, data_len, rx, code); */
69 dcl       tape_ioi_$read         entry (bit (36) aligned, ptr, fixed bin (21), fixed bin, fixed bin (35));
70 
71 /* call   tape_ioi_$release_buffer (tioi_id, buffer_ptr, code); */
72 dcl       tape_ioi_$release_buffer
73                                  entry (bit (36) aligned, ptr, fixed bin (35));
74 
75 /* call   tape_ioi_$reserve_buffer (tioi_id, buffer_ptr, code); */
76 dcl       tape_ioi_$reserve_buffer
77                                  entry (bit (36) aligned, ptr, fixed bin (35));
78 
79 /* call   tape_ioi_$reset_statistics (tioi_id, code); */
80 dcl       tape_ioi_$reset_statistics
81                                  entry (bit (36) aligned, fixed bin (35));
82 
83 /* call   tape_ioi_$set_buffer_ready (tioi_id, buffer_ptr, code); */
84 dcl       tape_ioi_$set_buffer_ready
85                                  entry (bit (36) aligned, ptr, fixed bin (35));
86 
87 /* call   tape_ioi_$set_mode     (tioi_id, mode, data_ptr, code); */
88 dcl       tape_ioi_$set_mode     entry (bit (36) aligned, char (*), ptr, fixed bin (35));
89 
90 /* call   tape_ioi_$stop_tape    (tioi_id, count, rx, code); */
91 dcl       tape_ioi_$stop_tape    entry (bit (36) aligned, fixed bin, fixed bin, fixed bin (35));
92 
93 /* call   tape_ioi_$write        (tioi_id, write_buffer_ptrs, data_len, buffer_ptr, rx, code); */
94 dcl       tape_ioi_$write        entry (bit (36) aligned, (*) ptr, fixed bin (21), ptr, fixed bin, fixed bin (35));
95 
96 /*  END OF:         tape_ioi_dcls.incl.pl1                    *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */