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 prtdim outer module.
11 "
12 " Modified 83-10-20 E. N. Kittlitz for parition of urmpc/eurc support.
13
14 entry prtdim_module
15 entry prtdimmodule
16 prtdimmodule:
17 prtdim_module:
18 tra *+1,6 go to proper transfer instruction
19
20 tra prtdim_attach$prtdim_attach
21 tra prtdim_attach$prtdim_detach
22 tra ios_$no_entry "read
23 tra dispatch_write
24 tra ios_$no_entry "abort
25 tra prtdim_order$prtdim_order
26 tra ios_$no_entry "resetread
27 tra dispatch_resetwrite "resetwrite
28 tra ios_$no_entry "setsize
29 tra ios_$no_entry "getsize it's 9 tho
30 tra ios_$no_entry
31 tra ios_$no_entry
32 tra ios_$no_entry
33 tra ios_$no_entry
34 tra prtdim_changemode$prtdim_changemode
35 tra ios_$no_entry
36 tra ios_$no_entry
37 tra ios_$no_entry
38 tra ios_$no_entry
39 tra ios_$no_entry
40 tra ios_$no_entry
41
42 dispatch_write:
43 epp2 ap|2,* "1st argument pointer
44 epp2 pr2|0,* "sdb pointer
45 lda pr2|sdb.flags
46 ana flags.eurc,du
47 tze prtdim_write$prtdim_write
48 tra prtdim_eurc_write$prtdim_eurc_write
49
50 dispatch_resetwrite:
51 epp2 ap|2,* "1st argument pointer
52 epp2 pr2|0,* "sdb pointer
53 lda pr2|sdb.flags
54 ana flags.eurc,du
55 tze prtdim_write$prtdim_resetwrite
56 tra prtdim_eurc_write$prtdim_resetwrite
57
58 include prt_sdb
59
60 end