COMPILATION LISTING OF SEGMENT cv_entry_ Compiled by: Multics PL/I Compiler, Release 29, of July 28, 1986 Compiled at: Honeywell Multics Op. - System M Compiled on: 11/20/86 1156.0 mst Thu Options: optimize list 1 /****^ *********************************************************** 2* * * 3* * Copyright, (C) Honeywell Information Systems Inc., 1982 * 4* * * 5* * Copyright (c) 1972 by Massachusetts Institute of * 6* * Technology and Honeywell Information Systems, Inc. * 7* * * 8* *********************************************************** */ 9 10 11 12 13 /****^ HISTORY COMMENTS: 14* 1) change(86-05-02,Elhard), approve(86-05-02,MCR7391), 15* audit(86-07-18,DGHowe), install(86-11-20,MR12.0-1222): 16* Modified to call object_lib_$initiate to initiate segments or MSFs 17* referenced by pathname. 18* END HISTORY COMMENTS */ 19 20 21 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 22 /* */ 23 /* NAME: cv_entry_ */ 24 /* */ 25 /* This subroutine converts virtual entry character strings to entry values. */ 26 /* */ 27 /* Status: */ 28 /* */ 29 /* 0) Created by Gary C. Dixon on October 22, 1976. */ 30 /* 1) Modified by Bernard S. Greenberg on July 6, 1977 for refname => refname$refname */ 31 /* 2) Modified by Steve Herbst on May 10, 1979 to ignore trailing blanks. */ 32 /* 3) Modified by Gary Dixon on October 23, 1979 - support path$entry_pt, cleanup code */ 33 /* 4) Modified by Paul W. Benjamin on November 5, 1981 - remove entrypoint name validation*/ 34 /* */ 35 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 36 37 38 39 /* * * * * * * * * * * * * * * * * ** * * * * * * * * * * * * * * * * * * */ 40 41 42 cv_entry_: procedure (string, Pref, Acode) 43 returns (entry); 44 45 dcl /* Parameters */ 46 string char (*), /* virtual pointer character string. (In) */ 47 Pref ptr, /* ptr to segment in referencing_dir. (In) */ 48 Acode fixed bin(35); /* status code. (Out) */ 49 50 dcl /* Automatic Variables */ 51 E entry variable, /* entry variable which is returned. */ 52 (Lsegment_id, Lword_offset) fixed bin, /* length of various parts of virtual pointer. */ 53 (Psegment_id, Pword_offset, Pdelim) 54 ptr, /* pointer to various parts of virtual pointer. */ 55 P ptr, /* returned pointer. */ 56 code fixed bin(35), 57 dir char(168), /* dir part of segment's pathname. */ 58 ent char(32), /* entry part of segment's pathname. */ 59 i fixed bin, 60 id_case fixed bin, /* type of segment identifier in virtual pointer. */ 61 /* 1 = PATHNAME, 2 = REF_NAME. */ 62 offset_case fixed bin, /* type of offset value in virtual pointer. */ 63 /* 5 = MISSING, 6 = WORD, 7 = ENTRY_PT_DEFAULT, */ 64 /* 8 = ENTRY_PT. */ 65 word fixed bin(35); /* numeric value of word offset. */ 66 67 dcl /* Based Variables */ 68 delim char(1) based (Pdelim), 69 segment_id char(Lsegment_id) based (Psegment_id), 70 string_array (length(string)) char(1) based (Psegment_id), 71 word_offset char(Lword_offset) based (Pword_offset), 72 word_offset_array (Lword_offset) 73 char(1) based (Pword_offset); 74 75 dcl (addr, length, null, ptr, reverse, rtrim, search, verify) 76 builtin; 77 78 dcl /* Entries */ 79 cu_$decode_entry_value entry (entry, ptr, ptr), 80 cu_$make_entry_value entry (ptr, entry), 81 cv_oct_check_ entry (char(*), fixed bin(35)) returns (fixed bin(35)), 82 expand_pathname_ entry (char(*), char(*), char(*), fixed bin(35)), 83 hcs_$make_entry entry (ptr, char(*), char(*), entry, fixed bin(35)), 84 object_lib_$initiate entry (char(*), char(*), char(*), bit(1), ptr, 85 fixed bin(24), bit(1), fixed bin(35)); 86 87 dcl /* Static Variables and Constants */ 88 (PATHNAME init(1), /* acceptable values which id_case may take on. */ 89 REF_NAME init(2), 90 MISSING init(5), /* acceptable values offset_case may take on. */ 91 WORD init(6), 92 ENTRY_PT_DEFAULT init(7), 93 ENTRY_PT init(8)) fixed bin int static options(constant), 94 V_BAR char(1) int static options(constant) init("|"), 95 (error_table_$bad_conversion, 96 error_table_$bigarg, 97 error_table_$entlong, 98 error_table_$improper_data_format, 99 error_table_$out_of_bounds) fixed bin(35) ext static, 100 sys_info$max_seg_size fixed bin(35) ext static; 101 102 103 /* * * * * * * * * * * * * * * * * ** * * * * * * * * * * * * * * * * * * */ 104 105 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 106 /* */ 107 /* Acceptable virtual pointer strings have the following forms: */ 108 /* */ 109 /* CASES */ 110 /* I O FORM COMMENT */ 111 /* ----- ----------------------- ------------------------------------------ */ 112 /* 1 5 path| = path|0 */ 113 /* 1 6 path|W octal word W of path */ 114 /* 1 7 path = path|[entry path] */ 115 /* 1 8 path|entry_pt word identified by entry point entry_pt in path */ 116 /* 1 8 path$entry_pt word identified by entry point entry_pt in path */ 117 /* (path must contain < or > chars. */ 118 /* */ 119 /* 2 5 ref_name$ = ref_name$0 */ 120 /* 2 6 ref_name$W octal word W of seg with reference name ref_name. */ 121 /* 2 8 ref_name$entry_pt word identified by entry point entry_pt in seg */ 122 /* with reference name ref_name */ 123 /* */ 124 /* CASES: I = segment identifier case (id_case), O = offset value case (offset_case). */ 125 /* I = 1 => PATHNAME O = 5 => MISSING (no offset given) */ 126 /* = 2 => REF_NAME = 6 => WORD */ 127 /* = 7 => ENTRY_PT_DEFAULT */ 128 /* = 8 => ENTRY_PT */ 129 /* */ 130 /* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ 131 132 Acode = 0; /* initialize return code. */ 133 code = error_table_$improper_data_format; /* initialize format error code. */ 134 id_case = PATHNAME; /* start by assuming we have a path segment */ 135 offset_case = ENTRY_PT_DEFAULT; /* identifier, and no offset value. */ 136 137 Psegment_id = addr(string); /* Split identifier into seg_id, delim, & offset. */ 138 i = search (reverse(string), "|$"); /* Look for the delimiter. */ 139 if i > 0 then i = length(string) - (i-1); 140 if i = 0 then do; /* CASE: No delimiter. */ 141 Pdelim = addr(V_BAR); /* Assume |. */ 142 Lsegment_id = length(rtrim(string)); /* Address seg_id. */ 143 Pword_offset = addr(Pword_offset); /* Indicate no word offset. */ 144 Lword_offset = 0; 145 end; 146 else do; /* CASE: Delimiter found. */ 147 Pdelim = addr(string_array(i)); /* Remember delimiter. */ 148 Lsegment_id = i-1; /* Address seg_id. */ 149 Lsegment_id = length(rtrim(segment_id)); 150 if i < length(string) then do; /* Look for word offset. */ 151 Pword_offset = addr(string_array(i+1)); /* Remember where word offset is. */ 152 Lword_offset = length(string) - i; 153 Lword_offset = length(rtrim(word_offset)); 154 i = verify(word_offset, " "); 155 if i > 1 then do; 156 Pword_offset = addr(word_offset_array(i)); 157 Lword_offset = Lword_offset - (i-1); 158 end; 159 if length(word_offset) = 0 then 160 offset_case = MISSING; 161 end; 162 else do; /* No word offset. */ 163 Pword_offset = addr(Pword_offset); 164 Lword_offset = 0; 165 offset_case = MISSING; /* path ==> path$[entry path], but */ 166 end; /* path| ==> path|0 */ 167 end; 168 169 if (delim = "$") & (search (segment_id, "><") > 0) then do; 170 /* CASE: seg_id is a pathname. */ 171 if length(segment_id) > 168 then do; 172 code = error_table_$bigarg; 173 go to ERROR; 174 end; 175 end; 176 else if delim = "$" then do; /* CASE: seg_id is a ref_name. */ 177 id_case = REF_NAME; 178 if length(segment_id) > 32 then do; 179 code = error_table_$entlong; 180 go to ERROR; 181 end; 182 end; 183 else if delim = "|" then; /* CASE: seg_id is path. */ 184 else go to ERROR; /* CASE: seg_id followed by bad delim. We should */ 185 /* never get to this line. */ 186 187 if length(word_offset) > 0 then do; /* Evaluate word offset. */ 188 offset_case = WORD; /* Start by assuming word offset. */ 189 i = verify (word_offset, "01234567"); /* Check for octal word offset. */ 190 if i = 0 then; /* CASE: only word offset given. */ 191 else do; /* CASE: no word offset, just entry_pt. */ 192 offset_case = ENTRY_PT; 193 if length(word_offset) > 256 then do; /* Validate entry point length. */ 194 code = error_table_$entlong; 195 go to ERROR; 196 end; 197 end; 198 end; 199 if (delim = "$") & (id_case = PATHNAME) & (offset_case ^= ENTRY_PT) then do; 200 code = error_table_$improper_data_format; 201 go to ERROR; 202 end; 203 if (delim = "|") & (id_case = PATHNAME) & (offset_case = ENTRY_PT_DEFAULT) & 204 (search (segment_id, "><") = 0) then do; 205 id_case = REF_NAME; 206 if length(segment_id) > 32 then do; 207 code = error_table_$entlong; 208 go to ERROR; 209 end; 210 end; 211 212 if id_case = PATHNAME then do; /* CASE: seg_id is path */ 213 call expand_pathname_ (segment_id, dir, ent, code); 214 if code ^= 0 then go to ERROR; /* Expand the pathname given in virtual ptr. */ 215 call object_lib_$initiate (dir, ent, ent, ""b, P, (0), (""b), code); 216 if P = null then go to ERROR; 217 end; 218 else ent = segment_id; /* CASE: seg_id = ref_name */ 219 220 221 if offset_case = MISSING then do; /* No offset was given. */ 222 call hcs_$make_entry (Pref, ent, "", E, code); 223 if code ^= 0 then go to ERROR; /* Get ptr to beginning of segment. */ 224 end; 225 else if offset_case = ENTRY_PT then do; /* An entry point was given. */ 226 call hcs_$make_entry (Pref, ent, word_offset, E, code); 227 if code ^= 0 then go to ERROR; 228 end; 229 else if offset_case = ENTRY_PT_DEFAULT then do; /* Default entry point name for a pathname given. */ 230 call hcs_$make_entry (Pref, ent, ent, E, code); 231 if code ^= 0 then go to ERROR; 232 end; 233 else do; /* A word was given. */ 234 word = cv_oct_check_ (word_offset, code); /* Convert/validate word offset. */ 235 if code ^= 0 then do; 236 code = error_table_$bad_conversion; 237 go to ERROR; 238 end; 239 if (0 <= word) & (word <= sys_info$max_seg_size) then; 240 else do; 241 code = error_table_$out_of_bounds; 242 go to ERROR; 243 end; 244 call hcs_$make_entry (Pref, ent, "", E, code); 245 if code ^= 0 then go to ERROR; /* Get ptr to base of segment. */ 246 /* Cause linkage to be combined. */ 247 call cu_$decode_entry_value (E, P, null); /* Convert entry value into a pointer. */ 248 P = ptr (P, word); /* Apply word offset to pointer. */ 249 call cu_$make_entry_value (P, E); /* Convert pointer back to entry value. */ 250 end; 251 252 return (E); 253 254 /* * * * * * * * * * * * * * * * * ** * * * * * * * * * * * * * * * * * * */ 255 256 257 ERROR: Acode = code; 258 return (cv_entry_); /* return ptr to us, along with error code. */ 259 260 /* * * * * * * * * * * * * * * * * ** * * * * * * * * * * * * * * * * * * */ 261 262 end cv_entry_; SOURCE FILES USED IN THIS COMPILATION. LINE NUMBER DATE MODIFIED NAME PATHNAME 0 11/20/86 1148.6 cv_entry_.pl1 >special_ldd>install>MR12.0-1222>cv_entry_.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. Acode parameter fixed bin(35,0) dcl 45 set ref 42 132* 257* E 000100 automatic entry variable dcl 50 set ref 222* 226* 230* 244* 247* 249* 252 ENTRY_PT constant fixed bin(17,0) initial dcl 87 ref 192 199 225 ENTRY_PT_DEFAULT constant fixed bin(17,0) initial dcl 87 ref 135 203 229 Lsegment_id 000104 automatic fixed bin(17,0) dcl 50 set ref 142* 148* 149* 149 169 171 178 203 206 213 213 218 Lword_offset 000105 automatic fixed bin(17,0) dcl 50 set ref 144* 152* 153* 153 154 157* 157 159 164* 187 189 193 226 226 234 234 MISSING constant fixed bin(17,0) initial dcl 87 ref 159 165 221 P 000114 automatic pointer dcl 50 set ref 215* 216 247* 248* 248 249* PATHNAME constant fixed bin(17,0) initial dcl 87 ref 134 199 203 212 Pdelim 000112 automatic pointer dcl 50 set ref 141* 147* 169 176 183 199 203 Pref parameter pointer dcl 45 set ref 42 222* 226* 230* 244* Psegment_id 000106 automatic pointer dcl 50 set ref 137* 147 149 151 169 171 178 203 206 213 218 Pword_offset 000110 automatic pointer dcl 50 set ref 143* 143 151* 153 154 156* 156 159 163* 163 187 189 193 226 234 REF_NAME constant fixed bin(17,0) initial dcl 87 ref 177 205 V_BAR 000006 constant char(1) initial unaligned dcl 87 set ref 141 WORD constant fixed bin(17,0) initial dcl 87 ref 188 addr builtin function dcl 75 ref 137 141 143 147 151 156 163 code 000116 automatic fixed bin(35,0) dcl 50 set ref 133* 172* 179* 194* 200* 207* 213* 214 215* 222* 223 226* 227 230* 231 234* 235 236* 241* 244* 245 257 cu_$decode_entry_value 000010 constant entry external dcl 78 ref 247 cu_$make_entry_value 000012 constant entry external dcl 78 ref 249 cv_oct_check_ 000014 constant entry external dcl 78 ref 234 delim based char(1) unaligned dcl 67 ref 169 176 183 199 203 dir 000117 automatic char(168) unaligned dcl 50 set ref 213* 215* ent 000171 automatic char(32) unaligned dcl 50 set ref 213* 215* 215* 218* 222* 226* 230* 230* 244* error_table_$bad_conversion 000024 external static fixed bin(35,0) dcl 87 ref 236 error_table_$bigarg 000026 external static fixed bin(35,0) dcl 87 ref 172 error_table_$entlong 000030 external static fixed bin(35,0) dcl 87 ref 179 194 207 error_table_$improper_data_format 000032 external static fixed bin(35,0) dcl 87 ref 133 200 error_table_$out_of_bounds 000034 external static fixed bin(35,0) dcl 87 ref 241 expand_pathname_ 000016 constant entry external dcl 78 ref 213 hcs_$make_entry 000020 constant entry external dcl 78 ref 222 226 230 244 i 000201 automatic fixed bin(17,0) dcl 50 set ref 138* 139 139* 139 140 147 148 150 151 152 154* 155 156 157 189* 190 id_case 000202 automatic fixed bin(17,0) dcl 50 set ref 134* 177* 199 203 205* 212 length builtin function dcl 75 ref 139 142 149 150 152 153 159 171 178 187 193 206 null builtin function dcl 75 ref 216 247 247 object_lib_$initiate 000022 constant entry external dcl 78 ref 215 offset_case 000203 automatic fixed bin(17,0) dcl 50 set ref 135* 159* 165* 188* 192* 199 203 221 225 229 ptr builtin function dcl 75 ref 248 reverse builtin function dcl 75 ref 138 rtrim builtin function dcl 75 ref 142 149 153 search builtin function dcl 75 ref 138 169 203 segment_id based char unaligned dcl 67 set ref 149 169 171 178 203 206 213* 218 string parameter char unaligned dcl 45 set ref 42 137 138 139 142 150 152 string_array based char(1) array unaligned dcl 67 set ref 147 151 sys_info$max_seg_size 000036 external static fixed bin(35,0) dcl 87 ref 239 verify builtin function dcl 75 ref 154 189 word 000204 automatic fixed bin(35,0) dcl 50 set ref 234* 239 239 248 word_offset based char unaligned dcl 67 set ref 153 154 159 187 189 193 226* 234* word_offset_array based char(1) array unaligned dcl 67 set ref 156 NAMES DECLARED BY EXPLICIT CONTEXT. ERROR 000777 constant label dcl 257 ref 173 180 183 195 201 208 214 216 223 227 231 237 242 245 cv_entry_ 000025 constant entry external dcl 42 ref 258 THERE WERE NO NAMES DECLARED BY CONTEXT OR IMPLICATION. STORAGE REQUIREMENTS FOR THIS PROGRAM. Object Text Link Symbol Defs Static Start 0 0 1776 2036 1612 2006 Length 2230 1612 40 155 164 0 BLOCK NAME STACK SIZE TYPE WHY NONQUICK/WHO SHARES STACK FRAME cv_entry_ 192 external procedure is an external procedure. STORAGE FOR AUTOMATIC VARIABLES. STACK FRAME LOC IDENTIFIER BLOCK NAME cv_entry_ 000100 E cv_entry_ 000104 Lsegment_id cv_entry_ 000105 Lword_offset cv_entry_ 000106 Psegment_id cv_entry_ 000110 Pword_offset cv_entry_ 000112 Pdelim cv_entry_ 000114 P cv_entry_ 000116 code cv_entry_ 000117 dir cv_entry_ 000171 ent cv_entry_ 000201 i cv_entry_ 000202 id_case cv_entry_ 000203 offset_case cv_entry_ 000204 word cv_entry_ THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM. r_e_as call_ext_out_desc call_ext_out return_mac ext_entry_desc THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM. cu_$decode_entry_value cu_$make_entry_value cv_oct_check_ expand_pathname_ hcs_$make_entry object_lib_$initiate THE FOLLOWING EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. error_table_$bad_conversion error_table_$bigarg error_table_$entlong error_table_$improper_data_format error_table_$out_of_bounds sys_info$max_seg_size CONSTANTS 001010 aa 077777000043 001011 aa 000001000000 001012 aa 777 777 777 777 ÿÿÿÿ 001013 aa 777 777 777 777 ÿÿÿÿ 001014 aa 777 777 777 777 ÿÿÿÿ 001015 aa 777 777 777 777 ÿÿÿÿ 001016 aa 777 777 777 777 ÿÿÿÿ 001017 aa 777 777 777 777 ÿÿÿÿ 001020 aa 777 777 777 777 ÿÿÿÿ 001021 aa 777 777 777 777 ÿÿÿÿ 001022 aa 777 777 777 777 ÿÿÿÿ 001023 aa 777 777 777 777 ÿÿÿÿ 001024 aa 777 777 777 777 ÿÿÿÿ 001025 aa 777 777 777 777 ÿÿÿÿ 001026 aa 000 000 000 000 001027 aa 000 000 000 000 001030 aa 777 777 777 777 ÿÿÿÿ 001031 aa 777 777 777 777 ÿÿÿÿ 001032 aa 777 777 777 777 ÿÿÿÿ 001033 aa 777 777 777 777 ÿÿÿÿ 001034 aa 777 777 777 777 ÿÿÿÿ 001035 aa 777 777 777 777 ÿÿÿÿ 001036 aa 777 777 777 777 ÿÿÿÿ 001037 aa 777 777 777 777 ÿÿÿÿ 001040 aa 777 777 777 777 ÿÿÿÿ 001041 aa 777 777 777 777 ÿÿÿÿ 001042 aa 777 777 777 777 ÿÿÿÿ 001043 aa 777 777 777 777 ÿÿÿÿ 001044 aa 777 777 777 777 ÿÿÿÿ 001045 aa 777 777 777 777 ÿÿÿÿ 001046 aa 777 777 777 777 ÿÿÿÿ 001047 aa 777 777 777 777 ÿÿÿÿ 001050 aa 777 777 777 777 ÿÿÿÿ 001051 aa 777 777 777 777 ÿÿÿÿ 001052 aa 777 777 777 777 ÿÿÿÿ 001053 aa 777 777 777 777 ÿÿÿÿ 001054 aa 777 777 777 777 ÿÿÿÿ 001055 aa 777 777 777 777 ÿÿÿÿ 001056 aa 777 777 777 777 ÿÿÿÿ 001057 aa 777 777 777 777 ÿÿÿÿ 001060 aa 777 777 777 777 ÿÿÿÿ 001061 aa 777 777 777 777 ÿÿÿÿ 001062 aa 777 777 777 777 ÿÿÿÿ 001063 aa 777 777 777 777 ÿÿÿÿ 001064 aa 777 777 777 777 ÿÿÿÿ 001065 aa 777 777 777 777 ÿÿÿÿ 001066 aa 777 777 777 777 ÿÿÿÿ 001067 aa 777 777 777 777 ÿÿÿÿ 001070 aa 777 777 777 777 ÿÿÿÿ 001071 aa 777 777 777 777 ÿÿÿÿ 001072 aa 777 777 777 777 ÿÿÿÿ 001073 aa 777 777 777 777 ÿÿÿÿ 001074 aa 777 777 777 777 ÿÿÿÿ 001075 aa 777 777 777 777 ÿÿÿÿ 001076 aa 777 777 777 777 ÿÿÿÿ 001077 aa 777 777 777 777 ÿÿÿÿ 001100 aa 777 777 777 777 ÿÿÿÿ 001101 aa 777 777 777 777 ÿÿÿÿ 001102 aa 777 777 777 777 ÿÿÿÿ 001103 aa 777 777 777 777 ÿÿÿÿ 001104 aa 777 777 777 777 ÿÿÿÿ 001105 aa 777 777 777 777 ÿÿÿÿ 001106 aa 777 777 777 777 ÿÿÿÿ 001107 aa 777 777 777 777 ÿÿÿÿ 001110 aa 777 777 777 777 ÿÿÿÿ 001111 aa 777 777 777 777 ÿÿÿÿ 001112 aa 777 777 777 777 ÿÿÿÿ 001113 aa 777 777 777 777 ÿÿÿÿ 001114 aa 777 777 777 777 ÿÿÿÿ 001115 aa 777 777 777 777 ÿÿÿÿ 001116 aa 777 777 777 777 ÿÿÿÿ 001117 aa 777 777 777 777 ÿÿÿÿ 001120 aa 777 777 777 777 ÿÿÿÿ 001121 aa 777 777 777 777 ÿÿÿÿ 001122 aa 777 777 777 777 ÿÿÿÿ 001123 aa 777 777 777 777 ÿÿÿÿ 001124 aa 777 777 777 777 ÿÿÿÿ 001125 aa 777 777 777 777 ÿÿÿÿ 001126 aa 777 777 777 777 ÿÿÿÿ 001127 aa 777 777 777 777 ÿÿÿÿ 001130 aa 777 777 777 777 ÿÿÿÿ 001131 aa 777 777 777 777 ÿÿÿÿ 001132 aa 777 777 777 777 ÿÿÿÿ 001133 aa 777 777 777 777 ÿÿÿÿ 001134 aa 777 777 777 777 ÿÿÿÿ 001135 aa 777 777 777 777 ÿÿÿÿ 001136 aa 777 777 777 777 ÿÿÿÿ 001137 aa 777 777 777 777 ÿÿÿÿ 001140 aa 777 777 777 777 ÿÿÿÿ 001141 aa 777 777 777 777 ÿÿÿÿ 001142 aa 777 777 777 777 ÿÿÿÿ 001143 aa 777 777 777 777 ÿÿÿÿ 001144 aa 777 777 777 777 ÿÿÿÿ 001145 aa 777 777 777 777 ÿÿÿÿ 001146 aa 777 777 777 777 ÿÿÿÿ 001147 aa 777 777 777 777 ÿÿÿÿ 001150 aa 777 777 777 777 ÿÿÿÿ 001151 aa 777 777 777 777 ÿÿÿÿ 001152 aa 777 777 777 777 ÿÿÿÿ 001153 aa 777 777 777 777 ÿÿÿÿ 001154 aa 777 777 777 777 ÿÿÿÿ 001155 aa 777 777 777 777 ÿÿÿÿ 001156 aa 777 777 777 777 ÿÿÿÿ 001157 aa 777 777 777 777 ÿÿÿÿ 001160 aa 777 777 777 777 ÿÿÿÿ 001161 aa 777 777 777 777 ÿÿÿÿ 001162 aa 777 777 777 777 ÿÿÿÿ 001163 aa 777 777 777 777 ÿÿÿÿ 001164 aa 777 777 777 777 ÿÿÿÿ 001165 aa 777 777 777 777 ÿÿÿÿ 001166 aa 777 777 777 777 ÿÿÿÿ 001167 aa 777 777 777 777 ÿÿÿÿ 001170 aa 777 777 777 777 ÿÿÿÿ 001171 aa 777 777 777 777 ÿÿÿÿ 001172 aa 777 777 777 777 ÿÿÿÿ 001173 aa 777 777 777 777 ÿÿÿÿ 001174 aa 777 777 777 777 ÿÿÿÿ 001175 aa 777 777 777 777 ÿÿÿÿ 001176 aa 777 777 777 777 ÿÿÿÿ 001177 aa 777 777 777 777 ÿÿÿÿ 001200 aa 777 777 777 777 ÿÿÿÿ 001201 aa 777 777 777 777 ÿÿÿÿ 001202 aa 777 777 777 777 ÿÿÿÿ 001203 aa 777 777 777 777 ÿÿÿÿ 001204 aa 777 777 777 777 ÿÿÿÿ 001205 aa 777 777 777 777 ÿÿÿÿ 001206 aa 777 777 777 777 ÿÿÿÿ 001207 aa 777 777 777 777 ÿÿÿÿ 001210 aa 777 777 777 777 ÿÿÿÿ 001211 aa 777 777 777 777 ÿÿÿÿ 001212 aa 000 000 000 000 001213 aa 000 000 000 000 001214 aa 000 000 000 000 001215 aa 000 000 000 000 001216 aa 000 000 000 000 001217 aa 000 000 000 000 001220 aa 000 000 000 000 001221 aa 000 000 000 000 001222 aa 000 000 000 000 001223 aa 000 000 000 000 001224 aa 000 000 000 000 001225 aa 000 000 000 000 001226 aa 000 000 000 000 001227 aa 000 000 000 000 001230 aa 000 000 000 000 001231 aa 777 000 777 000 ÿÿ 001232 aa 000 000 000 000 001233 aa 000 000 000 000 001234 aa 000 000 000 000 001235 aa 000 000 000 000 001236 aa 000 000 000 000 001237 aa 000 000 000 000 001240 aa 000 000 000 000 001241 aa 000 000 000 000 001242 aa 000 000 000 000 001243 aa 000 000 000 000 001244 aa 000 000 000 000 001245 aa 000 000 000 000 001246 aa 000 000 000 000 001247 aa 000 000 000 000 001250 aa 000 000 000 000 001251 aa 000 000 000 000 001252 aa 000 000 000 000 001253 aa 000 000 000 000 001254 aa 000 000 000 000 001255 aa 000 000 000 000 001256 aa 000 000 000 000 001257 aa 000 000 000 000 001260 aa 000 000 000 000 001261 aa 000 000 000 000 001262 aa 000 000 000 000 001263 aa 000 000 000 000 001264 aa 000 000 000 000 001265 aa 000 000 000 000 001266 aa 000 000 000 000 001267 aa 000 000 000 000 001270 aa 000 000 000 000 001271 aa 000 000 000 000 001272 aa 000 000 000 000 001273 aa 000 000 000 000 001274 aa 000 000 000 000 001275 aa 000 000 000 000 001276 aa 000 000 000 000 001277 aa 000 000 000 000 001300 aa 000 000 000 000 001301 aa 000 000 000 000 001302 aa 000 000 000 000 001303 aa 000 000 000 000 001304 aa 000 000 000 000 001305 aa 000 000 000 000 001306 aa 000 000 000 000 001307 aa 000 000 000 000 001310 aa 000 000 000 000 001311 aa 000 000 000 000 001312 aa 000 000 000 000 001313 aa 000 000 000 000 001314 aa 000 000 000 000 001315 aa 000 000 000 000 001316 aa 000 000 000 000 001317 aa 000 000 000 000 001320 aa 000 000 000 000 001321 aa 000 000 000 000 001322 aa 000 000 000 000 001323 aa 000 000 000 000 001324 aa 000 000 000 000 001325 aa 000 000 000 000 001326 aa 000 000 000 000 001327 aa 000 000 000 000 001330 aa 000 000 000 000 001331 aa 000 000 000 000 001332 aa 000 000 000 000 001333 aa 000 000 000 000 001334 aa 000 000 000 000 001335 aa 000 000 000 000 001336 aa 000 000 000 000 001337 aa 000 000 000 000 001340 aa 000 000 000 000 001341 aa 000 000 000 000 001342 aa 000 000 000 000 001343 aa 000 000 000 000 001344 aa 000 000 000 000 001345 aa 000 000 000 000 001346 aa 000 000 000 000 001347 aa 000 000 000 000 001350 aa 000 000 000 000 001351 aa 000 000 000 000 001352 aa 000 000 000 000 001353 aa 000 000 000 000 001354 aa 000 000 000 000 001355 aa 000 000 000 000 001356 aa 000 000 000 000 001357 aa 000 000 000 000 001360 aa 000 000 000 000 001361 aa 000 000 000 000 001362 aa 000 000 000 000 001363 aa 000 000 000 000 001364 aa 000 000 000 000 001365 aa 000 000 000 000 001366 aa 000 000 000 000 001367 aa 000 000 000 000 001370 aa 000 000 000 000 001371 aa 000 000 000 000 001372 aa 000 000 000 000 001373 aa 000 000 000 000 001374 aa 000 000 000 000 001375 aa 000 000 000 000 001376 aa 000 000 000 000 001377 aa 000 000 000 000 001400 aa 000 000 000 000 001401 aa 000 000 000 000 001402 aa 000 000 000 000 001403 aa 000 000 000 000 001404 aa 000 000 000 000 001405 aa 000 000 000 000 001406 aa 000 000 000 000 001407 aa 000 000 000 000 001410 aa 000 000 000 000 001411 aa 000 000 000 000 001412 aa 000 000 000 000 001413 aa 000 000 000 000 001414 aa 000 000 000 000 001415 aa 000 000 000 000 001416 aa 000 000 000 000 001417 aa 000 000 000 000 001420 aa 000 000 000 000 001421 aa 000 000 000 000 001422 aa 000 000 000 000 001423 aa 777 000 000 000 ÿ 001424 aa 000 000 000 000 001425 aa 000 000 000 000 001426 aa 000 000 000 000 001427 aa 000 000 000 000 001430 aa 000 000 000 000 001431 aa 000 000 000 000 001432 aa 000 000 000 000 001433 aa 000 000 000 000 001434 aa 000 000 000 000 001435 aa 000 000 000 000 001436 aa 000 000 000 000 001437 aa 000 000 000 000 001440 aa 000 000 000 000 001441 aa 000 000 000 000 001442 aa 000 000 000 000 001443 aa 000 000 000 000 001444 aa 000 000 000 000 001445 aa 000 000 000 000 001446 aa 000 000 000 000 001447 aa 000 000 000 000 001450 aa 000 000 000 000 001451 aa 777 000 000 000 ÿ 001452 aa 000 000 000 000 001453 aa 000 000 000 000 001454 aa 000 000 000 000 001455 aa 000 000 000 000 001456 aa 000 000 000 000 001457 aa 000 000 000 000 001460 aa 000 000 000 000 001461 aa 000 000 000 000 001462 aa 000 000 000 000 001463 aa 000 000 000 000 001464 aa 000 000 000 000 001465 aa 000 000 000 000 001466 aa 000 000 000 000 001467 aa 000 000 000 000 001470 aa 000 000 000 000 001471 aa 000 000 000 000 001472 aa 000 000 000 000 001473 aa 000 000 000 000 001474 aa 000 000 000 000 001475 aa 000 000 000 000 001476 aa 000 000 000 000 001477 aa 000 000 000 000 001500 aa 000 000 000 000 001501 aa 000 000 000 000 001502 aa 000 000 000 000 001503 aa 000 000 000 000 001504 aa 000 000 000 000 001505 aa 000 000 000 000 001506 aa 000 000 000 000 001507 aa 000 000 000 000 001510 aa 000 000 000 000 001511 aa 000 000 000 000 001512 aa 000 000 000 000 001513 aa 000 000 000 000 001514 aa 000 000 000 000 001515 aa 000 000 000 000 001516 aa 000 000 000 000 001517 aa 000 000 000 000 001520 aa 000 000 000 000 001521 aa 000 000 000 000 001522 aa 000 000 000 000 001523 aa 000 000 000 000 001524 aa 000 000 000 000 001525 aa 000 000 000 000 001526 aa 000 000 000 000 001527 aa 000 000 000 000 001530 aa 000 000 000 000 001531 aa 000 000 000 000 001532 aa 000 000 000 000 001533 aa 000 000 000 000 001534 aa 000 000 000 000 001535 aa 000 000 000 000 001536 aa 000 000 000 000 001537 aa 000 000 000 000 001540 aa 000 000 000 000 001541 aa 000 000 000 000 001542 aa 000 000 000 000 001543 aa 000 000 000 000 001544 aa 000 000 000 000 001545 aa 000 000 000 000 001546 aa 000 000 000 000 001547 aa 000 000 000 000 001550 aa 000 000 000 000 001551 aa 000 000 000 000 001552 aa 000 000 000 000 001553 aa 000 000 000 000 001554 aa 000 000 000 000 001555 aa 000 000 000 000 001556 aa 000 000 000 000 001557 aa 000 000 000 000 001560 aa 000 000 000 000 001561 aa 000 000 000 000 001562 aa 000 000 000 000 001563 aa 000 000 000 000 001564 aa 000 000 000 000 001565 aa 000 000 000 000 001566 aa 000 000 000 000 001567 aa 000 000 000 000 001570 aa 000 000 000 000 001571 aa 000 000 000 000 001572 aa 000 000 000 000 001573 aa 000 000 000 000 001574 aa 000 000 000 000 001575 aa 000 000 000 000 001576 aa 000 000 000 000 001577 aa 000 000 000 000 001600 aa 000 000 000 000 001601 aa 000 000 000 000 001602 aa 000 000 000 000 001603 aa 000 000 000 000 001604 aa 000 000 000 000 001605 aa 000 000 000 000 001606 aa 000 000 000 000 001607 aa 000 000 000 000 001610 aa 000 000 000 000 001611 aa 000 000 000 000 000000 aa 524000000000 000001 aa 404000000030 000002 aa 514000000001 000003 aa 526000000040 000004 aa 526000000250 000005 aa 526000000000 000006 aa 174 000 000 000 | 000007 aa 404000000043 000010 aa 464000000000 000011 aa 526077777777 000012 aa 500000000000 000014 aa 077777000043 000015 aa 000001000000 000016 aa 060 061 062 063 0123 000017 aa 064 065 066 067 4567 BEGIN PROCEDURE cv_entry_ ENTRY TO cv_entry_ STATEMENT 1 ON LINE 42 cv_entry_: procedure (string, Pref, Acode) returns (entry); 000020 at 000004000011 000021 tt 000010000007 000022 ta 000012000000 000023 ta 000020000000 000024 da 000160320000 000025 aa 000300 6270 00 eax7 192 000026 aa 7 00034 3521 20 epp2 pr7|28,* 000027 aa 2 01046 2721 00 tsp2 pr2|550 ext_entry_desc 000030 aa 000010000000 000031 aa 000000000000 000032 aa 6 00042 3735 20 epp7 pr6|34,* 000033 aa 7 00000 2361 20 ldq pr7|0,* 000034 aa 000002 6040 04 tmi 2,ic 000036 000035 aa 777777 3760 07 anq 262143,dl 000036 aa 0 00250 3761 00 anq pr0|168 = 000077777777 000037 aa 6 00205 7561 00 stq pr6|133 STATEMENT 1 ON LINE 132 Acode = 0; 000040 aa 6 00032 3715 20 epp5 pr6|26,* 000041 aa 5 00006 4501 20 stz pr5|6,* Acode STATEMENT 1 ON LINE 133 code = error_table_$improper_data_format; 000042 la 4 00032 2361 20 ldq pr4|26,* error_table_$improper_data_format 000043 aa 6 00116 7561 00 stq pr6|78 code STATEMENT 1 ON LINE 134 id_case = PATHNAME; 000044 aa 000001 2360 07 ldq 1,dl 000045 aa 6 00202 7561 00 stq pr6|130 id_case STATEMENT 1 ON LINE 135 offset_case = ENTRY_PT_DEFAULT; 000046 aa 000007 2360 07 ldq 7,dl 000047 aa 6 00203 7561 00 stq pr6|131 offset_case STATEMENT 1 ON LINE 137 Psegment_id = addr(string); 000050 aa 5 00002 3521 20 epp2 pr5|2,* string 000051 aa 6 00106 2521 00 spri2 pr6|70 Psegment_id STATEMENT 1 ON LINE 138 i = search (reverse(string), "|$"); 000052 aa 5 00002 3535 20 epp3 pr5|2,* 000053 aa 6 00205 2351 00 lda pr6|133 000054 aa 000 000 165 540 tctr (pr,rl) 000055 aa 3 00000 00 0005 desc9a pr3|0,al string 000056 aa 001336 0000 04 arg 734,ic 001412 = 000000000000 000057 aa 6 00056 0001 00 arg pr6|46 000060 aa 6 00056 2361 00 ldq pr6|46 000061 aa 0 00242 3761 00 anq pr0|162 = 000777777777 000062 aa 000002 6070 04 ttf 2,ic 000064 000063 aa 000001 3360 07 lcq 1,dl 000064 aa 000001 0760 07 adq 1,dl 000065 aa 6 00201 7561 00 stq pr6|129 i STATEMENT 1 ON LINE 139 if i > 0 then i = length(string) - (i-1); 000066 aa 000006 6044 04 tmoz 6,ic 000074 000067 aa 000001 1760 07 sbq 1,dl 000070 aa 6 00206 7561 00 stq pr6|134 000071 aa 6 00205 2361 00 ldq pr6|133 000072 aa 6 00206 1761 00 sbq pr6|134 000073 aa 6 00201 7561 00 stq pr6|129 i STATEMENT 1 ON LINE 140 if i = 0 then do; 000074 aa 000021 6010 04 tnz 17,ic 000115 STATEMENT 1 ON LINE 141 Pdelim = addr(V_BAR); 000075 aa 777711 3514 04 epp1 -55,ic 000006 = 174000000000 000076 aa 6 00112 2515 00 spri1 pr6|74 Pdelim STATEMENT 1 ON LINE 142 Lsegment_id = length(rtrim(string)); 000077 aa 000 000 165 540 tctr (pr,rl) 000100 aa 3 00000 00 0005 desc9a pr3|0,al string 000101 aa 0 76605 0001 00 arg pr0|-635 = 777777777777 000102 aa 6 00056 0001 00 arg pr6|46 000103 aa 6 00056 2361 00 ldq pr6|46 000104 aa 0 00242 3761 00 anq pr0|162 = 000777777777 000105 aa 6 00206 7561 00 stq pr6|134 000106 aa 6 00205 2361 00 ldq pr6|133 000107 aa 6 00206 1761 00 sbq pr6|134 000110 aa 6 00104 7561 00 stq pr6|68 Lsegment_id STATEMENT 1 ON LINE 143 Pword_offset = addr(Pword_offset); 000111 aa 6 00110 3735 00 epp7 pr6|72 Pword_offset 000112 aa 6 00110 6535 00 spri7 pr6|72 Pword_offset STATEMENT 1 ON LINE 144 Lword_offset = 0; 000113 aa 6 00105 4501 00 stz pr6|69 Lword_offset STATEMENT 1 ON LINE 145 end; 000114 aa 000102 7100 04 tra 66,ic 000216 STATEMENT 1 ON LINE 146 else do; STATEMENT 1 ON LINE 147 Pdelim = addr(string_array(i)); 000115 aa 000003 6270 06 eax7 3,ql 000116 aa 2 77777 3521 00 epp2 pr2|-1 string_array 000117 aa 2 00000 5005 17 a9bd pr2|0,7 000120 aa 6 00112 2521 00 spri2 pr6|74 Pdelim STATEMENT 1 ON LINE 148 Lsegment_id = i-1; 000121 aa 000001 1760 07 sbq 1,dl 000122 aa 6 00104 7561 00 stq pr6|68 Lsegment_id STATEMENT 1 ON LINE 149 Lsegment_id = length(rtrim(segment_id)); 000123 aa 6 00106 3515 20 epp1 pr6|70,* Psegment_id 000124 aa 000 000 165 540 tctr (pr,rl) 000125 aa 1 00000 00 0006 desc9a pr1|0,ql segment_id 000126 aa 0 76605 0001 00 arg pr0|-635 = 777777777777 000127 aa 6 00056 0001 00 arg pr6|46 000130 aa 6 00056 2361 00 ldq pr6|46 000131 aa 0 00242 3761 00 anq pr0|162 = 000777777777 000132 aa 6 00206 7561 00 stq pr6|134 000133 aa 6 00206 3361 00 lcq pr6|134 000134 aa 6 00104 0561 00 asq pr6|68 Lsegment_id STATEMENT 1 ON LINE 150 if i < length(string) then do; 000135 aa 6 00201 2361 00 ldq pr6|129 i 000136 aa 6 00205 1161 00 cmpq pr6|133 000137 aa 000052 6050 04 tpl 42,ic 000211 STATEMENT 1 ON LINE 151 Pword_offset = addr(string_array(i+1)); 000140 aa 1 00000 3521 00 epp2 pr1|0 string_array 000141 aa 2 00000 5005 06 a9bd pr2|0,ql 000142 aa 6 00110 2521 00 spri2 pr6|72 Pword_offset STATEMENT 1 ON LINE 152 Lword_offset = length(string) - i; 000143 aa 6 00205 2361 00 ldq pr6|133 000144 aa 6 00201 1761 00 sbq pr6|129 i 000145 aa 6 00105 7561 00 stq pr6|69 Lword_offset STATEMENT 1 ON LINE 153 Lword_offset = length(rtrim(word_offset)); 000146 aa 000 000 165 540 tctr (pr,rl) 000147 aa 2 00000 00 0006 desc9a pr2|0,ql word_offset 000150 aa 0 76605 0001 00 arg pr0|-635 = 777777777777 000151 aa 6 00056 0001 00 arg pr6|46 000152 aa 6 00056 2361 00 ldq pr6|46 000153 aa 0 00242 3761 00 anq pr0|162 = 000777777777 000154 aa 6 00206 7561 00 stq pr6|134 000155 aa 6 00206 3361 00 lcq pr6|134 000156 aa 6 00105 0561 00 asq pr6|69 Lword_offset STATEMENT 1 ON LINE 154 i = verify(word_offset, " "); 000157 aa 6 00105 7261 00 lxl6 pr6|69 Lword_offset 000160 aa 000 000 164 540 tct (pr,rl) 000161 aa 2 00000 00 0016 desc9a pr2|0,x6 word_offset 000162 aa 0 76605 0001 00 arg pr0|-635 = 777777777777 000163 aa 6 00056 0001 00 arg pr6|46 000164 aa 6 00056 2361 00 ldq pr6|46 000165 aa 0 00242 3761 00 anq pr0|162 = 000777777777 000166 aa 000002 6070 04 ttf 2,ic 000170 000167 aa 000001 3360 07 lcq 1,dl 000170 aa 000001 0760 07 adq 1,dl 000171 aa 6 00201 7561 00 stq pr6|129 i STATEMENT 1 ON LINE 155 if i > 1 then do; 000172 aa 000001 1160 07 cmpq 1,dl 000173 aa 000011 6044 04 tmoz 9,ic 000204 STATEMENT 1 ON LINE 156 Pword_offset = addr(word_offset_array(i)); 000174 aa 000003 6270 06 eax7 3,ql 000175 aa 2 77777 3521 00 epp2 pr2|-1 word_offset_array 000176 aa 2 00000 5005 17 a9bd pr2|0,7 000177 aa 6 00110 2521 00 spri2 pr6|72 Pword_offset STATEMENT 1 ON LINE 157 Lword_offset = Lword_offset - (i-1); 000200 aa 000001 1760 07 sbq 1,dl 000201 aa 6 00206 7561 00 stq pr6|134 000202 aa 6 00206 3361 00 lcq pr6|134 000203 aa 6 00105 0561 00 asq pr6|69 Lword_offset STATEMENT 1 ON LINE 158 end; STATEMENT 1 ON LINE 159 if length(word_offset) = 0 then offset_case = MISSING; 000204 aa 6 00105 2361 00 ldq pr6|69 Lword_offset 000205 aa 000011 6010 04 tnz 9,ic 000216 000206 aa 000005 2360 07 ldq 5,dl 000207 aa 6 00203 7561 00 stq pr6|131 offset_case STATEMENT 1 ON LINE 161 end; 000210 aa 000006 7100 04 tra 6,ic 000216 STATEMENT 1 ON LINE 162 else do; STATEMENT 1 ON LINE 163 Pword_offset = addr(Pword_offset); 000211 aa 6 00110 3735 00 epp7 pr6|72 Pword_offset 000212 aa 6 00110 6535 00 spri7 pr6|72 Pword_offset STATEMENT 1 ON LINE 164 Lword_offset = 0; 000213 aa 6 00105 4501 00 stz pr6|69 Lword_offset STATEMENT 1 ON LINE 165 offset_case = MISSING; 000214 aa 000005 2360 07 ldq 5,dl 000215 aa 6 00203 7561 00 stq pr6|131 offset_case STATEMENT 1 ON LINE 166 end; STATEMENT 1 ON LINE 167 end; STATEMENT 1 ON LINE 169 if (delim = "$") & (search (segment_id, "><") > 0) then do; 000216 aa 6 00112 3735 20 epp7 pr6|74,* Pdelim 000217 aa 000 100 100 500 mlr (pr),(pr),fill(000) 000220 aa 7 00000 00 0001 desc9a pr7|0,1 delim 000221 aa 6 00206 00 0004 desc9a pr6|134,4 delim 000222 aa 6 00106 3515 20 epp1 pr6|70,* Psegment_id 000223 aa 6 00104 7271 00 lxl7 pr6|68 Lsegment_id 000224 aa 000 000 164 540 tct (pr,rl) 000225 aa 1 00000 00 0017 desc9a pr1|0,x7 segment_id 000226 aa 000766 0000 04 arg 502,ic 001212 = 000000000000 000227 aa 6 00056 0001 00 arg pr6|46 000230 aa 6 00056 2361 00 ldq pr6|46 000231 aa 0 00242 3761 00 anq pr0|162 = 000777777777 000232 aa 000002 6070 04 ttf 2,ic 000234 000233 aa 000001 3360 07 lcq 1,dl 000234 aa 000001 0760 07 adq 1,dl 000235 aa 6 00206 2351 00 lda pr6|134 delim 000236 aa 044000 1150 03 cmpa 18432,du 000237 aa 0 00512 7001 00 tsx0 pr0|330 r_e_as 000240 aa 6 00207 7551 00 sta pr6|135 000241 aa 6 00210 7561 00 stq pr6|136 000242 aa 000012 6000 04 tze 10,ic 000254 000243 aa 6 00210 2361 00 ldq pr6|136 000244 aa 000010 6044 04 tmoz 8,ic 000254 STATEMENT 1 ON LINE 171 if length(segment_id) > 168 then do; 000245 aa 6 00104 2361 00 ldq pr6|68 Lsegment_id 000246 aa 000250 1160 07 cmpq 168,dl 000247 aa 000023 6044 04 tmoz 19,ic 000272 STATEMENT 1 ON LINE 172 code = error_table_$bigarg; 000250 la 4 00026 2361 20 ldq pr4|22,* error_table_$bigarg 000251 aa 6 00116 7561 00 stq pr6|78 code STATEMENT 1 ON LINE 173 go to ERROR; 000252 aa 000525 7100 04 tra 341,ic 000777 STATEMENT 1 ON LINE 174 end; STATEMENT 1 ON LINE 175 end; 000253 aa 000017 7100 04 tra 15,ic 000272 STATEMENT 1 ON LINE 176 else if delim = "$" then do; 000254 aa 6 00206 2351 00 lda pr6|134 delim 000255 aa 044000 1150 03 cmpa 18432,du 000256 aa 000012 6010 04 tnz 10,ic 000270 STATEMENT 1 ON LINE 177 id_case = REF_NAME; 000257 aa 000002 2360 07 ldq 2,dl 000260 aa 6 00202 7561 00 stq pr6|130 id_case STATEMENT 1 ON LINE 178 if length(segment_id) > 32 then do; 000261 aa 6 00104 2361 00 ldq pr6|68 Lsegment_id 000262 aa 000040 1160 07 cmpq 32,dl 000263 aa 000007 6044 04 tmoz 7,ic 000272 STATEMENT 1 ON LINE 179 code = error_table_$entlong; 000264 la 4 00030 2361 20 ldq pr4|24,* error_table_$entlong 000265 aa 6 00116 7561 00 stq pr6|78 code STATEMENT 1 ON LINE 180 go to ERROR; 000266 aa 000511 7100 04 tra 329,ic 000777 STATEMENT 1 ON LINE 181 end; STATEMENT 1 ON LINE 182 end; 000267 aa 000003 7100 04 tra 3,ic 000272 STATEMENT 1 ON LINE 183 else if delim = "|" then; 000270 aa 174000 1150 03 cmpa 63488,du 000271 aa 000506 6010 04 tnz 326,ic 000777 STATEMENT 1 ON LINE 187 if length(word_offset) > 0 then do; 000272 aa 6 00105 2361 00 ldq pr6|69 Lword_offset 000273 aa 000032 6044 04 tmoz 26,ic 000325 STATEMENT 1 ON LINE 188 offset_case = WORD; 000274 aa 000006 2360 07 ldq 6,dl 000275 aa 6 00203 7561 00 stq pr6|131 offset_case STATEMENT 1 ON LINE 189 i = verify (word_offset, "01234567"); 000276 aa 6 00110 3735 20 epp7 pr6|72,* Pword_offset 000277 aa 6 00105 7271 00 lxl7 pr6|69 Lword_offset 000300 aa 000 000 164 540 tct (pr,rl) 000301 aa 7 00000 00 0017 desc9a pr7|0,x7 word_offset 000302 aa 000512 0000 04 arg 330,ic 001012 = 777777777777 000303 aa 6 00056 0001 00 arg pr6|46 000304 aa 6 00056 2361 00 ldq pr6|46 000305 aa 0 00242 3761 00 anq pr0|162 = 000777777777 000306 aa 000002 6070 04 ttf 2,ic 000310 000307 aa 000001 3360 07 lcq 1,dl 000310 aa 000001 0760 07 adq 1,dl 000311 aa 6 00201 7561 00 stq pr6|129 i STATEMENT 1 ON LINE 190 if i = 0 then; 000312 aa 000002 6010 04 tnz 2,ic 000314 000313 aa 000012 7100 04 tra 10,ic 000325 STATEMENT 1 ON LINE 191 else do; STATEMENT 1 ON LINE 192 offset_case = ENTRY_PT; 000314 aa 000010 2360 07 ldq 8,dl 000315 aa 6 00203 7561 00 stq pr6|131 offset_case STATEMENT 1 ON LINE 193 if length(word_offset) > 256 then do; 000316 aa 6 00105 2361 00 ldq pr6|69 Lword_offset 000317 aa 000400 1160 07 cmpq 256,dl 000320 aa 000005 6044 04 tmoz 5,ic 000325 STATEMENT 1 ON LINE 194 code = error_table_$entlong; 000321 aa 6 00044 3701 20 epp4 pr6|36,* 000322 la 4 00030 2361 20 ldq pr4|24,* error_table_$entlong 000323 aa 6 00116 7561 00 stq pr6|78 code STATEMENT 1 ON LINE 195 go to ERROR; 000324 aa 000453 7100 04 tra 299,ic 000777 STATEMENT 1 ON LINE 196 end; STATEMENT 1 ON LINE 197 end; STATEMENT 1 ON LINE 198 end; STATEMENT 1 ON LINE 199 if (delim = "$") & (id_case = PATHNAME) & (offset_case ^= ENTRY_PT) then do; 000325 aa 6 00202 2361 00 ldq pr6|130 id_case 000326 aa 000001 1160 07 cmpq 1,dl 000327 aa 0 00512 7001 00 tsx0 pr0|330 r_e_as 000330 aa 6 00211 7551 00 sta pr6|137 000331 aa 000007 6000 04 tze 7,ic 000340 000332 aa 6 00207 2351 00 lda pr6|135 000333 aa 000005 6000 04 tze 5,ic 000340 000334 aa 6 00203 2361 00 ldq pr6|131 offset_case 000335 aa 000010 1160 07 cmpq 8,dl 000336 aa 000002 6000 04 tze 2,ic 000340 STATEMENT 1 ON LINE 201 go to ERROR; 000337 aa 000440 7100 04 tra 288,ic 000777 STATEMENT 1 ON LINE 202 end; STATEMENT 1 ON LINE 203 if (delim = "|") & (id_case = PATHNAME) & (offset_case = ENTRY_PT_DEFAULT) & (search (segment_id, "><") = 0) then do; 000340 aa 6 00206 2351 00 lda pr6|134 delim 000341 aa 174000 1150 03 cmpa 63488,du 000342 aa 000021 6010 04 tnz 17,ic 000363 000343 aa 6 00211 2351 00 lda pr6|137 000344 aa 000017 6000 04 tze 15,ic 000363 000345 aa 6 00203 2361 00 ldq pr6|131 offset_case 000346 aa 000007 1160 07 cmpq 7,dl 000347 aa 000014 6010 04 tnz 12,ic 000363 000350 aa 6 00210 2361 00 ldq pr6|136 000351 aa 000012 6010 04 tnz 10,ic 000363 STATEMENT 1 ON LINE 205 id_case = REF_NAME; 000352 aa 000002 2360 07 ldq 2,dl 000353 aa 6 00202 7561 00 stq pr6|130 id_case STATEMENT 1 ON LINE 206 if length(segment_id) > 32 then do; 000354 aa 6 00104 2361 00 ldq pr6|68 Lsegment_id 000355 aa 000040 1160 07 cmpq 32,dl 000356 aa 000005 6044 04 tmoz 5,ic 000363 STATEMENT 1 ON LINE 207 code = error_table_$entlong; 000357 aa 6 00044 3701 20 epp4 pr6|36,* 000360 la 4 00030 2361 20 ldq pr4|24,* error_table_$entlong 000361 aa 6 00116 7561 00 stq pr6|78 code STATEMENT 1 ON LINE 208 go to ERROR; 000362 aa 000415 7100 04 tra 269,ic 000777 STATEMENT 1 ON LINE 209 end; STATEMENT 1 ON LINE 210 end; STATEMENT 1 ON LINE 212 if id_case = PATHNAME then do; 000363 aa 6 00202 2361 00 ldq pr6|130 id_case 000364 aa 000001 1160 07 cmpq 1,dl 000365 aa 000107 6010 04 tnz 71,ic 000474 STATEMENT 1 ON LINE 213 call expand_pathname_ (segment_id, dir, ent, code); 000366 aa 6 00104 2361 00 ldq pr6|68 Lsegment_id 000367 aa 526000 2760 03 orq 175104,du 000370 aa 6 00210 7561 00 stq pr6|136 000371 aa 6 00106 3521 20 epp2 pr6|70,* segment_id 000372 aa 6 00214 2521 00 spri2 pr6|140 000373 aa 6 00117 3521 00 epp2 pr6|79 dir 000374 aa 6 00216 2521 00 spri2 pr6|142 000375 aa 6 00171 3521 00 epp2 pr6|121 ent 000376 aa 6 00220 2521 00 spri2 pr6|144 000377 aa 6 00116 3521 00 epp2 pr6|78 code 000400 aa 6 00222 2521 00 spri2 pr6|146 000401 aa 6 00210 3521 00 epp2 pr6|136 000402 aa 6 00224 2521 00 spri2 pr6|148 000403 aa 777401 3520 04 epp2 -255,ic 000004 = 526000000250 000404 aa 6 00226 2521 00 spri2 pr6|150 000405 aa 777376 3520 04 epp2 -258,ic 000003 = 526000000040 000406 aa 6 00230 2521 00 spri2 pr6|152 000407 aa 777400 3520 04 epp2 -256,ic 000007 = 404000000043 000410 aa 6 00232 2521 00 spri2 pr6|154 000411 aa 6 00212 6211 00 eax1 pr6|138 000412 aa 020000 4310 07 fld 8192,dl 000413 aa 6 00044 3701 20 epp4 pr6|36,* 000414 la 4 00016 3521 20 epp2 pr4|14,* expand_pathname_ 000415 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 214 if code ^= 0 then go to ERROR; 000416 aa 6 00116 2361 00 ldq pr6|78 code 000417 aa 000360 6010 04 tnz 240,ic 000777 STATEMENT 1 ON LINE 215 call object_lib_$initiate (dir, ent, ent, ""b, P, (0), (""b), code); 000420 aa 000000 2350 07 lda 0,dl 000421 aa 6 00210 7551 00 sta pr6|136 000422 aa 6 00211 4501 00 stz pr6|137 000423 aa 000000 2350 07 lda 0,dl 000424 aa 6 00206 7551 00 sta pr6|134 000425 aa 6 00117 3521 00 epp2 pr6|79 dir 000426 aa 6 00236 2521 00 spri2 pr6|158 000427 aa 6 00171 3521 00 epp2 pr6|121 ent 000430 aa 6 00240 2521 00 spri2 pr6|160 000431 aa 6 00242 2521 00 spri2 pr6|162 000432 aa 6 00210 3521 00 epp2 pr6|136 000433 aa 6 00244 2521 00 spri2 pr6|164 000434 aa 6 00114 3521 00 epp2 pr6|76 P 000435 aa 6 00246 2521 00 spri2 pr6|166 000436 aa 6 00211 3521 00 epp2 pr6|137 000437 aa 6 00250 2521 00 spri2 pr6|168 000440 aa 6 00206 3521 00 epp2 pr6|134 000441 aa 6 00252 2521 00 spri2 pr6|170 000442 aa 6 00116 3521 00 epp2 pr6|78 code 000443 aa 6 00254 2521 00 spri2 pr6|172 000444 aa 777340 3520 04 epp2 -288,ic 000004 = 526000000250 000445 aa 6 00256 2521 00 spri2 pr6|174 000446 aa 777335 3520 04 epp2 -291,ic 000003 = 526000000040 000447 aa 6 00260 2521 00 spri2 pr6|176 000450 aa 6 00262 2521 00 spri2 pr6|178 000451 aa 777331 3520 04 epp2 -295,ic 000002 = 514000000001 000452 aa 6 00264 2521 00 spri2 pr6|180 000453 aa 6 00272 2521 00 spri2 pr6|186 000454 aa 777334 3520 04 epp2 -292,ic 000010 = 464000000000 000455 aa 6 00266 2521 00 spri2 pr6|182 000456 aa 777323 3520 04 epp2 -301,ic 000001 = 404000000030 000457 aa 6 00270 2521 00 spri2 pr6|184 000460 aa 777327 3520 04 epp2 -297,ic 000007 = 404000000043 000461 aa 6 00274 2521 00 spri2 pr6|188 000462 aa 6 00234 6211 00 eax1 pr6|156 000463 aa 040000 4310 07 fld 16384,dl 000464 aa 6 00044 3701 20 epp4 pr6|36,* 000465 la 4 00022 3521 20 epp2 pr4|18,* object_lib_$initiate 000466 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 216 if P = null then go to ERROR; 000467 aa 6 00114 2371 00 ldaq pr6|76 P 000470 aa 777324 6770 04 eraq -300,ic 000014 = 077777000043 000001000000 000471 aa 0 00460 3771 00 anaq pr0|304 = 077777000077 777777077077 000472 aa 000305 6000 04 tze 197,ic 000777 STATEMENT 1 ON LINE 217 end; 000473 aa 000006 7100 04 tra 6,ic 000501 STATEMENT 1 ON LINE 218 else ent = segment_id; 000474 aa 6 00106 3735 20 epp7 pr6|70,* Psegment_id 000475 aa 6 00104 7271 00 lxl7 pr6|68 Lsegment_id 000476 aa 040 100 100 540 mlr (pr,rl),(pr),fill(040) 000477 aa 7 00000 00 0017 desc9a pr7|0,x7 segment_id 000500 aa 6 00171 00 0040 desc9a pr6|121,32 ent STATEMENT 1 ON LINE 221 if offset_case = MISSING then do; 000501 aa 6 00203 2361 00 ldq pr6|131 offset_case 000502 aa 000005 1160 07 cmpq 5,dl 000503 aa 000036 6010 04 tnz 30,ic 000541 STATEMENT 1 ON LINE 222 call hcs_$make_entry (Pref, ent, "", E, code); 000504 aa 6 00032 3735 20 epp7 pr6|26,* 000505 aa 7 00004 3521 20 epp2 pr7|4,* Pref 000506 aa 6 00236 2521 00 spri2 pr6|158 000507 aa 6 00171 3521 00 epp2 pr6|121 ent 000510 aa 6 00240 2521 00 spri2 pr6|160 000511 aa 6 00206 3521 00 epp2 pr6|134 000512 aa 6 00242 2521 00 spri2 pr6|162 000513 aa 6 00100 3521 00 epp2 pr6|64 E 000514 aa 6 00244 2521 00 spri2 pr6|164 000515 aa 6 00116 3521 00 epp2 pr6|78 code 000516 aa 6 00246 2521 00 spri2 pr6|166 000517 aa 777271 3520 04 epp2 -327,ic 000010 = 464000000000 000520 aa 6 00250 2521 00 spri2 pr6|168 000521 aa 777262 3520 04 epp2 -334,ic 000003 = 526000000040 000522 aa 6 00252 2521 00 spri2 pr6|170 000523 aa 777255 3520 04 epp2 -339,ic 000000 = 524000000000 000524 aa 6 00254 2521 00 spri2 pr6|172 000525 aa 777265 3520 04 epp2 -331,ic 000012 = 500000000000 000526 aa 6 00256 2521 00 spri2 pr6|174 000527 aa 777260 3520 04 epp2 -336,ic 000007 = 404000000043 000530 aa 6 00260 2521 00 spri2 pr6|176 000531 aa 6 00234 6211 00 eax1 pr6|156 000532 aa 024000 4310 07 fld 10240,dl 000533 aa 6 00044 3701 20 epp4 pr6|36,* 000534 la 4 00020 3521 20 epp2 pr4|16,* hcs_$make_entry 000535 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 223 if code ^= 0 then go to ERROR; 000536 aa 6 00116 2361 00 ldq pr6|78 code 000537 aa 000240 6010 04 tnz 160,ic 000777 STATEMENT 1 ON LINE 224 end; 000540 aa 000230 7100 04 tra 152,ic 000770 STATEMENT 1 ON LINE 225 else if offset_case = ENTRY_PT then do; 000541 aa 000010 1160 07 cmpq 8,dl 000542 aa 000041 6010 04 tnz 33,ic 000603 STATEMENT 1 ON LINE 226 call hcs_$make_entry (Pref, ent, word_offset, E, code); 000543 aa 6 00105 2361 00 ldq pr6|69 Lword_offset 000544 aa 526000 2760 03 orq 175104,du 000545 aa 6 00206 7561 00 stq pr6|134 000546 aa 6 00032 3735 20 epp7 pr6|26,* 000547 aa 7 00004 3521 20 epp2 pr7|4,* Pref 000550 aa 6 00236 2521 00 spri2 pr6|158 000551 aa 6 00171 3521 00 epp2 pr6|121 ent 000552 aa 6 00240 2521 00 spri2 pr6|160 000553 aa 6 00110 3521 20 epp2 pr6|72,* word_offset 000554 aa 6 00242 2521 00 spri2 pr6|162 000555 aa 6 00100 3521 00 epp2 pr6|64 E 000556 aa 6 00244 2521 00 spri2 pr6|164 000557 aa 6 00116 3521 00 epp2 pr6|78 code 000560 aa 6 00246 2521 00 spri2 pr6|166 000561 aa 777227 3520 04 epp2 -361,ic 000010 = 464000000000 000562 aa 6 00250 2521 00 spri2 pr6|168 000563 aa 777220 3520 04 epp2 -368,ic 000003 = 526000000040 000564 aa 6 00252 2521 00 spri2 pr6|170 000565 aa 6 00206 3521 00 epp2 pr6|134 000566 aa 6 00254 2521 00 spri2 pr6|172 000567 aa 777223 3520 04 epp2 -365,ic 000012 = 500000000000 000570 aa 6 00256 2521 00 spri2 pr6|174 000571 aa 777216 3520 04 epp2 -370,ic 000007 = 404000000043 000572 aa 6 00260 2521 00 spri2 pr6|176 000573 aa 6 00234 6211 00 eax1 pr6|156 000574 aa 024000 4310 07 fld 10240,dl 000575 aa 6 00044 3701 20 epp4 pr6|36,* 000576 la 4 00020 3521 20 epp2 pr4|16,* hcs_$make_entry 000577 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 227 if code ^= 0 then go to ERROR; 000600 aa 6 00116 2361 00 ldq pr6|78 code 000601 aa 000176 6010 04 tnz 126,ic 000777 STATEMENT 1 ON LINE 228 end; 000602 aa 000166 7100 04 tra 118,ic 000770 STATEMENT 1 ON LINE 229 else if offset_case = ENTRY_PT_DEFAULT then do; 000603 aa 000007 1160 07 cmpq 7,dl 000604 aa 000034 6010 04 tnz 28,ic 000640 STATEMENT 1 ON LINE 230 call hcs_$make_entry (Pref, ent, ent, E, code); 000605 aa 6 00032 3735 20 epp7 pr6|26,* 000606 aa 7 00004 3521 20 epp2 pr7|4,* Pref 000607 aa 6 00236 2521 00 spri2 pr6|158 000610 aa 6 00171 3521 00 epp2 pr6|121 ent 000611 aa 6 00240 2521 00 spri2 pr6|160 000612 aa 6 00242 2521 00 spri2 pr6|162 000613 aa 6 00100 3521 00 epp2 pr6|64 E 000614 aa 6 00244 2521 00 spri2 pr6|164 000615 aa 6 00116 3521 00 epp2 pr6|78 code 000616 aa 6 00246 2521 00 spri2 pr6|166 000617 aa 777171 3520 04 epp2 -391,ic 000010 = 464000000000 000620 aa 6 00250 2521 00 spri2 pr6|168 000621 aa 777162 3520 04 epp2 -398,ic 000003 = 526000000040 000622 aa 6 00252 2521 00 spri2 pr6|170 000623 aa 6 00254 2521 00 spri2 pr6|172 000624 aa 777166 3520 04 epp2 -394,ic 000012 = 500000000000 000625 aa 6 00256 2521 00 spri2 pr6|174 000626 aa 777161 3520 04 epp2 -399,ic 000007 = 404000000043 000627 aa 6 00260 2521 00 spri2 pr6|176 000630 aa 6 00234 6211 00 eax1 pr6|156 000631 aa 024000 4310 07 fld 10240,dl 000632 aa 6 00044 3701 20 epp4 pr6|36,* 000633 la 4 00020 3521 20 epp2 pr4|16,* hcs_$make_entry 000634 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 231 if code ^= 0 then go to ERROR; 000635 aa 6 00116 2361 00 ldq pr6|78 code 000636 aa 000141 6010 04 tnz 97,ic 000777 STATEMENT 1 ON LINE 232 end; 000637 aa 000131 7100 04 tra 89,ic 000770 STATEMENT 1 ON LINE 233 else do; STATEMENT 1 ON LINE 234 word = cv_oct_check_ (word_offset, code); 000640 aa 6 00105 2361 00 ldq pr6|69 Lword_offset 000641 aa 526000 2760 03 orq 175104,du 000642 aa 6 00206 7561 00 stq pr6|134 000643 aa 6 00110 3521 20 epp2 pr6|72,* word_offset 000644 aa 6 00214 2521 00 spri2 pr6|140 000645 aa 6 00116 3521 00 epp2 pr6|78 code 000646 aa 6 00216 2521 00 spri2 pr6|142 000647 aa 6 00204 3521 00 epp2 pr6|132 word 000650 aa 6 00220 2521 00 spri2 pr6|144 000651 aa 6 00206 3521 00 epp2 pr6|134 000652 aa 6 00222 2521 00 spri2 pr6|146 000653 aa 777134 3520 04 epp2 -420,ic 000007 = 404000000043 000654 aa 6 00224 2521 00 spri2 pr6|148 000655 aa 6 00226 2521 00 spri2 pr6|150 000656 aa 6 00212 6211 00 eax1 pr6|138 000657 aa 014000 4310 07 fld 6144,dl 000660 aa 6 00044 3701 20 epp4 pr6|36,* 000661 la 4 00014 3521 20 epp2 pr4|12,* cv_oct_check_ 000662 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 235 if code ^= 0 then do; 000663 aa 6 00116 2361 00 ldq pr6|78 code 000664 aa 000005 6000 04 tze 5,ic 000671 STATEMENT 1 ON LINE 236 code = error_table_$bad_conversion; 000665 aa 6 00044 3701 20 epp4 pr6|36,* 000666 la 4 00024 2361 20 ldq pr4|20,* error_table_$bad_conversion 000667 aa 6 00116 7561 00 stq pr6|78 code STATEMENT 1 ON LINE 237 go to ERROR; 000670 aa 000107 7100 04 tra 71,ic 000777 STATEMENT 1 ON LINE 238 end; STATEMENT 1 ON LINE 239 if (0 <= word) & (word <= sys_info$max_seg_size) then; 000671 aa 6 00204 2361 00 ldq pr6|132 word 000672 aa 000005 6040 04 tmi 5,ic 000677 000673 aa 6 00044 3701 20 epp4 pr6|36,* 000674 la 4 00036 1161 20 cmpq pr4|30,* sys_info$max_seg_size 000675 aa 000002 6054 04 tpnz 2,ic 000677 000676 aa 000005 7100 04 tra 5,ic 000703 STATEMENT 1 ON LINE 240 else do; STATEMENT 1 ON LINE 241 code = error_table_$out_of_bounds; 000677 aa 6 00044 3701 20 epp4 pr6|36,* 000700 la 4 00034 2361 20 ldq pr4|28,* error_table_$out_of_bounds 000701 aa 6 00116 7561 00 stq pr6|78 code STATEMENT 1 ON LINE 242 go to ERROR; 000702 aa 000075 7100 04 tra 61,ic 000777 STATEMENT 1 ON LINE 243 end; STATEMENT 1 ON LINE 244 call hcs_$make_entry (Pref, ent, "", E, code); 000703 aa 6 00032 3735 20 epp7 pr6|26,* 000704 aa 7 00004 3521 20 epp2 pr7|4,* Pref 000705 aa 6 00236 2521 00 spri2 pr6|158 000706 aa 6 00171 3521 00 epp2 pr6|121 ent 000707 aa 6 00240 2521 00 spri2 pr6|160 000710 aa 6 00206 3521 00 epp2 pr6|134 000711 aa 6 00242 2521 00 spri2 pr6|162 000712 aa 6 00100 3521 00 epp2 pr6|64 E 000713 aa 6 00244 2521 00 spri2 pr6|164 000714 aa 6 00116 3521 00 epp2 pr6|78 code 000715 aa 6 00246 2521 00 spri2 pr6|166 000716 aa 777072 3520 04 epp2 -454,ic 000010 = 464000000000 000717 aa 6 00250 2521 00 spri2 pr6|168 000720 aa 777063 3520 04 epp2 -461,ic 000003 = 526000000040 000721 aa 6 00252 2521 00 spri2 pr6|170 000722 aa 777056 3520 04 epp2 -466,ic 000000 = 524000000000 000723 aa 6 00254 2521 00 spri2 pr6|172 000724 aa 777066 3520 04 epp2 -458,ic 000012 = 500000000000 000725 aa 6 00256 2521 00 spri2 pr6|174 000726 aa 777061 3520 04 epp2 -463,ic 000007 = 404000000043 000727 aa 6 00260 2521 00 spri2 pr6|176 000730 aa 6 00234 6211 00 eax1 pr6|156 000731 aa 024000 4310 07 fld 10240,dl 000732 la 4 00020 3521 20 epp2 pr4|16,* hcs_$make_entry 000733 aa 0 00622 7001 00 tsx0 pr0|402 call_ext_out_desc STATEMENT 1 ON LINE 245 if code ^= 0 then go to ERROR; 000734 aa 6 00116 2361 00 ldq pr6|78 code 000735 aa 000042 6010 04 tnz 34,ic 000777 STATEMENT 1 ON LINE 247 call cu_$decode_entry_value (E, P, null); 000736 aa 777056 3734 24 epp7 -466,ic* 000737 aa 6 00276 6535 00 spri7 pr6|190 000740 aa 6 00100 3521 00 epp2 pr6|64 E 000741 aa 6 00214 2521 00 spri2 pr6|140 000742 aa 6 00114 3521 00 epp2 pr6|76 P 000743 aa 6 00216 2521 00 spri2 pr6|142 000744 aa 6 00276 3521 00 epp2 pr6|190 000745 aa 6 00220 2521 00 spri2 pr6|144 000746 aa 6 00212 6211 00 eax1 pr6|138 000747 aa 014000 4310 07 fld 6144,dl 000750 aa 6 00044 3701 20 epp4 pr6|36,* 000751 la 4 00010 3521 20 epp2 pr4|8,* cu_$decode_entry_value 000752 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 248 P = ptr (P, word); 000753 aa 6 00204 2361 00 ldq pr6|132 word 000754 aa 6 00114 3521 20 epp2 pr6|76,* P 000755 aa 000000 3120 06 eawp2 0,ql 000756 aa 6 00114 2521 00 spri2 pr6|76 P STATEMENT 1 ON LINE 249 call cu_$make_entry_value (P, E); 000757 aa 6 00114 3521 00 epp2 pr6|76 P 000760 aa 6 00214 2521 00 spri2 pr6|140 000761 aa 6 00100 3521 00 epp2 pr6|64 E 000762 aa 6 00216 2521 00 spri2 pr6|142 000763 aa 6 00212 6211 00 eax1 pr6|138 000764 aa 010000 4310 07 fld 4096,dl 000765 aa 6 00044 3701 20 epp4 pr6|36,* 000766 la 4 00012 3521 20 epp2 pr4|10,* cu_$make_entry_value 000767 aa 0 00623 7001 00 tsx0 pr0|403 call_ext_out STATEMENT 1 ON LINE 250 end; STATEMENT 1 ON LINE 252 return (E); 000770 aa 6 00032 3735 20 epp7 pr6|26,* 000771 aa 7 00010 3715 20 epp5 pr7|8,* 000772 aa 6 00100 3521 20 epp2 pr6|64,* E 000773 aa 5 00000 2521 00 spri2 pr5|0 cv_entry_[return value] 000774 aa 6 00102 3521 20 epp2 pr6|66,* E 000775 aa 5 00002 2521 00 spri2 pr5|2 cv_entry_[return value] 000776 aa 0 00631 7101 00 tra pr0|409 return_mac STATEMENT 1 ON LINE 257 ERROR: Acode = code; 000777 aa 6 00116 2361 00 ldq pr6|78 code 001000 aa 6 00032 3735 20 epp7 pr6|26,* 001001 aa 7 00006 7561 20 stq pr7|6,* Acode STATEMENT 1 ON LINE 258 return (cv_entry_); 001002 aa 777023 3520 04 epp2 -493,ic 000025 = 000300627000 001003 aa 7 00010 2521 20 spri2 pr7|8,* cv_entry_[return value] 001004 aa 000004 2370 04 ldaq 4,ic 001010 = 077777000043 000001000000 001005 aa 7 00010 3715 20 epp5 pr7|8,* 001006 aa 5 00002 7571 00 staq pr5|2 cv_entry_[return value] 001007 aa 0 00631 7101 00 tra pr0|409 return_mac STATEMENT 1 ON LINE 262 end cv_entry_; END PROCEDURE cv_entry_ ----------------------------------------------------------- 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