1 " ******************************************************
2 " * *
3 " * *
4 " * Copyright c 1972 by Massachusetts Institute of *
5 " * Technology and Honeywell Information Systems, Inc. *
6 " * *
7 " * *
8 " ******************************************************
9
10 " Outer Module Transfer Vector for the tape_ outer module.
11
12 entry tape_module
13 tape_module:
14 tra *+1,6 go to proper transfer instruction
15
16 tra <tape_attach_>|attach
17 tra <tape_detach_>|detach
18 tra <tape_read_>|stream
19 tra <tape_write_>|stream
20 tra <ios_>|no_entry
21 tra <tape_util_>|order
22 tra <ios_>|no_entry
23 tra <ios_>|no_entry
24 tra <ios_>|no_entry
25 tra <tape_util_>|getsize
26 tra <ios_>|no_entry
27 tra <ios_>|no_entry
28 tra <tape_util_>|seek
29 tra <ios_>|no_entry
30 tra <ios_>|no_entry
31 tra <ios_>|no_entry
32 tra <ios_>|no_entry
33 tra <ios_>|no_entry
34 tra <ios_>|no_entry
35 tra <ios_>|no_entry
36 tra <ios_>|no_entry
37
38 end