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) change(88-08-03,RWaters), approve(88-08-03,MCR7950),
 16 "     audit(88-09-29,Huen), install(88-10-07,MR12.2-1146):
 17 "     Changed version number to 3.2a for MR12.2.
 18 "  2) change(89-03-29,Huen), approve(89-03-29,MCR8062),
 19 "     audit(89-04-25,JRGray), install(89-05-02,MR12.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 char(12)var;
 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 bit(1)aligned,
 88           oct 000000000000              "      2 com1_blank bit(1)aligned,
 89           oct 400000000000              "      2 caps bit(1)aligned,
 90           oct 400000000000              "      2 reset_read bit(1);
 91           oct 0,0,0,0,0,0,0,0,0,0,0,0   "      2 dbsw(12)bit(1)aligned,
 92           oct 0,0,0,0,0,0,0,0,0,0,0,0   "      2 lgsw(12)bit(1)aligned,
 93           oct 0,0                       "      2 (db_catch, xxxx)bit(1)aligned,
 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