1 " ***********************************************************
 2 " *                                                         *
 3 " * Copyright, (C) Honeywell Information Systems Inc., 1982 *
 4 " *                                                         *
 5 " * Copyright (c) 1972 by Massachusetts Institute of        *
 6 " * Technology and Honeywell Information Systems, Inc.      *
 7 " *                                                         *
 8 " ***********************************************************
 9 
10           name      r4_io_
11 "
12 "
13 "         Gate to support cross-ring io attachments into ring 4
14 "
15 "
16           include   gate_macros
17 "
18           include   stack_header
19           include   stack_frame
20 "
21           gate_info
22 
23           gate      find_attachment,cross_ring_io_,find_attachment,3
24           gate      release_attachment,cross_ring_io_,release_attachment,2
25           gate      open,cross_ring_io_,open,4
26           gate      close,cross_ring_io_,close,2
27           gate      modes,cross_ring_io_,modes,4
28           gate      control,cross_ring_io_,control,4
29           gate      position,cross_ring_io_,position,4
30           gate      put_chars,cross_ring_io_,put_chars,4
31           gate      get_line,cross_ring_io_,get_line,5
32           gate      get_chars,cross_ring_io_,get_chars,5
33           gate      read_length,cross_ring_io_,read_length,3
34           gate      seek_key,cross_ring_io_,seek_key,4
35           gate      read_key,cross_ring_io_,read_key,4
36           gate      write_record,cross_ring_io_,write_record,4
37           gate      read_record,cross_ring_io_,read_record,5
38           gate      rewrite_record,cross_ring_io_,rewrite_record,4
39           gate      delete_record,cross_ring_io_,delete_record,2
40 
41           end