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 "  Outer module transfer vector for the runoff_ dim.
11 "  Last modified on 05/31/74 at 10:38:58 by R F Mabee.
12 "  Converted for 6180 Multics in May 1973 by R F Mabee.
13 "  First written for 645 Multics and installed in November 1971 by R F Mabee.
14 
15 "  Copyright (c) 1974 by Massachusetts Institute of Technology and Honeywell Information Systems, Inc.
16 
17 "  General permission is granted to copy and use this program, but not to sell it, provided that the above
18 "  copyright statement is given.  Contact Information Processing Services, MIT, for further information.
19 "  Please contact R F Mabee at MIT for information on this program and versions for other machines.
20 
21 
22           entry     runoff_module
23 runoff_module:
24           cmpx6     entries,du          " Check range.
25           tnc       table,6             " Dispatch through table.
26 
27 missent:
28           ldq       ap|0                " Arg count and flags.
29           lda       <error_table_>|[missent]
30           eppbp     ap|0,qu*
31           sta       bp|0
32           stz       bp|1
33           short_return
34 
35 table:
36                     tra       <runoff_dim>|[runoff_attach]
37                     tra       <runoff_dim>|[runoff_detach]
38 tra       missent " tra       <runoff_dim>|[runoff_read]
39                     tra       <runoff_dim>|[runoff_write]
40 tra       missent " tra       <runoff_dim>|[runoff_abort]
41                     tra       <runoff_dim>|[runoff_order]
42 tra       missent " tra       <runoff_dim>|[runoff_resetread]
43 tra       missent " tra       <runoff_dim>|[runoff_resetwrite]
44 tra       missent " tra       <runoff_dim>|[runoff_setsize]
45 tra       missent " tra       <runoff_dim>|[runoff_getsize]
46 tra       missent " tra       <runoff_dim>|[runoff_setdelim]
47 tra       missent " tra       <runoff_dim>|[runoff_getdelim]
48 tra       missent " tra       <runoff_dim>|[runoff_seek]
49 tra       missent " tra       <runoff_dim>|[runoff_tell]
50                     tra       <runoff_dim>|[runoff_changemode]
51 tra       missent " rem       this slot currentry unused
52 tra       missent " rem       this slot currently unused
53 tra       missent " rem       this slot currently unused
54 tra       missent " rem       this slot currently unused
55 tra       missent " tra       <runoff_dim>|[runoff_readsync]
56 tra       missent " tra       <runoff_dim>|[runoff_writesync]
57 
58           equ       entries,*-table
59 
60           end