COMPILATION LISTING OF SEGMENT !BBBJNKKKqcBHKJ Compiled by: Multics PL/I Compiler, Release 28d, of September 14, 1983 Compiled at: Honeywell LCPD Phoenix, System M Compiled on: 10/04/83 1025.1 mst Tue Options: table map 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 /* format: style2 */ 11 (stringrange, stringsize): 12 pl1_data: 13 proc; 14 15 /* 16* Converted to create_data_segment_ 07/07/76 by Bernard Greenberg 17* Modified: 27 Dec 1976 by Richard Barnes for after, before, ltrim, rtrim 18* Modified: 30 Dec 1976 by RAB for collate9 and high9 19* Modified: 17 Feb 1977 by RAB for -check_ansi 20* Modified: April 1977 to add codeptr, currentsize, clock, environmentptr, 21* maxlength, stackbaseptr, stackframeptr, 22* stacq, vclock by RHS 23* Modified: 10 May 1977 by RAB to fix 1573 (sum & prod) 24* Modified 770519 by PG to add substraddr 25* Modified: 12 July 1977 by RAB to fix maxlength & change stacq definition 26* Modified: 29 Mar 1978 by PCK to add codeptr, environmentptr, stackbaseptr, and stackframeptr 27* Modified 790202 by PG to add byte and rank 28* Modified 830101 by BIM add addcharno addbitno addwordno setcharno 29* setbitno setwordno, remove substraddr. 30**/ 31 32 dcl create_data_segment_ ext entry (ptr, fixed bin (35) aligned); 33 dcl com_err_ entry options (variable); 34 dcl 1 cdsa like cds_args aligned; 35 dcl (get_temp_segments_, release_temp_segments_) 36 entry (char (*), (*) ptr, fixed bin (35)); 37 dcl (cleanup, stringrange, stringsize, error) 38 condition; 39 dcl code fixed bin (35); 40 dcl myname char (10) init ("pl1_data") static internal options (constant); 41 dcl segptrs (1) ptr init (null ()); 42 43 44 dcl (i, j) fixed bin (15); 45 46 dcl p ptr; 47 48 49 dcl (addr, collate, divide, substr, unspec, null) 50 builtin; 51 52 dcl ioa_ entry options (variable); 53 54 dcl collating_overlay (0:511) bit (9) unal based (addr (p -> long_collating_sequence)); 55 56 dcl 1 pl1_data based (p), 57 2 long_collating_sequence 58 char (512) aligned, 59 2 builtin_name, 60 3 number_of_names fixed bin (15), 61 3 description (127 refer (pl1_data.number_of_names)), 62 4 name char (14), 63 4 aggregate_result 64 bit (1), 65 4 nonstandard bit (1), 66 4 unused bit (7), 67 4 opcode bit (9), 68 4 reserve_list_number 69 fixed bin (15), 70 4 jump_index fixed bin (15), 71 4 check_indicator 72 fixed bin (15), 73 4 number1 fixed bin (15), 74 4 number2 fixed bin (15), 75 4 number_of_descriptions 76 fixed bin (15), 77 4 descriptor (4), 78 5 check_code fixed bin (15), 79 5 type bit (36) aligned; 80 81 /* check_indicator resulting action: 82* 83* 1 number1 is required number of arguments 84* 2 number1 is minimum number of arguments 85* 3 number1 is minimum number of arguments, 86* number2 is maximum number of arguments. 87* 88* check_code resulting action: 89* 90* 1 argument must be of this type 91* 2 argument should be converted to this type 92* 3 argument should be converted to float binary 93* 4 argument should be converted to arithmetic type 94* 5 argument should be converted to integer type 95* 6 argument should be real decimal fixed constant 96* 7 argument should be converted to string type 97* 8 argument must either be a bit string or real fixed binary 98* 9 argument must be variable 99* 10 argument must be computational 100* 11 argument must be real and converted to float binary 101* 12 argument must be entry, label, or format value 102* */ 103 104 1 1 /* BEGIN INCLUDE FILE cds_args.incl.pl1 */ 1 2 1 3 dcl 1 cds_args based aligned, 1 4 2 sections (2), 1 5 3 p ptr, /* pointer to data for text/static section */ 1 6 3 len fixed bin (18), /* size of text/static section */ 1 7 3 struct_name char (32), /* name of declared structure for this section */ 1 8 2 seg_name char (32), /* name to create segment by */ 1 9 2 num_exclude_names fixed bin, /* number of names in exclude array */ 1 10 2 exclude_array_ptr ptr, /* pointer to array of exclude names */ 1 11 2 switches, /* control switches */ 1 12 3 defs_in_link bit (1) unal, /* says put defs in linkage */ 1 13 3 separate_static bit (1) unal, /* says separate static section is wanted */ 1 14 3 have_text bit (1) unal, /* ON if text section given */ 1 15 3 have_static bit (1) unal, /* ON if static section given */ 1 16 3 pad bit (32) unal; 1 17 1 18 dcl exclude_names (1) char (32) based; /* pointed to be cds_args.exclude_array_ptr */ 1 19 1 20 /* END INCLUDE FILE cds_args.incl.pl1 */ 105 106 2 1 /* BEGIN INCLUDE FILE ... mask.incl.pl1 */ 2 2 2 3 dcl ( structure_mask init("100000000000000000000000000000000000"b), 2 4 fixed_mask init("010000000000000000000000000000000000"b), 2 5 float_mask init("001000000000000000000000000000000000"b), 2 6 bit_mask init("000100000000000000000000000000000000"b), 2 7 char_mask init("000010000000000000000000000000000000"b), 2 8 ptr_mask init("000001000000000000000000000000000000"b), 2 9 offset_mask init("000000100000000000000000000000000000"b), 2 10 area_mask init("000000010000000000000000000000000000"b), 2 11 label_mask init("000000001000000000000000000000000000"b), 2 12 entry_mask init("000000000100000000000000000000000000"b), 2 13 file_mask init("000000000010000000000000000000000000"b), 2 14 arg_descriptor_mask init("000000000001000000000000000000000000"b), 2 15 storage_block_mask init("000000000000100000000000000000000000"b), 2 16 lock_mask init("000000000000010000000000000000000000"b), 2 17 condition_mask init("000000000000001000000000000000000000"b), 2 18 format_mask init("000000000000000100000000000000000000"b), 2 19 builtin_mask init("000000000000000010000000000000000000"b), 2 20 generic_mask init("000000000000000001000000000000000000"b), 2 21 picture_mask init("000000000000000000100000000000000000"b), 2 22 dimensioned_mask init("000000000000000000010000000000000000"b), 2 23 initialed_mask init("000000000000000000001000000000000000"b), 2 24 aligned_mask init("000000000000000000000100000000000000"b), 2 25 unaligned_mask init("000000000000000000000010000000000000"b), 2 26 signed_mask init("000000000000000000000001000000000000"b), 2 27 unsigned_mask init("000000000000000000000000100000000000"b), 2 28 precision_mask init("000000000000000000000000010000000000"b), 2 29 varying_mask init("000000000000000000000000001000000000"b), 2 30 local_mask init("000000000000000000000000000100000000"b), 2 31 decimal_mask init("000000000000000000000000000010000000"b), 2 32 binary_mask init("000000000000000000000000000001000000"b), 2 33 real_mask init("000000000000000000000000000000100000"b), 2 34 complex_mask init("000000000000000000000000000000010000"b), 2 35 variable_mask init("000000000000000000000000000000001000"b), 2 36 reducible_mask init("000000000000000000000000000000000100"b), 2 37 irreducible_mask init("000000000000000000000000000000000010"b), 2 38 returns_mask init("000000000000000000000000000000000001"b)) bit(36) aligned int static 2 39 options(constant); 2 40 2 41 dcl ( arithmetic_mask init("011000000000000000000000000011110000"b), 2 42 computational_mask init("011110000000000000100000000011110000"b), 2 43 fixed_binary_real_mask init("010000000000000000000000000001100000"b), 2 44 fixed_decimal_real_mask init("010000000000000000000000000010100000"b), 2 45 float_decimal_real_mask init("001000000000000000000000000010100000"b), 2 46 fixed_decimal_complex_mask init("010000000000000000000000000010010000"b), 2 47 float_decimal_complex_mask init("001000000000000000000000000010010000"b), 2 48 string_mask init("000110000000000000000000000000000000"b), 2 49 undesirable_mask init("111111111111111111100111110111110111"b), 2 50 convert_mask init("011111111111111111100111110111111110"b), 2 51 declare_constant_mask init("111111111111111111100000000011110000"b) 2 52 ) bit(36) aligned int static 2 53 options(constant); 2 54 2 55 /* END INCLUDE FILE ... mask.incl.pl1 */ 107 3 1 /* BEGIN INCLUDE FILE ... op_codes.incl.pl1 */ 3 2 3 3 /* Modified: 25 Apr 1979 by PCK 4-bit decimal */ 3 4 /* Modified: 6 Jun 1979 by PG to add rank and byte */ 3 5 /* Modified: 26 Dec 1979 by PCK to add assign_by_name */ 3 6 /* Modified: 26 July 82 BIM wordno, segno */ 3 7 3 8 dcl ( add initial("000010001"b), /* opnd(1) <- opnd(2)+opnd(3) */ 3 9 sub initial("000010010"b), /* opnd(1) <- opnd(2)-opnd(3) */ 3 10 mult initial("000010011"b), /* opnd(1) <- opnd(2)*opnd(3) */ 3 11 div initial("000010100"b), /* opnd(1) <- opnd(2)/opnd(3) */ 3 12 negate initial("000010101"b), /* opnd(1) <- -opnd(2) */ 3 13 exp initial("000010110"b), /* opnd(1) <- opnd(2) ** opnd(3) */ 3 14 3 15 and_bits initial("000100001"b), /* opnd(1) <- opnd(2) & opnd(3) */ 3 16 or_bits initial("000100010"b), /* opnd(1) <- opnd(2)|opnd(3) */ 3 17 xor_bits initial("000100011"b), /* opnd(1) <- opnd(2) xor opnd(3) */ 3 18 not_bits initial("000100100"b), /* opnd(1) <- ^opnd(2) */ 3 19 cat_string initial("000100101"b), /* opnd(1) <- opnd(2)||opnd(3) */ 3 20 bool_fun initial("000100110"b), /* opnd(1) <- bool(opnd(2),opnd(3),opnd(4)) */ 3 21 3 22 assign initial("000110001"b), /* opnd(1) <- opnd(2) */ 3 23 assign_size_ck initial("000110010"b), /* opnd(1) <- opnd(2) */ 3 24 assign_zero initial("000110011"b), /* opnd(1) <- 0 */ 3 25 copy_words initial("000110100"b), /* move opnd(2) to opnd(1) by opnd(3) words */ 3 26 copy_string initial("000110101"b), /* move opnd(2) to opnd(1) by opnd(3) units */ 3 27 make_desc initial("000110110"b), /* opnd(1) <- descriptor(opnd(2),opnd(3)) */ 3 28 assign_round initial("000110111"b), /* opnd(1) <- opnd(2) rounded */ 3 29 pack initial("000111000"b), /* opnd(1) <- encode to picture opnd(2) */ 3 30 unpack initial("000111001"b), /* opnd(1) <- decode from picture opnd(2) */ 3 31 3 32 less_than initial("001000100"b), /* opnd(1) <- opnd(2) < opnd(3) */ 3 33 greater_than initial("001000101"b), /* opnd(1) <- opnd(2) > opnd(3) */ 3 34 equal initial("001000110"b), /* opnd(1) <- opnd(2) = opnd(3) */ 3 35 not_equal initial("001000111"b), /* opnd(1) <- opnd(2) ^= opnd(3) */ 3 36 less_or_equal initial("001001000"b), /* opnd(1) <- opnd(2) <= opnd(3) */ 3 37 greater_or_equal initial("001001001"b), /* opnd(1) <- opnd(2) >= opnd(3) */ 3 38 3 39 jump initial("001010001"b), /* go to opnd(1) unconditionally */ 3 40 jump_true initial("001010010"b), /* go to opnd(1) if opnd(2) is not 0 */ 3 41 jump_false initial("001010011"b), /* go to opnd(1) if opnd(2) is all 0 */ 3 42 jump_if_lt initial("001010100"b), /* go to opnd(1) if opnd(2) < opnd(3) */ 3 43 jump_if_gt initial("001010101"b), /* go to opnd(1) if opnd(2) > opnd(3) */ 3 44 jump_if_eq initial("001010110"b), /* go to opnd(1) if opnd(2) = opnd(3) */ 3 45 jump_if_ne initial("001010111"b), /* go to opnd(1) if opnd(2) ^= opnd(3) */ 3 46 jump_if_le initial("001011000"b), /* go to opnd(1) if opnd(2) <= opnd(3) */ 3 47 jump_if_ge initial("001011001"b), /* go to opnd(1) if opnd(2) >= opnd(3) */ 3 48 3 49 std_arg_list initial("001100001"b), /* opnd(1) <- arglist(opnd(2) desclist(opnd(3))) */ 3 50 return_words initial("001100010"b), /* return aggregate opnd(1), opnd(2) is length in words */ 3 51 std_call initial("001100011"b), /* opnd(1) <- call opnd(2) with opnd(3) */ 3 52 return_bits initial("001100100"b), /* return aggregate opnd(1), opnd(2) is length in bits */ 3 53 std_entry initial("001100101"b), /* entry(opnd(1)... opnd(n)) */ 3 54 return_string initial("001100110"b), /* return string opnd(1) */ 3 55 ex_prologue initial("001100111"b), /* execute the prologue -no operands- */ 3 56 allot_auto initial("001101000"b), /* opnd(1) <- addrel(stack,opnd(2)) */ 3 57 param_ptr initial("001101001"b), /* opnd(1) <- ptr to opnd(2) in block opnd(3) */ 3 58 param_desc_ptr initial("001101010"b), /* opnd(1) <- ptr to opnd(2) in block opnd(3) */ 3 59 std_return initial("001101011"b), /* return -no arguments- */ 3 60 allot_ctl initial("001101100"b), /* allocate opnd(1) , length in words is opnd(2) */ 3 61 free_ctl initial("001101101"b), /* free opnd(1) */ 3 62 stop initial("001101110"b), /* stop - terminate run unit */ 3 63 3 64 mod_bit initial("001110000"b), /* opnd(1) <- mod(opnd(3),36), 3 65* opnd(2) <- opnd(3) / 36 */ 3 66 mod_byte initial("001110001"b), /* opnd(1) <- mod(opnd(3),4), 3 67* opnd(2) <- opnd(3) / 4 */ 3 68 mod_half initial("001110010"b), /* opnd(1) <- mod(opnd(3),2), 3 69* opnd(2) <- opnd(3) / 2 */ 3 70 mod_word initial("001110011"b), /* TO BE DEFINED BY BLW */ 3 71 3 72 bit_to_char initial("010000000"b), /* opnd(1) <- (opnd(2)+8)/9 */ 3 73 bit_to_word initial("010000001"b), /* opnd(1) <- (opnd(2)+35)/36 */ 3 74 char_to_word initial("010000010"b), /* opnd(1) <- (opnd(2)+3)/4 */ 3 75 half_to_word initial("010000011"b), /* opnd(1) <- (opnd(2)+1)/2 */ 3 76 word_to_mod2 initial("010000100"b), /* opnd(1) <- (opnd(2)+1)/2*2 */ 3 77 word_to_mod4 initial("010000101"b), /* opnd(1) <- (opnd(2)+3)/4*4 */ 3 78 word_to_mod8 initial("010000110"b), /* opnd(1) <- (opnd(2)+7)/8*8 */ 3 79 rel_fun initial("010000111"b), /* opnd(1) <- rel(opnd(2)) */ 3 80 baseno_fun initial("010001000"b), /* opnd(1) <- baseno(opnd(2)) */ 3 81 desc_size initial("010001001"b), /* opnd(1) <- substr(opnd(2),13,24) */ 3 82 bit_pointer initial("010001010"b), /* opnd(1) <- bit offset of opnd(2) */ 3 83 index_before_fun initial("010001011"b), /* opnd(1) <- length of before(opnd(2),opnd(3)) */ 3 84 index_after_fun initial("010001100"b), /* opnd(1) <- offset of after(opnd(2),opnd(3)) in opnd(2) */ 3 85 verify_ltrim_fun initial("010001101"b), /* opnd(1) <- offset of ltrim(opnd(2),opnd(3)) in opnd(2) */ 3 86 verify_rtrim_fun initial("010001110"b), /* opnd(1) <- length(opnd(2))-length(rtrim(opnd(2),opnd(3))) */ 3 87 digit_to_bit initial("010001111"b), /* opnd(1) <- 9*opnd(2)/2 */ 3 88 3 89 ceil_fun initial("010010000"b), /* opnd(1) <- ceil(opnd(2)) */ 3 90 floor_fun initial("010010001"b), /* opnd(1) <- floor(opnd(2)) */ 3 91 round_fun initial("010010010"b), /* opnd(1) <- round(opnd(2)) */ 3 92 sign_fun initial("010010011"b), /* opnd(1) <- sign(opnd(2)) */ 3 93 abs_fun initial("010010100"b), /* opnd(1) <- abs(opnd(2)) */ 3 94 trunc_fun initial("010010101"b), /* opnd(1) <- trunc(opnd(2)) */ 3 95 byte_fun initial("010010110"b), /* opnd(1) <- byte(opnd(2)) */ 3 96 rank_fun initial("010010111"b), /* opnd(1) <- rank(opnd(2)) */ 3 97 index_rev_fun initial("010011000"b), /* opnd(1) <- index(reverse(opnd(2)),reverse(opnd(3))) */ 3 98 search_rev_fun initial("010011001"b), /* opnd(1) <- search(reverse(opnd(2)),opnd(3)) */ 3 99 verify_rev_fun initial("010011010"b), /* opnd(1) <- verify(reverse(opnd(2)),opnd(3)) */ 3 100 wordno_fun initial("010011011"b), /* opnd(1) <- wordno (opnd(2)) */ 3 101 segno_fun initial("010011100"b), /* opnd(1) <- segno (opnd(2)) */ 3 102 bitno_fun initial("010011101"b), /* opnd(1) <- bitno (opnd(2)) */ 3 103 charno_fun initial("010011110"b), /* opnd(1) <- charno (opnd(2)) */ 3 104 3 105 index_fun initial("010100000"b), /* opnd(1) <- index(opnd(2),opnd(3)) */ 3 106 off_fun initial("010100001"b), /* opnd(1) <- offset(opnd(2),opnd(3)) */ 3 107 complex_fun initial("010100010"b), /* opnd(1) <- complex(opnd(2),opnd(3)) */ 3 108 conjg_fun initial("010100011"b), /* opnd(1) <- conjg(opnd(2),opnd(3)) */ 3 109 mod_fun initial("010100100"b), /* opnd(1) <- mod(opnd(2),opnd(3)) */ 3 110 repeat_fun initial("010100101"b), /* opnd(1) <- repeat(opnd(2),opnd(3)) */ 3 111 verify_fun initial("010100110"b), /* opnd(1) <- verify(opnd(2),opnd(3)) */ 3 112 translate_fun initial("010100111"b), /* opnd(1) <- translate(opnd(2),opnd(3))*/ 3 113 real_fun initial("010101001"b), /* opnd(1) <- real(opnd(2)) */ 3 114 imag_fun initial("010101010"b), /* opnd(1) <- imag(opnd(2)) */ 3 115 length_fun initial("010101011"b), /* opnd(1) <- length(opnd(2)) */ 3 116 pl1_mod_fun initial("010101100"b), /* opnd(1) <- mod(opnd(2)) */ 3 117 search_fun initial("010101101"b), /* opnd(1) <- search(opnd(2),opnd(3)) */ 3 118 allocation_fun initial("010101110"b), /* opnd(1) <- allocation(opnd(2)) */ 3 119 reverse_fun initial("010101111"b), /* opnd(1) <- reverse(opnd(2)) */ 3 120 3 121 addr_fun initial("010110000"b), /* opnd(1) <- addr(opnd(2)) */ 3 122 addr_fun_bits initial("010110001"b), /* opnd(1) <- addr(opnd(2)) */ 3 123 ptr_fun initial("010110010"b), /* opnd(1) <- ptr(opnd(2),opnd(3)) */ 3 124 baseptr_fun initial("010110011"b), /* opnd(1) <- baseptr(opnd(2)) */ 3 125 addrel_fun initial("010110100"b), /* opnd(1) <- addrel(opnd(2),opnd(3)) */ 3 126 codeptr_fun initial("010110101"b), /* opnd(1) <- codeptr(opnd(2)) */ 3 127 environmentptr_fun initial("010110110"b), /* opnd(1) <- environmentptr(opnd(2)) */ 3 128 stackbaseptr_fun initial("010110111"b), /* opnd(1) is ptr to base of current stack */ 3 129 stackframeptr_fun initial("010111000"b), /* opnd(1) is ptr to current block's stack frame */ 3 130 setcharno_fun initial("010111001"b), /* opnd(1) <- opnd(2) with charno opnd(3) */ 3 131 addcharno_fun initial("010111010"b), /* opnd(1) <- opnd(2) with charno = charno + opnd(3) */ 3 132 setbitno_fun initial("010111011"b), /* setcharno for bitsno */ 3 133 addbitno_fun initial("010111100"b), /* addcharno for bitno */ 3 134 3 135 min_fun initial("011000000"b), /* opnd(1) <- min(opnd(1),opnd(2),...) */ 3 136 max_fun initial("011000001"b), /* opnd(1) <- max(opnd(1),opnd(2),...) */ 3 137 3 138 stack_ptr initial("011010001"b), /* opnd(1) <- stack frame ptr */ 3 139 empty_area initial("011010010"b), /* empty opnd(1), length in words is opnd(2) */ 3 140 enable_on initial("011010100"b), /* opnd(1) is the cond name 3 141* opnd(2) is the file name 3 142* ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿts for word offset + 6 bits for bit offset */ 4 27 4 28 max_words_per_variable initial (262144), 4 29 4 30 bits_per_word initial(36), 4 31 bits_per_double initial(72), 4 32 packed_digits_per_character initial(2), 4 33 characters_per_half initial(2), 4 34 characters_per_word initial(4), 4 35 characters_per_double initial(8), 4 36 4 37 bits_per_character initial(9), 4 38 bits_per_half initial(18), 4 39 bits_per_decimal_digit initial(9), 4 40 bits_per_binary_exponent initial(8), 4 41 bits_per_packed_ptr initial(36), 4 42 words_per_packed_pointer initial(1), 4 43 4 44 words_per_fix_bin_1 initial(1), 4 45 words_per_fix_bin_2 initial(2), 4 46 words_per_flt_bin_1 initial(1), 4 47 words_per_flt_bin_2 initial(2), 4 48 words_per_varying_string_header initial(1), 4 49 words_per_offset initial(1), 4 50 words_per_pointer initial(2), 4 51 words_per_label_var initial(4), 4 52 words_per_entry_var initial(4), 4 53 words_per_file_var initial(4), 4 54 words_per_format initial(4), 4 55 words_per_condition_var initial(6), 4 56 4 57 max_index_register_value initial(262143), 4 58 max_signed_index_register_value initial(131071), 4 59 4 60 max_signed_xreg_precision initial(17), 4 61 max_uns_xreg_precision initial(18), 4 62 4 63 default_area_size initial(1024), 4 64 default_flt_bin_p initial(27), 4 65 default_fix_bin_p initial(17), 4 66 default_flt_dec_p initial(10), 4 67 default_fix_dec_p initial(7)) fixed bin(31) internal static options(constant); 4 68 4 69 dcl bits_per_digit initial(4.5) fixed bin(31,1) internal static options(constant); 4 70 4 71 dcl ( integer_type initial("010000000000000000000100000001100000"b), 4 72 dec_integer_type initial("010000000000000000000100000010100000"b), 4 73 pointer_type initial("000001000000000000000100000000000000"b), 4 74 real_type initial("001000000000000000000100000001100000"b), 4 75 complex_type initial("001000000000000000000100000001010000"b), 4 76 builtin_type initial("000000000000000010000000000000000000"b), 4 77 storage_block_type initial("000000000000100000000000000000000000"b), 4 78 arg_desc_type initial("000000000001000000000000000000000000"b), 4 79 local_label_var_type initial("000000001000000000000100000100001000"b), 4 80 entry_var_type initial("000000000100000000000000000000001000"b), 4 81 bit_type initial("000100000000000000000000000000000000"b), 4 82 char_type initial("000010000000000000000000000000000000"b)) bit(36) aligned int static 4 83 options(constant); 4 84 4 85 /* END INCLUDE FILE ... system.incl.pl1 */ 109 110 111 /* */ 112 113 on stringsize 114 begin; 115 call com_err_ (0, myname, "Stringsize condition raised."); 116 signal error; 117 end; 118 on cleanup call release_temp_segments_ (myname, segptrs, (0)); 119 call get_temp_segments_ (myname, segptrs, code); 120 if code ^= 0 121 then do; 122 call com_err_ (code, myname, "Getting temp segments"); 123 return; 124 end; 125 126 p = segptrs (1); 127 128 /* */ 129 130 i = 1; 131 p -> builtin_name.description (i).name = "abs"; 132 p -> builtin_name.description (i).aggregate_result = "1"b; 133 p -> builtin_name.description (i).opcode = abs_fun; 134 p -> builtin_name.description (i).jump_index = 13; 135 p -> builtin_name.description (i).check_indicator = 1; 136 p -> builtin_name.description (i).number1 = 1; 137 p -> builtin_name.description (i).number_of_descriptions = 1; 138 p -> builtin_name.description (i).descriptor (1).check_code = 4; 139 140 i = i + 1; 141 p -> builtin_name.description (i).name = "acos"; 142 p -> builtin_name.description (i).aggregate_result = "1"b; 143 p -> builtin_name.description (i).opcode = acos_fun; 144 p -> builtin_name.description (i).reserve_list_number = 85; 145 p -> builtin_name.description (i).jump_index = 54; 146 p -> builtin_name.description (i).check_indicator = 1; 147 p -> builtin_name.description (i).number1 = 1; 148 p -> builtin_name.description (i).number_of_descriptions = 1; 149 p -> builtin_name.description (i).descriptor (1).check_code = 11; 150 151 i = i + 1; 152 p -> builtin_name.description (i).name = "add"; 153 p -> builtin_name.description (i).aggregate_result = "1"b; 154 p -> builtin_name.description (i).opcode = add; 155 p -> builtin_name.description (i).jump_index = 14; 156 p -> builtin_name.description (i).check_indicator = 3; 157 p -> builtin_name.description (i).number1 = 3; 158 p -> builtin_name.description (i).number2 = 4; 159 p -> builtin_name.description (i).number_of_descriptions = 4; 160 p -> builtin_name.description (i).descriptor (3).check_code = 6; 161 p -> builtin_name.description (i).descriptor (4).check_code = 6; 162 163 i = i + 1; 164 p -> builtin_name.description (i).name = "addr"; 165 p -> builtin_name.description (i).opcode = addr_fun; 166 p -> builtin_name.description (i).jump_index = 33; 167 p -> builtin_name.description (i).check_indicator = 1; 168 p -> builtin_name.description (i).number1 = 1; 169 p -> builtin_name.description (i).number_of_descriptions = 1; 170 p -> builtin_name.description (i).descriptor (1).check_code = 9; 171 172 i = i + 1; 173 p -> builtin_name.description (i).name = "addrel";/* multics function */ 174 p -> builtin_name.description (i).opcode = addrel_fun; 175 p -> builtin_name.description (i).nonstandard = "1"b; 176 p -> builtin_name.description (i).jump_index = 41; 177 p -> builtin_name.description (i).check_indicator = 1; 178 p -> builtin_name.description (i).number1 = 2; 179 p -> builtin_name.description (i).number_of_descriptions = 2; 180 p -> builtin_name.description (i).descriptor (1).check_code = 1; 181 p -> builtin_name.description (i).descriptor (1).type = pointer_type; 182 p -> builtin_name.description (i).descriptor (2).check_code = 8; 183 i = i + 1; 184 p -> builtin_name.description (i).name = "addwordno";/* multics function */ 185 p -> builtin_name.description (i).opcode = addrel_fun; 186 p -> builtin_name.description (i).nonstandard = "1"b; 187 p -> builtin_name.description (i).jump_index = 41; 188 p -> builtin_name.description (i).check_indicator = 1; 189 p -> builtin_name.description (i).number1 = 2; 190 p -> builtin_name.description (i).number_of_descriptions = 2; 191 p -> builtin_name.description (i).descriptor (1).check_code = 1; 192 p -> builtin_name.description (i).descriptor (1).type = pointer_type; 193 p -> builtin_name.description (i).descriptor (2).check_code = 5; 194 195 i = i + 1; 196 p -> builtin_name.description (i).name = "allocation"; 197 p -> builtin_name.description (i).opcode = allocation_fun; 198 p -> builtin_name.description (i).jump_index = 36; 199 p -> builtin_name.description (i).check_indicator = 1; 200 p -> builtin_name.description (i).number1 = 1; 201 202 i = i + 1; 203 p -> builtin_name.description (i).name = "allocn"; 204 p -> builtin_name.description (i).opcode = allocation_fun; 205 p -> builtin_name.description (i).jump_index = 36; 206 p -> builtin_name.description (i).check_indicator = 1; 207 p -> builtin_name.description (i).number1 = 1; 208 209 i = i + 1; 210 p -> builtin_name.description (i).name = "after"; 211 p -> builtin_name.description (i).aggregate_result = "1"b; 212 p -> builtin_name.description (i).opcode = index_after_fun; 213 p -> builtin_name.description (i).jump_index = 55; 214 p -> builtin_name.description (i).check_indicator = 1; 215 p -> builtin_name.description (i).number1 = 2; 216 217 i = i + 1; 218 p -> builtin_name.description (i).name = "asin"; 219 p -> builtin_name.description (i).aggregate_result = "1"b; 220 p -> builtin_name.description (i).opcode = asin_fun; 221 p -> builtin_name.description (i).reserve_list_number = 77; 222 p -> builtin_name.description (i).jump_index = 54; 223 p -> builtin_name.description (i).check_indicator = 1; 224 p -> builtin_name.description (i).number1 = 1; 225 p -> builtin_name.description (i).number_of_descriptions = 1; 226 p -> builtin_name.description (i).descriptor (1).check_code = 11; 227 228 i = i + 1; 229 p -> builtin_name.description (i).name = "atan"; 230 p -> builtin_name.description (i).aggregate_result = "1"b; 231 p -> builtin_name.description (i).opcode = atan_fun; 232 p -> builtin_name.description (i).reserve_list_number = 93; 233 p -> builtin_name.description (i).jump_index = 54; 234 p -> builtin_name.description (i).check_indicator = 3; 235 p -> builtin_name.description (i).number1 = 1; 236 p -> builtin_name.description (i).number2 = 2; 237 p -> builtin_name.description (i).number_of_descriptions = 2; 238 p -> builtin_name.description (i).descriptor (1).check_code = 11; 239 p -> builtin_name.description (i).descriptor (2).check_code = 11; 240 241 i = i + 1; 242 p -> builtin_name.description (i).name = "atand"; 243 p -> builtin_name.description (i).aggregate_result = "1"b; 244 p -> builtin_name.description (i).opcode = atand_fun; 245 p -> builtin_name.description (i).reserve_list_number = 97; 246 p -> builtin_name.description (i).jump_index = 54; 247 p -> builtin_name.description (i).check_indicator = 3; 248 p -> builtin_name.description (i).number1 = 1; 249 p -> builtin_name.description (i).number2 = 2; 250 p -> builtin_name.description (i).number_of_descriptions = 2; 251 p -> builtin_name.description (i).descriptor (1).check_code = 11; 252 p -> builtin_name.description (i).descriptor (2).check_code = 11; 253 254 i = i + 1; 255 p -> builtin_name.description (i).name = "atanh"; 256 p -> builtin_name.description (i).aggregate_result = "1"b; 257 p -> builtin_name.description (i).reserve_list_number = 45; 258 p -> builtin_name.description (i).jump_index = 25; 259 p -> builtin_name.description (i).check_indicator = 1; 260 p -> builtin_name.description (i).number1 = 1; 261 p -> builtin_name.description (i).number_of_descriptions = 1; 262 p -> builtin_name.description (i).descriptor (1).check_code = 3; 263 264 i = i + 1; 265 p -> builtin_name.description (i).name = "baseno";/* multics function */ 266 p -> builtin_name.description (i).opcode = baseno_fun; 267 p -> builtin_name.description (i).nonstandard = "1"b; 268 p -> builtin_name.description (i).jump_index = 39; 269 p -> builtin_name.description (i).check_indicator = 1; 270 /* Exact # of args */ 271 p -> builtin_name.description (i).number1 = 1; /* One argument */ 272 p -> builtin_name.description (i).number_of_descriptions = 1; 273 274 i = i + 1; 275 p -> builtin_name.description (i).name = "segno"; /* multics function */ 276 p -> builtin_name.description (i).opcode = segno_fun; 277 p -> builtin_name.description (i).nonstandard = "1"b; 278 p -> builtin_name.description (i).jump_index = 70; 279 p -> builtin_name.description (i).check_indicator = 1; 280 p -> builtin_name.description (i).number1 = 1; 281 p -> builtin_name.description (i).number_of_descriptions = 1; 282 283 i = i + 1; 284 p -> builtin_name.description (i).name = "baseptr"; 285 /* multics function */ 286 p -> builtin_name.description (i).opcode = baseptr_fun; 287 p -> builtin_name.description (i).nonstandard = "1"b; 288 p -> builtin_name.description (i).jump_index = 41; 289 p -> builtin_name.description (i).check_indicator = 1; 290 p -> builtin_name.description (i).number1 = 1; 291 p -> builtin_name.description (i).number_of_descriptions = 1; 292 p -> builtin_name.description (i).descriptor (1).check_code = 8; 293 294 i = i + 1; 295 p -> builtin_name.description (i).name = "before"; 296 p -> builtin_name.description (i).aggregate_result = "1"b; 297 p -> builtin_name.description (i).opcode = index_before_fun; 298 p -> builtin_name.description (i).jump_index = 56; 299 p -> builtin_name.description (i).check_indicator = 1; 300 p -> builtin_name.description (i).number1 = 2; 301 302 i = i + 1; 303 p -> builtin_name.description (i).name = "bin"; 304 p -> builtin_name.description (i).aggregate_result = "1"b; 305 p -> builtin_name.description (i).jump_index = 15; 306 p -> builtin_name.description (i).check_indicator = 3; 307 p -> builtin_name.description (i).number1 = 1; 308 p -> builtin_name.description (i).number2 = 3; 309 p -> builtin_name.description (i).number_of_descriptions = 3; 310 p -> builtin_name.description (i).descriptor (1).check_code = 10; 311 p -> builtin_name.description (i).descriptor (1).type = binary_mask; 312 p -> builtin_name.description (i).descriptor (2).check_code = 6; 313 p -> builtin_name.description (i).descriptor (3).check_code = 6; 314 315 i = i + 1; 316 p -> builtin_name.description (i).name = "binary"; 317 p -> builtin_name.description (i).aggregate_result = "1"b; 318 p -> builtin_name.description (i).jump_index = 15; 319 p -> builtin_name.description (i).check_indicator = 3; 320 p -> builtin_name.description (i).number1 = 1; 321 p -> builtin_name.description (i).number2 = 3; 322 p -> builtin_name.description (i).number_of_descriptions = 3; 323 p -> builtin_name.description (i).descriptor (1).check_code = 10; 324 p -> builtin_name.description (i).descriptor (1).type = binary_mask; 325 p -> builtin_name.description (i).descriptor (2).check_code = 6; 326 p -> builtin_name.description (i).descriptor (3).check_code = 6; 327 328 i = i + 1; 329 p -> builtin_name.description (i).name = "bit"; 330 p -> builtin_name.description (i).aggregate_result = "1"b; 331 p -> builtin_name.description (i).jump_index = 18; 332 p -> builtin_name.description (i).check_indicator = 3; 333 p -> builtin_name.description (i).number1 = 1; 334 p -> builtin_name.description (i).number2 = 2; 335 p -> builtin_name.description (i).number_of_descriptions = 2; 336 p -> builtin_name.description (i).descriptor (1).check_code = 10; 337 p -> builtin_name.description (i).descriptor (1).type = bit_mask; 338 p -> builtin_name.description (i).descriptor (2).check_code = 5; 339 340 i = i + 1; 341 p -> builtin_name.description (i).name = "bool"; 342 p -> builtin_name.description (i).aggregate_result = "1"b; 343 p -> builtin_name.description (i).opcode = bool_fun; 344 p -> builtin_name.description (i).jump_index = 23; 345 p -> builtin_name.description (i).check_indicator = 1; 346 p -> builtin_name.description (i).number1 = 3; 347 p -> builtin_name.description (i).number_of_descriptions = 3; 348 p -> builtin_name.description (i).descriptor (1).check_code = 2; 349 p -> builtin_name.description (i).descriptor (1).type = bit_mask; 350 p -> builtin_name.description (i).descriptor (2).check_code = 2; 351 p -> builtin_name.description (i).descriptor (2).type = bit_mask; 352 p -> builtin_name.description (i).descriptor (3).check_code = 2; 353 p -> builtin_name.description (i).descriptor (3).type = bit_mask; 354 355 i = i + 1; 356 p -> builtin_name.description (i).name = "byte"; /* multics function */ 357 p -> builtin_name.description (i).aggregate_result = "1"b; 358 p -> builtin_name.description (i).nonstandard = "1"b; 359 p -> builtin_name.description (i).opcode = byte_fun; 360 p -> builtin_name.description (i).jump_index = 68; 361 p -> builtin_name.description (i).check_indicator = 1; 362 p -> builtin_name.description (i).number1 = 1; 363 p -> builtin_name.description (i).number_of_descriptions = 1; 364 p -> builtin_name.description (i).descriptor (1).check_code = 2; 365 p -> builtin_name.description (i).descriptor (1).type = fixed_binary_real_mask; 366 367 i = i + 1; 368 p -> builtin_name.description (i).name = "ceil"; 369 p -> builtin_name.description (i).aggregate_result = "1"b; 370 p -> builtin_name.description (i).opcode = ceil_fun; 371 p -> builtin_name.description (i).jump_index = 16; 372 p -> builtin_name.description (i).check_indicator = 1; 373 p -> builtin_name.description (i).number1 = 1; 374 p -> builtin_name.description (i).number_of_descriptions = 1; 375 p -> builtin_name.description (i).descriptor (1).check_code = 4; 376 377 i = i + 1; 378 p -> builtin_name.description (i).name = "char"; 379 p -> builtin_name.description (i).aggregate_result = "1"b; 380 p -> builtin_name.description (i).jump_index = 18; 381 p -> builtin_name.description (i).check_indicator = 3; 382 p -> builtin_name.description (i).number1 = 1; 383 p -> builtin_name.description (i).number2 = 2; 384 p -> builtin_name.description (i).number_of_descriptions = 2; 385 p -> builtin_name.description (i).descriptor (1).check_code = 10; 386 p -> builtin_name.description (i).descriptor (1).type = char_mask; 387 p -> builtin_name.description (i).descriptor (2).check_code = 5; 388 389 i = i + 1; 390 p -> builtin_name.description (i).name = "character"; 391 p -> builtin_name.description (i).aggregate_result = "1"b; 392 p -> builtin_name.description (i).jump_index = 18; 393 p -> builtin_name.description (i).check_indicator = 3; 394 p -> builtin_name.description (i).number1 = 1; 395 p -> builtin_name.description (i).number2 = 2; 396 p -> builtin_name.description (i).number_of_descriptions = 2; 397 p -> builtin_name.description (i).descriptor (1).check_code = 10; 398 p -> builtin_name.description (i).descriptor (1).type = char_mask; 399 p -> builtin_name.description (i).descriptor (2).check_code = 5; 400 401 i = i + 1; 402 p -> builtin_name.description (i).name = "clock"; /* multics function */ 403 p -> builtin_name.description (i).nonstandard = "1"b; 404 p -> builtin_name.description (i).opcode = clock_fun; 405 p -> builtin_name.description (i).jump_index = 62; 406 p -> builtin_name.description (i).check_indicator = 1; 407 p -> builtin_name.description (i).number1 = 0; 408 409 i = i + 1; 410 p -> builtin_name.description (i).name = "codeptr"; 411 /* multics function */ 412 p -> builtin_name.description (i).nonstandard = "1"b; 413 p -> builtin_name.description (i).aggregate_result = "1"b; 414 p -> builtin_name.description (i).opcode = codeptr_fun; 415 p -> builtin_name.description (i).jump_index = 63; 416 p -> builtin_name.description (i).check_indicator = 1; 417 p -> builtin_name.description (i).number1 = 1; 418 p -> builtin_name.description (i).number_of_descriptions = 1; 419 p -> builtin_name.description (i).descriptor (1).check_code = 12; 420 421 i = i + 1; 422 p -> builtin_name.description (i).name = "collate"; 423 p -> builtin_name.description (i).jump_index = 1; 424 p -> builtin_name.description (i).check_indicator = 1; 425 p -> builtin_name.description (i).number1 = 0; 426 427 i = i + 1; 428 p -> builtin_name.description (i).name = "collate9"; 429 /* multics function */ 430 p -> builtin_name.description (i).nonstandard = "1"b; 431 p -> builtin_name.description (i).jump_index = 59; 432 p -> builtin_name.description (i).check_indicator = 1; 433 p -> builtin_name.description (i).number1 = 0; 434 435 i = i + 1; 436 p -> builtin_name.description (i).name = "complex"; 437 p -> builtin_name.description (i).aggregate_result = "1"b; 438 p -> builtin_name.description (i).opcode = complex_fun; 439 p -> builtin_name.description (i).jump_index = 17; 440 p -> builtin_name.description (i).check_indicator = 1; 441 p -> builtin_name.description (i).number1 = 2; 442 443 i = i + 1; 444 p -> builtin_name.description (i).name = "conjg"; 445 p -> builtin_name.description (i).aggregate_result = "1"b; 446 p -> builtin_name.description (i).opcode = conjg_fun; 447 p -> builtin_name.description (i).jump_index = 50; 448 p -> builtin_name.description (i).check_indicator = 1; 449 p -> builtin_name.description (i).number1 = 1; 450 p -> builtin_name.description (i).number_of_descriptions = 1; 451 p -> builtin_name.description (i).descriptor (1).check_code = 1; 452 p -> builtin_name.description (i).descriptor (1).type = complex_mask; 453 454 i = i + 1; 455 p -> builtin_name.description (i).name = "convert"; 456 /* multics function */ 457 p -> builtin_name.description (i).nonstandard = "1"b; 458 p -> builtin_name.description (i).jump_index = 46; 459 p -> builtin_name.description (i).check_indicator = 1; 460 p -> builtin_name.description (i).number1 = 2; 461 462 i = i + 1; 463 p -> builtin_name.description (i).name = "copy"; 464 p -> builtin_name.description (i).aggregate_result = "1"b; 465 p -> builtin_name.description (i).opcode = repeat_fun; 466 p -> builtin_name.description (i).jump_index = 9; 467 p -> builtin_name.description (i).check_indicator = 1; 468 p -> builtin_name.description (i).number1 = 2; 469 p -> builtin_name.description (i).number_of_descriptions = 2; 470 p -> builtin_name.description (i).descriptor (1).check_code = 7; 471 p -> builtin_name.description (i).descriptor (2).check_code = 5; 472 473 i = i + 1; 474 p -> builtin_name.description (i).name = "cos"; 475 p -> builtin_name.description (i).aggregate_result = "1"b; 476 p -> builtin_name.description (i).opcode = cos_fun; 477 p -> builtin_name.description (i).reserve_list_number = 61; 478 p -> builtin_name.description (i).jump_index = 54; 479 p -> builtin_name.description (i).check_indicator = 1; 480 p -> builtin_name.description (i).number1 = 1; 481 p -> builtin_name.description (i).number_of_descriptions = 1; 482 p -> builtin_name.description (i).descriptor (1).check_code = 3; 483 484 i = i + 1; 485 p -> builtin_name.description (i).name = "cosd"; 486 p -> builtin_name.description (i).aggregate_result = "1"b; 487 p -> builtin_name.description (i).opcode = cosd_fun; 488 p -> builtin_name.description (i).reserve_list_number = 65; 489 p -> builtin_name.description (i).jump_index = 54; 490 p -> builtin_name.description (i).check_indicator = 1; 491 p -> builtin_name.description (i).number1 = 1; 492 p -> builtin_name.description (i).number_of_descriptions = 1; 493 p -> builtin_name.description (i).descriptor (1).check_code = 11; 494 495 i = i + 1; 496 p -> builtin_name.description (i).name = "cosh"; 497 p -> builtin_name.description (i).aggregate_result = "1"b; 498 p -> builtin_name.description (i).reserve_list_number = 113; 499 p -> builtin_name.description (i).jump_index = 25; 500 p -> builtin_name.description (i).check_indicator = 1; 501 p -> builtin_name.description (i).number1 = 1; 502 p -> builtin_name.description (i).number_of_descriptions = 1; 503 p -> builtin_name.description (i).descriptor (1).check_code = 3; 504 505 i = i + 1; 506 p -> builtin_name.description (i).name = "cplx"; 507 p -> builtin_name.description (i).aggregate_result = "1"b; 508 p -> builtin_name.description (i).opcode = complex_fun; 509 p -> builtin_name.description (i).jump_index = 17; 510 p -> builtin_name.description (i).check_indicator = 1; 511 p -> builtin_name.description (i).number1 = 2; 512 513 i = i + 1; 514 p -> builtin_name.description (i).name = "currentsize"; 515 /* multics function */ 516 p -> builtin_name.description (i).nonstandard = "1"b; 517 p -> builtin_name.description (i).jump_index = 64; 518 p -> builtin_name.description (i).check_indicator = 1; 519 p -> builtin_name.description (i).number1 = 1; 520 521 i = i + 1; 522 p -> builtin_name.description (i).name = "date"; 523 p -> builtin_name.description (i).reserve_list_number = 186; 524 p -> builtin_name.description (i).jump_index = 31; 525 p -> builtin_name.description (i).check_indicator = 1; 526 p -> builtin_name.description (i).number1 = 0; 527 528 i = i + 1; 529 p -> builtin_name.description (i).name = "dec"; 530 p -> builtin_name.description (i).aggregate_result = "1"b; 531 p -> builtin_name.description (i).jump_index = 15; 532 p -> builtin_name.description (i).check_indicator = 3; 533 p -> builtin_name.description (i).number1 = 1; 534 p -> builtin_name.description (i).number2 = 3; 535 p -> builtin_name.description (i).number_of_descriptions = 3; 536 p -> builtin_name.description (i).descriptor (1).check_code = 10; 537 p -> builtin_name.description (i).descriptor (1).type = decimal_mask; 538 p -> builtin_name.description (i).descriptor (2).check_code = 6; 539 p -> builtin_name.description (i).descriptor (3).check_code = 6; 540 541 i = i + 1; 542 p -> builtin_name.description (i).name = "decat"; 543 p -> builtin_name.description (i).aggregate_result = "1"b; 544 p -> builtin_name.description (i).reserve_list_number = 190; 545 p -> builtin_name.description (i).jump_index = 24; 546 p -> builtin_name.description (i).check_indicator = 1; 547 p -> builtin_name.description (i).number1 = 3; 548 549 i = i + 1; 550 p -> builtin_name.description (i).name = "decimal"; 551 p -> builtin_name.description (i).aggregate_result = "1"b; 552 p -> builtin_name.description (i).jump_index = 15; 553 p -> builtin_name.description (i).check_indicator = 3; 554 p -> builtin_name.description (i).number1 = 1; 555 p -> builtin_name.description (i).number2 = 3; 556 p -> builtin_name.description (i).number_of_descriptions = 3; 557 p -> builtin_name.description (i).descriptor (1).check_code = 10; 558 p -> builtin_name.description (i).descriptor (1).type = decimal_mask; 559 p -> builtin_name.description (i).descriptor (2).check_code = 6; 560 p -> builtin_name.description (i).descriptor (3).check_code = 6; 561 562 i = i + 1; 563 p -> builtin_name.description (i).name = "dim"; 564 p -> builtin_name.description (i).opcode = sub; 565 p -> builtin_name.description (i).reserve_list_number = 3; 566 /* third argument in call to bounds_ */ 567 p -> builtin_name.description (i).jump_index = 26; 568 p -> builtin_name.description (i).check_indicator = 1; 569 p -> builtin_name.description (i).number1 = 2; 570 p -> builtin_name.description (i).number_of_descriptions = 2; 571 p -> builtin_name.description (i).descriptor (2).check_code = 5; 572 573 i = i + 1; 574 p -> builtin_name.description (i).name = "dimension"; 575 p -> builtin_name.description (i).opcode = sub; 576 p -> builtin_name.description (i).reserve_list_number = 3; 577 /* third argument in call to bounds_ */ 578 p -> builtin_name.description (i).jump_index = 26; 579 p -> builtin_name.description (i).check_indicator = 1; 580 p -> builtin_name.description (i).number1 = 2; 581 p -> builtin_name.description (i).number_of_descriptions = 2; 582 p -> builtin_name.description (i).descriptor (2).check_code = 5; 583 584 i = i + 1; 585 p -> builtin_name.description (i).name = "divide"; 586 p -> builtin_name.description (i).aggregate_result = "1"b; 587 p -> builtin_name.description (i).opcode = div; 588 p -> builtin_name.description (i).jump_index = 14; 589 p -> builtin_name.description (i).check_indicator = 3; 590 p -> builtin_name.description (i).number1 = 3; 591 p -> builtin_name.description (i).number2 = 4; 592 p -> builtin_name.description (i).number_of_descriptions = 4; 593 p -> builtin_name.description (i).descriptor (3).check_code = 6; 594 p -> builtin_name.description (i).descriptor (4).check_code = 6; 595 596 i = i + 1; 597 p -> builtin_name.description (i).name = "dot"; 598 p -> builtin_name.description (i).opcode = add; 599 p -> builtin_name.description (i).jump_index = 45; 600 p -> builtin_name.description (i).check_indicator = 3; 601 p -> builtin_name.description (i).number1 = 3; 602 p -> builtin_name.description (i).number2 = 4; 603 p -> builtin_name.description (i).number_of_descriptions = 4; 604 p -> builtin_name.description (i).descriptor (3).check_code = 6; 605 p -> builtin_name.description (i).descriptor (4).check_code = 6; 606 607 i = i + 1; 608 p -> builtin_name.description (i).name = "empty"; 609 p -> builtin_name.description (i).jump_index = 28; 610 p -> builtin_name.description (i).check_indicator = 1; 611 p -> builtin_name.description (i).number1 = 0; 612 613 i = i + 1; 614 p -> builtin_name.description (i).name = "environmentptr"; 615 /* multics function */ 616 p -> builtin_name.description (i).nonstandard = "1"b; 617 p -> builtin_name.description (i).aggregate_result = "1"b; 618 p -> builtin_name.description (i).opcode = environmentptr_fun; 619 p -> builtin_name.description (i).jump_index = 63; 620 p -> builtin_name.description (i).check_indicator = 1; 621 p -> builtin_name.description (i).number1 = 1; 622 p -> builtin_name.description (i).number_of_descriptions = 1; 623 p -> builtin_name.description (i).descriptor (1).check_code = 12; 624 625 i = i + 1; 626 p -> builtin_name.description (i).name = "erf"; 627 p -> builtin_name.description (i).aggregate_result = "1"b; 628 p -> builtin_name.description (i).reserve_list_number = 129; 629 p -> builtin_name.description (i).jump_index = 25; 630 p -> builtin_name.description (i).check_indicator = 1; 631 p -> builtin_name.description (i).number1 = 1; 632 p -> builtin_name.description (i).number_of_descriptions = 1; 633 p -> builtin_name.description (i).descriptor (1).check_code = 11; 634 635 i = i + 1; 636 p -> builtin_name.description (i).name = "erfc"; 637 p -> builtin_name.description (i).aggregate_result = "1"b; 638 p -> builtin_name.description (i).reserve_list_number = 133; 639 p -> builtin_name.description (i).jump_index = 25; 640 p -> builtin_name.description (i).check_indicator = 1; 641 p -> builtin_name.description (i).number1 = 1; 642 p -> builtin_name.description (i).number_of_descriptions = 1; 643 p -> builtin_name.description (i).descriptor (1).check_code = 11; 644 645 i = i + 1; 646 p -> builtin_name.description (i).name = "exp"; 647 p -> builtin_name.description (i).aggregate_result = "1"b; 648 p -> builtin_name.description (i).opcode = exp_fun; 649 p -> builtin_name.description (i).reserve_list_number = 29; 650 p -> builtin_name.description (i).jump_index = 54; 651 p -> builtin_name.description (i).check_indicator = 1; 652 p -> builtin_name.description (i).number1 = 1; 653 p -> builtin_name.description (i).number_of_descriptions = 1; 654 p -> builtin_name.description (i).descriptor (1).check_code = 3; 655 656 i = i + 1; 657 p -> builtin_name.description (i).name = "fixed"; 658 p -> builtin_name.description (i).aggregate_result = "1"b; 659 p -> builtin_name.description (i).jump_index = 3; 660 p -> builtin_name.description (i).check_indicator = 3; 661 p -> builtin_name.description (i).number1 = 1; 662 p -> builtin_name.description (i).number2 = 3; 663 p -> builtin_name.description (i).number_of_descriptions = 3; 664 p -> builtin_name.description (i).descriptor (1).check_code = 10; 665 p -> builtin_name.description (i).descriptor (2).check_code = 6; 666 p -> builtin_name.description (i).descriptor (3).check_code = 6; 667 668 i = i + 1; 669 p -> builtin_name.description (i).name = "float"; 670 p -> builtin_name.description (i).aggregate_result = "1"b; 671 p -> builtin_name.description (i).jump_index = 2; 672 p -> builtin_name.description (i).check_indicator = 3; 673 p -> builtin_name.description (i).number1 = 1; 674 p -> builtin_name.description (i).number2 = 2; 675 p -> builtin_name.description (i).number_of_descriptions = 2; 676 p -> builtin_name.description (i).descriptor (1).check_code = 10; 677 p -> builtin_name.description (i).descriptor (2).check_code = 6; 678 679 i = i + 1; 680 p -> builtin_name.description (i).name = "floor"; 681 p -> builtin_name.description (i).aggregate_result = "1"b; 682 p -> builtin_name.description (i).opcode = floor_fun; 683 p -> builtin_name.description (i).jump_index = 16; 684 p -> builtin_name.description (i).check_indicator = 1; 685 p -> builtin_name.description (i).number1 = 1; 686 p -> builtin_name.description (i).number_of_descriptions = 1; 687 p -> builtin_name.description (i).descriptor (1).check_code = 4; 688 689 i = i + 1; 690 p -> builtin_name.description (i).name = "hbound"; 691 p -> builtin_name.description (i).reserve_list_number = 2; 692 /* third argument in call to bounds_ */ 693 p -> builtin_name.description (i).jump_index = 26; 694 p -> builtin_name.description (i).check_indicator = 1; 695 p -> builtin_name.description (i).number1 = 2; 696 p -> builtin_name.description (i).number_of_descriptions = 2; 697 p -> builtin_name.description (i).descriptor (2).check_code = 5; 698 699 i = i + 1; 700 p -> builtin_name.description (i).name = "high"; 701 p -> builtin_name.description (i).opcode = repeat_fun; 702 p -> builtin_name.description (i).jump_index = 5; 703 p -> builtin_name.description (i).check_indicator = 1; 704 p -> builtin_name.description (i).number1 = 1; 705 p -> builtin_name.description (i).number_of_descriptions = 1; 706 p -> builtin_name.description (i).descriptor (1).check_code = 5; 707 708 i = i + 1; 709 p -> builtin_name.description (i).name = "high9"; /* multics function */ 710 p -> builtin_name.description (i).nonstandard = "1"b; 711 p -> builtin_name.description (i).opcode = repeat_fun; 712 p -> builtin_name.description (i).jump_index = 60; 713 p -> builtin_name.description (i).check_indicator = 1; 714 p -> builtin_name.description (i).number1 = 1; 715 p -> builtin_name.description (i).number_of_descriptions = 1; 716 p -> builtin_name.description (i).descriptor (1).check_code = 5; 717 718 i = i + 1; 719 p -> builtin_name.description (i).name = "imag"; 720 p -> builtin_name.description (i).aggregate_result = "1"b; 721 p -> builtin_name.description (i).opcode = imag_fun; 722 p -> builtin_name.description (i).jump_index = 19; 723 p -> builtin_name.description (i).check_indicator = 1; 724 p -> builtin_name.description (i).number1 = 1; 725 p -> builtin_name.description (i).number_of_descriptions = 1; 726 p -> builtin_name.description (i).descriptor (1).check_code = 1; 727 p -> builtin_name.description (i).descriptor (1).type = complex_mask; 728 729 i = i + 1; 730 p -> builtin_name.description (i).name = "index"; 731 p -> builtin_name.description (i).aggregate_result = "1"b; 732 p -> builtin_name.description (i).opcode = index_fun; 733 p -> builtin_name.description (i).jump_index = 6; 734 p -> builtin_name.description (i).check_indicator = 1; 735 p -> builtin_name.description (i).number1 = 2; 736 737 i = i + 1; 738 p -> builtin_name.description (i).name = "lbound"; 739 p -> builtin_name.description (i).reserve_list_number = 1; 740 /* third argument in call to bounds_ */ 741 p -> builtin_name.description (i).jump_index = 26; 742 p -> builtin_name.description (i).check_indicator = 1; 743 p -> builtin_name.description (i).number1 = 2; 744 p -> builtin_name.description (i).number_of_descriptions = 2; 745 p -> builtin_name.description (i).descriptor (2).check_code = 5; 746 747 i = i + 1; 748 p -> builtin_name.description (i).name = "length"; 749 p -> builtin_name.description (i).aggregate_result = "1"b; 750 p -> builtin_name.description (i).opcode = length_fun; 751 p -> builtin_name.description (i).jump_index = 7; 752 p -> builtin_name.description (i).check_indicator = 1; 753 p -> builtin_name.description (i).number1 = 1; 754 p -> builtin_name.description (i).number_of_descriptions = 1; 755 p -> builtin_name.description (i).descriptor (1).check_code = 7; 756 757 i = i + 1; 758 p -> builtin_name.description (i).name = "lineno"; 759 p -> builtin_name.description (i).reserve_list_number = 183; 760 p -> builtin_name.description (i).jump_index = 30; 761 p -> builtin_name.description (i).check_indicator = 1; 762 p -> builtin_name.description (i).number1 = 1; 763 p -> builtin_name.description (i).number_of_descriptions = 1; 764 p -> builtin_name.description (i).descriptor (1).check_code = 1; 765 p -> builtin_name.description (i).descriptor (1).type = file_mask; 766 767 i = i + 1; 768 p -> builtin_name.description (i).name = "log"; 769 p -> builtin_name.description (i).aggregate_result = "1"b; 770 p -> builtin_name.description (i).opcode = log_fun; 771 p -> builtin_name.description (i).reserve_list_number = 33; 772 p -> builtin_name.description (i).jump_index = 54; 773 p -> builtin_name.description (i).check_indicator = 1; 774 p -> builtin_name.description (i).number1 = 1; 775 p -> builtin_name.description (i).number_of_descriptions = 1; 776 p -> builtin_name.description (i).descriptor (1).check_code = 3; 777 778 i = i + 1; 779 p -> builtin_name.description (i).name = "log10"; 780 p -> builtin_name.description (i).aggregate_result = "1"b; 781 p -> builtin_name.description (i).opcode = log10_fun; 782 p -> builtin_name.description (i).reserve_list_number = 41; 783 p -> builtin_name.description (i).jump_index = 54; 784 p -> builtin_name.description (i).check_indicator = 1; 785 p -> builtin_name.description (i).number1 = 1; 786 p -> builtin_name.description (i).number_of_descriptions = 1; 787 p -> builtin_name.description (i).descriptor (1).check_code = 11; 788 789 i = i + 1; 790 p -> builtin_name.description (i).name = "log2"; 791 p -> builtin_name.description (i).aggregate_result = "1"b; 792 p -> builtin_name.description (i).opcode = log2_fun; 793 p -> builtin_name.description (i).reserve_list_number = 37; 794 p -> builtin_name.description (i).jump_index = 54; 795 p -> builtin_name.description (i).check_indicator = 1; 796 p -> builtin_name.description (i).number1 = 1; 797 p -> builtin_name.description (i).number_of_descriptions = 1; 798 p -> builtin_name.description (i).descriptor (1).check_code = 11; 799 800 i = i + 1; 801 p -> builtin_name.description (i).name = "low"; 802 p -> builtin_name.description (i).opcode = repeat_fun; 803 p -> builtin_name.description (i).jump_index = 8; 804 p -> builtin_name.description (i).check_indicator = 1; 805 p -> builtin_name.description (i).number1 = 1; 806 p -> builtin_name.description (i).number_of_descriptions = 1; 807 p -> builtin_name.description (i).descriptor (1).check_code = 5; 808 809 i = i + 1; 810 p -> builtin_name.description (i).name = "ltrim"; /* multics function */ 811 p -> builtin_name.description (i).nonstandard = "1"b; 812 p -> builtin_name.description (i).aggregate_result = "1"b; 813 p -> builtin_name.description (i).opcode = verify_ltrim_fun; 814 p -> builtin_name.description (i).jump_index = 57; 815 p -> builtin_name.description (i).check_indicator = 3; 816 p -> builtin_name.description (i).number1 = 1; 817 p -> builtin_name.description (i).number2 = 2; 818 p -> builtin_name.description (i).number_of_descriptions = 2; 819 p -> builtin_name.description (i).descriptor (1).check_code = 2; 820 p -> builtin_name.description (i).descriptor (1).type = char_mask; 821 p -> builtin_name.description (i).descriptor (2).check_code = 2; 822 p -> builtin_name.description (i).descriptor (2).type = char_mask; 823 824 i = i + 1; 825 p -> builtin_name.description (i).name = "max"; 826 p -> builtin_name.description (i).aggregate_result = "1"b; 827 p -> builtin_name.description (i).opcode = max_fun; 828 p -> builtin_name.description (i).jump_index = 20; 829 p -> builtin_name.description (i).check_indicator = 2; 830 p -> builtin_name.description (i).number1 = 2; 831 832 i = i + 1; 833 p -> builtin_name.description (i).name = "maxlength"; 834 /* multics function */ 835 p -> builtin_name.description (i).nonstandard = "1"b; 836 p -> builtin_name.description (i).aggregate_result = "1"b; 837 p -> builtin_name.description (i).jump_index = 65; 838 p -> builtin_name.description (i).check_indicator = 1; 839 p -> builtin_name.description (i).number1 = 1; 840 p -> builtin_name.description (i).number_of_descriptions = 1; 841 p -> builtin_name.description (i).descriptor (1).check_code = 7; 842 843 i = i + 1; 844 p -> builtin_name.description (i).name = "min"; 845 p -> builtin_name.description (i).aggregate_result = "1"b; 846 p -> builtin_name.description (i).opcode = min_fun; 847 p -> builtin_name.description (i).jump_index = 20; 848 p -> builtin_name.description (i).check_indicator = 2; 849 p -> builtin_name.description (i).number1 = 2; 850 851 i = i + 1; 852 p -> builtin_name.description (i).name = "mod"; 853 p -> builtin_name.description (i).aggregate_result = "1"b; 854 p -> builtin_name.description (i).opcode = pl1_mod_fun; 855 p -> builtin_name.description (i).jump_index = 21; 856 p -> builtin_name.description (i).check_indicator = 1; 857 p -> builtin_name.description (i).number1 = 2; 858 859 i = i + 1; 860 p -> builtin_name.description (i).name = "multiply"; 861 p -> builtin_name.description (i).aggregate_result = "1"b; 862 p -> builtin_name.description (i).opcode = mult; 863 p -> builtin_name.description (i).jump_index = 14; 864 p -> builtin_name.description (i).check_indicator = 3; 865 p -> builtin_name.description (i).number1 = 3; 866 p -> builtin_name.description (i).number2 = 4; 867 p -> builtin_name.description (i).number_of_descriptions = 4; 868 p -> builtin_name.description (i).descriptor (3).check_code = 6; 869 p -> builtin_name.description (i).descriptor (4).check_code = 6; 870 871 i = i + 1; 872 p -> builtin_name.description (i).name = "null"; 873 p -> builtin_name.description (i).jump_index = 29; 874 p -> builtin_name.description (i).check_indicator = 1; 875 p -> builtin_name.description (i).number1 = 0; 876 877 i = i + 1; 878 p -> builtin_name.description (i).name = "nullo"; /* multics function */ 879 p -> builtin_name.description (i).nonstandard = "1"b; 880 p -> builtin_name.description (i).jump_index = 44; 881 p -> builtin_name.description (i).check_indicator = 1; 882 p -> builtin_name.description (i).number1 = 0; 883 884 i = i + 1; 885 p -> builtin_name.description (i).name = "offset"; 886 p -> builtin_name.description (i).opcode = off_fun; 887 p -> builtin_name.description (i).jump_index = 35; 888 p -> builtin_name.description (i).check_indicator = 1; 889 p -> builtin_name.description (i).number1 = 2; 890 p -> builtin_name.description (i).number_of_descriptions = 2; 891 p -> builtin_name.description (i).descriptor (1).check_code = 1; 892 p -> builtin_name.description (i).descriptor (1).type = pointer_type; 893 p -> builtin_name.description (i).descriptor (2).check_code = 1; 894 p -> builtin_name.description (i).descriptor (2).type = area_mask; 895 896 i = i + 1; 897 p -> builtin_name.description (i).name = "onchar"; 898 p -> builtin_name.description (i).reserve_list_number = 9; 899 p -> builtin_name.description (i).jump_index = 51; 900 p -> builtin_name.description (i).check_indicator = 1; 901 p -> builtin_name.description (i).number1 = 0; 902 903 i = i + 1; 904 p -> builtin_name.description (i).name = "oncode"; 905 p -> builtin_name.description (i).reserve_list_number = 10; 906 p -> builtin_name.description (i).jump_index = 53; 907 p -> builtin_name.description (i).check_indicator = 1; 908 p -> builtin_name.description (i).number1 = 0; 909 910 i = i + 1; 911 p -> builtin_name.description (i).name = "onfield"; 912 p -> builtin_name.description (i).reserve_list_number = 8; 913 p -> builtin_name.description (i).jump_index = 42; 914 p -> builtin_name.description (i).check_indicator = 1; 915 p -> builtin_name.description (i).number1 = 0; 916 917 i = i + 1; 918 p -> builtin_name.description (i).name = "onfile"; 919 p -> builtin_name.description (i).reserve_list_number = 12; 920 p -> builtin_name.description (i).jump_index = 42; 921 p -> builtin_name.description (i).check_indicator = 1; 922 p -> builtin_name.description (i).number1 = 0; 923 924 i = i + 1; 925 p -> builtin_name.description (i).name = "onkey"; 926 p -> builtin_name.description (i).reserve_list_number = 13; 927 p -> builtin_name.description (i).jump_index = 42; 928 p -> builtin_name.description (i).check_indicator = 1; 929 p -> builtin_name.description (i).number1 = 0; 930 931 i = i + 1; 932 p -> builtin_name.description (i).name = "onloc"; 933 p -> builtin_name.description (i).reserve_list_number = 7; 934 p -> builtin_name.description (i).jump_index = 42; 935 p -> builtin_name.description (i).check_indicator = 1; 936 p -> builtin_name.description (i).number1 = 0; 937 938 i = i + 1; 939 p -> builtin_name.description (i).name = "onsource"; 940 p -> builtin_name.description (i).reserve_list_number = 14; 941 p -> builtin_name.description (i).jump_index = 52; 942 p -> builtin_name.description (i).check_indicator = 1; 943 p -> builtin_name.description (i).number1 = 0; 944 945 i = i + 1; 946 p -> builtin_name.description (i).name = "pageno"; 947 p -> builtin_name.description (i).reserve_list_number = 184; 948 p -> builtin_name.description (i).jump_index = 30; 949 p -> builtin_name.description (i).check_indicator = 1; 950 p -> builtin_name.description (i).number1 = 1; 951 p -> builtin_name.description (i).number_of_descriptions = 1; 952 p -> builtin_name.description (i).descriptor (1).check_code = 1; 953 p -> builtin_name.description (i).descriptor (1).type = file_mask; 954 955 i = i + 1; 956 p -> builtin_name.description (i).name = "pointer"; 957 p -> builtin_name.description (i).opcode = ptr_fun; 958 p -> builtin_name.description (i).jump_index = 34; 959 p -> builtin_name.description (i).check_indicator = 1; 960 p -> builtin_name.description (i).number1 = 2; 961 962 i = i + 1; 963 p -> builtin_name.description (i).name = "setwordno"; /* multics function */ 964 p -> builtin_name.description (i).opcode = ptr_fun; 965 p -> builtin_name.description (i).jump_index = 34; 966 p -> builtin_name.description (i).check_indicator = 1; 967 p -> builtin_name.description (i).number1 = 2; 968 p -> builtin_name.description (i).number_of_descriptions = 2; 969 p -> builtin_name.description (i).descriptor (1).check_code = 1; 970 p -> builtin_name.description (i).descriptor (1).type = pointer_type; 971 p -> builtin_name.description (i).descriptor (2).check_code = 5; 972 973 i = i + 1; 974 p -> builtin_name.description (i).name = "prec"; 975 p -> builtin_name.description (i).aggregate_result = "1"b; 976 p -> builtin_name.description (i).jump_index = 4; 977 p -> builtin_name.description (i).check_indicator = 3; 978 p -> builtin_name.description (i).number1 = 2; 979 p -> builtin_name.description (i).number2 = 3; 980 p -> builtin_name.description (i).number_of_descriptions = 3; 981 p -> builtin_name.description (i).descriptor (1).check_code = 10; 982 p -> builtin_name.description (i).descriptor (2).check_code = 6; 983 p -> builtin_name.description (i).descriptor (3).check_code = 6; 984 985 i = i + 1; 986 p -> builtin_name.description (i).name = "precision"; 987 p -> builtin_name.description (i).aggregate_result = "1"b; 988 p -> builtin_name.description (i).jump_index = 4; 989 p -> builtin_name.description (i).check_indicator = 3; 990 p -> builtin_name.description (i).number1 = 2; 991 p -> builtin_name.description (i).number2 = 3; 992 p -> builtin_name.description (i).number_of_descriptions = 3; 993 p -> builtin_name.description (i).descriptor (1).check_code = 10; 994 p -> builtin_name.description (i).descriptor (2).check_code = 6; 995 p -> builtin_name.description (i).descriptor (3).check_code = 6; 996 997 i = i + 1; 998 p -> builtin_name.description (i).name = "prod"; 999 p -> builtin_name.description (i).opcode = mult; 1000 p -> builtin_name.description (i).jump_index = 43; 1001 p -> builtin_name.description (i).check_indicator = 1; 1002 p -> builtin_name.description (i).number1 = 1; 1003 p -> builtin_name.description (i).number_of_descriptions = 1; 1004 p -> builtin_name.description (i).descriptor (1).check_code = 10; 1005 1006 i = i + 1; 1007 p -> builtin_name.description (i).name = "ptr"; 1008 p -> builtin_name.description (i).opcode = ptr_fun; 1009 p -> builtin_name.description (i).jump_index = 34; 1010 p -> builtin_name.description (i).check_indicator = 1; 1011 p -> builtin_name.description (i).number1 = 2; 1012 1013 i = i + 1; 1014 p -> builtin_name.description (i).name = "rank"; /* multics function */ 1015 p -> builtin_name.description (i).aggregate_result = "1"b; 1016 p -> builtin_name.description (i).nonstandard = "1"b; 1017 p -> builtin_name.description (i).opcode = rank_fun; 1018 p -> builtin_name.description (i).jump_index = 69; 1019 p -> builtin_name.description (i).check_indicator = 1; 1020 p -> builtin_name.description (i).number1 = 1; 1021 p -> builtin_name.description (i).number_of_descriptions = 1; 1022 p -> builtin_name.description (i).descriptor (1).check_code = 1; 1023 p -> builtin_name.description (i).descriptor (1).type = char_mask; 1024 1025 i = i + 1; 1026 p -> builtin_name.description (i).name = "real"; 1027 p -> builtin_name.description (i).aggregate_result = "1"b; 1028 p -> builtin_name.description (i).opcode = real_fun; 1029 p -> builtin_name.description (i).jump_index = 19; 1030 p -> builtin_name.description (i).check_indicator = 1; 1031 p -> builtin_name.description (i).number1 = 1; 1032 p -> builtin_name.description (i).number_of_descriptions = 1; 1033 p -> builtin_name.description (i).descriptor (1).check_code = 1; 1034 p -> builtin_name.description (i).descriptor (1).type = complex_mask; 1035 1036 i = i + 1; 1037 p -> builtin_name.description (i).name = "rel"; /* multics function */ 1038 p -> builtin_name.description (i).opcode = rel_fun; 1039 p -> builtin_name.description (i).nonstandard = "1"b; 1040 p -> builtin_name.description (i).jump_index = 39; 1041 p -> builtin_name.description (i).check_indicator = 1; 1042 p -> builtin_name.description (i).number1 = 1; 1043 p -> builtin_name.description (i).number_of_descriptions = 1; 1044 1045 i = i + 1; 1046 p -> builtin_name.description (i).name = "wordno";/* multics function */ 1047 p -> builtin_name.description (i).opcode = wordno_fun; 1048 p -> builtin_name.description (i).nonstandard = "1"b; 1049 p -> builtin_name.description (i).jump_index = 71; 1050 p -> builtin_name.description (i).check_indicator = 1; 1051 p -> builtin_name.description (i).number1 = 1; 1052 p -> builtin_name.description (i).number_of_descriptions = 1; 1053 1054 i = i + 1; 1055 p -> builtin_name.description (i).name = "charno"; 1056 p -> builtin_name.description (i).opcode = charno_fun; 1057 p -> builtin_name.description (i).nonstandard = "1"b; 1058 p -> builtin_name.description (i).jump_index = 71; 1059 p -> builtin_name.description (i).check_indicator = 1; 1060 p -> builtin_name.description (i).number1 = 1; 1061 p -> builtin_name.description (i).number_of_descriptions = 1; 1062 1063 i = i + 1; 1064 p -> builtin_name.description (i).name = "bitno"; 1065 p -> builtin_name.description (i).opcode = bitno_fun; 1066 p -> builtin_name.description (i).nonstandard = "1"b; 1067 p -> builtin_name.description (i).jump_index = 71; 1068 p -> builtin_name.description (i).check_indicator = 1; 1069 p -> builtin_name.description (i).number1 = 1; 1070 p -> builtin_name.description (i).number_of_descriptions = 1; 1071 1072 begin; 1073 declare NAMES (4) char (12) init ("setcharno", "addcharno", "setbitno", "addbitno") 1074 int static options (constant); 1075 declare OP (4) bit (9) 1076 init (setcharno_fun, addcharno_fun, setbitno_fun, addbitno_fun); 1077 1078 declare nx fixed bin; 1079 1080 do nx = 1 to 4; 1081 i = i + 1; 1082 p -> builtin_name.description (i).name = NAMES (nx); 1083 p -> builtin_name.description (i).opcode = OP (nx); 1084 p -> builtin_name.description (i).jump_index = 74; 1085 p -> builtin_name.description (i).check_indicator = 1; 1086 /* fixed argument count */ 1087 p -> builtin_name.description (i).number1 = 2; 1088 p -> builtin_name.description (i).number_of_descriptions = 2; 1089 p -> builtin_name.description (i).descriptor (1).check_code = 1; 1090 p -> builtin_name.description (i).descriptor (1).type = pointer_type; 1091 p -> builtin_name.description (i).descriptor (2).check_code = 5; 1092 end; 1093 end; 1094 i = i + 1; 1095 p -> builtin_name.description (i).name = "reverse"; 1096 p -> builtin_name.description (i).aggregate_result = "1"b; 1097 p -> builtin_name.description (i).opcode = reverse_fun; 1098 p -> builtin_name.description (i).jump_index = 27; 1099 p -> builtin_name.description (i).check_indicator = 1; 1100 p -> builtin_name.description (i).number1 = 1; 1101 p -> builtin_name.description (i).number_of_descriptions = 1; 1102 p -> builtin_name.description (i).descriptor (1).check_code = 7; 1103 1104 i = i + 1; 1105 p -> builtin_name.description (i).name = "round"; 1106 p -> builtin_name.description (i).aggregate_result = "1"b; 1107 p -> builtin_name.description (i).opcode = round_fun; 1108 p -> builtin_name.description (i).jump_index = 22; 1109 p -> builtin_name.description (i).check_indicator = 1; 1110 p -> builtin_name.description (i).number1 = 2; 1111 p -> builtin_name.description (i).number_of_descriptions = 4; 1112 p -> builtin_name.description (i).descriptor (1).check_code = 4; 1113 p -> builtin_name.description (i).descriptor (2).check_code = 6; 1114 1115 i = i + 1; 1116 p -> builtin_name.description (i).name = "rtrim"; /* multics function */ 1117 p -> builtin_name.description (i).nonstandard = "1"b; 1118 p -> builtin_name.description (i).aggregate_result = "1"b; 1119 p -> builtin_name.description (i).opcode = verify_rtrim_fun; 1120 p -> builtin_name.description (i).jump_index = 58; 1121 p -> builtin_name.description (i).check_indicator = 3; 1122 p -> builtin_name.description (i).number1 = 1; 1123 p -> builtin_name.description (i).number2 = 2; 1124 p -> builtin_name.description (i).number_of_descriptions = 2; 1125 p -> builtin_name.description (i).descriptor (1).check_code = 2; 1126 p -> builtin_name.description (i).descriptor (1).type = char_mask; 1127 p -> builtin_name.description (i).descriptor (2).check_code = 2; 1128 p -> builtin_name.description (i).descriptor (2).type = char_mask; 1129 1130 i = i + 1; 1131 p -> builtin_name.description (i).name = "search";/* multics function */ 1132 p -> builtin_name.description (i).nonstandard = "1"b; 1133 p -> builtin_name.description (i).aggregate_result = "1"b; 1134 p -> builtin_name.description (i).opcode = search_fun; 1135 p -> builtin_name.description (i).jump_index = 37; 1136 p -> builtin_name.description (i).check_indicator = 1; 1137 p -> builtin_name.description (i).number1 = 2; 1138 p -> builtin_name.description (i).number_of_descriptions = 2; 1139 p -> builtin_name.description (i).descriptor (1).check_code = 2; 1140 p -> builtin_name.description (i).descriptor (1).type = char_mask; 1141 p -> builtin_name.description (i).descriptor (2).check_code = 2; 1142 p -> builtin_name.description (i).descriptor (2).type = char_mask; 1143 1144 i = i + 1; 1145 p -> builtin_name.description (i).name = "sign"; 1146 p -> builtin_name.description (i).aggregate_result = "1"b; 1147 p -> builtin_name.description (i).opcode = sign_fun; 1148 p -> builtin_name.description (i).jump_index = 38; 1149 p -> builtin_name.description (i).check_indicator = 1; 1150 p -> builtin_name.description (i).number1 = 1; 1151 p -> builtin_name.description (i).number_of_descriptions = 1; 1152 p -> builtin_name.description (i).descriptor (1).check_code = 4; 1153 1154 i = i + 1; 1155 p -> builtin_name.description (i).name = "sin"; 1156 p -> builtin_name.description (i).aggregate_result = "1"b; 1157 p -> builtin_name.description (i).opcode = sin_fun; 1158 p -> builtin_name.description (i).reserve_list_number = 53; 1159 p -> builtin_name.description (i).jump_index = 54; 1160 p -> builtin_name.description (i).check_indicator = 1; 1161 p -> builtin_name.description (i).number1 = 1; 1162 p -> builtin_name.description (i).number_of_descriptions = 1; 1163 p -> builtin_name.description (i).descriptor (1).check_code = 3; 1164 1165 i = i + 1; 1166 p -> builtin_name.description (i).name = "sind"; 1167 p -> builtin_name.description (i).aggregate_result = "1"b; 1168 p -> builtin_name.description (i).opcode = sind_fun; 1169 p -> builtin_name.description (i).reserve_list_number = 57; 1170 p -> builtin_name.description (i).jump_index = 54; 1171 p -> builtin_name.description (i).check_indicator = 1; 1172 p -> builtin_name.description (i).number1 = 1; 1173 p -> builtin_name.description (i).number_of_descriptions = 1; 1174 p -> builtin_name.description (i).descriptor (1).check_code = 11; 1175 1176 i = i + 1; 1177 p -> builtin_name.description (i).name = "sinh"; 1178 p -> builtin_name.description (i).aggregate_result = "1"b; 1179 p -> builtin_name.description (i).reserve_list_number = 109; 1180 p -> builtin_name.description (i).jump_index = 25; 1181 p -> builtin_name.description (i).check_indicator = 1; 1182 p -> builtin_name.description (i).number1 = 1; 1183 p -> builtin_name.description (i).number_of_descriptions = 1; 1184 p -> builtin_name.description (i).descriptor (1).check_code = 3; 1185 1186 i = i + 1; 1187 p -> builtin_name.description (i).name = "size"; /* multics function */ 1188 p -> builtin_name.description (i).nonstandard = "1"b; 1189 p -> builtin_name.description (i).jump_index = 47; 1190 p -> builtin_name.description (i).check_indicator = 1; 1191 p -> builtin_name.description (i).number1 = 1; 1192 1193 i = i + 1; 1194 p -> builtin_name.description (i).name = "sqrt"; 1195 p -> builtin_name.description (i).aggregate_result = "1"b; 1196 p -> builtin_name.description (i).opcode = sqrt_fun; 1197 p -> builtin_name.description (i).reserve_list_number = 25; 1198 p -> builtin_name.description (i).jump_index = 54; 1199 p -> builtin_name.description (i).check_indicator = 1; 1200 p -> builtin_name.description (i).number1 = 1; 1201 p -> builtin_name.description (i).number_of_descriptions = 1; 1202 p -> builtin_name.description (i).descriptor (1).check_code = 3; 1203 1204 i = i + 1; 1205 p -> builtin_name.description (i).name = "stac"; /* multics function */ 1206 p -> builtin_name.description (i).nonstandard = "1"b; 1207 p -> builtin_name.description (i).opcode = lock_fun; 1208 p -> builtin_name.description (i).jump_index = 40; 1209 p -> builtin_name.description (i).check_indicator = 1; 1210 p -> builtin_name.description (i).number1 = 2; 1211 p -> builtin_name.description (i).number_of_descriptions = 2; 1212 p -> builtin_name.description (i).descriptor (1).check_code = 1; 1213 p -> builtin_name.description (i).descriptor (1).type = pointer_type; 1214 p -> builtin_name.description (i).descriptor (2).check_code = 1; 1215 p -> builtin_name.description (i).descriptor (2).type = bit_mask; 1216 1217 i = i + 1; 1218 p -> builtin_name.description (i).name = "stackbaseptr"; 1219 /* multics function */ 1220 p -> builtin_name.description (i).nonstandard = "1"b; 1221 p -> builtin_name.description (i).opcode = stackbaseptr_fun; 1222 p -> builtin_name.description (i).jump_index = 61; 1223 p -> builtin_name.description (i).check_indicator = 1; 1224 p -> builtin_name.description (i).number1 = 0; 1225 1226 i = i + 1; 1227 p -> builtin_name.description (i).name = "stackframeptr"; 1228 /* multics function */ 1229 p -> builtin_name.description (i).nonstandard = "1"b; 1230 p -> builtin_name.description (i).opcode = stackframeptr_fun; 1231 p -> builtin_name.description (i).jump_index = 61; 1232 p -> builtin_name.description (i).check_indicator = 1; 1233 p -> builtin_name.description (i).number1 = 0; 1234 1235 i = i + 1; 1236 p -> builtin_name.description (i).name = "stacq"; /* multics function */ 1237 p -> builtin_name.description (i).nonstandard = "1"b; 1238 p -> builtin_name.description (i).opcode = stacq_fun; 1239 p -> builtin_name.description (i).jump_index = 66; 1240 p -> builtin_name.description (i).check_indicator = 1; 1241 p -> builtin_name.description (i).number1 = 3; 1242 p -> builtin_name.description (i).number_of_descriptions = 3; 1243 p -> builtin_name.description (i).descriptor (1).check_code = 1; 1244 p -> builtin_name.description (i).descriptor (1).type = bit_mask; 1245 p -> builtin_name.description (i).descriptor (2).check_code = 1; 1246 p -> builtin_name.description (i).descriptor (2).type = bit_mask; 1247 p -> builtin_name.description (i).descriptor (3).check_code = 1; 1248 p -> builtin_name.description (i).descriptor (3).type = bit_mask; 1249 1250 i = i + 1; 1251 p -> builtin_name.description (i).name = "string"; 1252 p -> builtin_name.description (i).jump_index = 10; 1253 p -> builtin_name.description (i).check_indicator = 1; 1254 p -> builtin_name.description (i).number1 = 1; 1255 1256 i = i + 1; 1257 p -> builtin_name.description (i).name = "substr"; 1258 p -> builtin_name.description (i).aggregate_result = "1"b; 1259 p -> builtin_name.description (i).jump_index = 11; 1260 p -> builtin_name.description (i).check_indicator = 3; 1261 p -> builtin_name.description (i).number1 = 2; 1262 p -> builtin_name.description (i).number2 = 3; 1263 p -> builtin_name.description (i).number_of_descriptions = 3; 1264 p -> builtin_name.description (i).descriptor (1).check_code = 7; 1265 p -> builtin_name.description (i).descriptor (2).check_code = 5; 1266 p -> builtin_name.description (i).descriptor (3).check_code = 5; 1267 1268 i = i + 1; 1269 p -> builtin_name.description (i).name = "subtract"; 1270 p -> builtin_name.description (i).aggregate_result = "1"b; 1271 p -> builtin_name.description (i).opcode = sub; 1272 p -> builtin_name.description (i).jump_index = 14; 1273 p -> builtin_name.description (i).check_indicator = 3; 1274 p -> builtin_name.description (i).number1 = 3; 1275 p -> builtin_name.description (i).number2 = 4; 1276 p -> builtin_name.description (i).number_of_descriptions = 4; 1277 p -> builtin_name.description (i).descriptor (3).check_code = 6; 1278 p -> builtin_name.description (i).descriptor (4).check_code = 6; 1279 1280 i = i + 1; 1281 p -> builtin_name.description (i).name = "sum"; 1282 p -> builtin_name.description (i).opcode = add; 1283 p -> builtin_name.description (i).jump_index = 43; 1284 p -> builtin_name.description (i).check_indicator = 1; 1285 p -> builtin_name.description (i).number1 = 1; 1286 p -> builtin_name.description (i).number_of_descriptions = 1; 1287 p -> builtin_name.description (i).descriptor (1).check_code = 10; 1288 1289 i = i + 1; 1290 p -> builtin_name.description (i).name = "tan"; 1291 p -> builtin_name.description (i).aggregate_result = "1"b; 1292 p -> builtin_name.description (i).opcode = tan_fun; 1293 p -> builtin_name.description (i).reserve_list_number = 69; 1294 p -> builtin_name.description (i).jump_index = 54; 1295 p -> builtin_name.description (i).check_indicator = 1; 1296 p -> builtin_name.description (i).number1 = 1; 1297 p -> builtin_name.description (i).number_of_descriptions = 1; 1298 p -> builtin_name.description (i).descriptor (1).check_code = 3; 1299 1300 i = i + 1; 1301 p -> builtin_name.description (i).name = "tand"; 1302 p -> builtin_name.description (i).aggregate_result = "1"b; 1303 p -> builtin_name.description (i).opcode = tand_fun; 1304 p -> builtin_name.description (i).reserve_list_number = 73; 1305 p -> builtin_name.description (i).jump_index = 54; 1306 p -> builtin_name.description (i).check_indicator = 1; 1307 p -> builtin_name.description (i).number1 = 1; 1308 p -> builtin_name.description (i).number_of_descriptions = 1; 1309 p -> builtin_name.description (i).descriptor (1).check_code = 11; 1310 1311 i = i + 1; 1312 p -> builtin_name.description (i).name = "tanh"; 1313 p -> builtin_name.description (i).aggregate_result = "1"b; 1314 p -> builtin_name.description (i).reserve_list_number = 117; 1315 p -> builtin_name.description (i).jump_index = 25; 1316 p -> builtin_name.description (i).check_indicator = 1; 1317 p -> builtin_name.description (i).number1 = 1; 1318 p -> builtin_name.description (i).number_of_descriptions = 1; 1319 p -> builtin_name.description (i).descriptor (1).check_code = 3; 1320 1321 i = i + 1; 1322 p -> builtin_name.description (i).name = "time"; 1323 p -> builtin_name.description (i).reserve_list_number = 187; 1324 p -> builtin_name.description (i).jump_index = 32; 1325 p -> builtin_name.description (i).check_indicator = 1; 1326 p -> builtin_name.description (i).number1 = 0; 1327 1328 i = i + 1; 1329 p -> builtin_name.description (i).name = "translate"; 1330 p -> builtin_name.description (i).aggregate_result = "1"b; 1331 p -> builtin_name.description (i).opcode = translate_fun; 1332 p -> builtin_name.description (i).jump_index = 49; 1333 p -> builtin_name.description (i).check_indicator = 3; 1334 p -> builtin_name.description (i).number1 = 2; 1335 p -> builtin_name.description (i).number2 = 3; 1336 p -> builtin_name.description (i).number_of_descriptions = 3; 1337 p -> builtin_name.description (i).descriptor (1).check_code = 2; 1338 p -> builtin_name.description (i).descriptor (1).type = char_mask; 1339 p -> builtin_name.description (i).descriptor (2).check_code = 2; 1340 p -> builtin_name.description (i).descriptor (2).type = char_mask; 1341 p -> builtin_name.description (i).descriptor (3).check_code = 2; 1342 p -> builtin_name.description (i).descriptor (3).type = char_mask; 1343 1344 i = i + 1; 1345 p -> builtin_name.description (i).name = "trunc"; 1346 p -> builtin_name.description (i).aggregate_result = "1"b; 1347 p -> builtin_name.description (i).opcode = trunc_fun; 1348 p -> builtin_name.description (i).jump_index = 16; 1349 p -> builtin_name.description (i).check_indicator = 1; 1350 p -> builtin_name.description (i).number1 = 1; 1351 p -> builtin_name.description (i).number_of_descriptions = 1; 1352 p -> builtin_name.description (i).descriptor (1).check_code = 4; 1353 1354 i = i + 1; 1355 p -> builtin_name.description (i).name = "unspec"; 1356 p -> builtin_name.description (i).jump_index = 12; 1357 p -> builtin_name.description (i).check_indicator = 1; 1358 p -> builtin_name.description (i).number1 = 1; 1359 1360 i = i + 1; 1361 p -> builtin_name.description (i).name = "valid"; 1362 p -> builtin_name.description (i).reserve_list_number = 185; 1363 p -> builtin_name.description (i).jump_index = 48; 1364 p -> builtin_name.description (i).check_indicator = 1; 1365 p -> builtin_name.description (i).number1 = 1; 1366 1367 i = i + 1; 1368 p -> builtin_name.description (i).name = "vclock";/* multics function */ 1369 p -> builtin_name.description (i).nonstandard = "1"b; 1370 p -> builtin_name.description (i).opcode = vclock_fun; 1371 p -> builtin_name.description (i).jump_index = 62; 1372 p -> builtin_name.description (i).check_indicator = 1; 1373 p -> builtin_name.description (i).number1 = 0; 1374 1375 i = i + 1; 1376 p -> builtin_name.description (i).name = "verify"; 1377 p -> builtin_name.description (i).aggregate_result = "1"b; 1378 p -> builtin_name.description (i).opcode = verify_fun; 1379 p -> builtin_name.description (i).jump_index = 37; 1380 p -> builtin_name.description (i).check_indicator = 1; 1381 p -> builtin_name.description (i).number1 = 2; 1382 p -> builtin_name.description (i).number_of_descriptions = 2; 1383 p -> builtin_name.description (i).descriptor (1).check_code = 2; 1384 p -> builtin_name.description (i).descriptor (1).type = char_mask; 1385 p -> builtin_name.description (i).descriptor (2).check_code = 2; 1386 p -> builtin_name.description (i).descriptor (2).type = char_mask; 1387 1388 p -> builtin_name.number_of_names = i; 1389 1390 call ioa_ ("^a: ^d names processed.", myname, i); 1391 1392 /* prepare long_collating_sequence */ 1393 1394 substr (p -> long_collating_sequence, 1, 128) = collate (); 1395 do j = 128 to 511; 1396 collating_overlay (j) = bit (fixed (j, 9), 9); 1397 end; 1398 1399 /* now call create_data_segment_ */ 1400 1401 unspec (cdsa) = "0"b; 1402 cdsa.have_text = "1"b; 1403 cdsa.sections (1).p = p; 1404 cdsa.sections (1).len = divide (length (unspec (pl1_data)), 36, 17, 0); 1405 cdsa.sections (1).struct_name = "pl1_data"; 1406 cdsa.seg_name = myname; 1407 1408 call create_data_segment_ (addr (cdsa), code); 1409 if code ^= 0 1410 then call com_err_ (code, myname, "Creating ^a data segment", myname); 1411 1412 call release_temp_segments_ (myname, segptrs, (0)); 1413 end pl1_data; SOURCE FILES USED IN THIS COMPILATION. LINE NUMBER DATE MODIFIED NAME PATHNAME 0 10/04/83 1024.9 !BBBJNKKKqcBHKJ.pl1 >spec>on>pl128d>pl1_data.cds 105 1 04/01/76 2209.5 cds_args.incl.pl1 >ldd>include>cds_args.incl.pl1 107 2 11/30/78 1227.5 mask.incl.pl1 >ldd>include>mask.incl.pl1 108 3 04/07/83 1635.0 op_codes.incl.pl1 >ldd>include>op_codes.incl.pl1 109 4 10/03/83 1004.4 system.incl.pl1 >spec>on>pl128d>system.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. NAMES 000000 constant char(12) initial array unaligned dcl 1073 ref 1082 OP 000207 automatic bit(9) initial array unaligned dcl 1075 set ref 1075* 1075* 1075* 1075* 1083 abs_fun 000103 constant bit(9) initial dcl 3-8 ref 133 acos_fun 000023 constant bit(9) initial dcl 3-8 ref 143 add 000122 constant bit(9) initial dcl 3-8 ref 154 598 1282 addbitno_fun 000042 constant bit(9) initial dcl 3-8 ref 1075 addcharno_fun 000044 constant bit(9) initial dcl 3-8 ref 1075 addr builtin function dcl 49 ref 54 1396 1408 1408 addr_fun 000055 constant bit(9) initial dcl 3-8 ref 165 addrel_fun 000052 constant bit(9) initial dcl 3-8 ref 174 185 aggregate_result 204(18) based bit(1) array level 4 packed unaligned dcl 56 set ref 132* 142* 153* 211* 219* 230* 243* 256* 296* 304* 317* 330* 342* 357* 369* 379* 391* 413* 437* 445* 464* 475* 486* 497* 507* 530* 543* 551* 586* 617* 627* 637* 647* 658* 670* 681* 720* 731* 749* 769* 780* 791* 812* 826* 836* 845* 853* 861* 975* 987* 1015* 1027* 1096* 1106* 1118* 1133* 1146* 1156* 1167* 1178* 1195* 1258* 1270* 1291* 1302* 1313* 1330* 1346* 1377* allocation_fun 000057 constant bit(9) initial dcl 3-8 ref 197 204 area_mask 000134 constant bit(36) initial dcl 2-3 ref 894 arg_descriptor_mask 000132 constant bit(36) initial dcl 2-3 asin_fun 000024 constant bit(9) initial dcl 3-8 ref 220 atan_fun 000022 constant bit(9) initial dcl 3-8 ref 231 atand_fun 000021 constant bit(9) initial dcl 3-8 ref 244 baseno_fun 000114 constant bit(9) initial dcl 3-8 ref 266 baseptr_fun 000053 constant bit(9) initial dcl 3-8 ref 286 binary_mask 013341 constant bit(36) initial dcl 2-3 ref 311 324 bit_mask 000136 constant bit(36) initial dcl 2-3 ref 337 349 351 353 1215 1244 1246 1248 bitno_fun 000075 constant bit(9) initial dcl 3-8 ref 1065 bool_fun 000116 constant bit(9) initial dcl 3-8 ref 343 builtin_mask 000127 constant bit(36) initial dcl 2-3 builtin_name 200 based structure level 2 unaligned dcl 56 byte_fun 000101 constant bit(9) initial dcl 3-8 ref 359 cds_args based structure level 1 dcl 1-3 cdsa 000100 automatic structure level 1 dcl 34 set ref 1401* 1408 1408 ceil_fun 000107 constant bit(9) initial dcl 3-8 ref 370 char_mask 000135 constant bit(36) initial dcl 2-3 ref 386 398 820 822 1023 1126 1128 1140 1142 1338 1340 1342 1384 1386 charno_fun 000074 constant bit(9) initial dcl 3-8 ref 1056 check_code 213 based fixed bin(15,0) array level 5 dcl 56 set ref 138* 149* 160* 161* 170* 180* 182* 191* 193* 226* 238* 239* 251* 252* 262* 292* 310* 312* 313* 323* 325* 326* 336* 338* 348* 350* 352* 364* 375* 385* 387* 397* 399* 419* 451* 470* 471* 482* 493* 503* 536* 538* 539* 557* 559* 560* 571* 582* 593* 594* 604* 605* 623* 633* 643* 654* 664* 665* 666* 676* 677* 687* 697* 706* 716* 726* 745* 755* 764* 776* 787* 798* 807* 819* 821* 841* 868* 869* 891* 893* 952* 969* 971* 981* 982* 983* 993* 994* 995* 1004* 1022* 1033* 1089* 1091* 1102* 1112* 1113* 1125* 1127* 1139* 1141* 1152* 1163* 1174* 1184* 1202* 1212* 1214* 1243* 1245* 1247* 1264* 1265* 1266* 1277* 1278* 1287* 1298* 1309* 1319* 1337* 1339* 1341* 1352* 1383* 1385* check_indicator 207 based fixed bin(15,0) array level 4 dcl 56 set ref 135* 146* 156* 167* 177* 188* 199* 206* 214* 223* 234* 247* 259* 269* 279* 289* 299* 306* 319* 332* 345* 361* 372* 381* 393* 406* 416* 424* 432* 440* 448* 459* 467* 479* 490* 500* 510* 518* 525* 532* 546* 553* 568* 579* 589* 600* 610* 620* 630* 640* 651* 660* 672* 684* 694* 703* 713* 723* 734* 742* 752* 761* 773* 784* 795* 804* 815* 829* 838* 848* 856* 864* 874* 881* 888* 900* 907* 914* 921* 928* 935* 942* 949* 959* 966* 977* 989* 1001* 1010* 1019* 1030* 1041* 1050* 1059* 1068* 1085* 1099* 1109* 1121* 1136* 1149* 1160* 1171* 1181* 1190* 1199* 1209* 1223* 1232* 1240* 1253* 1260* 1273* 1284* 1295* 1306* 1316* 1325* 1333* 1349* 1357* 1364* 1372* 1380* cleanup 000146 stack reference condition dcl 37 ref 118 clock_fun 000035 constant bit(9) initial dcl 3-8 ref 404 code 000176 automatic fixed bin(35,0) dcl 39 set ref 119* 120 122* 1408* 1409 1409* codeptr_fun 000051 constant bit(9) initial dcl 3-8 ref 414 collate builtin function dcl 49 ref 1394 collating_overlay based bit(9) array unaligned dcl 54 set ref 1396* com_err_ 000014 constant entry external dcl 33 ref 115 122 1409 complex_fun 000071 constant bit(9) initial dcl 3-8 ref 438 508 complex_mask 013340 constant bit(36) initial dcl 2-3 ref 452 727 1034 conjg_fun 000070 constant bit(9) initial dcl 3-8 ref 446 cos_fun 000030 constant bit(9) initial dcl 3-8 ref 476 cosd_fun 000027 constant bit(9) initial dcl 3-8 ref 487 create_data_segment_ 000012 constant entry external dcl 32 ref 1408 decimal_mask 013342 constant bit(36) initial dcl 2-3 ref 537 558 description 201 based structure array level 3 unaligned dcl 56 descriptor 213 based structure array level 4 unaligned dcl 56 div 000117 constant bit(9) initial dcl 3-8 ref 587 divide builtin function dcl 49 ref 1404 environmentptr_fun 000050 constant bit(9) initial dcl 3-8 ref 618 error 000170 stack reference condition dcl 37 ref 116 exp_fun 000015 constant bit(9) initial dcl 3-8 ref 648 file_mask 000133 constant bit(36) initial dcl 2-3 ref 765 953 fixed_binary_real_mask 000123 constant bit(36) initial dcl 2-41 ref 365 fixed_mask 000137 constant bit(36) initial dcl 2-3 floor_fun 000106 constant bit(9) initial dcl 3-8 ref 682 format_mask 000130 constant bit(36) initial dcl 2-3 generic_mask 000126 constant bit(36) initial dcl 2-3 get_temp_segments_ 000016 constant entry external dcl 35 ref 119 have_text 44(02) 000100 automatic bit(1) level 3 packed unaligned dcl 34 set ref 1402* i 000202 automatic fixed bin(15,0) dcl 44 set ref (more) 342 343 344 345 346 347 348 349 350 351 352 353 355* 355 356 357 358 359 360 361 362 363 364 365 367* 367 368 369 370 371 372 373 374 375 377* 377 378 379 380 381 382 383 384 385 386 387 389* 389 390 391 392 393 394 395 396 397 398 399 401* 401 402 403 404 405 406 407 409* 409 410 412 413 414 415 416 417 418 419 421* 421 422 423 424 425 427* 427 428 430 431 432 433 435* 435 436 437 438 439 440 441 443* 443 444 445 446 447 448 449 450 451 452 454* 454 455 457 458 459 460 462* 462 463 464 465 466 467 468 469 470 471 473* 473 474 475 476 477 478 479 480 481 482 484* 484 485 486 487 488 489 490 491 492 493 495* 495 496 497 498 499 500 501 502 503 505* 505 506 507 508 509 510 511 513* 513 514 516 517 518 519 521* 521 522 523 524 525 526 528* 528 529 530 531 532 533 534 535 536 537 538 539 541* 541 542 543 544 545 546 547 549* 549 550 551 552 553 554 555 556 557 558 559 560 562* 562 563 564 565 567 568 569 570 571 573* 573 574 575 576 578 579 580 581 582 584* 584 585 586 587 588 589 590 591 592 593 594 596* 596 597 598 599 600 601 602 603 604 605 607* 607 608 609 610 611 613* 613 614 616 617 618 619 620 621 622 623 625* 625 626 627 628 629 630 631 632 633 635* 635 636 637 638 639 640 641 642 643 645* 645 646 647 648 649 650 651 652 653 654 656* 656 657 658 659 660 661 662 663 664 665 666 668* 668 669 670 671 672 673 674 675 676 677 679* 679 680 681 682 683 684 685 686 687 689* 689 690 691 693 694 695 696 697 699* 699 700 701 702 703 704 705 706 708* 708 709 710 711 712 713 714 715 716 718* 718 719 720 721 722 723 724 725 726 727 729* 729 730 731 732 733 734 735 737* 737 738 739 741 742 743 744 745 747* 747 748 749 750 751 752 753 754 755 757* 757 758 759 760 761 762 763 764 765 767* 767 768 769 770 771 772 773 774 775 776 778* 778 779 780 781 782 783 784 785 786 787 789* 789 790 791 792 793 794 795 796 797 798 800* 800 801 802 803 804 805 806 807 809* 809 810 811 812 813 814 815 816 817 818 819 820 821 822 824* 824 825 826 827 828 829 830 832* 832 833 835 836 837 838 839 840 841 843* 843 844 845 846 847 848 849 851* 851 852 853 854 855 856 857 859* 859 860 861 862 863 864 865 866 867 868 869 871* 871 872 873 874 875 877* 877 878 879 880 881 882 884* 884 885 886 887 888 889 890 891 892 893 894 896* 896 897 898 899 900 901 903* 903 904 905 906 907 908 910* 910 911 912 913 914 915 917* 917 918 919 920 921 922 924* 924 925 926 927 928 929 931* 931 932 933 934 935 936 938* 938 939 940 941 942 943 945* 945 946 947 948 949 950 951 952 953 955* 955 956 957 958 959 960 962* 962 963 964 965 966 967 968 969 970 971 973* 973 974 975 976 977 978 979 980 981 982 983 985* 985 986 987 988 989 990 991 992 993 994 995 997* 997 998 999 1000 1001 1002 1003 1004 1006* 1006 1007 1008 1009 1010 1011 1013* 1013 1014 1015 1016 1017 1018 1019 1020 1021 1022 1023 1025* 1025 1026 1027 1028 1029 1030 1031 1032 1033 1034 1036* 1036 1037 1038 1039 1040 1041 1042 1043 1045* 1045 1046 1047 1048 1049 1050 1051 1052 1054* 1054 1055 1056 1057 1058 1059 1060 1061 1063* 1063 1064 1065 1066 1067 1068 1069 1070 1081* 1081 1082 1083 1084 1085 1087 1088 1089 1090 1091 1094* 1094 1095 1096 1097 1098 1099 1100 1101 1102 1104* 1104 1105 1106 1107 1108 1109 1110 1111 1112 1113 1115* 1115 1116 1117 1118 1119 1120 1121 1122 1123 1124 1125 1126 1127 1128 1130* 1130 1131 1132 1133 1134 1135 1136 1137 1138 1139 1140 1141 1142 1144* 1144 1145 1146 1147 1148 1149 1150 1151 1152 1154* 1154 1155 1156 1157 1158 1159 1160 1161 1162 1163 1165* 1165 1166 1167 1168 1169 1170 1171 1172 1173 1174 1176* 1176 1177 1178 1179 1180 1181 1182 1183 1184 1186* 1186 1187 1188 1189 1190 1191 1193* 1193 1194 1195 1196 1197 1198 1199 1200 1201 1202 1204* 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1217* 1217 1218 1220 1221 1222 1223 1224 1226* 1226 1227 1229 1230 1231 1232 1233 1235* 1235 1236 1237 1238 1239 1240 1241 1242 1243 1244 1245 1246 1247 1248 1250* 1250 1251 1252 1253 1254 1256* 1256 1257 1258 1259 1260 1261 1262 1263 1264 1265 1266 1268* 1268 1269 1270 1271 1272 1273 1274 1275 1276 1277 1278 1280* 1280 1281 1282 1283 1284 1285 1286 1287 1289* 1289 1290 1291 1292 1293 1294 1295 1296 1297 1298 1300* 1300 1301 1302 1303 1304 1305 1306 1307 1308 1309 1311* 1311 1312 1313 1314 1315 1316 1317 1318 1319 1321* 1321 1322 1323 1324 1325 1326 1328* 1328 1329 1330 1331 1332 1333 1334 1335 1336 1337 1338 1339 1340 1341 1342 1344* 1344 1345 1346 1347 1348 1349 1350 1351 1352 1354* 1354 1355 1356 1357 1358 1360* 1360 1361 1362 1363 1364 1365 1367* 1367 1368 1369 1370 1371 1372 1373 1375* 1375 1376 1377 1378 1379 1380 1381 1382 1383 1384 1385 1386 1388 1390* imag_fun 000063 constant bit(9) initial dcl 3-8 ref 721 index_after_fun 000112 constant bit(9) initial dcl 3-8 ref 212 index_before_fun 000113 constant bit(9) initial dcl 3-8 ref 297 index_fun 000073 constant bit(9) initial dcl 3-8 ref 732 ioa_ 000022 constant entry external dcl 52 ref 1390 j 000203 automatic fixed bin(15,0) dcl 44 set ref 1395* 1396 1396* jump_index 206 based fixed bin(15,0) array level 4 dcl 56 set ref 134* 145* 155* 166* 176* 187* 198* 205* 213* 222* 233* 246* 258* 268* 278* 288* 298* 305* 318* 331* 344* 360* 371* 380* 392* 405* 415* 423* 431* 439* 447* 458* 466* 478* 489* 499* 509* 517* 524* 531* 545* 552* 567* 578* 588* 599* 609* 619* 629* 639* 650* 659* 671* 683* 693* 702* 712* 722* 733* 741* 751* 760* 772* 783* 794* 803* 814* 828* 837* 847* 855* 863* 873* 880* 887* 899* 906* 913* 920* 927* 934* 941* 948* 958* 965* 976* 988* 1000* 1009* 1018* 1029* 1040* 1049* 1058* 1067* 1084* 1098* 1108* 1120* 1135* 1148* 1159* 1170* 1180* 1189* 1198* 1208* 1222* 1231* 1239* 1252* 1259* 1272* 1283* 1294* 1305* 1315* 1324* 1332* 1348* 1356* 1363* 1371* 1379* len 2 000100 automatic fixed bin(18,0) array level 3 dcl 34 set ref 1404* length_fun 000062 constant bit(9) initial dcl 3-8 ref 750 local_mask 000124 constant bit(36) initial dcl 2-3 lock_fun 000037 constant bit(9) initial dcl 3-8 ref 1207 log10_fun 000016 constant bit(9) initial dcl 3-8 ref 781 log2_fun 000020 constant bit(9) initial dcl 3-8 ref 792 log_fun 000017 constant bit(9) initial dcl 3-8 ref 770 long_collating_sequence based char(512) level 2 dcl 56 set ref 54 1394* 1396 max_fun 000040 constant bit(9) initial dcl 3-8 ref 827 min_fun 000041 constant bit(9) initial dcl 3-8 ref 846 mult 000120 constant bit(9) initial dcl 3-8 ref 862 999 myname 000140 constant char(10) initial unaligned dcl 40 set ref 115* 118* 119* 122* 1390* 1406 1409* 1409* 1412* name 201 based char(14) array level 4 packed unaligned dcl 56 set ref 131* 141* 152* 164* 173* 184* 196* 203* 210* 218* 229* 242* 255* 265* 275* 284* 295* 303* 316* 329* 341* 356* 368* 378* 390* 402* 410* 422* 428* 436* 444* 455* 463* 474* 485* 496* 506* 514* 522* 529* 542* 550* 563* 574* 585* 597* 608* 614* 626* 636* 646* 657* 669* 680* 690* 700* 709* 719* 730* 738* 748* 758* 768* 779* 790* 801* 810* 825* 833* 844* 852* 860* 872* 878* 885* 897* 904* 911* 918* 925* 932* 939* 946* 956* 963* 974* 986* 998* 1007* 1014* 1026* 1037* 1046* 1055* 1064* 1082* 1095* 1105* 1116* 1131* 1145* 1155* 1166* 1177* 1187* 1194* 1205* 1218* 1227* 1236* 1251* 1257* 1269* 1281* 1290* 1301* 1312* 1322* 1329* 1345* 1355* 1361* 1368* 1376* nonstandard 204(19) based bit(1) array level 4 packed unaligned dcl 56 set ref 175* 186* 267* 277* 287* 358* 403* 412* 430* 457* 516* 616* 710* 811* 835* 879* 1016* 1039* 1048* 1057* 1066* 1117* 1132* 1188* 1206* 1220* 1229* 1237* 1369* null builtin function dcl 49 ref 41 number1 210 based fixed bin(15,0) array level 4 dcl 56 set ref 136* 147* 157* 168* 178* 189* 200* 207* 215* 224* 235* 248* 260* 271* 280* 290* 300* 307* 320* 333* 346* 362* 373* 382* 394* 407* 417* 425* 433* 441* 449* 460* 468* 480* 491* 501* 511* 519* 526* 533* 547* 554* 569* 580* 590* 601* 611* 621* 631* 641* 652* 661* 673* 685* 695* 704* 714* 724* 735* 743* 753* 762* 774* 785* 796* 805* 816* 830* 839* 849* 857* 865* 875* 882* 889* 901* 908* 915* 922* 929* 936* 943* 950* 960* 967* 978* 990* 1002* 1011* 1020* 1031* 1042* 1051* 1060* 1069* 1087* 1100* 1110* 1122* 1137* 1150* 1161* 1172* 1182* 1191* 1200* 1210* 1224* 1233* 1241* 1254* 1261* 1274* 1285* 1296* 1307* 1317* 1326* 1334* 1350* 1358* 1365* 1373* 1381* number2 211 based fixed bin(15,0) array level 4 dcl 56 set ref 158* 236* 249* 308* 321* 334* 383* 395* 534* 555* 591* 602* 662* 674* 817* 866* 979* 991* 1123* 1262* 1275* 1335* number_of_descriptions 212 based fixed bin(15,0) array level 4 dcl 56 set ref 137* 148* 159* 169* 179* 190* 225* 237* 250* 261* 272* 281* 291* 309* 322* 335* 347* 363* 374* 384* 396* 418* 450* 469* 481* 492* 502* 535* 556* 570* 581* 592* 603* 622* 632* 642* 653* 663* 675* 686* 696* 705* 715* 725* 744* 754* 763* 775* 786* 797* 806* 818* 840* 867* 890* 951* 968* 980* 992* 1003* 1021* 1032* 1043* 1052* 1061* 1070* 1088* 1101* 1111* 1124* 1138* 1151* 1162* 1173* 1183* 1201* 1211* 1242* 1263* 1276* 1286* 1297* 1308* 1318* 1336* 1351* 1382* number_of_names 200 based fixed bin(15,0) level 3 dcl 56 set ref 56 56 56 56 56 56 56 56 56 56 56 56 56 56 56 1388* 1404 nx 000210 automatic fixed bin(17,0) dcl 1078 set ref 1080* 1082 1083* off_fun 000072 constant bit(9) initial dcl 3-8 ref 886 opcode 204(27) based bit(9) array level 4 packed unaligned dcl 56 set ref 133* 143* 154* 165* 174* 185* 197* 204* 212* 220* 231* 244* 266* 276* 286* 297* 343* 359* 370* 404* 414* 438* 446* 465* 476* 487* 508* 564* 575* 587* 598* 618* 648* 682* 701* 711* 721* 732* 750* 770* 781* 792* 802* 813* 827* 846* 854* 862* 886* 957* 964* 999* 1008* 1017* 1028* 1038* 1047* 1056* 1065* 1083* 1097* 1107* 1119* 1134* 1147* 1157* 1168* 1196* 1207* 1221* 1230* 1238* 1271* 1282* 1292* 1303* 1331* 1347* 1370* 1378* p 000204 automatic pointer dcl 46 in procedure "pl1_data" set ref 54 56 56 56 56 56 56 56 56 56 56 56 56 56 56 56 56 56 56 56 126* 131 132 133 134 135 136 137 138 141 142 143 144 145 146 147 148 149 152 153 154 155 156 157 158 159 160 161 164 165 166 167 168 169 170 173 174 175 176 177 178 179 180 181 182 184 185 186 187 188 189 190 191 192 193 196 197 198 199 200 203 204 205 206 207 210 211 212 213 214 215 218 219 220 221 222 223 224 225 226 229 230 231 232 233 234 235 236 237 238 239 242 243 244 245 246 247 248 249 250 251 252 255 256 257 258 259 260 261 262 265 266 267 268 269 271 272 275 276 277 278 279 280 281 284 286 287 288 289 290 291 292 295 296 297 298 299 300 303 304 305 306 307 308 309 310 311 312 313 316 317 318 319 320 321 322 323 324 325 326 329 330 331 332 333 334 335 336 337 338 341 342 343 344 345 346 347 348 349 350 351 352 353 356 357 358 359 360 361 362 363 364 365 368 369 370 371 372 373 374 375 378 379 380 381 382 383 384 385 386 387 390 391 392 393 394 395 396 397 398 399 402 403 404 405 406 407 410 412 413 414 415 416 417 418 419 422 423 424 425 428 430 431 432 433 436 437 438 439 440 441 444 445 446 447 448 449 450 451 452 455 457 458 459 460 463 464 465 466 467 468 469 470 471 474 475 476 477 478 479 480 481 482 485 486 487 488 489 490 491 492 493 496 497 498 499 500 501 502 503 506 507 508 509 510 511 514 516 517 518 519 522 523 524 525 526 529 530 531 532 533 534 535 536 537 538 539 542 543 544 545 546 547 550 551 552 553 554 555 556 557 558 559 560 563 564 565 567 568 569 570 571 574 575 576 578 579 580 581 582 585 586 587 588 589 590 591 592 593 594 597 598 599 600 601 602 603 604 605 608 609 610 611 614 616 617 618 619 620 621 622 623 626 627 628 629 630 631 632 633 636 637 638 639 640 641 642 643 646 647 648 649 650 651 652 653 654 657 658 659 660 661 662 663 664 665 666 669 670 671 672 673 674 675 676 677 680 681 682 683 684 685 686 687 690 691 693 694 695 696 697 700 701 702 703 704 705 706 709 710 711 712 713 714 715 716 719 720 721 722 723 724 725 726 727 730 731 732 733 734 735 738 739 741 742 743 744 745 748 749 750 751 752 753 754 755 758 759 760 761 762 763 764 765 768 769 770 771 772 773 774 775 776 779 780 781 782 783 784 785 786 787 790 791 792 793 794 795 796 797 798 801 802 803 804 805 806 807 810 811 812 813 814 815 816 817 818 819 820 821 822 825 826 827 828 829 830 833 835 836 837 838 839 840 841 844 845 846 847 848 849 852 853 854 855 856 857 860 861 862 863 864 865 866 867 868 869 872 873 874 875 878 879 880 881 882 885 886 887 888 889 890 891 892 893 894 897 898 899 900 901 904 905 906 907 908 911 912 913 914 915 918 919 920 921 922 925 926 927 928 929 932 933 934 935 936 939 940 941 942 943 946 947 948 949 950 951 952 953 956 957 958 959 960 963 964 965 966 967 968 969 970 971 974 975 976 977 978 979 980 981 982 983 986 987 988 989 990 991 992 993 994 995 998 999 1000 1001 1002 1003 1004 1007 1008 1009 1010 1011 1014 1015 1016 1017 1018 1019 1020 1021 1022 1023 1026 1027 1028 1029 1030 1031 1032 1033 1034 1037 1038 1039 1040 1041 1042 1043 1046 1047 1048 1049 1050 1051 1052 1055 1056 1057 1058 1059 1060 1061 1064 1065 1066 1067 1068 1069 1070 1082 1083 1084 1085 1087 1088 1089 1090 1091 1095 1096 1097 1098 1099 1100 1101 1102 1105 1106 1107 1108 1109 1110 1111 1112 1113 1116 1117 1118 1119 1120 1121 1122 1123 1124 1125 1126 1127 1128 1131 1132 1133 1134 1135 1136 1137 1138 1139 1140 1141 1142 1145 1146 1147 1148 1149 1150 1151 1152 1155 1156 1157 1158 1159 1160 1161 1162 1163 1166 1167 1168 1169 1170 1171 1172 1173 1174 1177 1178 1179 1180 1181 1182 1183 1184 1187 1188 1189 1190 1191 1194 1195 1196 1197 1198 1199 1200 1201 1202 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1218 1220 1221 1222 1223 1224 1227 1229 1230 1231 1232 1233 1236 1237 1238 1239 1240 1241 1242 1243 1244 1245 1246 1247 1248 1251 1252 1253 1254 1257 1258 1259 1260 1261 1262 1263 1264 1265 1266 1269 1270 1271 1272 1273 1274 1275 1276 1277 1278 1281 1282 1283 1284 1285 1286 1287 1290 1291 1292 1293 1294 1295 1296 1297 1298 1301 1302 1303 1304 1305 1306 1307 1308 1309 1312 1313 1314 1315 1316 1317 1318 1319 1322 1323 1324 1325 1326 1329 1330 1331 1332 1333 1334 1335 1336 1337 1338 1339 1340 1341 1342 1345 1346 1347 1348 1349 1350 1351 1352 1355 1356 1357 1358 1361 1362 1363 1364 1365 1368 1369 1370 1371 1372 1373 1376 1377 1378 1379 1380 1381 1382 1383 1384 1385 1386 1388 1394 1396 1403 1404 p 000100 automatic pointer array level 3 in structure "cdsa" dcl 34 in procedure "pl1_data" set ref 1403* pl1_data based structure level 1 unaligned dcl 56 set ref 1404 pl1_mod_fun 000061 constant bit(9) initial dcl 3-8 ref 854 pointer_type 000014 constant bit(36) initial dcl 4-71 ref 181 192 892 970 1090 1213 precision_mask 000125 constant bit(36) initial dcl 2-3 ptr_fun 000054 constant bit(9) initial dcl 3-8 ref 957 964 1008 rank_fun 000100 constant bit(9) initial dcl 3-8 ref 1017 real_fun 000064 constant bit(9) initial dcl 3-8 ref 1028 rel_fun 000115 constant bit(9) initial dcl 3-8 ref 1038 release_temp_segments_ 000020 constant entry external dcl 35 ref 118 1412 repeat_fun 000067 constant bit(9) initial dcl 3-8 ref 465 701 711 802 reserve_list_number 205 based fixed bin(15,0) array level 4 dcl 56 set ref 144* 221* 232* 245* 257* 477* 488* 498* 523* 544* 565* 576* 628* 638* 649* 691* 739* 759* 771* 782* 793* 898* 905* 912* 919* 926* 933* 940* 947* 1158* 1169* 1179* 1197* 1293* 1304* 1314* 1323* 1362* reverse_fun 000056 constant bit(9) initial dcl 3-8 ref 1097 round_fun 000105 constant bit(9) initial dcl 3-8 ref 1107 search_fun 000060 constant bit(9) initial dcl 3-8 ref 1134 sections 000100 automatic structure array level 2 dcl 34 seg_name 30 000100 automatic char(32) level 2 dcl 34 set ref 1406* segno_fun 000076 constant bit(9) initial dcl 3-8 ref 276 segptrs 000200 automatic pointer initial array dcl 41 set ref 41* 118* 119* 126 1412* setbitno_fun 000043 constant bit(9) initial dcl 3-8 ref 1075 setcharno_fun 000045 constant bit(9) initial dcl 3-8 ref 1075 sign_fun 000104 constant bit(9) initial dcl 3-8 ref 1147 sin_fun 000032 constant bit(9) initial dcl 3-8 ref 1157 sind_fun 000031 constant bit(9) initial dcl 3-8 ref 1168 sqrt_fun 000033 constant bit(9) initial dcl 3-8 ref 1196 stackbaseptr_fun 000047 constant bit(9) initial dcl 3-8 ref 1221 stackframeptr_fun 000046 constant bit(9) initial dcl 3-8 ref 1230 stacq_fun 000036 constant bit(9) initial dcl 3-8 ref 1238 storage_block_mask 000131 constant bit(36) initial dcl 2-3 stringsize 000162 stack reference condition dcl 37 ref 113 struct_name 3 000100 automatic char(32) array level 3 dcl 34 set ref 1405* sub 000121 constant bit(9) initial dcl 3-8 ref 564 575 1271 substr builtin function dcl 49 set ref 1394* switches 44 000100 automatic structure level 2 dcl 34 tan_fun 000026 constant bit(9) initial dcl 3-8 ref 1292 tand_fun 000025 constant bit(9) initial dcl 3-8 ref 1303 translate_fun 000065 constant bit(9) initial dcl 3-8 ref 1331 trunc_fun 000102 constant bit(9) initial dcl 3-8 ref 1347 type 214 based bit(36) array level 5 dcl 56 set ref 181* 192* 311* 324* 337* 349* 351* 353* 365* 386* 398* 452* 537* 558* 727* 765* 820* 822* 892* 894* 953* 970* 1023* 1034* 1090* 1126* 1128* 1140* 1142* 1213* 1215* 1244* 1246* 1248* 1338* 1340* 1342* 1384* 1386* unspec builtin function dcl 49 set ref 1401* 1404 vclock_fun 000034 constant bit(9) initial dcl 3-8 ref 1370 verify_fun 000066 constant bit(9) initial dcl 3-8 ref 1378 verify_ltrim_fun 000111 constant bit(9) initial dcl 3-8 ref 813 verify_rtrim_fun 000110 constant bit(9) initial dcl 3-8 ref 1119 wordno_fun 000077 constant bit(9) initial dcl 3-8 ref 1047 NAMES DECLARED BY DECLARE STATEMENT AND NEVER REFERENCED. a_format constant bit(9) initial dcl 3-8 acosd_fun constant bit(9) initial dcl 3-8 addr_fun_bits constant bit(9) initial dcl 3-8 aligned_mask constant bit(36) initial dcl 2-3 allot_auto constant bit(9) initial dcl 3-8 allot_based constant bit(9) initial dcl 3-8 allot_ctl constant bit(9) initial dcl 3-8 allot_var constant bit(9) initial dcl 3-8 and_bits constant bit(9) initial dcl 3-8 arg_desc_type constant bit(36) initial dcl 4-71 arithmetic_mask constant bit(36) initial dcl 2-41 asind_fun constant bit(9) initial dcl 3-8 assign constant bit(9) initial dcl 3-8 assign_by_name constant bit(9) initial dcl 3-8 assign_round constant bit(9) initial dcl 3-8 assign_size_ck constant bit(9) initial dcl 3-8 assign_zero constant bit(9) initial dcl 3-8 b_format constant bit(9) initial dcl 3-8 bit_pointer constant bit(9) initial dcl 3-8 bit_to_char constant bit(9) initial dcl 3-8 bit_to_word constant bit(9) initial dcl 3-8 bit_type constant bit(36) initial dcl 4-71 bits_per_binary_exponent constant fixed bin(31,0) initial dcl 4-5 bits_per_character constant fixed bin(31,0) initial dcl 4-5 bits_per_decimal_digit constant fixed bin(31,0) initial dcl 4-5 bits_per_digit constant fixed bin(31,1) initial dcl 4-69 bits_per_double constant fixed bin(31,0) initial dcl 4-5 bits_per_half constant fixed bin(31,0) initial dcl 4-5 bits_per_packed_ptr constant fixed bin(31,0) initial dcl 4-5 bits_per_word constant fixed bin(31,0) initial dcl 4-5 bn_format constant bit(9) initial dcl 3-8 bound_ck constant bit(9) initial dcl 3-8 builtin_type constant bit(36) initial dcl 4-71 c_format constant bit(9) initial dcl 3-8 cat_string constant bit(9) initial dcl 3-8 char_to_word constant bit(9) initial dcl 3-8 char_type constant bit(36) initial dcl 4-71 characters_per_double constant fixed bin(31,0) initial dcl 4-5 characters_per_half constant fixed bin(31,0) initial dcl 4-5 characters_per_word constant fixed bin(31,0) initial dcl 4-5 close_file constant bit(9) initial dcl 3-8 column_format constant bit(9) initial dcl 3-8 complex_type constant bit(36) initial dcl 4-71 computational_mask constant bit(36) initial dcl 2-41 condition_mask constant bit(36) initial dcl 2-3 convert_mask constant bit(36) initial dcl 2-41 copy_string constant bit(9) initial dcl 3-8 copy_words constant bit(9) initial dcl 3-8 dec_integer_type constant bit(36) initial dcl 4-71 declare_constant_mask constant bit(36) initial dcl 2-41 default_area_size constant fixed bin(31,0) initial dcl 4-5 default_fix_bin_p constant fixed bin(31,0) initial dcl 4-5 default_fix_dec_p constant fixed bin(31,0) initial dcl 4-5 default_flt_bin_p constant fixed bin(31,0) initial dcl 4-5 default_flt_dec_p constant fixed bin(31,0) initial dcl 4-5 delete_file constant bit(9) initial dcl 3-8 desc_size constant bit(9) initial dcl 3-8 digit_to_bit constant bit(9) initial dcl 3-8 dimensioned_mask constant bit(36) initial dcl 2-3 do_fun constant bit(9) initial dcl 3-8 do_spec constant bit(9) initial dcl 3-8 e_format constant bit(9) initial dcl 3-8 empty_area constant bit(9) initial dcl 3-8 enable_on constant bit(9) initial dcl 3-8 entry_mask constant bit(36) initial dcl 2-3 entry_var_type constant bit(36) initial dcl 4-71 equal constant bit(9) initial dcl 3-8 ex_prologue constant bit(9) initial dcl 3-8 exclude_names based char(32) array unaligned dcl 1-18 exp constant bit(9) initial dcl 3-8 f_format constant bit(9) initial dcl 3-8 fixed_decimal_complex_mask constant bit(36) initial dcl 2-41 fixed_decimal_real_mask constant bit(36) initial dcl 2-41 float_decimal_complex_mask constant bit(36) initial dcl 2-41 float_decimal_real_mask constant bit(36) initial dcl 2-41 float_mask constant bit(36) initial dcl 2-3 fortran_read constant bit(9) initial dcl 3-8 fortran_write constant bit(9) initial dcl 3-8 free_based constant bit(9) initial dcl 3-8 free_ctl constant bit(9) initial dcl 3-8 free_var constant bit(9) initial dcl 3-8 ftn_file_manip constant bit(9) initial dcl 3-8 ftn_trans_loop constant bit(9) initial dcl 3-8 get_data_trans constant bit(9) initial dcl 3-8 get_edit_trans constant bit(9) initial dcl 3-8 get_file constant bit(9) initial dcl 3-8 get_list_trans constant bit(9) initial dcl 3-8 get_string constant bit(9) initial dcl 3-8 greater_or_equal constant bit(9) initial dcl 3-8 greater_than constant bit(9) initial dcl 3-8 half_to_word constant bit(9) initial dcl 3-8 index_rev_fun constant bit(9) initial dcl 3-8 initialed_mask constant bit(36) initial dcl 2-3 integer_type constant bit(36) initial dcl 4-71 irreducible_mask constant bit(36) initial dcl 2-3 join constant bit(9) initial dcl 3-8 jump constant bit(9) initial dcl 3-8 jump_false constant bit(9) initial dcl 3-8 jump_if_eq constant bit(9) initial dcl 3-8 jump_if_ge constant bit(9) initial dcl 3-8 jump_if_gt constant bit(9) initial dcl 3-8 jump_if_le constant bit(9) initial dcl 3-8 jump_if_lt constant bit(9) initial dcl 3-8 jump_if_ne constant bit(9) initial dcl 3-8 jump_true constant bit(9) initial dcl 3-8 l_parn constant bit(9) initial dcl 3-8 label_mask constant bit(36) initial dcl 2-3 less_or_equal constant bit(9) initial dcl 3-8 less_than constant bit(9) initial dcl 3-8 line_format constant bit(9) initial dcl 3-8 local_label_var_type constant bit(36) initial dcl 4-71 locate_file constant bit(9) initial dcl 3-8 lock_file constant bit(9) initial dcl 3-8 lock_mask constant bit(36) initial dcl 2-3 loop constant bit(9) initial dcl 3-8 make_desc constant bit(9) initial dcl 3-8 max_area_size constant fixed bin(31,0) initial dcl 4-5 max_bit_string constant fixed bin(31,0) initial dcl 4-5 max_bit_string_constant constant fixed bin(31,0) initial dcl 4-5 max_char_string constant fixed bin(31,0) initial dcl 4-5 max_char_string_constant constant fixed bin(31,0) initial dcl 4-5 max_identifier_length constant fixed bin(31,0) initial dcl 4-5 max_index_register_value constant fixed bin(31,0) initial dcl 4-5 max_length_precision constant fixed bin(31,0) initial dcl 4-5 max_number_of_dimensions constant fixed bin(31,0) initial dcl 4-5 max_offset_precision constant fixed bin(31,0) initial dcl 4-5 max_p_bin_or_dec constant fixed bin(31,0) initial dcl 4-5 max_p_dec constant fixed bin(31,0) initial dcl 4-5 max_p_fix_bin_1 constant fixed bin(31,0) initial dcl 4-5 max_p_fix_bin_2 constant fixed bin(31,0) initial dcl 4-5 max_p_flt_bin_1 constant fixed bin(31,0) initial dcl 4-5 max_p_flt_bin_2 constant fixed bin(31,0) initial dcl 4-5 max_scale constant fixed bin(31,0) initial dcl 4-5 max_signed_index_register_value constant fixed bin(31,0) initial dcl 4-5 max_signed_xreg_precision constant fixed bin(31,0) initial dcl 4-5 max_uns_xreg_precision constant fixed bin(31,0) initial dcl 4-5 max_words_per_variable constant fixed bin(31,0) initial dcl 4-5 min_area_size constant fixed bin(31,0) initial dcl 4-5 min_scale constant fixed bin(31,0) initial dcl 4-5 mod_bit constant bit(9) initial dcl 3-8 mod_byte constant bit(9) initial dcl 3-8 mod_fun constant bit(9) initial dcl 3-8 mod_half constant bit(9) initial dcl 3-8 mod_word constant bit(9) initial dcl 3-8 negate constant bit(9) initial dcl 3-8 nop constant bit(9) initial dcl 3-8 not_bits constant bit(9) initial dcl 3-8 not_equal constant bit(9) initial dcl 3-8 offset_mask constant bit(36) initial dcl 2-3 open_file constant bit(9) initial dcl 3-8 or_bits constant bit(9) initial dcl 3-8 pack constant bit(9) initial dcl 3-8 packed_digits_per_character constant fixed bin(31,0) initial dcl 4-5 page_format constant bit(9) initial dcl 3-8 param_desc_ptr constant bit(9) initial dcl 3-8 param_ptr constant bit(9) initial dcl 3-8 picture_format constant bit(9) initial dcl 3-8 picture_mask constant bit(36) initial dcl 2-3 prefix_plus constant bit(9) initial dcl 3-8 ptr_mask constant bit(36) initial dcl 2-3 put_control constant bit(9) initial dcl 3-8 put_data_trans constant bit(9) initial dcl 3-8 put_edit_trans constant bit(9) initial dcl 3-8 put_field constant bit(9) initial dcl 3-8 put_field_chk constant bit(9) initial dcl 3-8 put_file constant bit(9) initial dcl 3-8 put_list_trans constant bit(9) initial dcl 3-8 put_string constant bit(9) initial dcl 3-8 r_format constant bit(9) initial dcl 3-8 r_parn constant bit(9) initial dcl 3-8 range_ck constant bit(9) initial dcl 3-8 read_file constant bit(9) initial dcl 3-8 real_mask constant bit(36) initial dcl 2-3 real_type constant bit(36) initial dcl 4-71 record_io constant bit(9) initial dcl 3-8 reducible_mask constant bit(36) initial dcl 2-3 refer constant bit(9) initial dcl 3-8 return_bits constant bit(9) initial dcl 3-8 return_string constant bit(9) initial dcl 3-8 return_value constant bit(9) initial dcl 3-8 return_words constant bit(9) initial dcl 3-8 returns_mask constant bit(36) initial dcl 2-3 revert_on constant bit(9) initial dcl 3-8 rewrite_file constant bit(9) initial dcl 3-8 search_rev_fun constant bit(9) initial dcl 3-8 signal_on constant bit(9) initial dcl 3-8 signed_mask constant bit(36) initial dcl 2-3 skip_format constant bit(9) initial dcl 3-8 stack_ptr constant bit(9) initial dcl 3-8 std_arg_list constant bit(9) initial dcl 3-8 std_call constant bit(9) initial dcl 3-8 std_entry constant bit(9) initial dcl 3-8 std_return constant bit(9) initial dcl 3-8 stop constant bit(9) initial dcl 3-8 storage_block_type constant bit(36) initial dcl 4-71 stream_prep constant bit(9) initial dcl 3-8 string_mask constant bit(36) initial dcl 2-41 stringrange 000154 stack reference condition dcl 37 structure_mask constant bit(36) initial dcl 2-3 terminate_trans constant bit(9) initial dcl 3-8 unaligned_mask constant bit(36) initial dcl 2-3 undesirable_mask constant bit(36) initial dcl 2-41 unlock_file constant bit(9) initial dcl 3-8 unpack constant bit(9) initial dcl 3-8 unsigned_mask constant bit(36) initial dcl 2-3 variable_mask constant bit(36) initial dcl 2-3 varying_mask constant bit(36) initial dcl 2-3 verify_rev_fun constant bit(9) initial dcl 3-8 word_to_mod2 constant bit(9) initial dcl 3-8 word_to_mod4 constant bit(9) initial dcl 3-8 word_to_mod8 constant bit(9) initial dcl 3-8 words_per_condition_var constant fixed bin(31,0) initial dcl 4-5 words_per_entry_var constant fixed bin(31,0) initial dcl 4-5 words_per_file_var constant fixed bin(31,0) initial dcl 4-5 words_per_fix_bin_1 constant fixed bin(31,0) initial dcl 4-5 words_per_fix_bin_2 constant fixed bin(31,0) initial dcl 4-5 words_per_flt_bin_1 constant fixed bin(31,0) initial dcl 4-5 words_per_flt_bin_2 constant fixed bin(31,0) initial dcl 4-5 words_per_format constant fixed bin(31,0) initial dcl 4-5 words_per_label_var constant fixed bin(31,0) initial dcl 4-5 words_per_offset constant fixed bin(31,0) initial dcl 4-5 words_per_packed_pointer constant fixed bin(31,0) initial dcl 4-5 words_per_pointer constant fixed bin(31,0) initial dcl 4-5 words_per_varying_string_header constant fixed bin(31,0) initial dcl 4-5 write_file constant bit(9) initial dcl 3-8 x_format constant bit(9) initial dcl 3-8 xor_bits constant bit(9) initial dcl 3-8 NAME DECLARED BY EXPLICIT CONTEXT. pl1_data 001055 constant entry external dcl 11 NAMES DECLARED BY CONTEXT OR IMPLICATION. bit builtin function ref 1396 fixed builtin function ref 1396 length builtin function ref 1404 STORAGE REQUIREMENTS FOR THIS PROGRAM. Object Text Link Symbol Defs Static Start 0 0 13460 13504 13343 13470 Length 23722 13343 24 10201 115 0 BLOCK NAME STACK SIZE TYPE WHY NONQUICK/WHO SHARES STACK FRAME pl1_data 190 external procedure is an external procedure. on unit on line 113 94 on unit on unit on line 118 80 on unit begin block on line 1072 begin block shares stack frame of external procedure pl1_data. STORAGE FOR AUTOMATIC VARIABLES. STACK FRAME LOC IDENTIFIER BLOCK NAME pl1_data 000100 cdsa pl1_data 000176 code pl1_data 000200 segptrs pl1_data 000202 i pl1_data 000203 j pl1_data 000204 p pl1_data 000207 OP begin block on line 1072 000210 nx begin block on line 1072 THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM. call_ext_out_desc call_ext_out return signal enable ext_entry int_entry THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM. com_err_ create_data_segment_ get_temp_segments_ ioa_ release_temp_segments_ NO EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC 11 001054 41 001062 113 001071 115 001105 116 001131 117 001134 118 001135 119 001174 120 001215 122 001217 123 001246 126 001247 130 001251 131 001253 132 001260 133 001264 134 001271 135 001276 136 001303 137 001310 138 001315 140 001322 141 001323 142 001331 143 001335 144 001342 145 001347 146 001354 147 001361 148 001366 149 001373 151 001400 152 001401 153 001407 154 001413 155 001420 156 001425 157 001432 158 001437 159 001444 160 001451 161 001456 163 001463 164 001464 165 001472 166 001477 167 001504 168 001511 169 001516 170 001523 172 001530 173 001531 174 001537 175 001544 176 001550 177 001555 178 001562 179 001567 180 001574 181 001601 182 001605 183 001612 184 001613 185 001621 186 001626 187 001632 188 001637 189 001644 190 001651 191 001656 192 001663 193 001667 195 001674 196 001675 197 001703 198 001710 199 001715 200 001722 202 001727 203 001730 204 001736 205 001743 206 001750 207 001755 209 001762 210 001763 211 001771 212 001775 213 002002 214 002007 215 002014 217 002021 218 002022 219 002030 220 002034 221 002041 222 002046 223 002053 224 002060 225 002065 226 002072 228 002077 229 002100 230 002106 231 002112 232 002117 233 002124 234 002131 235 002136 236 002143 237 002150 238 002155 239 002162 241 002167 242 002170 243 002176 244 002202 245 002207 246 002214 247 002221 248 002226 249 002233 250 002240 251 002245 252 002252 254 002257 255 002260 256 002266 257 002272 258 002277 259 002304 260 002311 261 002316 262 002323 264 002330 265 002331 266 002337 267 002344 268 002350 269 002355 271 002362 272 002367 274 002374 275 002375 276 002403 277 002410 278 002414 279 002421 280 002426 281 002433 283 002440 284 002441 286 002447 287 002454 288 002460 289 002465 290 002472 291 002477 292 002504 294 002511 295 002512 296 002520 297 002524 298 002531 299 002536 300 002543 302 002550 303 002551 304 002557 305 002563 306 002570 307 002575 308 002602 309 002607 310 002614 311 002621 312 002625 313 002632 315 002637 316 002640 317 002646 318 002652 319 002657 320 002664 321 002671 322 002676 323 002703 324 002710 325 002714 326 002721 328 002726 329 002727 330 002735 331 002741 332 002746 333 002753 334 002760 335 002765 336 002772 337 002777 338 003003 340 003010 341 003011 342 003017 343 003023 344 003030 345 003035 346 003042 347 003047 348 003054 349 003061 350 003065 351 003072 352 003076 353 003103 355 003107 356 003110 357 003116 358 003122 359 003126 360 003133 361 003140 362 003145 363 003152 364 003157 365 003164 367 003170 368 003171 369 003177 370 003203 371 003210 372 003215 373 003222 374 003227 375 003234 377 003241 378 003242 379 003250 380 003254 381 003261 382 003266 383 003273 384 003300 385 003305 386 003312 387 003316 389 003323 390 003324 391 003332 392 003336 393 003343 394 003350 395 003355 396 003362 397 003367 398 003374 399 003400 401 003405 402 003406 403 003414 404 003420 405 003425 406 003432 407 003437 409 003442 410 003443 412 003451 413 003455 414 003461 415 003466 416 003473 417 003500 418 003505 419 003512 421 003517 422 003520 423 003526 424 003533 425 003540 427 003543 428 003544 430 003552 431 003556 432 003563 433 003570 435 003573 436 003574 437 003602 438 003606 439 003613 440 003620 441 003625 443 003632 444 003633 445 003641 446 003645 447 003652 448 003657 449 003664 450 003671 451 003676 452 003703 454 003707 455 003710 457 003716 458 003722 459 003727 460 003734 462 003741 463 003742 464 003750 465 003754 466 003761 467 003766 468 003773 469 004000 470 004005 471 004012 473 004017 474 004020 475 004026 476 004032 477 004037 478 004044 479 004051 480 004056 481 004063 482 004070 484 004075 485 004076 486 004104 487 004110 488 004115 489 004122 490 004127 491 004134 492 004141 493 004146 495 004153 496 004154 497 004162 498 004166 499 004173 500 004200 501 004205 502 004212 503 004217 505 004224 506 004225 507 004233 508 004237 509 004244 510 004251 511 004256 513 004263 514 004264 516 004272 517 004276 518 004303 519 004310 521 004315 522 004316 523 004324 524 004331 525 004336 526 004343 528 004346 529 004347 530 004355 531 004361 532 004366 533 004373 534 004400 535 004405 536 004412 537 004417 538 004423 539 004430 541 004435 542 004436 543 004444 544 004450 545 004455 546 004462 547 004467 549 004474 550 004475 551 004503 552 004507 553 004514 554 004521 555 004526 556 004533 557 004540 558 004545 559 004551 560 004556 562 004563 563 004564 564 004572 565 004577 567 004604 568 004611 569 004616 570 004623 571 004630 573 004635 574 004636 575 004644 576 004651 578 004656 579 004663 580 004670 581 004675 582 004702 584 004707 585 004710 586 004716 587 004722 588 004727 589 004734 590 004741 591 004746 592 004753 593 004760 594 004765 596 004772 597 004773 598 005001 599 005006 600 005013 601 005020 602 005025 603 005032 604 005037 605 005044 607 005051 608 005052 609 005060 610 005065 611 005072 613 005075 614 005076 616 005104 617 005110 618 005114 619 005121 620 005126 621 005133 622 005140 623 005145 625 005152 626 005153 627 005161 628 005165 629 005172 630 005177 631 005204 632 005211 633 005216 635 005223 636 005224 637 005232 638 005236 639 005243 640 005250 641 005255 642 005262 643 005267 645 005274 646 005275 647 005303 648 005307 649 005314 650 005321 651 005326 652 005333 653 005340 654 005345 656 005352 657 005353 658 005361 659 005365 660 005372 661 005377 662 005404 663 005411 664 005416 665 005423 666 005430 668 005435 669 005436 670 005444 671 005450 672 005455 673 005462 674 005467 675 005474 676 005501 677 005506 679 005513 680 005514 681 005522 682 005526 683 005533 684 005540 685 005545 686 005552 687 005557 689 005564 690 005565 691 005573 693 005600 694 005605 695 005612 696 005617 697 005624 699 005631 700 005632 701 005640 702 005645 703 005652 704 005657 705 005664 706 005671 708 005676 709 005677 710 005705 711 005711 712 005716 713 005723 714 005730 715 005735 716 005742 718 005747 719 005750 720 005756 721 005762 722 005767 723 005774 724 006001 725 006006 726 006013 727 006020 729 006024 730 006025 731 006033 732 006037 733 006044 734 006051 735 006056 737 006063 738 006064 739 006072 741 006077 742 006104 743 006111 744 006116 745 006123 747 006130 748 006131 749 006137 750 006143 751 006150 752 006155 753 006162 754 006167 755 006174 757 006201 758 006202 759 006210 760 006215 761 006222 762 006227 763 006234 764 006241 765 006246 767 006252 768 006253 769 006261 770 006265 771 006272 772 006277 773 006304 774 006311 775 006316 776 006323 778 006330 779 006331 780 006337 781 006343 782 006350 783 006355 784 006362 785 006367 786 006374 787 006401 789 006406 790 006407 791 006415 792 006421 793 006426 794 006433 795 006440 796 006445 797 006452 798 006457 800 006464 801 006465 802 006473 803 006500 804 006505 805 006512 806 006517 807 006524 809 006531 810 006532 811 006540 812 006544 813 006550 814 006555 815 006562 816 006567 817 006574 818 006601 819 006606 820 006613 821 006617 822 006624 824 006630 825 006631 826 006637 827 006643 828 006650 829 006655 830 006662 832 006667 833 006670 835 006676 836 006702 837 006706 838 006713 839 006720 840 006725 841 006732 843 006737 844 006740 845 006746 846 006752 847 006757 848 006764 849 006771 851 006776 852 006777 853 007005 854 007011 855 007016 856 007023 857 007030 859 007035 860 007036 861 007044 862 007050 863 007055 864 007062 865 007067 866 007074 867 007101 868 007106 869 007113 871 007120 872 007121 873 007127 874 007134 875 007141 877 007144 878 007145 879 007153 880 007157 881 007164 882 007171 884 007174 885 007175 886 007203 887 007210 888 007215 889 007222 890 007227 891 007234 892 007241 893 007245 894 007252 896 007256 897 007257 898 007265 899 007272 900 007277 901 007304 903 007307 904 007310 905 007316 906 007323 907 007330 908 007335 910 007340 911 007341 912 007347 913 007354 914 007361 915 007366 917 007371 918 007372 919 007400 920 007405 921 007412 922 007417 924 007422 925 007423 926 007431 927 007436 928 007443 929 007450 931 007453 932 007454 933 007462 934 007467 935 007474 936 007501 938 007504 939 007505 940 007513 941 007520 942 007525 943 007532 945 007535 946 007536 947 007544 948 007551 949 007556 950 007563 951 007570 952 007575 953 007602 955 007606 956 007607 957 007615 958 007622 959 007627 960 007634 962 007641 963 007642 964 007650 965 007655 966 007662 967 007667 968 007674 969 007701 970 007706 971 007712 973 007717 974 007720 975 007726 976 007732 977 007737 978 007744 979 007751 980 007756 981 007763 982 007770 983 007775 985 010002 986 010003 987 010011 988 010015 989 010022 990 010027 991 010034 992 010041 993 010046 994 010053 995 010060 997 010065 998 010066 999 010074 1000 010101 1001 010106 1002 010113 1003 010120 1004 010125 1006 010132 1007 010133 1008 010141 1009 010146 1010 010153 1011 010160 1013 010165 1014 010166 1015 010174 1016 010200 1017 010204 1018 010211 1019 010216 1020 010223 1021 010230 1022 010235 1023 010242 1025 010246 1026 010247 1027 010255 1028 010261 1029 010266 1030 010273 1031 010300 1032 010305 1033 010312 1034 010317 1036 010323 1037 010324 1038 010332 1039 010337 1040 010343 1041 010350 1042 010355 1043 010362 1045 010367 1046 010370 1047 010376 1048 010403 1049 010407 1050 010414 1051 010421 1052 010426 1054 010433 1055 010434 1056 010442 1057 010447 1058 010453 1059 010460 1060 010465 1061 010472 1063 010477 1064 010500 1065 010506 1066 010513 1067 010517 1068 010524 1069 010531 1070 010536 1075 010543 1080 010574 1081 010601 1082 010602 1083 010615 1084 010631 1085 010637 1087 010644 1088 010651 1089 010656 1090 010663 1091 010667 1092 010674 1094 010676 1095 010677 1096 010706 1097 010713 1098 010720 1099 010725 1100 010732 1101 010737 1102 010744 1104 010751 1105 010752 1106 010760 1107 010764 1108 010771 1109 010776 1110 011003 1111 011010 1112 011015 1113 011022 1115 011027 1116 011030 1117 011036 1118 011042 1119 011046 1120 011053 1121 011060 1122 011065 1123 011072 1124 011077 1125 011104 1126 011111 1127 011115 1128 011122 1130 011126 1131 011127 1132 011135 1133 011141 1134 011145 1135 011152 1136 011157 1137 011164 1138 011171 1139 011176 1140 011203 1141 011207 1142 011214 1144 011220 1145 011221 1146 011227 1147 011233 1148 011240 1149 011245 1150 011252 1151 011257 1152 011264 1154 011271 1155 011272 1156 011300 1157 011304 1158 011311 1159 011316 1160 011323 1161 011330 1162 011335 1163 011342 1165 011347 1166 011350 1167 011356 1168 011362 1169 011367 1170 011374 1171 011401 1172 011406 1173 011413 1174 011420 1176 011425 1177 011426 1178 011434 1179 011440 1180 011445 1181 011452 1182 011457 1183 011464 1184 011471 1186 011476 1187 011477 1188 011505 1189 011511 1190 011516 1191 011523 1193 011530 1194 011531 1195 011537 1196 011543 1197 011550 1198 011555 1199 011562 1200 011567 1201 011574 1202 011601 1204 011606 1205 011607 1206 011615 1207 011621 1208 011626 1209 011633 1210 011640 1211 011645 1212 011652 1213 011657 1214 011663 1215 011670 1217 011674 1218 011675 1220 011703 1221 011707 1222 011714 1223 011721 1224 011726 1226 011731 1227 011732 1229 011740 1230 011744 1231 011751 1232 011756 1233 011763 1235 011766 1236 011767 1237 011775 1238 012001 1239 012006 1240 012013 1241 012020 1242 012025 1243 012032 1244 012037 1245 012043 1246 012050 1247 012054 1248 012061 1250 012065 1251 012066 1252 012074 1253 012101 1254 012106 1256 012113 1257 012114 1258 012122 1259 012126 1260 012133 1261 012140 1262 012145 1263 012152 1264 012157 1265 012164 1266 012171 1268 012176 1269 012177 1270 012205 1271 012211 1272 012216 1273 012223 1274 012230 1275 012235 1276 012242 1277 012247 1278 012254 1280 012261 1281 012262 1282 012270 1283 012275 1284 012302 1285 012307 1286 012314 1287 012321 1289 012326 1290 012327 1291 012335 1292 012341 1293 012346 1294 012353 1295 012360 1296 012365 1297 012372 1298 012377 1300 012404 1301 012405 1302 012413 1303 012417 1304 012424 1305 012431 1306 012436 1307 012443 1308 012450 1309 012455 1311 012462 1312 012463 1313 012471 1314 012475 1315 012502 1316 012507 1317 012514 1318 012521 1319 012526 1321 012533 1322 012534 1323 012542 1324 012547 1325 012554 1326 012561 1328 012564 1329 012565 1330 012573 1331 012577 1332 012604 1333 012611 1334 012616 1335 012623 1336 012630 1337 012635 1338 012642 1339 012646 1340 012653 1341 012657 1342 012664 1344 012670 1345 012671 1346 012677 1347 012703 1348 012710 1349 012715 1350 012722 1351 012727 1352 012734 1354 012741 1355 012742 1356 012750 1357 012755 1358 012762 1360 012767 1361 012770 1362 012776 1363 013003 1364 013010 1365 013015 1367 013022 1368 013023 1369 013031 1370 013035 1371 013042 1372 013047 1373 013054 1375 013057 1376 013060 1377 013066 1378 013072 1379 013077 1380 013104 1381 013111 1382 013116 1383 013123 1384 013130 1385 013134 1386 013141 1388 013145 1390 013147 1394 013176 1395 013202 1396 013207 1397 013221 1401 013223 1402 013226 1403 013230 1404 013232 1405 013240 1406 013243 1408 013246 1409 013261 1412 013315 1413 013337 Object Segment >spec>on>pl128d>pl1_data Created on 10/04/83 1026.1 mst Tue by GJohnson.SysMaint.a using create_data_segment_, Version II of Monday, August 15, 1983 Object Text Defs Link Symb Static Start 0 0 4560 4620 4630 4630 Length 5251 4560 40 10 405 0 4 Definitions: segname: pl1_data text|200 builtin_name text|0 long_collating_sequence symb|0 symbol_table No Links.