1 dcl instance_ptr ptr; 2 3 dcl 1 qedx_instance based(instance_ptr) aligned, 4 2 instance_tag pic "99999999", 5 2 editor_area ptr, 6 2 curp ptr , /* pointer to current input control block */ 7 2 top ptr , /* pointer to top of buffer stack (null for level 0) */ 8 2 level fixed bin , /* buffer recursion counter */ 9 2 initsw bit(1), /* ="1"b before cleanup done */ 10 11 2 b0 like b aligned, /* default buffer */ 12 2 tw like b aligned; /* typewriter buffer*/ 13 14 dcl 1 b based(bp) aligned, /* based version of buffer control block */ 15 2 name char(16), /* buffer name */ 16 2 next ptr, /* pointer to next buffer control block (if any) */ 17 2 dp ptr, /* pointer to beginning of buffer data */ 18 2 default_path char(168), /* default output pathname for this buffer */ 19 2 default_len fixed bin(17), /* length of default pathname */ 20 2 de fixed bin, /* index of last character in buffer */ 21 2 li fixed bin, /* index of first character of current line */ 22 2 le fixed bin, /* index of last character of current line */ 23 2 ti fixed bin, /* index of next char. to be read from buffer */ 24 2 te fixed bin, /* index of last char. of line being read from buffer */ 25 2 tw_sw bit(1) unaligned, /* typewriter buffer switch (OFF for normal buffers) */ 26 2 modified bit (1) unaligned; /* indicates whether buffer is different than disk file */ 27 28 dcl 1 sv based aligned, /* structure for one element in buffer recursion stack */ 29 2 prev ptr, /* pointer to previous element in stack */ 30 2 bp ptr, /* pointer to control block for this element */ 31 2 (ti, te) fixed bin; /* saved copies of buffer read indexes */ 32