1 " ***********************************************************
2 " * *
3 " * Copyright, C BULL HN Information Systems Inc., 1989 *
4 " * *
5 " * Copyright, C Honeywell Bull Inc., 1988 *
6 " * *
7 " * Copyright, C Honeywell Information Systems Inc., 1982 *
8 " * *
9 " * Copyright c 1972 by Massachusetts Institute of *
10 " * Technology and Honeywell Information Systems, Inc. *
11 " * *
12 " ***********************************************************
13
14 " HISTORY COMMENTS:
15 " 1) change88-08-03RWaters, approve88-08-03MCR7950,
16 " audit88-09-29Huen, install88-10-07MR12.2-1146:
17 " Changed version number to 3.2a for MR12.2.
18 " 2) change89-03-29Huen, approve89-03-29MCR8062,
19 " audit89-04-25JRGray, install89-05-02MR12.3-1037:
20 " Changed version number to 3.3a for MR12.3 .
21 " END HISTORY COMMENTS
22
23
24 ; name tedcommon_
25 use text
26 "dcl 1 tedcommon_$id ext static,
27 id: dec 4 " 2 ted_vers char12var;
28 aci '3.3a',12,
29
30 macro do_def
31 &R3,&K&&i:&
32 getlp
33 tra &1$&2
34 segdef &F3
35 &end
36
37 do_def ted_command_,ted,ted,ted4
38 do_def ted_command_,qedx,qx,qedx
39 do_def ted_command_,ted_opt,ted_opt
40 do_def ted_command_,safe,safe
41 do_def ted_command_,com,com
42 do_def ted_command_,restart,restart
43 do_def ted__,act,act,ted_act
44 do_def ted__,blank,blank
45 do_def ted__,noblank,noblank
46 do_def ted__,partblank,partblank
47 do_def ted__,passthru,passthru
48 do_def ted__,clear_chars_moved,clear_chars_moved
49 do_def ted__,show_chars_moved,show_chars_moved
50 do_def ted__,dbn,dbn
51 do_def ted__,dbf,dbf
52 do_def ted__,lgn,lgn
53 do_def ted__,lgf,lgf
54 do_def tedutil_,set_req_line,set_req_line
55 do_def tedutil_,get_req_line,get_req_line
56 do_def tedmgr_,buffer,buffer,ted_buffer
57 do_def tedmgr_,tedmgr_,tedmgr_
58 do_def tedshow_,tedshow_,tedshow_
59 do_def tedsort_,set,Jset
60 do_def tedsort_,show,Jshow
61
62 "/* ted common data area tedcommon_.incl.pl1 */
63 "/* ... version.revision ... */
64 "dcl 1 tedcommon_$no_data
65 " like buf_des;
66 no_data: dec 0 " 3 l.ln fixed bin 21,
67 dec 1 " 3 l.le fixed bin 21,
68 dec 0 " 3 l.re fixed bin 21,
69 dec 0 " 3 r.ln fixed bin 21,
70 dec 1 " 3 r.le fixed bin 21,
71 dec 0 " 3 r.re fixed bin 21;
72 segdef id,no_data,no_seg
73
74 "dcl 1 tedcommon_$no_seg
75 " like seg_des,
76 even
77 no_seg: its 32767,1 " 3 sp ptr,
78 dec 0 " 3 sn fixed bin,
79 dec 1 " 3 pn fixed bin,
80 dec 0 " 3 ast fixed bin,
81 dec 0 " 3 mbz fixed bin;
82
83 use link
84
85 "/* ... all other variables ... */
86 "dcl 1 tedcommon_$etc ext static,
87 etc: oct 000000000000 " 2 com_blank bit1aligned,
88 oct 000000000000 " 2 com1_blank bit1aligned,
89 oct 400000000000 " 2 caps bit1aligned,
90 oct 400000000000 " 2 reset_read bit1;
91 oct 0,0,0,0,0,0,0,0,0,0,0,0 " 2 dbsw12bit1aligned,
92 oct 0,0,0,0,0,0,0,0,0,0,0,0 " 2 lgsw12bit1aligned,
93 oct 0,0 " 2 db_catch xxxxbit1aligned,
94 its 32767,1 " 2 db_output ptr;
95 segdef etc "
96 "dcl 1 tedcommon_$eval ext static,
97 "eval: its 32767,1 " 2 global ptr;
98 " segdef eval
99
100 join /link/link
101 join /text/text
102
103 end