COMPILATION LISTING OF SEGMENT comp_title_block_ Compiled by: Multics PL/I Compiler, Release 28e, of February 14, 1985 Compiled at: Honeywell Multics Op. - System M Compiled on: 04/23/85 1009.1 mst Tue Options: optimize map 1 /* *********************************************************** 2* * * 3* * * 4* * Copyright, (C) Honeywell Information Systems Inc., 1981 * 5* * Copyright, (C) Honeywell Information Systems Inc., 1980 * 6* * * 7* * * 8* *********************************************************** */ 9 10 /* compose subroutine to insert header, footer, and text title blocks */ 11 12 /* format: style2,ind2,ll79,dclind4,idind15,comcol41,linecom */ 13 14 comp_title_block_: 15 proc (blkptr); 16 17 /* PARAMETERS */ 18 19 dcl blkptr ptr; /* pointer to title block */ 20 21 /* LOCAL STORAGE */ 22 23 dcl (i, j) fixed; /* working index */ 24 dcl meas bit (1); /* controls line processing */ 25 dcl page_flag bit (1); 26 dcl 1 ttlblk aligned like text based (blkptr); 27 dcl txtrmarg fixed bin (31); /* right margin for current block */ 28 29 dcl (index, length, size) 30 builtin; 31 32 if shared.bug_mode 33 then 34 do; 35 call ioa_$nnl ("title_block: (^a=^d e^d u^f(^f) ^[NDX^;FMT^]^[ A^]", 36 ttlblk.blktype, ttlblk.blkndx, ttlblk.hdr.count, 37 show (ttlblk.hdr.used, 12000), show (ttlblk.hdr.trl_ws, 12000), 38 (ttlblk.hdr.mx_ttl_ndx > 0), ttlblk.hdr.art); 39 40 if shared.blkptr ^= null () 41 then call ioa_ (" ^a=^d e^d u^f(^f))", text.blktype, text.blkndx, 42 text.hdr.count, show (text.hdr.used, 12000), 43 show (text.hdr.trl_ws, 12000)); 44 else call ioa_ (")"); 45 46 call ioa_ ("^5x(col=^d b^d u^f(^f)/n^f(^f)^[ ftn=^d ^f^;^2s^] " 47 || "pag=^a u^f(^f)/n^f^[ ftn=^d ^f^;^2s^])", page.hdr.col_index, 48 col.blkct, show (col.hdr.used, 12000), show (col.hdr.pspc, 12000), 49 show (col.hdr.net, 12000), show (col.depth_adj, 12000), 50 (col.hdr.ftn.ct > 0), col.hdr.ftn.ct, 51 show (col.hdr.ftn.usd, 12000), page.hdr.pageno, 52 show (page.hdr.used, 12000), show (page.hdr.hdspc, 12000), 53 show (page.hdr.net, 12000), (col0.hdr.ftn.ct > 0), 54 col0.hdr.ftn.ct, show (col0.hdr.ftn.usd, 12000)); 55 end; 56 57 shared.inserting_hfc = "1"b; 58 page_flag = "0"b; 59 60 /* empty blocks */ 61 if ttlblk.hdr.count = 0 62 then goto return_; 63 64 /* footers and captions */ 65 else if index (text.blktype, "f") = 2 66 then 67 do; 68 if text.blktype = "pf" 69 then 70 do; 71 page_flag = "1"b; /* set page flag */ 72 txtrmarg = col0.margin.right; 73 end; 74 else txtrmarg = col.margin.right; 75 76 if ttlblk.hdr.mx_ttl_ndx > 0 /* if an indexed block */ 77 then 78 do; /* use reverse order */ 79 do i = ttlblk.hdr.mx_ttl_ndx to 1 by -1; 80 do line_area_ptr = ttlblk.line_area.first 81 repeat (line_area.next) while (line_area_ptr ^= null); 82 do j = 1 to line_area.ndx; 83 txtlinptr = line_area.linptr (j); 84 85 if txtlin.title_index = i 86 then 87 do; 88 if /*text.blktype = "ph" | */ text.blktype = "pf" 89 then txtlin.rmarg, txtlin.net = page.parms.measure; 90 else 91 do; 92 txtlin.rmarg = txtrmarg; 93 txtlin.net = txtlin.rmarg - txtlin.lmarg; 94 end; 95 96 txtstrptr = txtlin.ptr; 97 meas = /* set measure flag */ 98 ^(txtlin.art | txtlin.quad = just 99 | txtlin.quad = quadl) 100 & index (txtstr, shared.sym_delim) = 0; 101 102 call comp_util_$add_text (shared.blkptr, meas, "0"b, 103 "1"b, "0"b, txtlinptr); 104 end; 105 end; 106 end; 107 end; 108 109 goto return_; 110 end; 111 end; 112 113 /* headers and titles */ 114 else if index (text.blktype, "h") = 2 115 then 116 do; 117 if ttlblk.hdr.mx_ttl_ndx > 0 /* if an indexed block */ 118 then 119 do; 120 do i = 1 to ttlblk.hdr.mx_ttl_ndx; 121 do line_area_ptr = ttlblk.line_area.first 122 repeat (line_area.next) while (line_area_ptr ^= null); 123 do j = 1 to line_area.ndx; 124 txtlinptr = line_area.linptr (j); 125 126 if txtlin.title_index = i 127 then 128 do; 129 txtlin.rmarg, txtlin.net = page.parms.measure; 130 131 txtstrptr = txtlin.ptr; 132 meas = /* set measure flag */ 133 ^(txtlin.art | txtlin.quad = just 134 | txtlin.quad = quadl) 135 & index (txtstr, shared.sym_delim) = 0; 136 137 call comp_util_$add_text (shared.blkptr, meas, "0"b, 138 "1"b, "0"b, txtlinptr); 139 end; 140 end; 141 end; 142 end; 143 144 goto return_; 145 end; 146 end; 147 148 /* column headers and footers */ 149 /**** else if text.blktype = "ch" | text.blktype = "cf" 150*/**** then text.hdr.tblblk = ttlblk.hdr.tblblk;*/ 151 152 /* process the block */ 153 text.hdr.art = ttlblk.hdr.art | text.hdr.art; 154 155 do line_area_ptr = ttlblk.line_area.first repeat (line_area.next) 156 while (line_area_ptr ^= null); 157 do i = 1 to line_area.ndx; 158 txtlinptr = line_area.linptr (i); 159 txtstrptr = txtlin.ptr; /**/ 160 /* if line is not null */ 161 if txtstr ^= "" | txtlin.linespace > 0 162 then 163 do; /* copy line to block input */ 164 ttlblk.input = txtlin; 165 ttlblk.input.ptr = addr (ttlblk.input_line); 166 167 if index (txtstr, PAD) = 1 /* discard leading PADs */ 168 then ttlblk.input_line = ltrim (txtstr, PAD); 169 else ttlblk.input_line = txtstr; 170 171 if text.parms.page /* force right margin & net line */ 172 then ttlblk.input.rmarg, ttlblk.input.net = page.parms.measure; 173 /* pick up art flag */ 174 ttlblk.input.art = text.hdr.art | ttlblk.input.art; 175 176 if index (ttlblk.input_line, shared.sym_delim) ^= 0 177 & text.blktype ^= "ph" 178 then call comp_use_ref_ (ttlblk.input_line, ttlblk.input.art, "1"b, 179 addr (ttlblk.input.info)); 180 /* set measure flag */ 181 meas = index (ttlblk.input_line, shared.sym_delim) = 0 182 & ttlblk.input.width = 0 183 & ^(ttlblk.input.quad = just | ttlblk.input.quad = quadl); 184 /* process escapes */ 185 if index (ttlblk.input_line, "*") ^= 0 & ^ttlblk.input.art 186 then call comp_util_$escape (ttlblk.input_line, 187 addr (ttlblk.input.info)); 188 189 call comp_util_$add_text (shared.blkptr, meas, "1"b, "0"b, "0"b, 190 addr (ttlblk.input)); 191 192 if ttlblk.blktype = "th" /* if this is a text header */ 193 then 194 do; 195 /**** text.hdr.first_text = /* advance first text line */ 196 /**** text.hdr.first_text + 1;*/ 197 /* if an added title with added */ 198 /**** if text.parms.cbar.add /* lead, add real lines */ 199 /**** & line_area.linptr (i) -> txtlin.linespace > 12000 200*/**** then 201*/**** do; /* reset linespace to 1 */ 202 /**** text.line_area.cur -> line_area.linptr (text.hdr.count) 203*/**** -> txtlin.linespace = 12000; 204*/**** 205*/**** call comp_space_ (line_area.linptr (i) -> txtlin.linespace 206*/**** - 12000, shared.blkptr, "1"b, "1"b, "1"b, "0"b); 207*/**** end;*/ 208 end; 209 210 if ttlblk.blktype = "tf" /* if this is a text caption */ 211 then 212 do; /* adjust column head space */ 213 /**** if txtstr = "" 214*/**** then col.hdr.pspc = col.hdr.pspc + txtlin.linespace; 215*/**** else col.hdr.pspc = 0;*/ 216 217 /**** if text.parms.cbar.add /* if an added title with added lead */ 218 /**** & line_area.linptr (i) -> txtlin.linespace > 12000 219*/**** then 220*/**** do; /* add real lines */ 221 /**** /* reset linespace to 1 */ 222 /**** text.line_area.cur -> line_area.linptr (text.hdr.count) 223*/**** -> txtlin.linespace = 12000; 224*/**** call comp_space_ (line_area.linptr (i) -> txtlin.linespace 225*/**** - 12000, shared.blkptr, "1"b, "1"b, "1"b, "0"b); 226*/**** end;*/ 227 end; 228 end; 229 end; 230 end; 231 232 if blkptr = text.parms.hdrptr 233 then 234 do; 235 text.hdr.head_used = text.hdr.head_used + ttlblk.hdr.used; 236 text.hdr.head_size = text.hdr.head_size + ttlblk.hdr.count; 237 end; /**/ 238 /* give back text title blocks */ 239 if blkptr = text.parms.hdrptr | blkptr = text.parms.ftrptr 240 then call comp_util_$relblk (-1, blkptr); 241 242 return_: 243 /**** if text.blktype = "ph" /* adjust page head space */ 244 /**** then page.hdr.hdspc = col.hdr.pspc;*/ 245 if text.blktype = "ch" 246 then call comp_break_ (block_break, 0); 247 else if text.input_line ^= "" 248 then call comp_break_ (format_break, 0); 249 /**** else if index (text.blktype, "f") ^= 0 250*/**** then call comp_break_ (footer_break, 0);*/ 251 252 if shared.bug_mode 253 then 254 do; 255 call ioa_$nnl ("^5x(title_block:"); 256 257 if shared.blkptr ^= null 258 then call ioa_ (" ^a=^d e^d u^f(^f)^[ ftn^d ^f^;^2s^]" 259 || "^[ hu=^f^;^s^]^[ A^]^[ K^])", text.blktype, text.blkndx, 260 text.hdr.count, show (text.hdr.used, 12000), 261 show (text.hdr.trl_ws, 12000), (text.hdr.ftn.ct > 0), 262 text.hdr.ftn.ct, show (text.hdr.ftn.usd, 12000), 263 (blkptr = text.parms.hdrptr), 264 show (text.hdr.head_used, 12000), text.hdr.art, 265 text.parms.keep); 266 else call ioa_ (")"); 267 268 call ioa_ ("^-(col=^d b^d u^f(^f)/n^f(^f)^[ ftn=^d ^f^;^2s^] " 269 || "pag=^a u^f(^f)/n^f^[ ftn=^d ^f^;^2s^])", page.hdr.col_index, 270 col.blkct, show (col.hdr.used, 12000), show (col.hdr.pspc, 12000), 271 show (col.hdr.net, 12000), show (col.depth_adj, 12000), 272 (col.hdr.ftn.ct > 0), col.hdr.ftn.ct, 273 show (col.hdr.ftn.usd, 12000), page.hdr.pageno, 274 show (page.hdr.used, 12000), show (page.hdr.hdspc, 12000), 275 show (page.hdr.net, 12000), (col0.hdr.ftn.ct > 0), 276 col0.hdr.ftn.ct, show (col0.hdr.ftn.usd, 12000)); 277 end; 278 279 shared.inserting_hfc = "0"b; 280 281 return; 282 283 show: 284 proc (datum, scale) returns (fixed dec (11, 3)); 285 dcl datum fixed bin (31); 286 dcl scale fixed bin (31); 287 288 return (round (dec (round (divide (datum, scale, 31, 11), 10), 11, 4), 3)); 289 end show; 290 1 1 /* BEGINE INCLUDE FILE comp_brktypes.incl.pl1 */ 1 2 1 3 /* Written - 4/18 - EJW 1 4* 1 5* Defines constants for all the types of text breaks in compose */ 1 6 1 7 /* format: style2,ind2,ll79,dclind4,idind15,comcol41,linecom */ 1 8 1 9 dcl ( 1 10 format_break init (0), 1 11 block_break init (1), 1 12 column_break init (2), 1 13 page_break init (3), 1 14 need_break init (4), 1 15 footnote_break init (5), 1 16 footer_break init (7) 1 17 ) fixed bin static options (constant); 1 18 1 19 /* END INCLUDE FILE comp_brktypes.incl.pl1 */ 291 2 1 /* BEGIN INCLUDE FILE comp_column.incl.pl1 */ 2 2 2 3 /* format: style2,ind2,ll79,dclind4,idind15,comcol41,linecom */ 2 4 2 5 dcl 1 col /* the text column */ 2 6 aligned based (shared.colptr), 2 7 2 blkptr (100) ptr, /* pointers to text blocks */ 2 8 2 depth_adj fixed bin (31), /* for variable start depth */ 2 9 2 ftrptr ptr, /* -> column footer */ 2 10 2 ftrusd fixed bin (31), /* column footer space used */ 2 11 2 gutter fixed bin (31), /* column separation */ 2 12 2 hdr like colhdr, /* column control stuff */ 2 13 2 hdrptr ptr, /* -> column header */ 2 14 2 hdrusd fixed bin (31), /* column header space used */ 2 15 2 margin, /* margin settings for column */ 2 16 3 left fixed bin (31), 2 17 3 right fixed bin (31), 2 18 2 parms, /* text parms for the column */ 2 19 3 measure fixed bin (31); /* column width */ 2 20 2 21 dcl 1 colhdr aligned based (const.colhdrptr), 2 22 /* an empty column header */ 2 23 2 balblk fixed bin, /* block to begin column balancing */ 2 24 2 baldepth fixed bin (31), /* page depth at balance point */ 2 25 2 balftn, /* footnotes at balance point */ 2 26 3 ct fixed bin, /* count */ 2 27 3 usd fixed bin (31), /* space used */ 2 28 3 blkndx (40) fixed bin, /* block index values */ 2 29 2 balusd fixed bin (31), /* space used up to balance point */ 2 30 2 blkct fixed bin, /* text block count */ 2 31 2 depth fixed bin (31), /* current page depth in the column */ 2 32 2 ftn like balftn, /* footnotes */ 2 33 2 pspc fixed bin (31), /* current white space */ 2 34 2 net fixed bin (31), /* net usable space in the column */ 2 35 2 used fixed bin (31); /* space used in this column */ 2 36 /* for quick reference */ 2 37 dcl 1 col0 aligned like col based (page.column_ptr (0)); 2 38 2 39 /* END INCLUDE FILE comp_column.incl.pl1 */ 292 3 1 /* BEGIN INCLUDE FILE comp_entries.incl.pl1 */ 3 2 3 3 /* format: style2,ind2,ll79,dclind4,idind15,comcol41,linecom */ 3 4 3 5 dcl compose_severity_ 3 6 fixed bin (35) ext static; 3 7 dcl comp_ entry; 3 8 dcl comp_art_ entry (ptr, bit (1)); 3 9 dcl comp_block_ctls_ 3 10 entry (fixed bin); 3 11 dcl comp_break_ entry (fixed bin, fixed bin); 3 12 dcl comp_break_ctls_ 3 13 entry (fixed bin); 3 14 dcl comp_ctls_ entry (bit (1) aligned); 3 15 dcl comp_eject_page_ 3 16 entry; 3 17 dcl comp_expr_eval_ 3 18 entry (char (*) var, fixed bin (21), ptr, fixed bin, 3 19 fixed bin, bit (1), fixed bin (31), char (*) var, 3 20 bit (9), fixed bin (35)); 3 21 dcl comp_extr_str_ entry (bit (1), char (*) var, fixed bin (21), 3 22 fixed bin (21), fixed bin (21), ptr) 3 23 returns (char (*) var); 3 24 dcl comp_fill_ entry; 3 25 dcl comp_font_ entry (bit (1), char (*) var, char (8) aligned); 3 26 dcl comp_format_ctls_ 3 27 entry (fixed bin); 3 28 dcl comp_get_file_$find 3 29 entry (char (*), ptr, char (*), bit (1), char (*) var, 3 30 fixed bin (35)); 3 31 dcl comp_get_file_$open 3 32 entry (ptr, bit (1), fixed bin (35)); 3 33 dcl comp_head_page_ 3 34 entry (fixed bin (31)); 3 35 dcl comp_hft_ctls_ entry (fixed bin); 3 36 dcl comp_hft_ctls_$title 3 37 entry (ptr, ptr, char (*) var, fixed bin (31)); 3 38 dcl comp_init_$one entry; 3 39 dcl comp_init_$two entry; 3 40 dcl comp_init_$three 3 41 entry; 3 42 dcl comp_insert_ctls_ 3 43 entry (fixed bin); 3 44 dcl comp_make_page_ 3 45 entry (fixed bin, bit (1)); 3 46 dcl comp_make_page_$cleanup 3 47 entry; 3 48 dcl comp_measure_ entry (char (1020) var, ptr, bit (1), bit (1), bit (6), 3 49 fixed bin (31), ptr, ptr, ptr); 3 50 dcl comp_read_$name 3 51 entry (char (*) var, fixed bin (21), fixed bin (21), 3 52 ptr) returns (char (*) var); 3 53 dcl comp_read_$number 3 54 entry (char (*) var, (*) fixed bin (31), 3 55 fixed bin (21), fixed bin (21), ptr, fixed bin (35)) 3 56 returns (fixed bin (31)); 3 57 dcl comp_read_$line 3 58 entry (ptr, char (*) var, bit (1)); 3 59 dcl comp_report_ entry (fixed bin, fixed bin (35), char (*), ptr, 3 60 char (*) var); 3 61 dcl comp_report_$ctlstr 3 62 entry options (variable); 3 63 /**** (sev, code, info, line, ctl_str, args... */ 3 64 dcl comp_report_$exact 3 65 entry (char (*), ptr); 3 66 dcl comp_space_ entry (fixed bin (31), ptr, bit (1), bit (1), bit (1), 3 67 bit (1)); 3 68 dcl comp_tbl_ctls_ entry (fixed bin); 3 69 dcl comp_title_block_ 3 70 entry (ptr); 3 71 dcl comp_update_symbol_ 3 72 entry (bit (1), bit (1), bit (1), char (32), 3 73 char (*) var); 3 74 dcl comp_use_ref_ entry (char (*) var, bit (1), bit (1), ptr); 3 75 dcl comp_util_$add_text 3 76 entry (ptr, bit (1), bit (1), bit (1), bit (1), ptr); 3 77 dcl comp_util_$display 3 78 entry (char (*) var, fixed bin, bit (1)) 3 79 returns (char (*) var); 3 80 dcl comp_util_$escape 3 81 entry (char (*) var, ptr); 3 82 dcl comp_util_$getblk 3 83 entry (fixed bin, ptr, char (2), ptr, bit (1)); 3 84 dcl comp_util_$num_display 3 85 entry (ptr, fixed bin) returns (char (256) var); 3 86 dcl comp_util_$pageno 3 87 entry (fixed bin, char (*) var); 3 88 dcl comp_util_$pictures /* emit pending pictures */ 3 89 entry /**/ 3 90 (ptr); /* current text block */ 3 91 dcl comp_util_$pop entry (char (32)); 3 92 dcl comp_util_$push 3 93 entry (char (32)); 3 94 dcl comp_util_$relblk 3 95 entry (fixed bin, ptr); 3 96 dcl comp_util_$replace_text 3 97 entry (ptr, bit (1), ptr, ptr); 3 98 dcl comp_util_$search_tree 3 99 entry (char (32), bit (1)); 3 100 dcl comp_util_$set_bin 3 101 entry (fixed bin (31), char (32) var, fixed bin (31), 3 102 fixed bin (31), fixed bin (31), (*) fixed bin (31), 3 103 fixed bin (31)); 3 104 dcl comp_util_$set_net_page 3 105 entry (bit (1)); 3 106 dcl comp_util_$translate 3 107 entry (char (*) var) returns (char (*) var); 3 108 dcl comp_write_block_ 3 109 entry (fixed bin); 3 110 dcl comp_write_page_ 3 111 entry; 3 112 3 113 /* END INCLUDE FILE comp_entries.incl.pl1 */ 293 4 1 /* BEGIN INCLUDE FILE comp_fntstk.incl.pl1 */ 4 2 4 3 /* format: style2,ind2,ll79,dclind4,idind15,comcol41,linecom */ 4 4 4 5 dcl fntstk_eptr ptr; /* font stack entry structure */ 4 6 dcl 1 fntstk_entry aligned based (fntstk_eptr), 4 7 2 bachelor bit (1), /* 1= has no members */ 4 8 2 devfnt fixed bin, /* font in the device */ 4 9 2 fam_name char (32), /* family name */ 4 10 2 famndx fixed bin, /* family index */ 4 11 2 fntptr ptr, /* font table pointer */ 4 12 2 mem_name char (32), /* /member name (or null) */ 4 13 2 memndx fixed bin, /* member index */ 4 14 2 memptr ptr, /* member table pointer */ 4 15 2 name char (65) var, /* font name */ 4 16 2 size fixed bin (31), /* requested point size */ 4 17 2 ps fixed bin (31), /* effective point size */ 4 18 2 fcs_str char (8); /* FCS string */ 4 19 4 20 /* END INCLUDE FILE comp_fntstk.incl.pl1 */ 294 5 1 /* BEGIN INCLUDE FILE - comp_metacodes.incl.pl1 */ 5 2 5 3 /* format: style2,ind2,ll79,dclind4,idind25,comcol51,linecom */ 5 4 5 5 /* ASCII control characters */ 5 6 dcl ( 5 7 NUL init (""), /* 000 */ 5 8 SOH init (""), /* 001 */ 5 9 STX init (""), /* 002 */ 5 10 ETX init (""), /* 003 */ 5 11 EOT init (""), /* 004 */ 5 12 ENQ init (""), /* 005 */ 5 13 ACK init (""), /* 006 */ 5 14 BEL init (""), /* 007 */ 5 15 BSP init (""), /* 010 */ 5 16 HT init (" "), 5 17 /* 011 */ 5 18 (NL, LF) init (" 5 19 "), /* 012 */ 5 20 VT init (" "), /* 013 */ 5 21 FF init (" "), /* 014 */ 5 22 CR init (" "), /* 015 */ 5 23 (RRS, SO) init (""), /* 016 */ 5 24 (BRS, SI) init (""), /* 017 */ 5 25 DLE init (""), /* 020 */ 5 26 DC1 init (""), /* 021 */ 5 27 (DC2, HLF, HUGE) init (""), /* 022 */ 5 28 DC3 init (""), /* 023 */ 5 29 (DC4, HLR, THICK) init (""), /* 024 */ 5 30 (NAK, MEDIUM) init (""), /* 025 */ 5 31 SYN init (""), /* 026 */ 5 32 (ETB, HAIR) init (""), /* 027 */ 5 33 (CAN, STROKE) init (""), /* 030 */ 5 34 oct031 init (""), /* 031 */ 5 35 SUB init (""), /* 032 */ 5 36 ESC init (""), /* 033 */ 5 37 FS init (""), /* 034 */ 5 38 GS init (""), /* 035 */ 5 39 RS init (""), /* 036 */ 5 40 US init (""), /* 037 */ 5 41 (DEL, PAD) init (""), /* 177 */ 5 42 /* compose meta-characters */ 5 43 multiply init ("ª"), /* 252 - multiply symbol */ 5 44 pl_mi init ("«"), /* 253 - plus/minus sign */ 5 45 nabla init ("¬"), /* 254 */ 5 46 EMdash init ("­"), /* 255 - EM dash */ 5 47 slash init ("¯"), /* 256 */ 5 48 dagger init ("±"), /* 261 */ 5 49 perpen init ("»"), /* 273 - perpendicular mark */ 5 50 not_eq init ("½"), /* 275 - not-equal mark */ 5 51 dbldag init ("Á"), /* 301 - double daggar */ 5 52 cright init ("Ã"), /* 303 - copyright mark */ 5 53 delta init ("Ä"), /* 304 */ 5 54 bulle parameters */ 6 30 2 annot_opt, /* -annotate */ 6 31 2 brief_opt, /* -brief option flag */ 6 32 2 check_opt, /* -check option flag */ 6 33 2 cws_opt, /* -cws option flag */ 6 34 2 db_pause_opt, /* -debug_pause option flag */ 6 35 2 noart_opt, /* -noart option flag */ 6 36 2 nobell_opt, /* -no_bell option flag */ 6 37 2 nofill_opt, /* -nofill option flag */ 6 38 2 nohit_opt, /* -nohit option flag */ 6 39 2 number_opt, /* -number option flag */ 6 40 2 number_append_opt, /* -number_append option flag */ 6 41 2 number_brief_opt, /* -number_brief option flag */ 6 42 2 stop_opt, /* -stop option flag */ 6 43 2 wait_opt) unal bit (1), /* -wait option flag */ 6 44 2 MBZ bit (2) unal, 6 45 /* Optional parameters */ 6 46 2 arg_count fixed bin, /* count of -ag values */ 6 47 2 cbar, /* change bar data */ 6 48 3 level char (1), /* change level character (ASCII NUL) */ 6 49 3 place char (1), /* placement character */ 6 50 3 space fixed bin (31), /* extra left margin space needed */ 6 51 3 left, /* left margin mark data */ 6 52 4 sep fixed bin (31), /* separation */ 6 53 4 width fixed bin (31), /* mark width */ 6 54 4 mark char (80) varying, /* the left margin mark */ 6 55 3 right, /* right margin mark data */ 6 56 4 sep fixed bin (31), /* separation */ 6 57 4 width fixed bin (31), /* mark width */ 6 58 4 mark char (80) varying, /* the right margin mark */ 6 59 3 del, /* deletion mark data */ 6 60 4 sep fixed bin (31), /* separation */ 6 61 4 width fixed bin (31), /* mark width */ 6 62 4 mark char (80) varying, /* the deletion mark */ 6 63 2 db_after_line fixed bin (35), /* source line for enabling insert debug */ 6 64 2 db_before_line fixed bin (35), /* source line for disabling insert debug */ 6 65 2 db_file char (200) var, /* file pathanme for debug */ 6 66 2 db_file_after fixed bin (35), /* debug file starting line */ 6 67 2 db_line_end fixed bin (35), /* final line for -debug output */ 6 68 2 db_line_strt fixed bin (35), /* initial line for -debug output */ 6 69 2 device char (32) varying, /* output device */ 6 70 2 extra_indent fixed bin (31), /* extra indent value */ 6 71 2 hyph_size fixed bin (31), /* least word part size for hyphenation */ 6 72 2 line_1 fixed bin (35), /* initial line for output */ 6 73 2 line_2 fixed bin (35), /* final line for output */ 6 74 2 linespace fixed bin (31), /* line spacing value */ 6 75 2 pglstct fixed bin (35), /* number of page list entries */ 6 76 2 pglstndx fixed bin (35), /* index for -pages list */ 6 77 2 pglst (0:49), /* list of requested pages */ 6 78 3 from char (32) var, 6 79 3 to char (32) var, 6 80 2 parameter char (80) varying, /* parameter from command line */ 6 81 2 passes fixed bin, /* passes remaining */ 6 82 2 pgc_select char (1) aligned; /* addendum key to control change page printing - init = NUL */ 6 83 6 84 /* END INCLUDE FILE comp_option.incl.pl1 */ 6 85 296 7 1 /* BEGIN INCLUDE FILE comp_page.incl.pl1 */ 7 2 7 3 /* format: style2,ind2,ll79,dclind4,idind15,comcol41,linecom */ 7 4 7 5 dcl max_image_lines 7 6 fixed static options (constant) init (1000); 7 7 dcl max_cols fixed static options (constant) init (20); 7 8 7 9 dcl page_version fixed bin static options (constant) init (5); 7 10 /* composed page structure */ 7 11 dcl 1 page aligned based (const.page_ptr), 7 12 2 version fixed bin, /* version of this structure */ 7 13 2 parms aligned like page_parms, 7 14 /* page formatting parameters */ 7 15 2 hdr aligned like page_header, 7 16 /* page control stuff */ 7 17 2 image_ptr ptr, /* pointer to the madeup page image */ 7 18 2 column_ptr (0:20) ptr, /* pointers to the column structures */ 7 19 2 col_image_ptr 7 20 (-2:21) ptr; /* pointers to column images */ 7 21 /* col -1 is for line numbers and */ 7 22 /* left margin change bars; */ 7 23 /* col -2 is for */ 7 24 /* right margin change bars */ 7 25 /* and/or annotation * / 7 26* /* page control stuff */ 7 27 dcl 1 page_header aligned based (const.page_header_ptr), 7 28 2 sws, 7 29 3 art bit (1) unal, /* 1 = header/footer art */ 7 30 3 blankpage 7 31 bit (1) unal, /* 1 = intentional blank page */ 7 32 3 frontpage 7 33 bit (1) unal, /* 1 = odd page number */ 7 34 3 headed bit (1) unal, /* 1 = page header has been written */ 7 35 3 modified bit (1) unal, /* 1 = page has been modified */ 7 36 3 overflow bit (1) unal, /* OBSOLETE */ 7 37 3 MBZ bit (12) unal, 7 38 3 dot_addltr 7 39 char (1) unal, /* dot page add letter, if any */ 7 40 3 pgc_select 7 41 char (1) unal, /* for selecting change pages */ 7 42 2 baldepth fixed bin (31), /* page depth at balance point */ 7 43 2 balusd fixed bin (31), /* space used at balance point */ 7 44 2 col_count fixed bin, /* highest value of col_index for the page */ 7 45 2 col_index fixed bin, /* column index */ 7 46 2 depth fixed bin (31), /* current page depth */ 7 47 2 hdspc fixed bin (31), /* TOP white space */ 7 48 2 lmarg fixed bin (31), /* left margin for this page */ 7 49 2 net fixed bin (31), /* net usable space on the page */ 7 50 2 pageno char (32) var, /* current page number */ 7 51 2 used fixed bin (31); /* space already used on the page */ 7 52 7 53 dcl page_image_version 7 54 fixed bin (35) static options (constant) init (2); 7 55 /* structure passed to writers */ 7 56 dcl 1 page_image aligned based (page.image_ptr), 7 57 2 version fixed bin (35), /* structure version no */ 7 58 2 count fixed bin, /* count of page image lines */ 7 59 2 file_id char (32) var, /* compout identifier */ 7 60 2 func fixed bin, /* function code; 0 = build, 7 61* 1 = intialize, 2 = cleanup */ 7 62 2 text_ptr ptr, /* pointer to the text area */ 7 63 /* the image lines */ 7 64 2 line (max_image_lines), 7 65 3 sws, 7 66 4 quad bit (6) unal, /* text set position flags */ 7 67 4 art bit (1) unal, /* 1 = artwork in the line */ 7 68 4 cbar bit (1) unal, /* 1= line has a cbar, dont erase */ 7 69 4 mrgtxt bit (1) unal, /* line number or marginal note */ 7 70 4 white bit (1) unal, /* line is white */ 7 71 4 MBZ bit (26) unal, 7 72 3 depth fixed bin (31), /* page depth for the text */ 7 73 3 gaps fixed bin, /* number of WS gaps in the line */ 7 74 3 info like text_entry.info, 7 75 /* input file info */ 7 76 3 lead fixed bin (31), /* lead value if trailing WS */ 7 77 3 lfnt fixed bin, /* font at the left margin */ 7 78 3 lmarg fixed bin (31), /* text left margin position */ 7 79 3 lsize fixed bin (31), /* pointsize at the left margin */ 7 80 3 net fixed bin (31), /* net width for filling */ 7 81 3 pos fixed bin (31), /* current horiz position */ 7 82 3 ptr ptr, /* pointer to the text */ 7 83 3 rmarg fixed bin (31), /* text right margin position */ 7 84 3 width fixed bin (31); /* width of the text */ 7 85 /* current page formatting parms */ 7 86 dcl 1 page_parms aligned based (const.page_parms_ptr), 7 87 2 init_page_depth 7 88 fixed bin (31), /* initial page depth */ 7 89 2 length fixed bin (31), /* page length */ 7 90 2 lmarg, /* page left margin */ 7 91 3 even fixed bin (31), 7 92 3 odd fixed bin (31), 7 93 2 margin, /* margin values */ 7 94 3 top fixed bin (31), 7 95 3 header fixed bin (31), 7 96 3 footer fixed bin (31), 7 97 3 bottom fixed bin (31), 7 98 2 measure fixed bin (31), /* line space available for text */ 7 99 2 net, /* net usable space on page */ 7 100 3 even fixed bin (31), /* even pages */ 7 101 3 odd fixed bin (31), /* odd pages */ 7 102 /* arrays at the end */ 7 103 2 cols, /* columns defined for the page */ 7 104 3 bal bit (1) unal, /* column balancing control flag */ 7 105 3 MBZ bit (17) unal, 7 106 3 count fixed bin unal; /* the number of columns */ 7 107 /* default page formatting parms */ 7 108 dcl 1 init_page_parms 7 109 aligned like page_parms 7 110 based (const.init_page_parms_ptr); 7 111 7 112 /* END INCLUDE FILE comp_page.incl.pl1 */ 297 8 1 /* BEGIN INCLUDE FILE comp_shared.incl.pl1 */ 8 2 8 3 /* format: style2,ind2,ll79,dclind4,idind15,comcol41,linecom */ 8 4 8 5 dcl shared_version fixed bin (35) static options (constant) init (17); 8 6 8 7 dcl 1 shared aligned based (const.shared_ptr), 8 8 2 version fixed bin (35), /* version of this structure */ 8 9 2 chars, 8 10 ( 3 sym_delim, /* delimiter for symbols */ 8 11 3 ttl_delim, /* delimiter for title parts */ 8 12 3 wrd_brkr /* word break character */ 8 13 ) char (1) unal, 8 14 3 PAD char (1) unal, 8 15 2 cbar_type char (4) var, /* change bar type */ 8 16 2 dot_add_letter /* dot page add letter */ 8 17 char (1) var, 8 18 2 EN_width fixed bin (31), /* width of EN in current font */ 8 19 2 eqn_refct fixed bin, /* equation reference counter */ 8 20 2 footref_fcs /* footnote ref FCS string */ 8 21 char (8) aligned, 8 22 2 ftn_reset char (8) var, /* footnote reset mode */ 8 23 2 ftnrefct fixed bin, /* footnote ref counter */ 8 24 2 hyph_size fixed bin (31), /* least word part size for hyphing */ 8 25 2 if_nest, /* if/then/else logic control */ 8 26 3 ndx fixed bin, /* depth of logic nest */ 8 27 3 e (25), /* nest entries */ 8 28 /* .if control switch */ 8 29 4 sw fixed bin, /* 0=off, 1=(then), -1=(else) */ 8 30 4 info aligned like text_entry.info, 8 31 4 line char (256) var, /* the control line */ 8 32 2 indctl, /* indent ctls stack */ 8 33 3 ndx fixed bin, /* current level */ 8 34 /* switch bits */ 8 35 3 stk (0:35) bit (1) unal, 8 36 2 input_dirname 8 37 char (168) var, /* dir containing current input file */ 8 38 2 input_filename 8 39 char (200) var, /* current input file name */ 8 40 2 lead fixed bin (31), /* current linespacing value */ 8 41 2 lit_count fixed bin (35), /* count of literal lines */ 8 42 2 next_pagenmbr 8 43 char (32) var, /* next page number / */ 8 44 2 output_file 8 45 char (32) var, /* output file identifier */ 8 46 2 pagecount fixed bin, /* number of pages produced */ 8 47 2 pagenum, /* page number structure */ 8 48 3 index fixed bin, /* level currently counting */ 8 49 ( 8 50 3 sep char (1) unal, /* separator chars */ 8 51 3 nmbr fixed bin (31), /* the counters */ 8 52 3 mode /* display modes */ 8 53 fixed bin (8) unal 8 54 ) dimension (20), 8 55 2 parameter char (254) var, /* command line parameter */ 8 56 2 param_pres bit (1), /* passed parameter flag */ 8 57 2 pass_counter 8 58 fixed bin, /* pass counter */ 8 59 2 picture, /* picture blocks */ 8 60 3 count fixed bin, /* number of them */ 8 61 3 space fixed bin (31), /* total picture space */ 8 62 3 blk (10), /* picture blocks */ 8 63 4 type char (4), /* type = page/col */ 8 64 4 place char (4), /* place = top/cen/bot */ 8 65 4 ptr ptr, /* pointer to block */ 8 66 4 size fixed bin (31), /* size of the picture */ 8 67 2 ptrs, 8 68 ( 3 aux_file_data_ptr, /* -> auxiliary file data */ 8 69 3 blank_footer_ptr, /* -> blank page footer */ 8 70 3 blank_header_ptr, /* -> blank page header */ 8 71 3 blank_text_ptr, /* -> blank page text */ 8 72 3 blkptr, /* -> active text */ 8 73 3 colptr, /* current column */ 8 74 3 compout_ptr, /* iocb pointer for output */ 8 75 3 compx_ptr, /* iocb pointer for compx file */ 8 76 3 ctb_ptr, /* current line artwork table */ 8 77 3 epftrptr, /* even page footer block */ 8 78 3 ephdrptr, /* even page header block */ 8 79 3 fcb_ptr, /* input file control block pointer */ 8 80 3 ftnblk_data_ptr, /* footnote block data pointer */ 8 81 3 footnote_header_ptr, /* footnote header "title" */ 8 82 3 graphic_page_ptr, /* graphic output page */ 8 83 3 hit_data_ptr, /* hit data pointer */ 8 84 3 htab_ptr, /* horizontal tab tables */ 8 85 3 hwrd_data_ptr, /* local hyphenation table */ 8 86 3 insert_ptr, /* data entry for current input file */ 8 87 3 opftrptr, /* odd page footer block */ 8 88 3 ophdrptr, /* odd page header block */ 8 89 3 ptb_ptr, /* previous line artwork table */ 8 90 3 spcl_blkptr, /* "special" block pointer */ 8 91 3 tbldata_ptr, /* table column data structure */ 8 92 3 tblkdata_ptr, /* text block data array */ 8 93 3 text_header_ptr /* empty text header structure */ 8 94 ) ptr, 8 95 2 scale, /* space conversion scale factors */ 8 96 3 horz fixed bin (31), /* horizontal */ 8 97 3 vert fixed bin (31), /* vertical */ 8 98 2 source_filename 8 99 char (200) var, /* current source file name */ 8 100 2 sws, /* switch bits */ 8 101 ( 3 bug_mode, /* debug mode */ 8 102 3 compout_not_headed, /* compout is not headed */ 8 103 3 end_input, /* EOF for current input file */ 8 104 3 end_output, /* no more output is wanted */ 8 105 3 firstpass, /* first pass over input */ 8 106 3 ftn_mode, /* in footnote mode */ 8 107 3 hyph_mode, /* hyphenating mode */ 8 108 3 inserting_hfc, /* inserting hdr, ftr, or cap */ 8 109 3 literal_mode, /* literal line mode flag */ 8 110 3 pageblock, /* blocks belong to page */ 8 111 3 picture_mode, /* building a picture */ 8 112 3 print_flag, /* producing output */ 8 113 3 purge_ftns, /* purging footnotes */ 8 114 3 suppress_footref, /* suppress next footnote ref */ 8 115 3 table_mode /* table mode */ 8 116 ) bit (1) unal, 8 117 3 MBZ bit (21) unal, 8 118 2 trans, /* trans table for .tr */ 8 119 3 in char (128) var, /* input chars */ 8 120 3 out char (128) var, /* output chars */ 8 121 2 widow_size fixed bin (31), /* widow size */ 8 122 2 widow_foot fixed bin (31); /* widow for footnotes */ 8 123 /* to save shared data between files/passes */ 8 124 dcl 1 save_shared aligned like shared based (const.save_shared_ptr); 8 125 8 126 dcl dot_addltr_symb_index 8 127 fixed bin static options (constant) init (12); 8 128 dcl max_text_lines fixed bin static options (constant) init (1000); 8 129 dcl mode_string char (16) static options (constant) 8 130 init ("arbihxocalaurlru"); 8 131 /* value overlays */ 8 132 dcl flag_value bit (1) based; 8 133 dcl num_value fixed bin (31) based; 8 134 8 135 /* END INCLUDE FILE comp_shared.incl.pl1 */ 298 9 1 /* BEGIN INCLUDE FILE comp_table.incl.pl1 */ 9 2 9 3 /* format: style2,ind3,ll79,dclind4,idind15,comcol41,linecom */ 9 4 9 5 dcl 1 tbldata aligned based (shared.tbldata_ptr), 9 6 2 ct fixed bin, /* number of active table formats */ 9 7 2 ndx fixed bin, /* index of current active format */ 9 8 2 fmt (20), /* the format */ 9 9 3 name char (32) var, /* name of the format */ 9 10 3 ptr ptr; /* pointer to the format data */ 9 11 9 12 dcl tblfmtndx fixed bin; /* current table format index */ 9 13 dcl tblfmtptr ptr; /* -> current table format */ 9 14 /* table format data */ 9 15 dcl 1 tblfmt aligned based (tblfmtptr), 9 16 2 context bit (1), /* =1 if context mode */ 9 17 2 ccol fixed bin, /* the current table column */ 9 18 2 maxdepth fixed bin (31), /* max depth in table */ 9 19 2 ncols fixed bin, /* number of columns in this format */ 9 20 2 colptr (0:20) ptr; /* pointers to the columns */ 9 21 9 22 dcl tblcolndx fixed bin; /* current table column index */ 9 23 /* -> current table column */ 9 24 dcl tblcolptr ptr init (null ()); 9 25 /* table column data */ 9 26 dcl 1 tblcol aligned based (tblcolptr), 9 27 2 align, /* column alignment mode */ 9 28 3 posn fixed bin (31), 9 29 3 str char (32) var, 9 30 2 depth fixed bin (31), /* current depth for column */ 9 31 2 gutter fixed bin (31), 9 32 2 leader char (16) var, /* leadering string */ 9 33 2 margin, 9 34 3 left fixed bin (31), 9 35 3 right fixed bin (31), 9 36 2 valign bit (4) unal, /* vertical alignment flags */ 9 37 2 MBZ bit (29) unal, 9 38 2 parms /* parms for columns */ 9 39 aligned like default_parms; 9 40 9 41 dcl 1 tblcol0 aligned like tblcol based (tblfmt.colptr (0)); 9 42 /* -> previous table column */ 9 43 dcl prvtblcolptr ptr init (null ()); 9 44 dcl 1 prvtblcol like tblcol aligned based (prvtblcolptr); 9 45 9 46 dcl vtop bit (4) static options (constant) init ("1000"b); 9 47 dcl vcen bit (4) static options (constant) init ("0100"b); 9 48 dcl vbot bit (4) static options (constant) init ("0010"b); 9 49 dcl vjust bit (4) static options (constant) init ("0001"b); 9 50 9 51 /* END INCLUDE FILE comp_table.incl.pl1 */ 299 10 1 /* BEGIN INCLUDE FILE comp_text.incl.pl1 */ 10 2 10 3 /* format: style2,ind2,ll79,dclind4,idind15,comcol41,linecom */ 10 4 10 5 dcl 1 tblkdata /* data for allocated text blocks */ 10 6 aligned based (shared.tblkdata_ptr), 10 7 2 block, /* block pool */ 10 8 3 count fixed bin, 10 9 3 ptr (500) ptr, /* block pointers */ 10 10 /* block state flags */ 10 11 3 free (500) bit (1) unal, 10 12 2 line_area, /* line area pool */ 10 13 3 count fixed bin, 10 14 3 ptr (500) ptr, /* area pointers */ 10 15 /* area state flags */ 10 16 3 free (500) bit (1) unal, 10 17 2 text_area, /* text area pool */ 10 18 3 count fixed bin, 10 19 3 ptr (500) ptr, /* area pointers */ 10 20 /* area state flags */ 10 21 3 free (500) bit (1) unal, 10 22 3 string_area_count 10 23 fixed bin; /* line areas */ 10 24 dcl LINE_AREA_SIZE fixed bin static options (constant) init (24); 10 25 dcl line_area_ptr ptr init (null); 10 26 dcl 1 line_area aligned based (line_area_ptr), 10 27 2 next ptr, /* forward thread */ 10 28 2 prev ptr, /* backward thread */ 10 29 2 count fixed bin, /* number of lines allocated */ 10 30 2 ndx fixed bin, /* index of current line */ 10 31 2 pndx fixed bin, /* area pool index */ 10 32 2 linptr (LINE_AREA_SIZE) ptr; 10 33 /* text areas */ 10 34 dcl TEXT_AREA_SIZE fixed bin static options (constant) init (6); 10 35 dcl text_area_ptr ptr init (null); 10 36 dcl 1 text_area aligned based (text_area_ptr), 10 37 2 next ptr, /* forward thread */ 10 38 2 count fixed bin, /* number of areas allocated */ 10 39 2 ndx fixed bin, /* index of current strarea */ 10 40 2 pndx fixed bin, /* area pool index */ 10 41 2 strareaptr (TEXT_AREA_SIZE) ptr; 10 42 /* text string area */ 10 43 dcl string_area (256) fixed bin based; 10 44 dcl txtstrptr ptr; /* current text string */ 10 45 dcl txtstr char (1020) var based (txtstrptr); 10 46 10 47 dcl TEXT_VERSION fixed bin static options (constant) init (9); 10 48 /* general text block */ 10 49 dcl 1 text aligned based (shared.blkptr), 10 50 2 version fixed bin, /* version of structure */ 10 51 2 blkndx fixed bin, /* block data index */ 10 52 2 blktype char (2), /* block type code */ 10 53 /* dynamic block control stuff */ 10 54 2 hdr aligned like text_header, 10 55 /* text read from input file */ 10 56 2 input aligned like text_entry, 10 57 2 input_line char (1020) var,/* input buffer */ 10 58 2 line_area, 10 59 3 first ptr, /* head of line area thread */ 10 60 3 cur ptr, /* current line area */ 10 61 2 next_text ptr, /* next text string */ 10 62 /* text formatting parameters */ 10 63 2 parms aligned like default_parms, 10 64 2 text_area, 10 65 3 first ptr, /* head of text area thread */ 10 66 3 cur ptr; /* current text area */ 10 67 /* an empty text block line */ 10 68 dcl 1 text_entry aligned based (const.text_entry_ptr), 10 69 2 sws, /* unaligned switches, etc. */ 10 70 3 art bit (1) unal, /* line has artwork */ 10 71 3 cbar, /* change bar flags */ 10 72 4 add bit (1) unal, /* text addition flag */ 10 73 4 del bit (1) unal, /* text deletion flag */ 10 74 4 mod bit (1) unal, /* text modification flag */ 10 75 3 default bit (1) unal, /* 1 = default case as needed */ 10 76 3 DVctl bit (1) unal, /* 1 = line is a device ctl string */ 10 77 3 embedded bit (1) unal, /* 1 = line has an embedded control */ 10 78 3 end_keep bit (1) unal, /* 1= line ends a keep */ 10 79 3 fnt_chng bit (1) unal, /* 1 = text is a font change string */ 10 80 3 footref bit (1) unal, /* 1 = line has a footnote reference */ 10 81 3 hanging bit (1) unal, /* 1 = a hanging undent */ 10 82 3 keep bit (1) unal, /* 1 = unsplittable line */ 10 83 3 no_trim bit (1) unal, /* 1 = untrimmable white line */ 10 84 3 oflo bit (1) unal, /* line causes overflow */ 10 85 3 punct bit (1) unal, /* 1 = line ends with punctuation */ 10 86 3 quad bit (6) unal, /* text alignment flags */ 10 87 3 space_added /* 1= line has added space */ 10 88 bit (1) unal, 10 89 3 spcl, /* special entry - not output text */ 10 90 4 file bit (1) unal, /* 1= output to special file */ 10 91 4 blk_splt /* 1= action at block split time */ 10 92 bit (1) unal, 10 93 4 page_mkup /* 1= action at page makeup time */ 10 94 bit (1) unal, 10 95 3 table bit (1) unal, /* 1= line is a table entry */ 10 96 3 tblspc bit (1) unal, /* 1= WS fill for table mode */ 10 97 3 title bit (1) unal, /* 1= line is a */ 10 98 3 unspnct bit (1) unal, /* 1= underscore punctuation */ 10 99 3 unstop bit (1) unal, /* 1= line is/ends with UNSTOP */ 10 100 3 unstrt bit (1) unal, /* 1= line is/ends with UNSTART */ 10 101 3 unswrds bit (1) unal, /* 1= underscore words only */ 10 102 3 white bit (1) unal, /* 1= line is white space */ 10 103 3 und_prot bit (1) unal, /* 1= undent is protected */ 10 104 3 MBZ bit (4) unal, 10 105 2 art_start fixed bin unal, /* start of art string in line */ 10 106 2 art_len fixed bin unal, /* length of art string in line */ 10 107 2 cbar_level /* change level for cbars */ 10 108 char (1) aligned, 10 109 2 cur, /* current scanning data for line */ 10 110 3 chrct fixed bin, /* count of chars scanned */ 10 111 3 gaps fixed bin, /* gap count */ 10 112 3 width fixed bin (31), /* width of font chars */ 10 113 3 min fixed bin (31), /* width of min spbnds */ 10 114 3 avg fixed bin (31), /* width of avg spbnds */ 10 115 3 max fixed bin (31), /* width of max spbnds */ 10 116 3 font like fntstk_entry, 10 117 2 depth fixed bin (31), /* page depth for line */ 10 118 /* font at start of line */ 10 119 2 font like fntstk_entry, 10 120 2 index fixed bin (21), /* char index for line scanning */ 10 121 2 info, /* stuff created during line input */ 10 122 3 fileno fixed bin, /* input file index */ 10 123 3 lineno fixed bin, /* input file line number */ 10 124 3 lineno0 fixed bin, /* call_box0 line number */ 10 125 2 linespace fixed bin (31), /* linespace value for the line */ 10 126 2 lmarg fixed bin (31), /* adjusted left margin position */ 10 127 2 mod_len fixed bin, /* length of modified text */ 10 128 2 mod_start fixed bin, /* index for start of modified text */ 10 129 2 net fixed bin (31), /* net line width for filling */ 10 130 2 ptr ptr, /* pointer to the actual text */ 10 131 2 rmarg fixed bin (31), /* adjusted right margin position */ 10 132 2 spcl_iocbp ptr, /* iocb ptr for spcl line */ 10 133 2 sym_delim char (1) unal, /* symbol delimiter for this line */ 10 134 2 tblcol fixed bin, /* column for table entries */ 10 135 2 title_delim 10 136 char (1) unal, /* title delimiter if a <title> */ 10 137 2 title_index 10 138 fixed bin, /* <title> block index for line */ 10 139 2 width fixed bin (31), /* width of text */ 10 140 2 ftn, /* footnote info for line */ 10 141 3 ct fixed bin, /* number of footnote refs */ 10 142 3 used fixed bin (31), /* space used */ 10 143 3 e (40), /* limit is arbitrary */ 10 144 4 blkndx fixed bin unal, /* block index of footnote - if this 10 145* value is 0, then .frf was used */ 10 146 4 refno fixed bin unal; /* reference number */ 10 147 10 148 dcl ( 10 149 quadi init ("40"b3), /* set to the inside margin */ 10 150 quado init ("20"b3), /* set to the outside margin */ 10 151 quadl init ("10"b3), /* set left */ 10 152 quadc init ("04"b3), /* set centered */ 10 153 quadr init ("02"b3), /* set right */ 10 154 just init ("01"b3) /* justified */ 10 155 ) bit (6) static options (constant); 10 156 /* control line structure */ 10 157 dcl 1 ctl aligned like text_entry based (const.ctl_ptr); 10 158 dcl ctl_line char (1020) var based (ctl.ptr); 10 159 10 160 dcl txtlinptr ptr; /* the current text line */ 10 161 dcl 1 txtlin aligned like text_entry based (txtlinptr); 10 162 /* empty text header structure */ 10 163 dcl 1 text_header aligned based (const.text_header_ptr), 10 164 2 sws, /* control switches */ 10 165 3 art bit (1) unal, /* block has artwork */ 10 166 3 dfrftn bit (1) unal, /* block is a deferred footnote */ 10 167 3 modified bit (1) unal, /* block contains modified lines */ 10 168 3 no_trim bit (1) unal, /* 1 = dont trim WS block */ 10 169 3 oflo_ftn bit (1) unal, /* overflow footnote */ 10 170 3 tblblk bit (1) unal, /* a table block */ 10 171 3 unref bit (1) unal, /* block is an unreffed footnote */ 10 172 3 white bit (1) unal, /* block is a white space block */ 10 173 3 picture bit (1) unal, /* picture block */ 10 174 3 orphan bit (1) unal, /* 1= footnote is an orphan */ 10 175 3 MBZ bit (26) unal, 10 176 2 art_count fixed bin unal, /* to count input art lines */ 10 177 2 blkptr ptr, /* pointer to suspended block */ 10 178 2 cap_size fixed bin unal, /* line count of text caption */ 10 179 2 cap_used fixed bin (31), /* size of text caption */ 10 180 2 colno fixed bin unal, /* column owning the block */ 10 181 2 count fixed bin unal, /* line count for block */ 10 182 2 eqn_line_count 10 183 fixed bin unal, /* counter for equation lines */ 10 184 2 first_text fixed bin unal, /* OBSOLETE */ 10 185 2 ftn, /* footnotes */ 10 186 3 ct fixed bin, /* count */ 10 187 3 usd fixed bin (31), /* space used */ 10 188 3 blkndx (40) fixed bin, /* footnote block index values */ 10 189 2 head_size fixed bin, /* line count of text header */ 10 190 2 head_used fixed bin (31), /* size of text header */ 10 191 2 index fixed bin unal, /* block index of next output line */ 10 192 2 keep_count fixed bin unal, /* to count input keep lines */ 10 193 2 last_line fixed bin, /* last text line in column */ 10 194 2 mx_ttl_ndx fixed bin, /* max title index value in block */ 10 195 2 name char (32) var, /* block name, if any */ 10 196 2 nofill_count /* to count nofill lines */ 10 197 fixed bin, 10 198 2 parms_ptr ptr, /* parms for suspended block */ 10 199 2 refer fixed bin, /* inter-block reference */ 10 200 2 refer_index /* OBSOLETE */ 10 201 fixed bin, /* a reference */ 10 202 2 split fixed bin, /* split point for balancing */ 10 203 2 trl_ws fixed bin (31), /* trailing WS */ 10 204 2 used fixed bin (31); /* page space used by a column/block */ 10 205 /* text formatting parameters */ 10 206 dcl 1 text_parms aligned like default_parms 10 207 based (const.text_parms_ptr); 10 208 10 209 dcl 1 current_parms 10 210 aligned like default_parms 10 211 based (const.current_parms_ptr); 10 212 10 213 dcl 1 default_parms 10 214 aligned based (const.default_parms_ptr), 10 215 2 sws, /* control switches */ 10 216 3 quad bit (6) unal, /* text alignment mode */ 10 217 3 art bit (1) unal, /* 1 = block countains artwork */ 10 218 3 cbar, /* change bar flags */ 10 219 4 add bit (1) unal, /* text addition flag */ 10 220 4 del bit (1) unal, /* text deletion flag for next line */ 10 221 4 mod bit (1) unal, /* text modification flag */ 10 222 3 fill_mode 10 223 bit (1) unal, /* 1 = fill mode ON */ 10 224 3 footnote bit (1) unal, /* block is a footnote */ 10 225 3 hfc bit (1) unal, /* OBSOLETE */ 10 226 3 htab_mode 10 227 bit (1) unal, /* 1 = horizontal tab mode ON */ 10 228 3 keep bit (1) unal, /* keep mode */ 10 229 3 page bit (1) unal, /* block belongs to page, not text */ 10 230 3 title_mode 10 231 bit (1) unal, /* 0 = plain text, 1 = <title>s OK */ 10 232 3 MBZ bit (19) unal, 10 233 2 ftrptr ptr, /* text caption block */ 10 234 2 cbar_level /* change level for cbars */ 10 235 char (1) aligned, 10 236 2 hdrptr ptr, /* text header block */ 10 237 2 left, /* left margin data */ 10 238 3 indent fixed bin (31), 10 239 3 undent fixed bin (31), 10 240 2 linespace fixed bin (31), /* line spacing value */ 10 241 2 measure fixed bin (31), /* line space for text */ 10 242 /* right margin data */ 10 243 2 right like default_parms.left, 10 244 2 fntstk, /* stack of last 20 font changes */ 10 245 3 index fixed bin, /* which one in use */ 10 246 /* entry(0) is the default */ 10 247 3 entry (0:19) like fntstk_entry; 10 248 10 249 dcl hfcblk_ptr ptr; 10 250 dcl 1 hfcblk aligned like text based (hfcblk_ptr); 10 251 10 252 /* END INCLUDE FILE comp_text.incl.pl1 */ 300 11 1 /* BEGIN INCLUDE FILE comp_tree.incl.pl1 */ 11 2 11 3 /* format: style2,ind2,ll79,dclind4,idind15,comcol41,linecom */ 11 4 11 5 dcl 1 tree /* symbol tree structure */ 11 6 based (const.tree_ptr) aligned, 11 7 ( 2 align_mode, /* current text alignment mode */ 11 8 2 art_mode, /* artwork mode */ 11 9 2 block_index, /* current block index */ 11 10 2 block_name, /* name of current block */ 11 11 2 bottom_margin, /* page bottom margin */ 11 12 2 calling_file_name, /* caller of inserted file */ 11 13 2 callers_lineno, /* lineno of .ifi in calling file */ 11 14 2 devclass, /* DeviceClass */ 11 15 2 devname, /* DeviceName */ 11 16 2 dot_addltr, /* add letter of dot page */ 11 17 2 equation_mode, /* equation mode */ 11 18 2 fill_mode, /* text filling mode */ 11 19 2 fontname, /* fontname function */ 11 20 2 footer_margin, /* page footer margin function */ 11 21 2 frontpage, /* front page flag function */ 11 22 2 head_space, /* head space function */ 11 23 2 header_margin, /* page header margin function */ 11 24 2 keep_mode, /* block splitting mode */ 11 25 2 left_indent, /* left margin indention */ 11 26 2 left_undent, /* left margin adjustment */ 11 27 2 line_input, /* line input function */ 11 28 2 linesleft, /* lines left function */ 11 29 2 linespace, /* linespace function */ 11 30 2 measure_bif, /* measure function */ 11 31 2 next_pageno, /* next page number */ 11 32 2 pagecount, /* total page count function */ 11 33 2 pagelines, /* line number on page function */ 11 34 2 page_length, /* current page length function */ 11 35 2 pageno, /* page number function */ 11 36 2 pointsize, /* pointsize function */ 11 37 2 right_indent, /* right margin indention */ 11 38 2 right_undent, /* right margin adjustment */ 11 39 2 symbol_delimiter, /* symbol delimiter function */ 11 40 2 text_depth, /* text depth function */ 11 41 2 text_lineno, /* input file line number for output_line */ 11 42 2 text_width, /* text width function */ 11 43 2 title_delimiter, /* title delimiter function */ 11 44 2 top_margin, /* page top margin function */ 11 45 2 trans, /* translation table for .trf */ 11 46 2 userinput /* terminal insert function */ 11 47 ) label, /**/ 11 48 /* VARIABLE TABLES */ 11 49 2 count fixed bin, /* variable areas allocated */ 11 50 2 areandx fixed bin, /* current area */ 11 51 /* entry count per area */ 11 52 2 entry_ct (MAX_TREE_AREAS) fixed bin, 11 53 2 entryndx fixed bin, /* current entry in area */ 11 54 ( /* storage area pointers */ 11 55 2 flag_ptr, /* flags */ 11 56 2 name_ptr, /* names */ 11 57 2 num_ptr, /* number values */ 11 58 2 incr_ptr, /* counter increments */ 11 59 2 var_ptr /* variable structures */ 11 60 ) ptr dimension (MAX_TREE_AREAS); 11 61 /* flag values */ 11 62 dcl tree_flags (MAX_TREE_AREA_CT) bit (1) aligned 11 63 based (tree.flag_ptr (tree.areandx)); 11 64 /* counter increment values */ 11 65 dcl tree_incrs (MAX_TREE_AREA_CT) fixed bin (31) 11 66 based (tree.incr_ptr (tree.areandx)); 11 67 /* variable names */ 11 68 dcl tree_names_ptr ptr init (null); 11 69 dcl tree_names (MAX_TREE_AREA_CT) char (32) unal 11 70 based (tree_names_ptr); 11 71 /* numeric values */ 11 72 dcl tree_nums (MAX_TREE_AREA_CT) fixed bin (31) 11 73 based (tree.num_ptr (tree.areandx)); 11 74 11 75 dcl tree_var_ptr ptr init (null);/* variable entry structures */ 11 76 dcl 1 tree_var (MAX_TREE_AREA_CT) aligned based (tree_var_ptr), 11 77 2 flags bit (9) aligned,/* type flags */ 11 78 2 mode fixed bin, /* numeric display mode */ 11 79 2 flag_loc ptr, /* flag value pointer */ 11 80 2 num_loc ptr, /* num value pointer */ 11 81 2 incr_loc ptr, /* num increment pointer */ 11 82 2 str_loc ptr; /* str value pointer */ 11 83 11 84 /* END INCLUDE FILE comp_tree.incl.pl1 */ 301 12 1 /* BEGIN INCLUDE FILE compstat.incl.pl1 - external static data for compose 12 2* 12 3* This storage is converted from external (as declared) to internal by the 12 4* binder and contains items that must be accessible to both the bound and 12 5* unbound program. */ 12 6 12 7 /* Written: ??/??/7? - EJW 12 8* Modified: 10/18/84 - EJW - (First recorded change) Added current_parms_ptr 12 9* and removed the codes array; version 6. 12 10**/ 12 11 12 12 /* format: style2,ind2,ll79,dclind4,idind15,comcol41,linecom */ 12 13 12 14 dcl 1 compstat$compconst 12 15 aligned like const ext static; 12 16 12 17 dcl const_version fixed bin (35) static options (constant) init (6); 12 18 dcl MAX_TREE_AREA_CT /* entries in a tree area */ 12 19 fixed bin static options (constant) init (80); 12 20 dcl MAX_TREE_AREAS /* number of tree areas */ 12 21 fixed bin static options (constant) init (20); 12 22 12 23 dcl 1 const aligned based (compstat$compconst.ptr), 12 24 2 ptr ptr, /* self pointer - MUST BE FIRST */ 12 25 2 version fixed bin (35), /* structure version */ 12 26 2 art_symbols /* string of art symbols */ 12 27 char (28) aligned, 12 28 2 builtin_count /* count of builtin variables */ 12 29 fixed bin, 12 30 2 comp_dir char (200), /* dir in which compose lives */ 12 31 2 comp_version 12 32 char (8) var, /* compose version id */ 12 33 2 date_value char (8) var, /* current date */ 12 34 2 dsm_name char (32), /* device support module name */ 12 35 2 dvt_name char (32), /* device table name */ 12 36 2 max_seg_chars 12 37 fixed bin (35), /* char count in a max seg */ 12 38 2 null_str char (1) var, /* an empty string */ 12 39 2 ptrs, 12 40 ( 3 call_stk_ptr, /* -> insert call stack */ 12 41 3 colhdrptr, /* empty column header structure */ 12 42 3 ctl_ptr, /* input line structure */ 12 43 3 current_parms_ptr, /* current formatting parms */ 12 44 3 default_parms_ptr, /* default initial text parms */ 12 45 3 devptr, /* -> comp_dvt structure */ 12 46 3 dvidptr, /* -> comp_dvid structure */ 12 47 3 errblk_ptr, /* error message block pointer */ 12 48 3 footnote_parms_ptr, /* footnote formatting parms */ 12 49 3 fnttbldata_ptr, /* -> font table data */ 12 50 3 global_area_ptr, /* per invocation storage */ 12 51 3 init_page_parms_ptr, /* default initial page parms */ 12 52 3 insert_data_ptr, /* insert file data block */ 12 53 3 local_area_ptr, /* per file storage */ 12 54 3 loctbl_ptr, /* for font copying */ 12 55 3 option_ptr, /* program options block */ 12 56 3 outproc_ptr, /* device writer for cleanup */ 12 57 3 page_ptr, /* active page structure */ 12 58 3 page_header_ptr, /* empty page header structure */ 12 59 3 page_parms_ptr, /* page formatting parameter block */ 12 60 3 save_shared_ptr, /* saved shared data */ 12 61 3 shared_ptr, /* shared data structure */ 12 62 3 text_entry_ptr, /* empty text entry structure */ 12 63 3 text_header_ptr, /* empty text header structure */ 12 64 3 text_parms_ptr, /* main body formatting parms */ 12 65 3 tree_ptr /* symbol tree structure */ 12 66 ) ptr, 12 67 2 time_value char (6) var; /* time at start */ 12 68 12 69 /* Other external */ 12 70 dcl ( 12 71 ioa_, 12 72 ioa_$nnl 12 73 ) entry options (variable); 12 74 dcl iox_$error_output 12 75 ptr ext static, /* iocb pointer for error_output */ 12 76 iox_$user_input 12 77 ptr ext static, /* iocb pointer for user_input */ 12 78 iox_$user_output 12 79 ptr ext static; /* iocb pointer for user_output */ 12 80 dcl sys_info$max_seg_size 12 81 fixed bin (18) ext static; 12 82 12 83 /* END INCLUDE FILE compstat.incl.pl1 */ 302 303 /*%include translator_temp_alloc;*/ 304 305 end comp_title_block_; SOURCE FILES USED IN THIS COMPILATION. LINE NUMBER DATE MODIFIED NAME PATHNAME 0 04/23/85 0910.5 comp_title_block_.pl1 >spec>online>comp>comp_title_block_.pl1 291 1 04/23/85 0912.1 comp_brktypes.incl.pl1 >spec>online>comp>comp_brktypes.incl.pl1 292 2 04/23/85 0912.2 comp_column.incl.pl1 >spec>online>comp>comp_column.incl.pl1 293 3 03/01/85 1411.9 comp_entries.incl.pl1 >ldd>include>comp_entries.incl.pl1 294 4 03/01/85 1412.0 comp_fntstk.incl.pl1 >ldd>include>comp_fntstk.incl.pl1 295 5 04/23/85 0912.3 comp_metacodes.incl.pl1 >spec>online>comp>comp_metacodes.incl.pl1 296 6 03/01/85 1412.0 comp_option.incl.pl1 >ldd>include>comp_option.incl.pl1 297 7 04/23/85 0912.4 comp_page.incl.pl1 >spec>online>comp>comp_page.incl.pl1 298 8 03/01/85 1412.0 comp_shared.incl.pl1 >ldd>include>comp_shared.incl.pl1 299 9 03/01/85 1412.0 comp_table.incl.pl1 >ldd>include>comp_table.incl.pl1 300 10 04/23/85 0912.6 comp_text.incl.pl1 >spec>online>comp>comp_text.incl.pl1 301 11 03/01/85 1412.0 comp_tree.incl.pl1 >ldd>include>comp_tree.incl.pl1 302 12 03/01/85 1412.1 compstat.incl.pl1 >ldd>include>compstat.incl.pl1 NAMES DECLARED IN THIS COMPILATION. IDENTIFIER OFFSET LOC STORAGE CLASS DATA TYPE ATTRIBUTES AND REFERENCES (* indicates a set context) NAMES DECLARED BY DECLARE STATEMENT. PAD constant char(1) initial unaligned dcl 5-6 ref 167 167 art 4 based bit(1) level 4 in structure "ttlblk" packed unaligned dcl 26 in procedure "comp_title_block_" set ref 35* 153 art 4 based bit(1) level 4 in structure "text" packed unaligned dcl 10-49 in procedure "comp_title_block_" set ref 153* 153 174 257* art based bit(1) level 3 in structure "txtlin" packed unaligned dcl 10-161 in procedure "comp_title_block_" ref 97 132 art 116 based bit(1) level 4 in structure "ttlblk" packed unaligned dcl 26 in procedure "comp_title_block_" set ref 174* 174 176* 185 balftn 2 based structure level 2 in structure "colhdr" dcl 2-21 in procedure "comp_title_block_" balftn 320 based structure level 3 in structure "col0" dcl 2-37 in procedure "comp_title_block_" balftn 320 based structure level 3 in structure "col" dcl 2-5 in procedure "comp_title_block_" blkct 373 based fixed bin(17,0) level 3 dcl 2-5 set ref 46* 268* blkndx 1 based fixed bin(17,0) level 2 in structure "ttlblk" dcl 26 in procedure "comp_title_block_" set ref 35* blkndx 1 based fixed bin(17,0) level 2 in structure "text" dcl 10-49 in procedure "comp_title_block_" set ref 40* 257* blkptr 3752 based pointer level 3 in structure "shared" dcl 8-7 in procedure "comp_title_block_" set ref 40 40 40 40 40 40 40 40 65 68 88 102* 114 137* 153 153 171 174 176 189* 232 235 235 236 236 239 239 242 247 257 257 257 257 257 257 257 257 257 257 257 257 257 257 257 257 257 blkptr parameter pointer dcl 19 in procedure "comp_title_block_" set ref 14 35 35 35 35 35 35 35 35 35 61 76 79 80 117 120 121 153 155 164 165 165 167 169 171 171 174 174 176 176 176 176 176 181 181 181 181 185 185 185 185 185 189 189 192 210 232 235 236 239 239 239* 257 blktype 2 based char(2) level 2 in structure "text" dcl 10-49 in procedure "comp_title_block_" set ref 40* 65 68 88 114 176 242 257* blktype 2 based char(2) level 2 in structure "ttlblk" dcl 26 in procedure "comp_title_block_" set ref 35* 192 210 block_break 000022 constant fixed bin(17,0) initial dcl 1-9 set ref 242* bug_mode 4113 based bit(1) level 3 packed unaligned dcl 8-7 ref 32 252 chars 1 based structure level 2 dcl 8-7 col based structure level 1 dcl 2-5 col0 based structure level 1 dcl 2-37 col_index 21 based fixed bin(17,0) level 3 dcl 7-11 set ref 46* 268* colhdr based structure level 1 dcl 2-21 colptr 3754 based pointer level 3 dcl 8-7 ref 46 46 46 46 46 46 46 46 46 46 46 46 46 74 268 268 268 268 268 268 268 268 268 268 268 268 268 column_ptr 42 based pointer array level 2 dcl 7-11 ref 46 46 46 46 72 268 268 268 268 comp_break_ 000010 constant entry external dcl 3-11 ref 242 247 comp_use_ref_ 000012 constant entry external dcl 3-74 ref 176 comp_util_$add_text 000014 constant entry external dcl 3-75 ref 102 137 189 comp_util_$escape 000016 constant entry external dcl 3-80 ref 185 comp_util_$relblk 000020 constant entry external dcl 3-94 ref 239 compstat$compconst 000022 external static structure level 1 dcl 12-14 const based structure level 1 dcl 12-23 count 12(18) based fixed bin(17,0) level 3 in structure "text" packed unaligned dcl 10-49 in procedure "comp_title_block_" set ref 40* 257* count 12(18) based fixed bin(17,0) level 3 in structure "ttlblk" packed unaligned dcl 26 in procedure "comp_title_block_" set ref 35* 61 236 ct 14 based fixed bin(17,0) level 4 in structure "text" dcl 10-49 in procedure "comp_title_block_" set ref 257 257* ct 375 based fixed bin(17,0) level 4 in structure "col0" dcl 2-37 in procedure "comp_title_block_" set ref 46 46* 268 268* ct 375 based fixed bin(17,0) level 4 in structure "col" dcl 2-5 in procedure "comp_title_block_" set ref 46 46* 268 268* datum parameter fixed bin(31,0) dcl 285 ref 283 288 default_parms based structure level 1 dcl 10-213 depth_adj 310 based fixed bin(31,0) level 2 dcl 2-5 set ref 46* 46* 268* 268* first 776 based pointer level 3 dcl 26 ref 80 121 155 fntstk_entry based structure level 1 dcl 4-6 format_break 000012 constant fixed bin(17,0) initial dcl 1-9 set ref 247* ftn 375 based structure level 3 in structure "col" dcl 2-5 in procedure "comp_title_block_" ftn 14 based structure level 3 in structure "text" dcl 10-49 in procedure "comp_title_block_" ftn 375 based structure level 3 in structure "col0" dcl 2-37 in procedure "comp_title_block_" ftrptr 1010 based pointer level 3 dcl 10-49 ref 239 hdr 316 based structure level 2 in structure "col0" dcl 2-37 in procedure "comp_title_block_" hdr 316 based structure level 2 in structure "col" dcl 2-5 in procedure "comp_title_block_" hdr 15 based structure level 2 in structure "page" dcl 7-11 in procedure "comp_title_block_" hdr 4 based structure level 2 in structure "ttlblk" dcl 26 in procedure "comp_title_block_" hdr 4 based structure level 2 in structure "text" dcl 10-49 in procedure "comp_title_block_" hdrptr 1014 based pointer level 3 dcl 10-49 ref 232 239 257 hdspc 23 based fixed bin(31,0) level 3 dcl 7-11 set ref 46* 46* 268* 268* head_size 66 based fixed bin(17,0) level 3 dcl 10-49 set ref 236* 236 head_used 67 based fixed bin(31,0) level 3 dcl 10-49 set ref 235* 235 257* 257* i 000100 automatic fixed bin(17,0) dcl 23 set ref 79* 85* 120* 126* 157* 158* index builtin function dcl 29 ref 65 97 114 132 167 176 181 185 info 277 based structure level 3 in structure "text" dcl 10-49 in procedure "comp_title_block_" info 277 based structure level 3 in structure "hfcblk" dcl 10-250 in procedure "comp_title_block_" info 277 based structure level 3 in structure "ttlblk" dcl 26 in procedure "comp_title_block_" set ref 176 176 185 185 info 161 based structure level 2 in structure "text_entry" dcl 10-68 in procedure "comp_title_block_" info 161 based structure level 2 in structure "ctl" dcl 10-157 in procedure "comp_title_block_" info 161 based structure level 2 in structure "txtlin" dcl 10-161 in procedure "comp_title_block_" input 116 based structure level 2 dcl 26 set ref 164* 189 189 input_line 375 based varying char(1020) level 2 in structure "text" dcl 10-49 in procedure "comp_title_block_" ref 247 input_line 375 based varying char(1020) level 2 in structure "ttlblk" dcl 26 in procedure "comp_title_block_" set ref 165 167* 169* 176 176* 181 185 185* inserting_hfc 4113(07) based bit(1) level 3 packed unaligned dcl 8-7 set ref 57* 279* ioa_ 000024 constant entry external dcl 12-70 ref 40 44 46 257 266 268 ioa_$nnl 000026 constant entry external dcl 12-70 ref 35 255 j 000101 automatic fixed bin(17,0) dcl 23 set ref 82* 83* 123* 124* just constant bit(6) initial unaligned dcl 10-148 ref 97 132 181 keep 1006(04) based bit(1) level 4 packed unaligned dcl 10-49 set ref 257* left 1016 based structure level 3 in structure "hfcblk" dcl 10-250 in procedure "comp_title_block_" left 12 based structure level 2 in structure "current_parms" dcl 10-209 in procedure "comp_title_block_" left 1016 based structure level 3 in structure "text" dcl 10-49 in procedure "comp_title_block_" left 36 based structure level 3 in structure "tblcol" dcl 9-26 in procedure "comp_title_block_" left 12 based structure level 2 in structure "default_parms" dcl 10-213 in procedure "comp_title_block_" left 1016 based structure level 3 in structure "ttlblk" dcl 26 in procedure "comp_title_block_" left 12 based structure level 2 in structure "text_parms" dcl 10-206 in procedure "comp_title_block_" left 36 based structure level 3 in structure "prvtblcol" dcl 9-44 in procedure "comp_title_block_" left 36 based structure level 3 in structure "tblcol0" dcl 9-41 in procedure "comp_title_block_" line_area based structure level 1 dcl 10-26 in procedure "comp_title_block_" line_area 776 based structure level 2 in structure "ttlblk" dcl 26 in procedure "comp_title_block_" line_area_ptr 000112 automatic pointer initial dcl 10-25 set ref 80* 80* 82 83* 106 121* 121* 123 124* 141 155* 155* 157 158* 230 10-25* linespace 164 based fixed bin(31,0) level 2 dcl 10-161 ref 161 linptr 10 based pointer array level 2 dcl 10-26 ref 83 124 158 lmarg 165 based fixed bin(31,0) level 2 dcl 10-161 ref 93 margin 455 based structure level 2 in structure "col" dcl 2-5 in procedure "comp_title_block_" margin 455 based structure level 2 in structure "col0" dcl 2-37 in procedure "comp_title_block_" meas 000102 automatic bit(1) unaligned dcl 24 set ref 97* 102* 132* 137* 181* 189* measure 11 based fixed bin(31,0) level 3 dcl 7-11 ref 88 129 171 mx_ttl_ndx 72 based fixed bin(17,0) level 3 dcl 26 ref 35 76 79 117 120 ndx 5 based fixed bin(17,0) level 2 dcl 10-26 ref 82 123 157 net 306 based fixed bin(31,0) level 3 in structure "ttlblk" dcl 26 in procedure "comp_title_block_" set ref 171* net 450 based fixed bin(31,0) level 3 in structure "col" dcl 2-5 in procedure "comp_title_block_" set ref 46* 46* 268* 268* net 25 based fixed bin(31,0) level 3 in structure "page" dcl 7-11 in procedure "comp_title_block_" set ref 46* 46* 268* 268* net 170 based fixed bin(31,0) level 2 in structure "txtlin" dcl 10-161 in procedure "comp_title_block_" set ref 88* 93* 129* next based pointer level 2 dcl 10-26 ref 106 141 230 page based structure level 1 dcl 7-11 in procedure "comp_title_block_" page 1006(05) based bit(1) level 4 in structure "text" packed unaligned dcl 10-49 in procedure "comp_title_block_" ref 171 page_flag 000103 automatic bit(1) unaligned dcl 25 set ref 58* 71* page_header based structure level 1 dcl 7-27 page_parms based structure level 1 dcl 7-86 page_ptr 170 based pointer level 3 dcl 12-23 ref 46 46 46 46 46 46 46 46 46 46 46 46 72 88 129 171 268 268 268 268 268 268 268 268 268 268 268 268 pageno 26 based varying char(32) level 3 dcl 7-11 set ref 46* 268* parms 1004 based structure level 2 in structure "text" dcl 10-49 in procedure "comp_title_block_" parms 1 based structure level 2 in structure "page" dcl 7-11 in procedure "comp_title_block_" prvtblcolptr 000110 automatic pointer initial dcl 9-43 set ref 9-43* pspc 447 based fixed bin(31,0) level 3 dcl 2-5 set ref 46* 46* 268* 268* ptr 310 based pointer level 3 in structure "ttlblk" dcl 26 in procedure "comp_title_block_" set ref 165* ptr 172 based pointer level 2 in structure "txtlin" dcl 10-161 in procedure "comp_title_block_" ref 96 131 159 ptr 000022 external static pointer level 2 in structure "compstat$compconst" dcl 12-14 in procedure "comp_title_block_" ref 32 40 40 40 40 40 40 40 40 46 46 46 46 46 46 46 46 46 46 46 46 46 46 46 46 46 46 46 46 46 46 46 46 46 57 65 68 72 74 88 88 97 102 114 129 132 137 153 153 171 171 174 176 176 181 189 232 235 235 236 236 239 239 242 247 252 257 257 257 257 257 257 257 257 257 257 257 257 257 257 257 257 257 268 268 268 268 268 268 268 268 268 268 268 268 268 268 268 268 268 268 268 268 268 268 268 268 268 279 ptrs 3742 based structure level 2 in structure "shared" dcl 8-7 in procedure "comp_title_block_" ptrs 126 based structure level 2 in structure "const" dcl 12-23 in procedure "comp_title_block_" quad 120(11) based bit(6) level 4 in structure "ttlblk" packed unaligned dcl 26 in procedure "comp_title_block_" set ref 181 181 quad 2(11) based bit(6) level 3 in structure "txtlin" packed unaligned dcl 10-161 in procedure "comp_title_block_" ref 97 97 132 132 quadl constant bit(6) initial unaligned dcl 10-148 ref 97 132 181 right 456 based fixed bin(31,0) level 3 in structure "col0" dcl 2-37 in procedure "comp_title_block_" ref 72 right 456 based fixed bin(31,0) level 3 in structure "col" dcl 2-5 in procedure "comp_title_block_" ref 74 rmarg 174 based fixed bin(31,0) level 2 in structure "txtlin" dcl 10-161 in procedure "comp_title_block_" set ref 88* 92* 93 129* rmarg 312 based fixed bin(31,0) level 3 in structure "ttlblk" dcl 26 in procedure "comp_title_block_" set ref 171* scale parameter fixed bin(31,0) dcl 286 ref 283 288 shared based structure level 1 dcl 8-7 shared_ptr 200 based pointer level 3 dcl 12-23 ref 32 40 40 40 40 40 40 40 40 46 46 46 46 46 46 46 46 46 46 46 46 46 57 65 68 74 88 97 102 114 132 137 153 153 171 174 176 176 181 189 232 235 235 236 236 239 239 242 247 252 257 257 257 257 257 257 257 257 257 257 257 257 257 257 257 257 257 268 268 268 268 268 268 268 268 268 268 268 268 268 279 sws 116 based structure level 3 in structure "ttlblk" dcl 26 in procedure "comp_title_block_" sws 4 based structure level 3 in structure "text" dcl 10-49 in procedure "comp_title_block_" sws based structure level 2 in structure "txtlin" dcl 10-161 in procedure "comp_title_block_" sws 4 based structure level 3 in structure "ttlblk" dcl 26 in procedure "comp_title_block_" sws 1004 based structure level 3 in structure "text" dcl 10-49 in procedure "comp_title_block_" sws 4113 based structure level 2 in structure "shared" dcl 8-7 in procedure "comp_title_block_" sym_delim 1 based char(1) level 3 packed unaligned dcl 8-7 ref 97 132 176 181 tblcol based structure level 1 dcl 9-26 tblcolptr 000106 automatic pointer initial dcl 9-24 set ref 9-24* text based structure level 1 dcl 10-49 text_area_ptr 000114 automatic pointer initial dcl 10-35 set ref 10-35* text_entry based structure level 1 dcl 10-68 text_header based structure level 1 dcl 10-163 title_index 203 based fixed bin(17,0) level 2 dcl 10-161 ref 85 126 tree_names_ptr 000122 automatic pointer initial dcl 11-68 set ref 11-68* tree_var_ptr 000124 automatic pointer initial dcl 11-75 set ref 11-75* trl_ws 113 based fixed bin(31,0) level 3 in structure "text" dcl 10-49 in procedure "comp_title_block_" set ref 40* 40* 257* 257* trl_ws 113 based fixed bin(31,0) level 3 in structure "ttlblk" dcl 26 in procedure "comp_title_block_" set ref 35* 35* ttlblk based structure level 1 dcl 26 txtlin based structure level 1 dcl 10-161 set ref 164 txtlinptr 000120 automatic pointer dcl 10-160 set ref 83* 85 88 88 92 93 93 93 96 97 97 97 102* 124* 126 129 129 131 132 132 132 137* 158* 159 161 164 txtrmarg 000104 automatic fixed bin(31,0) dcl 27 set ref 72* 74* 92 txtstr based varying char(1020) dcl 10-45 ref 97 132 161 167 167 169 txtstrptr 000116 automatic pointer dcl 10-44 set ref 96* 97 131* 132 159* 161 167 167 169 usd 376 based fixed bin(31,0) level 4 in structure "col0" dcl 2-37 in procedure "comp_title_block_" set ref 46* 46* 268* 268* usd 15 based fixed bin(31,0) level 4 in structure "text" dcl 10-49 in procedure "comp_title_block_" set ref 257* 257* usd 376 based fixed bin(31,0) level 4 in structure "col" dcl 2-5 in procedure "comp_title_block_" set ref 46* 46* 268* 268* used 114 based fixed bin(31,0) level 3 in structure "text" dcl 10-49 in procedure "comp_title_block_" set ref 40* 40* 257* 257* used 114 based fixed bin(31,0) level 3 in structure "ttlblk" dcl 26 in procedure "comp_title_block_" set ref 35* 35* 235 used 37 based fixed bin(31,0) level 3 in structure "page" dcl 7-11 in procedure "comp_title_block_" set ref 46* 46* 268* 268* used 451 based fixed bin(31,0) level 3 in structure "col" dcl 2-5 in procedure "comp_title_block_" set ref 46* 46* 268* 268* width 322 based fixed bin(31,0) level 3 dcl 26 set ref 181 NAMES DECLARED BY DECLARE STATEMENT AND NEVER REFERENCED. ACK internal static char(1) initial unaligned dcl 5-6 BEL internal static char(1) initial unaligned dcl 5-6 BRS internal static char(1) initial unaligned dcl 5-6 BSP internal static char(1) initial unaligned dcl 5-6 CAN internal static char(1) initial unaligned dcl 5-6 CR internal static char(1) initial unaligned dcl 5-6 DC1 internal static char(1) initial unaligned dcl 5-6 DC2 internal static char(1) initial unaligned dcl 5-6 DC3 internal static char(1) initial unaligned dcl 5-6 DC4 internal static char(1) initial unaligned dcl 5-6 DEL internal static char(1) initial unaligned dcl 5-6 DEVIT internal static char(1) initial unaligned dcl 5-6 DLE internal static char(1) initial unaligned dcl 5-6 EM internal static char(1) initial unaligned dcl 5-6 EM_ internal static char(1) initial unaligned dcl 5-6 EMdash internal static char(1) initial unaligned dcl 5-6 EN internal static char(1) initial unaligned dcl 5-6 ENQ internal static char(1) initial unaligned dcl 5-6 EN_ internal static char(1) initial unaligned dcl 5-6 ENd internal static char(1) initial unaligned dcl 5-6 EOT internal static char(1) initial unaligned dcl 5-6 ESC internal static char(1) initial unaligned dcl 5-6 ETB internal static char(1) initial unaligned dcl 5-6 ETX internal static char(1) initial unaligned dcl 5-6 FF internal static char(1) initial unaligned dcl 5-6 FS internal static char(1) initial unaligned dcl 5-6 GS internal static char(1) initial unaligned dcl 5-6 HAIR internal static char(1) initial unaligned dcl 5-6 HLF internal static char(1) initial unaligned dcl 5-6 HLR internal static char(1) initial unaligned dcl 5-6 HT internal static char(1) initial unaligned dcl 5-6 HUGE internal static char(1) initial unaligned dcl 5-6 LF internal static char(1) initial unaligned dcl 5-6 LINE_AREA_SIZE internal static fixed bin(17,0) initial dcl 10-24 MAX_TREE_AREAS internal static fixed bin(17,0) initial dcl 12-20 MAX_TREE_AREA_CT internal static fixed bin(17,0) initial dcl 12-18 MEDIUM internal static char(1) initial unaligned dcl 5-6 NAK internal static char(1) initial unaligned dcl 5-6 NL internal static char(1) initial unaligned dcl 5-6 NUL internal static char(1) initial unaligned dcl 5-6 PI internal static char(1) initial unaligned dcl 5-6 PS internal static char(1) initial unaligned dcl 5-6 RRS internal static char(1) initial unaligned dcl 5-6 RS internal static char(1) initial unaligned dcl 5-6 SI internal static char(1) initial unaligned dcl 5-6 SO internal static char(1) initial unaligned dcl 5-6 SOH internal static char(1) initial unaligned dcl 5-6 STROKE internal static char(1) initial unaligned dcl 5-6 STX internal static char(1) initial unaligned dcl 5-6 SUB internal static char(1) initial unaligned dcl 5-6 SYN internal static char(1) initial unaligned dcl 5-6 TEXT_AREA_SIZE internal static fixed bin(17,0) initial dcl 10-34 TEXT_VERSION internal static fixed bin(17,0) initial dcl 10-47 THICK internal static char(1) initial unaligned dcl 5-6 THIN internal static char(1) initial unaligned dcl 5-6 US internal static char(1) initial unaligned dcl 5-6 VT internal static char(1) initial unaligned dcl 5-6 approx internal static char(1) initial unaligned dcl 5-6 bullet internal static char(1) initial unaligned dcl 5-6 column_break internal static fixed bin(17,0) initial dcl 1-9 comp_ 000000 constant entry external dcl 3-7 comp_art_ 000000 constant entry external dcl 3-8 comp_block_ctls_ 000000 constant entry external dcl 3-9 comp_break_ctls_ 000000 constant entry external dcl 3-12 comp_ctls_ 000000 constant entry external dcl 3-14 comp_eject_page_ 000000 constant entry external dcl 3-15 comp_expr_eval_ 000000 constant entry external dcl 3-17 comp_extr_str_ 000000 constant entry external dcl 3-21 comp_fill_ 000000 constant entry external dcl 3-24 comp_font_ 000000 constant entry external dcl 3-25 comp_format_ctls_ 000000 constant entry external dcl 3-26 comp_get_file_$find 000000 constant entry external dcl 3-28 comp_get_file_$open 000000 constant entry external dcl 3-31 comp_head_page_ 000000 constant entry external dcl 3-33 comp_hft_ctls_ 000000 constant entry external dcl 3-35 comp_hft_ctls_$title 000000 constant entry external dcl 3-36 comp_init_$one 000000 constant entry external dcl 3-38 comp_init_$three 000000 constant entry external dcl 3-40 comp_init_$two 000000 constant entry external dcl 3-39 comp_insert_ctls_ 000000 constant entry external dcl 3-42 comp_make_page_ 000000 constant entry external dcl 3-44 comp_make_page_$cleanup 000000 constant entry external dcl 3-46 comp_measure_ 000000 constant entry external dcl 3-48 comp_read_$line 000000 constant entry external dcl 3-57 comp_read_$name 000000 constant entry external dcl 3-50 comp_read_$number 000000 constant entry external dcl 3-53 comp_report_ 000000 constant entry external dcl 3-59 comp_report_$ctlstr 000000 constant entry external dcl 3-61 comp_report_$exact 000000 constant entry external dcl 3-64 comp_space_ 000000 constant entry external dcl 3-66 comp_tbl_ctls_ 000000 constant entry external dcl 3-68 comp_title_block_ 000000 constant entry external dcl 3-69 comp_update_symbol_ 000000 constant entry external dcl 3-71 comp_util_$display 000000 constant entry external dcl 3-77 comp_util_$getblk 000000 constant entry external dcl 3-82 comp_util_$num_display 000000 constant entry external dcl 3-84 comp_util_$pageno 000000 constant entry external dcl 3-86 comp_util_$pictures 000000 constant entry external dcl 3-88 comp_util_$pop 000000 constant entry external dcl 3-91 comp_util_$push 000000 constant entry external dcl 3-92 comp_util_$replace_text 000000 constant entry external dcl 3-96 comp_util_$search_tree 000000 constant entry external dcl 3-98 comp_util_$set_bin 000000 constant entry external dcl 3-100 comp_util_$set_net_page 000000 constant entry external dcl 3-104 comp_util_$translate 000000 constant entry external dcl 3-106 comp_write_block_ 000000 constant entry external dcl 3-108 comp_write_page_ 000000 constant entry external dcl 3-110 compose_severity_ external static fixed bin(35,0) dcl 3-5 const_version internal static fixed bin(35,0) initial dcl 12-17 cright internal static char(1) initial unaligned dcl 5-6 ctl based structure level 1 dcl 10-157 ctl_line based varying char(1020) dcl 10-158 current_parms based structure level 1 dcl 10-209 dagger internal static char(1) initial unaligned dcl 5-6 dbldag internal static char(1) initial unaligned dcl 5-6 delmark internal static char(1) initial unaligned dcl 5-6 delta internal static char(1) initial unaligned dcl 5-6 dot_addltr_symb_index internal static fixed bin(17,0) initial dcl 8-126 flag_value based bit(1) unaligned dcl 8-132 fntstk_eptr automatic pointer dcl 4-5 footer_break internal static fixed bin(17,0) initial dcl 1-9 footnote_break internal static fixed bin(17,0) initial dcl 1-9 hfcblk based structure level 1 dcl 10-250 hfcblk_ptr automatic pointer dcl 10-249 infin internal static char(1) initial unaligned dcl 5-6 init_page_parms based structure level 1 dcl 7-108 iox_$error_output external static pointer dcl 12-74 iox_$user_input external static pointer dcl 12-74 iox_$user_output external static pointer dcl 12-74 length builtin function dcl 29 lquote internal static char(1) initial unaligned dcl 5-6 lslnt internal static char(1) initial unaligned dcl 5-6 max_cols internal static fixed bin(17,0) initial dcl 7-7 max_image_lines internal static fixed bin(17,0) initial dcl 7-5 max_text_lines internal static fixed bin(17,0) initial dcl 8-128 mode_string internal static char(16) initial unaligned dcl 8-129 modmark internal static char(1) initial unaligned dcl 5-6 multiply internal static char(1) initial unaligned dcl 5-6 nabla internal static char(1) initial unaligned dcl 5-6 need_break internal static fixed bin(17,0) initial dcl 1-9 not_eq internal static char(1) initial unaligned dcl 5-6 num_value based fixed bin(31,0) dcl 8-133 oct031 internal static char(1) initial unaligned dcl 5-6 option based structure level 1 dcl 6-5 option_version internal static fixed bin(35,0) initial dcl 6-3 overbar internal static char(1) initial unaligned dcl 5-6 page_break internal static fixed bin(17,0) initial dcl 1-9 page_image based structure level 1 dcl 7-56 page_image_version internal static fixed bin(35,0) initial dcl 7-53 page_version internal static fixed bin(17,0) initial dcl 7-9 perpen internal static char(1) initial unaligned dcl 5-6 pi internal static char(1) initial unaligned dcl 5-6 pl_mi internal static char(1) initial unaligned dcl 5-6 prll internal static char(1) initial unaligned dcl 5-6 prvtblcol based structure level 1 dcl 9-44 quadc internal static bit(6) initial unaligned dcl 10-148 quadi internal static bit(6) initial unaligned dcl 10-148 quado internal static bit(6) initial unaligned dcl 10-148 quadr internal static bit(6) initial unaligned dcl 10-148 rquote internal static char(1) initial unaligned dcl 5-6 save_shared based structure level 1 dcl 8-124 shared_version internal static fixed bin(35,0) initial dcl 8-5 size builtin function dcl 29 slash internal static char(1) initial unaligned dcl 5-6 square internal static char(1) initial unaligned dcl 5-6 string_area based fixed bin(17,0) array dcl 10-43 sup0 internal static char(1) initial unaligned dcl 5-6 sup1 internal static char(1) initial unaligned dcl 5-6 sup2 internal static char(1) initial unaligned dcl 5-6 sup3 internal static char(1) initial unaligned dcl 5-6 sup4 internal static char(1) initial unaligned dcl 5-6 sup5 internal static char(1) initial unaligned dcl 5-6 sup6 internal static char(1) initial unaligned dcl 5-6 sup7 internal static char(1) initial unaligned dcl 5-6 sup8 internal static char(1) initial unaligned dcl 5-6 sup9 internal static char(1) initial unaligned dcl 5-6 sys_info$max_seg_size external static fixed bin(18,0) dcl 12-80 tblcol0 based structure level 1 dcl 9-41 tblcolndx automatic fixed bin(17,0) dcl 9-22 tbldata based structure level 1 dcl 9-5 tblfmt based structure level 1 dcl 9-15 tblfmtndx automatic fixed bin(17,0) dcl 9-12 tblfmtptr automatic pointer dcl 9-13 tblkdata based structure level 1 dcl 10-5 text_area based structure level 1 dcl 10-36 text_parms based structure level 1 dcl 10-206 tfore internal static char(1) initial unaligned dcl 5-6 theta internal static char(1) initial unaligned dcl 5-6 tmark internal static char(1) initial unaligned dcl 5-6 tree based structure level 1 dcl 11-5 tree_flags based bit(1) array dcl 11-62 tree_incrs based fixed bin(31,0) array dcl 11-65 tree_names based char(32) array unaligned dcl 11-69 tree_nums based fixed bin(31,0) array dcl 11-72 tree_var based structure array level 1 dcl 11-76 vbot internal static bit(4) initial unaligned dcl 9-48 vcen internal static bit(4) initial unaligned dcl 9-47 vjust internal static bit(4) initial unaligned dcl 9-49 vrule internal static char(1) initial unaligned dcl 5-6 vtop internal static bit(4) initial unaligned dcl 9-46 NAMES DECLARED BY EXPLICIT CONTEXT. comp_title_block_ 000153 constant entry external dcl 14 return_ 002066 constant label dcl 242 ref 61 109 144 show 002765 constant entry internal dcl 283 ref 35 35 35 35 40 40 40 40 46 46 46 46 46 46 46 46 46 46 46 46 46 46 46 46 46 46 257 257 257 257 257 257 257 257 268 268 268 268 268 268 268 268 268 268 268 268 268 268 268 268 268 268 NAMES DECLARED BY CONTEXT OR IMPLICATION. addr builtin function ref 165 176 176 185 185 189 189 dec builtin function ref 288 divide builtin function ref 288 ltrim builtin function ref 167 null builtin function ref 40 80 121 155 257 9-24 9-43 10-25 10-35 11-68 11-75 round builtin function ref 288 288 STORAGE REQUIREMENTS FOR THIS PROGRAM. Object Text Link Symbol Defs Static Start 0 0 3136 3166 3026 3146 Length 3634 3026 30 432 110 0 BLOCK NAME STACK SIZE TYPE WHY NONQUICK/WHO SHARES STACK FRAME comp_title_block_ 334 external procedure is an external procedure. show internal procedure shares stack frame of external procedure comp_title_block_. STORAGE FOR AUTOMATIC VARIABLES. STACK FRAME LOC IDENTIFIER BLOCK NAME comp_title_block_ 000100 i comp_title_block_ 000101 j comp_title_block_ 000102 meas comp_title_block_ 000103 page_flag comp_title_block_ 000104 txtrmarg comp_title_block_ 000106 tblcolptr comp_title_block_ 000110 prvtblcolptr comp_title_block_ 000112 line_area_ptr comp_title_block_ 000114 text_area_ptr comp_title_block_ 000116 txtstrptr comp_title_block_ 000120 txtlinptr comp_title_block_ 000122 tree_names_ptr comp_title_block_ 000124 tree_var_ptr comp_title_block_ THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM. r_g_a r_e_as call_ext_out_desc call_ext_out return ext_entry round_fx1 real_to_real_tr divide_fx1 THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM. comp_break_ comp_use_ref_ comp_util_$add_text comp_util_$escape comp_util_$relblk ioa_ ioa_$nnl THE FOLLOWING EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. compstat$compconst LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC 14 000150 9 24 000160 9 43 000162 10 25 000163 10 35 000164 11 68 000165 11 75 000166 32 000167 35 000175 40 000314 44 000433 46 000445 57 001013 58 001021 61 001022 65 001031 68 001047 71 001051 72 001053 73 001061 74 001062 76 001065 79 001067 80 001073 82 001104 83 001115 85 001121 88 001124 92 001142 93 001144 96 001146 97 001150 102 001202 105 001230 106 001232 107 001236 109 001241 111 001242 114 001243 117 001255 120 001257 121 001265 123 001276 124 001307 126 001313 129 001316 131 001325 132 001327 137 001364 140 001412 141 001414 142 001420 144 001422 153 001423 155 001436 157 001444 158 001455 159 001461 161 001463 164 001472 165 001500 167 001502 169 001543 171 001552 174 001570 176 001575 181 001643 185 001711 189 001744 192 002002 210 002012 229 002014 230 002016 232 002022 235 002034 236 002040 239 002044 242 002066 247 002111 252 002127 255 002136 257 002152 266 002376 268 002410 279 002756 281 002764 283 002765 288 002767 ----------------------------------------------------------- Historical Background This edition of the Multics software materials and documentation is provided and donated to Massachusetts Institute of Technology by Group BULL including BULL HN Information Systems Inc. as a contribution to computer science knowledge. This donation is made also to give evidence of the common contributions of Massachusetts Institute of Technology, Bell Laboratories, General Electric, Honeywell Information Systems Inc., Honeywell BULL Inc., Groupe BULL and BULL HN Information Systems Inc. to the development of this operating system. Multics development was initiated by Massachusetts Institute of Technology Project MAC (1963-1970), renamed the MIT Laboratory for Computer Science and Artificial Intelligence in the mid 1970s, under the leadership of Professor Fernando Jose Corbato. Users consider that Multics provided the best software architecture for managing computer hardware properly and for executing programs. Many subsequent operating systems incorporated Multics principles. Multics was distributed in 1975 to 2000 by Group Bull in Europe , and in the U.S. by Bull HN Information Systems Inc., as successor in interest by change in name only to Honeywell Bull Inc. and Honeywell Information Systems Inc. . ----------------------------------------------------------- Permission to use, copy, modify, and distribute these programs and their documentation for any purpose and without fee is hereby granted,provided that the below copyright notice and historical background appear in all copies and that both the copyright notice and historical background and this permission notice appear in supporting documentation, and that the names of MIT, HIS, BULL or BULL HN not be used in advertising or publicity pertaining to distribution of the programs without specific prior written permission. Copyright 1972 by Massachusetts Institute of Technology and Honeywell Information Systems Inc. Copyright 2006 by BULL HN Information Systems Inc. Copyright 2006 by Bull SAS All Rights Reserved