COMPILATION LISTING OF SEGMENT lisp_trig_ Compiled by: Multics PL/I Compiler, Release 33e, of October 6, 1992 Compiled at: CGI Compiled on: 2000-04-18_1126.49_Tue_mdt Options: optimize map 1 /* ************************************************************** 2* * * 3* * Copyright, (C) Massachusetts Institute of Technology, 1973 * 4* * * 5* ************************************************************** */ 6 lisp_trig_: procedure; /* miscellaneous trig and arith functions for lisp. 25 Jan 73, dam */ 7 8 9 dcl (fn, fn2) float bin, 10 n fixed bin(35), 11 timeup fixed bin(71) static init(0), 12 stack ptr, 13 lisp_error_ entry, 14 errcode(2) fixed bin(35) aligned based, 15 myname fixed bin, 16 timer_manager_$sleep ext entry (fixed bin(71), bit(2)), 17 system_info_$timeup ext entry(fixed bin(71)), 18 (addrel, float, fixed, null, multiply, atan, cos, exp, sqrt, log, sin) builtin; 19 1 1 /* Include file lisp_common_vars.incl.pl1; 1 2* describes the external static variables which may be referenced 1 3* by lisp routines. 1 4* D. Reed 4/1/71 */ 1 5 1 6 dcl 1 lisp_static_vars_$lisp_static_vars_ external, 1 7 2 cclist_ptr ptr, /* pointer to list of constants kept 1 8* by compiled programs */ 1 9 2 garbage_collect_soon bit(1) aligned, /* if this is on we should garbage collect soon */ 1 10 1 11 lisp_static_vars_$err_recp ptr ext aligned, /* pointer to error data */ 1 12 err_recp ptr defined (lisp_static_vars_$err_recp), 1 13 eval_frame ptr defined (lisp_static_vars_$eval_frame), /* info kept by eval if *rset t */ 1 14 lisp_static_vars_$eval_frame ptr ext static, 1 15 lisp_static_vars_$prog_frame ptr ext aligned, 1 16 lisp_static_vars_$err_frame ptr ext aligned, 1 17 lisp_static_vars_$catch_frame ptr ext aligned, 1 18 lisp_static_vars_$unwp_frame ptr ext aligned, 1 19 lisp_static_vars_$stack_ptr ptr ext aligned, 1 20 lisp_static_vars_$t_atom fixed bin(71) ext aligned, 1 21 lisp_static_vars_$top_level label ext, /* top level read_eval_print loop */ 1 22 lisp_static_vars_$unmkd_ptr ptr ext aligned, 1 23 lisp_static_vars_$binding_top ptr ext aligned, 1 24 lisp_static_vars_$obarray fixed bin(71) aligned ext, 1 25 obarray fixed bin(71) defined (lisp_static_vars_$obarray), 1 26 lisp_static_vars_$array_atom fixed bin(71) aligned ext, 1 27 array_atom fixed bin(71) defined (lisp_static_vars_$array_atom), 1 28 binding_top ptr defined (lisp_static_vars_$binding_top), 1 29 unmkd_ptr ptr defined (lisp_static_vars_$unmkd_ptr), 1 30 stack_ptr ptr defined (lisp_static_vars_$stack_ptr), 1 31 lisp_static_vars_$nil ext static fixed bin(71) aligned, 1 32 nil fixed bin(71) defined (lisp_static_vars_$nil), 1 33 lisp_static_vars_$tty_input_chan ext static ptr, /* used by the reader */ 1 34 lisp_static_vars_$tty_output_chan ext static ptr, /*used by print*/ 1 35 tty_input_chan ptr def (lisp_static_vars_$tty_input_chan), 1 36 tty_output_chan ptr def (lisp_static_vars_$tty_output_chan), 1 37 lisp_static_vars_$iochan_list external pointer, /* list of all open iochans */ 1 38 nil_ptr ptr based(addr(lisp_static_vars_$nil)) aligned, 1 39 prog_frame ptr def (lisp_static_vars_$prog_frame), /* 3 ptrs for use of lisp_prog_fns_ */ 1 40 err_frame ptr def (lisp_static_vars_$err_frame), /* they point out frames in unmkd pdl */ 1 41 catch_frame ptr def (lisp_static_vars_$catch_frame), 1 42 unwp_frame ptr def (lisp_static_vars_$unwp_frame), 1 43 t_atom_ptr ptr aligned based(addr(lisp_static_vars_$t_atom)), 1 44 t_atom fixed bin(71) defined (lisp_static_vars_$t_atom); /* pointer to atom t */ 1 45 dcl lisp_static_vars_$user_intr_array(20) fixed bin(71) aligned ext static, /* -> atoms whose values are intr service functions */ 1 46 user_intr_array (20) fixed bin(71) aligned def (lisp_static_vars_$user_intr_array), 1 47 lisp_static_vars_$star_rset fixed bin(71) aligned ext static, 1 48 star_rset fixed bin(71) aligned def (lisp_static_vars_$star_rset); 1 49 1 50 1 51 /* end include file lisp_common_vars.incl.pl1 */ 20 2 1 /* include file lisp_stack_fmt.incl.pl1 -- 2 2* describes the format of the pushdown list 2 3* used by the lisp evaluator and lisp subrs 2 4* for passing arguments, saving atom bindings, 2 5* and as temporaries */ 2 6 2 7 dcl 2 8 temp(10000) fixed bin(71) aligned based, 2 9 2 10 temp_ptr(10000) ptr aligned based, 2 11 1 push_down_list_ptr_types(10000) based aligned, 2 12 2 junk bit(21) unaligned, 2 13 2 temp_type bit(9) unaligned, 2 14 2 more_junk bit(42) unaligned, 2 15 2 16 1 pdl_ptr_types36(10000) based aligned, 2 17 2 temp_type36 bit(36), 2 18 2 junk bit(36), 2 19 2 20 1 binding_block aligned based, 2 21 2 top_block bit(18) unaligned, 2 22 2 bot_block bit(18) unaligned, /* these two are rel pointers into the marked PDL */ 2 23 2 back_ptr bit(18) unaligned, /* relative pointer into unmarked PDL for last binding block. */ 2 24 2 rev_ptr bit(18) unaligned, /* relative pointer to reversal bb which reversed this one, init to 0 */ 2 25 2 26 1 bindings(10000) based aligned, /* format fof bindings on stack */ 2 27 2 old_val fixed bin(71) aligned, 2 28 2 atom fixed bin(71) aligned; 2 29 2 30 2 31 2 32 /* end include file lisp_stack_fmt.incl.pl1 */ 21 3 1 /* lisp number format -- overlaid on standard its pointer. */ 3 2 3 3 3 4 dcl 1 fixnum_fmt based aligned, 3 5 2 type_info bit(36) aligned, 3 6 2 fixedb fixed bin, 3 7 3 8 1 flonum_fmt based aligned, 3 9 2 type_info bit(36) aligned, 3 10 2 floatb float bin, 3 11 3 12 fixnum_type bit(36) aligned static init("000000000000000000000100000000100111"b), 3 13 flonum_type bit(36) aligned static init("000000000000000000000010000000100111"b); 3 14 3 15 /* end of lisp number format */ 3 16 22 4 1 4 2 /* BEGIN INCLUDE FILE lisp_name_codes.incl.pl1 */ 4 3 4 4 /* These are codes for the names of functions which are stored into ab|-1,x7 before 4 5* calling lisp_error_ for a bad_argument or bad_arg_correctable error. They 4 6* are used so that the name of the function which is rejecting its argument 4 7* can be printed. Please note that all these codes are negative. */ 4 8 4 9 dcl ( 4 10 fn_do init (-10), 4 11 fn_arg init (-11), 4 12 fn_setarg init (-12), 4 13 fn_status init (-13), 4 14 fn_sstatus init (-14), 4 15 fn_errprint init (-15), 4 16 fn_errframe init (-16), 4 17 fn_evalframe init (-17), 4 18 fn_defaultf init (-18), 4 19 fn_tyo init (-22), 4 20 fn_ascii init (-23), 4 21 fn_rplaca init (-24), 4 22 fn_definedp init (-25), 4 23 fn_setq init (-26), 4 24 fn_set init (-27), 4 25 fn_delete init (-28), 4 26 fn_delq init (-29), 4 27 fn_stringlength init (-30), 4 28 fn_catenate init (-31), 4 29 fn_array init (-32), 4 30 fn_substr init (-33), 4 31 fn_index init (-34), 4 32 fn_get_pname init (-35), 4 33 fn_make_atom init (-36), 4 34 fn_ItoC init (-37), 4 35 fn_CtoI init (-38), 4 36 fn_defsubr init (-39), 4 37 fn_star_array init (-40), 4 38 fn_args init (-41), 4 39 fn_sysp init (-42), 4 40 fn_get init (-43), 4 41 fn_getl init (-44), 4 42 fn_putprop init (-45), 4 43 fn_remprop init (-46), 4 44 fn_save init (-47), 4 45 fn_add1 init (-48), 4 46 fn_sub1 init (-49), 4 47 fn_greaterp init (-50), 4 48 fn_lessp init (-51), 4 49 fn_minus init (-52), 4 50 fn_plus init (-53), 4 51 fn_times init (-54), 4 52 fn_difference init (-55), 4 53 fn_quotient init (-56), 4 54 fn_abs init (-57), 4 55 fn_expt init (-58), 4 56 fn_boole init (-59), 4 57 fn_rot init (-60), 4 58 fn_lsh init (-61), 4 59 fn_signp init (-62), 4 60 fn_fix init (-63), 4 61 fn_float init (-64), 4 62 fn_remainder init (-65), 4 63 fn_max init (-66), 4 64 fn_min init (-67), 4 65 fn_add1_fix init (-68), 4 66 fn_add1_flo init (-69), 4 67 fn_sub1_fix init (-70), 4 68 fn_sub1_flo init (-71), 4 69 fn_plus_fix init (-72), 4 70 fn_plus_flo init (-73), 4 71 fn_times_fix init (-74), 4 72 fn_times_flo init (-75), 4 73 fn_diff_fix init (-76), 4 74 fn_diff_flo init (-77), 4 75 fn_quot_fix init (-78), 4 76 fn_quot_flo init (-79), 4 77 fn_eval init (-80), 4 78 fn_apply init (-81), 4 79 fn_prog init (-82), 4 80 fn_errset init (-83), 4 81 fn_catch init (-84), 4 82 fn_throw init (-85), 4 83 fn_store init (-86), 4 84 fn_defun init (-87), 4 85 fn_baktrace init (-88), 4 86 fn_bltarray init (-89), 4 87 fn_star_rearray init (-90), 4 88 fn_gensym init (-91), 4 89 fn_makunbound init (-92), 4 90 fn_boundp init (-93), 4 91 fn_star_status init (-94), 4 92 fn_star_sstatus init (-95), 4 93 fn_freturn init (-96), 4 94 fn_cos init (-97), 4 95 fn_sin init (-98), 4 96 fn_exp init (-99), 4 97 fn_log init (-100), 4 98 fn_sqrt init (-101), 4 99 fn_isqrt init (-102), 4 100 fn_atan init (-103), 4 101 fn_sleep init (-104), 4 102 fn_oddp init (-105), 4 103 fn_tyipeek init (-106), 4 104 fn_alarmclock init (-107), 4 105 fn_plusp init (-108), 4 106 fn_minusp init (-109), 4 107 fn_ls init (-110), 4 108 fn_eql init (-111), 4 109 fn_gt init (-112), 4 110 fn_alphalessp init (-113), 4 111 fn_samepnamep init (-114), 4 112 fn_getchar init (-115), 4 113 fn_opena init (-116), 4 114 fn_sxhash init (-117), 4 115 fn_gcd init (-118), 4 116 fn_allfiles init (-119), 4 117 fn_chrct init (-120), 4 118 fn_close init (-121), 4 119 fn_deletef init (-122), 4 120 fn_eoffn init (-123), 4 121 fn_filepos init (-124), 4 122 fn_inpush init (-125), 4 123 fn_linel init (-126), 4 124 fn_mergef init (-127), 4 125 fn_namelist init (-128), 4 126 fn_names init (-129), 4 127 fn_namestring init (-130), 4 128 fn_openi init (-131), 4 129 fn_openo init (-132), 4 130 fn_prin1 init (-133), 4 131 fn_princ init (-134), 4 132 fn_print init (-135), 4 133 fn_read init (-136), 4 134 fn_readch init (-137), 4 135 fn_readstring init (-138), 4 136 fn_rename init (-139), 4 137 fn_shortnamestring init (-140), 4 138 fn_tyi init (-141), 4 139 fn_setsyntax init (-142), 4 140 fn_cursorpos init (-143), 4 141 fn_force_output init (-144), 4 142 fn_clear_input init (-145), 4 143 fn_random init (-146), 4 144 fn_haulong init (-147), 4 145 fn_haipart init (-148), 4 146 fn_cline init (-149), 4 147 fn_fillarray init (-150), 4 148 fn_listarray init (-151), 4 149 fn_sort init (-152), 4 150 fn_sortcar init (-153), 4 151 fn_zerop init (-154), 4 152 fn_listify init (-155), 4 153 fn_charpos init (-156), 4 154 fn_pagel init (-157), 4 155 fn_linenum init (-158), 4 156 fn_pagenum init (-159), 4 157 fn_endpagefn init (-160), 4 158 fn_arraydims init (-161), 4 159 fn_loadarrays init (-162), 4 160 fn_dumparrays init (-163), 4 161 fn_expt_fix init (-164), 4 162 fn_expt_flo init (-165), 4 163 fn_nointerrupt init (-166), 4 164 fn_open init (-167), 4 165 fn_in init (-168), 4 166 fn_out init (-169), 4 167 fn_truename init (-170), 4 168 fn_ifix init (-171), 4 169 fn_fsc init (-172), 4 170 fn_progv init (-173), 4 171 fn_mapatoms init (-174), 4 172 fn_unwind_protect init (-175), 4 173 fn_eval_when init (-176), 4 174 fn_read_from_string init (-177), 4 175 fn_displace init (-178), 4 176 fn_nth init (-179), 4 177 fn_nthcdr init (-180), 4 178 fn_includef init (-181) 4 179 ) fixed bin static; 4 180 4 181 /* END INCLUDE FILE lisp_name_codes.incl.pl1 */ 23 5 1 5 2 /* BEGIN INCLUDE FILE lisp_error_codes.incl.pl1 */ 5 3 5 4 /* This contains codes to be stored on the unmkd pdl before calling 5 5* lisp_error_. These codes, at ab|-2,x7, are used by lisp_error_ 5 6* as an index into lisp_error_table_. */ 5 7 5 8 dcl ( 5 9 undefined_atom init(100), /* - correctable */ 5 10 undefined_function init(101), /* - correctable */ 5 11 too_many_args init(102), /* uncorrectable */ 5 12 too_few_args init(103), /* .. */ 5 13 file_system_error init(104), /* (obsolete) */ 5 14 bad_argument init(105), /* uncorrectable arg reject */ 5 15 undefined_subr init(106), 5 16 bad_function init(107), /* "bad functional form" */ 5 17 bad_bv init(108), /* attempt to bind non-variable */ 5 18 unseen_go_tag init(109), /* correctable -> unevaled new tag */ 5 19 throw_to_no_catch init(110), /* .. */ 5 20 nonfixedarg init(111), /* correctable */ 5 21 parenmissing init(112), /* uncorr reader error */ 5 22 doterror init(113), /* .. */ 5 23 illobj init(114), /* .. */ 5 24 badmacro init(115), /* .. */ 5 25 shortreadlist init(116), /* .. */ 5 26 badreadlist init(117), /* .. */ 5 27 array_bound_error init(118), /* corr -> (array sub1 sub2...) */ 5 28 car_cdr_error init(119), /* uncorr - car or cdr of number */ 5 29 bad_arg_correctable init(120), /* correctable arg reject */ 5 30 bad_prog_op init(121), /* uncorr fail-act: go or return */ 5 31 no_lexpr init(122), /* uncorr fail-act: args or setarg */ 5 32 wrong_no_args init(123), /* correctable wna -> new expr value */ 5 33 bad_ibase init(124), /* corr */ 5 34 bad_base init(125), /* corr */ 5 35 bad_input_source init(126), /* corr - retry i/o */ 5 36 bad_output_dest init(127), /* .. */ 5 37 nihil_ex_nihile init(128), /* uncorr - attempt to setq nil */ 5 38 not_pdl_ptr init(131), /* corr arg reject - for pdl ptr args */ 5 39 bad_f_fcn init(134), /* compiled call to fsubr with evaled args */ 5 40 overflow_err init(135), /* arithmetic overflow. */ 5 41 mismatch_super_parens init(136), /* uncorr reader error */ 5 42 no_left_super_paren init(137), /* .. */ 5 43 flonum_too_big init(138), /* .. */ 5 44 quoterror init(139), /* .. */ 5 45 badreadtable init(140), /* .. */ 5 46 badobarray init(141), /* .. */ 5 47 atan_0_0_err init(142), /* (atan 0 0) doesn't work */ 5 48 unable_to_float init(143), /* corr arg reject - (float x) */ 5 49 division_by_zero init(144), /* uncorr (should really be corr) */ 5 50 eof_in_object init(145), /* corr fail-act -> keep reading anyway */ 5 51 cant_filepos init(146), /* corr fail-act -> new expr value */ 5 52 filepos_oob init(147), /* .. */ 5 53 file_sys_fun_err init(148), /* corr f.s. err -> new expr value */ 5 54 stars_left_in_name init(149), /* .. */ 5 55 io_wrong_direction init(150), /* .. */ 5 56 file_is_closed init(151), /* .. */ 5 57 reopen_inconsistent init(152), /* .. */ 5 58 bad_entry_name init(153), /* .. */ 5 59 bad_do_format init(154), /* bad do format in interp. */ 5 60 not_an_array init(155), /* bad array-type arg */ 5 61 not_alpha_array init(156), /* bad all-alphabetic array */ 5 62 include_file_error init(157), /* %include barfed */ 5 63 stack_loss_error init(158), /* stack overflew */ 5 64 underflow_fault init(159), 5 65 zerodivide_fault init(160), 5 66 bad_array_subscript init(161), 5 67 store_not_allowed init(162), 5 68 dead_array_reference init(163), 5 69 cant_subscript_readtable init(164), 5 70 not_same_type init(165), 5 71 special_array_type init(166), 5 72 array_too_big init(167), 5 73 argument_must_be_array init(168), 5 74 store_function_misused init(169) 5 75 ) fixed bin static; 5 76 5 77 /* END INCLUDE FILE lisp_error_codes.incl.pl1 */ 24 25 26 27 /* 28* * Internal proc to get flonum value from top word on stack 29* */ 30 31 floval: proc; 32 33 stack = addrel(stack_ptr, -2); 34 floval0: if stack -> flonum_fmt.type_info = flonum_type then fn = stack -> floatb; 35 else if stack -> fixnum_fmt.type_info = fixnum_type then fn = float(stack -> fixedb); 36 else do; 37 call erro; 38 go to floval0; 39 end; 40 end; 41 42 43 44 /* 45* * Internal proc to get fixnum value from top word on stack 46* */ 47 48 fixval: proc; 49 50 stack = addrel(stack_ptr, -2); 51 fixval0: if stack -> flonum_fmt.type_info = flonum_type then n = fixed(stack -> floatb); 52 else if stack -> fixnum_fmt.type_info = fixnum_type then n = stack -> fixedb; 53 else do; 54 call erro; 55 go to fixval0; 56 end; 57 end; 58 59 60 /* Signal wrng-type-arg error */ 61 62 erro: proc; 63 64 dcl unm ptr; 65 66 67 unm = unmkd_ptr; 68 unmkd_ptr = addrel(unm, 2); 69 unm -> errcode(1) = bad_arg_correctable; 70 unm -> errcode(2) = myname; 71 call lisp_error_; 72 end; 73 74 75 /*** One Argument Trig Subrs ***/ 76 77 cos: entry; 78 79 myname = fn_cos; 80 call floval; 81 fn = cos(fn); 82 83 floret: stack -> flonum_fmt.type_info = flonum_type; 84 stack -> floatb = fn; 85 return; 86 87 88 sin: entry; 89 90 myname = fn_sin; 91 call floval; 92 fn = sin(fn); 93 go to floret; 94 95 96 exp: entry; 97 98 myname = fn_exp; 99 exp0: call floval; 100 if fn > 88.028 then do; 101 call erro; 102 go to exp0; 103 end; 104 else if fn > -88.028 then fn = exp(fn); 105 else fn = 0; 106 go to floret; 107 108 109 log: entry; 110 111 myname = fn_log; 112 log0: call floval; 113 if fn <= 0 then do; 114 call erro; 115 go to log0; 116 end; 117 fn = log(fn); 118 go to floret; 119 120 121 sqrt: entry; 122 123 myname = fn_sqrt; 124 sqrt0: call floval; 125 if fn < 0 then do; 126 call erro; 127 go to sqrt0; 128 end; 129 fn = sqrt(fn); 130 go to floret; 131 132 133 isqrt: entry; 134 135 myname = fn_isqrt; 136 isqrt0: call fixval; 137 if n < 0 then do; 138 call erro; 139 go to isqrt0; 140 end; 141 n = sqrt(n); 142 fixret: stack -> fixnum_fmt.type_info = fixnum_type; 143 stack -> fixedb = n; 144 return; 145 146 /*** Arc Tangent Lsubr, allows 1 or 2 arguments ***/ 147 148 atan: entry; 149 150 myname = fn_atan; 151 stack = addrel(stack_ptr, -2); 152 n = stack -> fixedb; /* arg count */ 153 stack_ptr = stack; 154 if n = -2 then do; /* 1 arg */ 155 call floval; 156 fn = atan(fn); 157 end; 158 else if n = -4 then do; /* 2 args */ 159 call floval; /* 2nd arg */ 160 fn2 = fn; 161 stack_ptr = stack; 162 call floval; /* 1st arg */ 163 if fn = 0 then if fn2 = 0 then do; /* (atan 0 0) is not allowed */ 164 dcl unm ptr; 165 unm = unmkd_ptr; 166 unmkd_ptr = addrel(unm, 2); 167 unm -> errcode(1) = atan_0_0_err; 168 unm -> errcode(2) = fn_atan; 169 call lisp_error_; /* this is fatal error for now */ 170 end; 171 fn = atan(fn, fn2); 172 end; 173 else stack_ptr = addrel(stack, 2+n); /* wna - just fiddle stack ptr so no lose */ 174 175 go to floret; 176 177 178 179 sleep: entry; /*** Subr to cause delay for specified length of time */ 180 181 myname = fn_sleep; 182 sleep0: 183 call floval; 184 if fn < 0 then go to abs_sleep; /* absolute time */ 185 rel_sleep: /* relative time */ 186 call timer_manager_$sleep(fixed(fn*1e6,71), "10"b); /* convert seconds (floating) to 187* microseconds (fixed) */ 188 return; 189 190 abs_sleep: /* absolute time - in terms of (status time) */ 191 192 193 if timeup = 0 then call system_info_$timeup(timeup); /* find out when the system came up */ 194 call timer_manager_$sleep(timeup-fixed(fn*1e6,71), "00"b); 195 /* sleep until system has been up for 'arg' number of microseconds */ 196 return; 197 198 expt_assistance: entry; 199 200 /* do expt of a flonum and a flonum for lisp_bignums_ */ 201 202 call floval; 203 fn2 = fn; 204 stack_ptr = stack; 205 call floval; 206 207 fn = fn ** fn2; 208 go to floret; 209 end lisp_trig_; SOURCE FILES USED IN THIS COMPILATION. LINE NUMBER DATE MODIFIED NAME PATHNAME 0 04/18/00 1126.4 lisp_trig_.pl1 >udd>sm>ds>w>ml>lisp_trig_.pl1 20 1 03/27/82 0537.0 lisp_common_vars.incl.pl1 >ldd>incl>lisp_common_vars.incl.pl1 21 2 03/27/82 0537.0 lisp_stack_fmt.incl.pl1 >ldd>incl>lisp_stack_fmt.incl.pl1 22 3 03/27/82 0537.0 lisp_nums.incl.pl1 >ldd>incl>lisp_nums.incl.pl1 23 4 07/06/83 1211.5 lisp_name_codes.incl.pl1 >ldd>incl>lisp_name_codes.incl.pl1 24 5 03/27/82 0537.0 lisp_error_codes.incl.pl1 >ldd>incl>lisp_error_codes.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. addrel builtin function dcl 9 ref 33 50 68 151 166 173 atan builtin function dcl 9 ref 156 171 atan_0_0_err constant fixed bin(17,0) initial dcl 5-8 ref 167 bad_arg_correctable constant fixed bin(17,0) initial dcl 5-8 ref 69 cos builtin function dcl 9 ref 81 errcode based fixed bin(35,0) array dcl 9 set ref 69* 70* 167* 168* exp builtin function dcl 9 ref 104 fixed builtin function dcl 9 ref 51 185 185 194 fixedb 1 based fixed bin(17,0) level 2 dcl 3-4 set ref 35 52 143* 152 fixnum_fmt based structure level 1 dcl 3-4 fixnum_type constant bit(36) initial dcl 3-4 ref 35 52 142 float builtin function dcl 9 ref 35 floatb 1 based float bin(27) level 2 dcl 3-4 set ref 34 51 84* flonum_fmt based structure level 1 dcl 3-4 flonum_type constant bit(36) initial dcl 3-4 ref 34 51 83 fn 000100 automatic float bin(27) dcl 9 set ref 34* 35* 81* 81 84 92* 92 100 104 104* 104 105* 113 117* 117 125 129* 129 156* 156 160 163 171* 171 184 185 185 194 203 207* 207 fn2 000101 automatic float bin(27) dcl 9 set ref 160* 163 171 203* 207 fn_atan constant fixed bin(17,0) initial dcl 4-9 ref 150 168 fn_cos constant fixed bin(17,0) initial dcl 4-9 ref 79 fn_exp constant fixed bin(17,0) initial dcl 4-9 ref 98 fn_isqrt constant fixed bin(17,0) initial dcl 4-9 ref 135 fn_log constant fixed bin(17,0) initial dcl 4-9 ref 111 fn_sin constant fixed bin(17,0) initial dcl 4-9 ref 90 fn_sleep constant fixed bin(17,0) initial dcl 4-9 ref 181 fn_sqrt constant fixed bin(17,0) initial dcl 4-9 ref 123 lisp_error_ 000012 constant entry external dcl 9 ref 71 169 lisp_static_vars_$stack_ptr 000020 external static pointer dcl 1-6 set ref 33 33 50 50 151 151 153* 153 161* 161 173* 173 204* 204 lisp_static_vars_$unmkd_ptr 000022 external static pointer dcl 1-6 set ref 67 67 68* 68 165 165 166* 166 log builtin function dcl 9 ref 117 myname 000106 automatic fixed bin(17,0) dcl 9 set ref 70 79* 90* 98* 111* 123* 135* 150* 181* n 000102 automatic fixed bin(35,0) dcl 9 set ref 51* 52* 137 141* 141 143 152* 154 158 173 sin builtin function dcl 9 ref 92 sqrt builtin function dcl 9 ref 129 141 stack 000104 automatic pointer dcl 9 set ref 33* 34 34 35 35 50* 51 51 52 52 83 84 142 143 151* 152 153 161 173 204 stack_ptr defined pointer dcl 1-6 set ref 33 50 151 153* 161* 173* 204* system_info_$timeup 000016 constant entry external dcl 9 ref 190 timer_manager_$sleep 000014 constant entry external dcl 9 ref 185 194 timeup 000010 internal static fixed bin(71,0) initial dcl 9 set ref 190 190* 194 type_info based bit(36) level 2 in structure "fixnum_fmt" dcl 3-4 in procedure "lisp_trig_" set ref 35 52 142* type_info based bit(36) level 2 in structure "flonum_fmt" dcl 3-4 in procedure "lisp_trig_" set ref 34 51 83* unm 000134 automatic pointer dcl 64 in procedure "erro" set ref 67* 68 69 70 unm 000110 automatic pointer dcl 164 in procedure "lisp_trig_" set ref 165* 166 167 168 unmkd_ptr defined pointer dcl 1-6 set ref 67 68* 165 166* NAMES DECLARED BY DECLARE STATEMENT AND NEVER REFERENCED. argument_must_be_array internal static fixed bin(17,0) initial dcl 5-8 array_atom defined fixed bin(71,0) dcl 1-6 array_bound_error internal static fixed bin(17,0) initial dcl 5-8 array_too_big internal static fixed bin(17,0) initial dcl 5-8 bad_argument internal static fixed bin(17,0) initial dcl 5-8 bad_array_subscript internal static fixed bin(17,0) initial dcl 5-8 bad_base internal static fixed bin(17,0) initial dcl 5-8 bad_bv internal static fixed bin(17,0) initial dcl 5-8 bad_do_format internal static fixed bin(17,0) initial dcl 5-8 bad_entry_name internal static fixed bin(17,0) initial dcl 5-8 bad_f_fcn internal static fixed bin(17,0) initial dcl 5-8 bad_function internal static fixed bin(17,0) initial dcl 5-8 bad_ibase internal static fixed bin(17,0) initial dcl 5-8 bad_input_source internal static fixed bin(17,0) initial dcl 5-8 bad_output_dest internal static fixed bin(17,0) initial dcl 5-8 bad_prog_op internal static fixed bin(17,0) initial dcl 5-8 badmacro internal static fixed bin(17,0) initial dcl 5-8 badobarray internal static fixed bin(17,0) initial dcl 5-8 badreadlist internal static fixed bin(17,0) initial dcl 5-8 badreadtable internal static fixed bin(17,0) initial dcl 5-8 binding_block based structure level 1 dcl 2-7 binding_top defined pointer dcl 1-6 bindings based structure array level 1 dcl 2-7 cant_filepos internal static fixed bin(17,0) initial dcl 5-8 cant_subscript_readtable internal static fixed bin(17,0) initial dcl 5-8 car_cdr_error internal static fixed bin(17,0) initial dcl 5-8 catch_frame defined pointer dcl 1-6 dead_array_reference internal static fixed bin(17,0) initial dcl 5-8 division_by_zero internal static fixed bin(17,0) initial dcl 5-8 doterror internal static fixed bin(17,0) initial dcl 5-8 eof_in_object internal static fixed bin(17,0) initial dcl 5-8 err_frame defined pointer dcl 1-6 err_recp defined pointer dcl 1-6 eval_frame defined pointer dcl 1-6 file_is_closed internal static fixed bin(17,0) initial dcl 5-8 file_sys_fun_err internal static fixed bin(17,0) initial dcl 5-8 file_system_error internal static fixed bin(17,0) initial dcl 5-8 filepos_oob internal static fixed bin(17,0) initial dcl 5-8 flonum_too_big internal static fixed bin(17,0) initial dcl 5-8 fn_CtoI internal static fixed bin(17,0) initial dcl 4-9 fn_ItoC internal static fixed bin(17,0) initial dcl 4-9 fn_abs internal static fixed bin(17,0) initial dcl 4-9 fn_add1 internal static fixed bin(17,0) initial dcl 4-9 fn_add1_fix internal static fixed bin(17,0) initial dcl 4-9 fn_add1_flo internal static fixed bin(17,0) initial dcl 4-9 fn_alarmclock internal static fixed bin(17,0) initial dcl 4-9 fn_allfiles internal static fixed bin(17,0) initial dcl 4-9 fn_alphalessp internal static fixed bin(17,0) initial dcl 4-9 fn_apply internal static fixed bin(17,0) initial dcl 4-9 fn_arg internal static fixed bin(17,0) initial dcl 4-9 fn_args internal static fixed bin(17,0) initial dcl 4-9 fn_array internal static fixed bin(17,0) initial dcl 4-9 fn_arraydims internal static fixed bin(17,0) initial dcl 4-9 fn_ascii internal static fixed bin(17,0) initial dcl 4-9 fn_baktrace internal static fixed bin(17,0) initial dcl 4-9 fn_bltarray internal static fixed bin(17,0) initial dcl 4-9 fn_boole internal static fixed bin(17,0) initial dcl 4-9 fn_boundp internal static fixed bin(17,0) initial dcl 4-9 fn_catch internal static fixed bin(17,0) initial dcl 4-9 fn_catenate internal static fixed bin(17,0) initial dcl 4-9 fn_charpos internal static fixed bin(17,0) initial dcl 4-9 fn_chrct internal static fixed bin(17,0) initial dcl 4-9 fn_clear_input internal static fixed bin(17,0) initial dcl 4-9 fn_cline internal static fixed bin(17,0) initial dcl 4-9 fn_close internal static fixed bin(17,0) initial dcl 4-9 fn_cursorpos internal static fixed bin(17,0) initial dcl 4-9 fn_defaultf internal static fixed bin(17,0) initial dcl 4-9 fn_definedp internal static fixed bin(17,0) initial dcl 4-9 fn_defsubr internal static fixed bin(17,0) initial dcl 4-9 fn_defun internal static fixed bin(17,0) initial dcl 4-9 fn_delete internal static fixed bin(17,0) initial dcl 4-9 fn_deletef internal static fixed bin(17,0) initial dcl 4-9 fn_delq internal static fixed bin(17,0) initial dcl 4-9 fn_diff_fix internal static fixed bin(17,0) initial dcl 4-9 fn_diff_flo internal static fixed bin(17,0) initial dcl 4-9 fn_difference internal static fixed bin(17,0) initial dcl 4-9 fn_displace internal static fixed bin(17,0) initial dcl 4-9 fn_do internal static fixed bin(17,0) initial dcl 4-9 fn_dumparrays internal static fixed bin(17,0) initial dcl 4-9 fn_endpagefn internal static fixed bin(17,0) initial dcl 4-9 fn_eoffn internal static fixed bin(17,0) initial dcl 4-9 fn_eql internal static fixed bin(17,0) initial dcl 4-9 fn_errframe internal static fixed bin(17,0) initial dcl 4-9 fn_errprint internal static fixed bin(17,0) initial dcl 4-9 fn_errset internal static fixed bin(17,0) initial dcl 4-9 fn_eval internal static fixed bin(17,0) initial dcl 4-9 fn_eval_when internal static fixed bin(17,0) initial dcl 4-9 fn_evalframe internal static fixed bin(17,0) initial dcl 4-9 fn_expt internal static fixed bin(17,0) initial dcl 4-9 fn_expt_fix internal static fixed bin(17,0) initial dcl 4-9 fn_expt_flo internal static fixed bin(17,0) initial dcl 4-9 fn_filepos internal static fixed bin(17,0) initial dcl 4-9 fn_fillarray internal static fixed bin(17,0) initial dcl 4-9 fn_fix internal static fixed bin(17,0) initial dcl 4-9 fn_float internal static fixed bin(17,0) initial dcl 4-9 fn_force_output internal static fixed bin(17,0) initial dcl 4-9 fn_freturn internal static fixed bin(17,0) initial dcl 4-9 fn_fsc internal static fixed bin(17,0) initial dcl 4-9 fn_gcd internal static fixed bin(17,0) initial dcl 4-9 fn_gensym internal static fixed bin(17,0) initial dcl 4-9 fn_get internal static fixed bin(17,0) initial dcl 4-9 fn_get_pname internal static fixed bin(17,0) initial dcl 4-9 fn_getchar internal static fixed bin(17,0) initial dcl 4-9 fn_getl internal static fixed bin(17,0) initial dcl 4-9 fn_greaterp internal static fixed bin(17,0) initial dcl 4-9 fn_gt internal static fixed bin(17,0) initial dcl 4-9 fn_haipart internal static fixed bin(17,0) initial dcl 4-9 fn_haulong internal static fixed bin(17,0) initial dcl 4-9 fn_ifix internal static fixed bin(17,0) initial dcl 4-9 fn_in internal static fixed bin(17,0) initial dcl 4-9 fn_includef internal static fixed bin(17,0) initial dcl 4-9 fn_index internal static fixed bin(17,0) initial dcl 4-9 fn_inpush internal static fixed bin(17,0) initial dcl 4-9 fn_lessp internal static fixed bin(17,0) initial dcl 4-9 fn_linel internal static fixed bin(17,0) initial dcl 4-9 fn_linenum internal static fixed bin(17,0) initial dcl 4-9 fn_listarray internal static fixed bin(17,0) initial dcl 4-9 fn_listify internal static fixed bin(17,0) initial dcl 4-9 fn_loadarrays internal static fixed bin(17,0) initial dcl 4-9 fn_ls internal static fixed bin(17,0) initial dcl 4-9 fn_lsh internal static fixed bin(17,0) initial dcl 4-9 fn_make_atom internal static fixed bin(17,0) initial dcl 4-9 fn_makunbound internal static fixed bin(17,0) initial dcl 4-9 fn_mapatoms internal static fixed bin(17,0) initial dcl 4-9 fn_max internal static fixed bin(17,0) initial dcl 4-9 fn_mergef internal static fixed bin(17,0) initial dcl 4-9 fn_min internal static fixed bin(17,0) initial dcl 4-9 fn_minus internal static fixed bin(17,0) initial dcl 4-9 fn_minusp internal static fixed bin(17,0) initial dcl 4-9 fn_namelist internal static fixed bin(17,0) initial dcl 4-9 fn_names internal static fixed bin(17,0) initial dcl 4-9 fn_namestring internal static fixed bin(17,0) initial dcl 4-9 fn_nointerrupt internal static fixed bin(17,0) initial dcl 4-9 fn_nth internal static fixed bin(17,0) initial dcl 4-9 fn_nthcdr internal static fixed bin(17,0) initial dcl 4-9 fn_oddp internal static fixed bin(17,0) initial dcl 4-9 fn_open internal static fixed bin(17,0) initial dcl 4-9 fn_opena internal static fixed bin(17,0) initial dcl 4-9 fn_openi internal static fixed bin(17,0) initial dcl 4-9 fn_openo internal static fixed bin(17,0) initial dcl 4-9 fn_out internal static fixed bin(17,0) initial dcl 4-9 fn_pagel internal static fixed bin(17,0) initial dcl 4-9 fn_pagenum internal static fixed bin(17,0) initial dcl 4-9 fn_plus internal static fixed bin(17,0) initial dcl 4-9 fn_plus_fix internal static fixed bin(17,0) initial dcl 4-9 fn_plus_flo internal static fixed bin(17,0) initial dcl 4-9 fn_plusp internal static fixed bin(17,0) initial dcl 4-9 fn_prin1 internal static fixed bin(17,0) initial dcl 4-9 fn_princ internal static fixed bin(17,0) initial dcl 4-9 fn_print internal static fixed bin(17,0) initial dcl 4-9 fn_prog internal static fixed bin(17,0) initial dcl 4-9 fn_progv internal static fixed bin(17,0) initial dcl 4-9 fn_putprop internal static fixed bin(17,0) initial dcl 4-9 fn_quot_fix internal static fixed bin(17,0) initial dcl 4-9 fn_quot_flo internal static fixed bin(17,0) initial dcl 4-9 fn_quotient internal static fixed bin(17,0) initial dcl 4-9 fn_random internal static fixed bin(17,0) initial dcl 4-9 fn_read internal static fixed bin(17,0) initial dcl 4-9 fn_read_from_string internal static fixed bin(17,0) initial dcl 4-9 fn_readch internal static fixed bin(17,0) initial dcl 4-9 fn_readstring internal static fixed bin(17,0) initial dcl 4-9 fn_remainder internal static fixed bin(17,0) initial dcl 4-9 fn_remprop internal static fixed bin(17,0) initial dcl 4-9 fn_rename internal static fixed bin(17,0) initial dcl 4-9 fn_rot internal static fixed bin(17,0) initial dcl 4-9 fn_rplaca internal static fixed bin(17,0) initial dcl 4-9 fn_samepnamep internal static fixed bin(17,0) initial dcl 4-9 fn_save internal static fixed bin(17,0) initial dcl 4-9 fn_set internal static fixed bin(17,0) initial dcl 4-9 fn_setarg internal static fixed bin(17,0) initial dcl 4-9 fn_setq internal static fixed bin(17,0) initial dcl 4-9 fn_setsyntax internal static fixed bin(17,0) initial dcl 4-9 fn_shortnamestring internal static fixed bin(17,0) initial dcl 4-9 fn_signp internal static fixed bin(17,0) initial dcl 4-9 fn_sort internal static fixed bin(17,0) initial dcl 4-9 fn_sortcar internal static fixed bin(17,0) initial dcl 4-9 fn_sstatus internal static fixed bin(17,0) initial dcl 4-9 fn_star_array internal static fixed bin(17,0) initial dcl 4-9 fn_star_rearray internal static fixed bin(17,0) initial dcl 4-9 fn_star_sstatus internal static fixed bin(17,0) initial dcl 4-9 fn_star_status internal static fixed bin(17,0) initial dcl 4-9 fn_status internal static fixed bin(17,0) initial dcl 4-9 fn_store internal static fixed bin(17,0) initial dcl 4-9 fn_stringlength internal static fixed bin(17,0) initial dcl 4-9 fn_sub1 internal static fixed bin(17,0) initial dcl 4-9 fn_sub1_fix internal static fixed bin(17,0) initial dcl 4-9 fn_sub1_flo internal static fixed bin(17,0) initial dcl 4-9 fn_substr internal static fixed bin(17,0) initial dcl 4-9 fn_sxhash internal static fixed bin(17,0) initial dcl 4-9 fn_sysp internal static fixed bin(17,0) initial dcl 4-9 fn_throw internal static fixed bin(17,0) initial dcl 4-9 fn_times internal static fixed bin(17,0) initial dcl 4-9 fn_times_fix internal static fixed bin(17,0) initial dcl 4-9 fn_times_flo internal static fixed bin(17,0) initial dcl 4-9 fn_truename internal static fixed bin(17,0) initial dcl 4-9 fn_tyi internal static fixed bin(17,0) initial dcl 4-9 fn_tyipeek internal static fixed bin(17,0) initial dcl 4-9 fn_tyo internal static fixed bin(17,0) initial dcl 4-9 fn_unwind_protect internal static fixed bin(17,0) initial dcl 4-9 fn_zerop internal static fixed bin(17,0) initial dcl 4-9 illobj internal static fixed bin(17,0) initial dcl 5-8 include_file_error internal static fixed bin(17,0) initial dcl 5-8 io_wrong_direction internal static fixed bin(17,0) initial dcl 5-8 lisp_static_vars_$array_atom external static fixed bin(71,0) dcl 1-6 lisp_static_vars_$binding_top external static pointer dcl 1-6 lisp_static_vars_$catch_frame external static pointer dcl 1-6 lisp_static_vars_$err_frame external static pointer dcl 1-6 lisp_static_vars_$err_recp external static pointer dcl 1-6 lisp_static_vars_$eval_frame external static pointer dcl 1-6 lisp_static_vars_$iochan_list external static pointer dcl 1-6 lisp_static_vars_$lisp_static_vars_ external static structure level 1 unaligned dcl 1-6 lisp_static_vars_$nil external static fixed bin(71,0) dcl 1-6 lisp_static_vars_$obarray external static fixed bin(71,0) dcl 1-6 lisp_static_vars_$prog_frame external static pointer dcl 1-6 lisp_static_vars_$star_rset external static fixed bin(71,0) dcl 1-45 lisp_static_vars_$t_atom external static fixed bin(71,0) dcl 1-6 lisp_static_vars_$top_level external static label variable dcl 1-6 lisp_static_vars_$tty_input_chan external static pointer dcl 1-6 lisp_static_vars_$tty_output_chan external static pointer dcl 1-6 lisp_static_vars_$unwp_frame external static pointer dcl 1-6 lisp_static_vars_$user_intr_array external static fixed bin(71,0) array dcl 1-45 mismatch_super_parens internal static fixed bin(17,0) initial dcl 5-8 multiply builtin function dcl 9 nihil_ex_nihile internal static fixed bin(17,0) initial dcl 5-8 nil defined fixed bin(71,0) dcl 1-6 nil_ptr based pointer dcl 1-6 no_left_super_paren internal static fixed bin(17,0) initial dcl 5-8 no_lexpr internal static fixed bin(17,0) initial dcl 5-8 nonfixedarg internal static fixed bin(17,0) initial dcl 5-8 not_alpha_array internal static fixed bin(17,0) initial dcl 5-8 not_an_array internal static fixed bin(17,0) initial dcl 5-8 not_pdl_ptr internal static fixed bin(17,0) initial dcl 5-8 not_same_type internal static fixed bin(17,0) initial dcl 5-8 null builtin function dcl 9 obarray defined fixed bin(71,0) dcl 1-6 overflow_err internal static fixed bin(17,0) initial dcl 5-8 parenmissing internal static fixed bin(17,0) initial dcl 5-8 pdl_ptr_types36 based structure array level 1 dcl 2-7 prog_frame defined pointer dcl 1-6 push_down_list_ptr_types based structure array level 1 dcl 2-7 quoterror internal static fixed bin(17,0) initial dcl 5-8 reopen_inconsistent internal static fixed bin(17,0) initial dcl 5-8 shortreadlist internal static fixed bin(17,0) initial dcl 5-8 special_array_type internal static fixed bin(17,0) initial dcl 5-8 stack_loss_error internal static fixed bin(17,0) initial dcl 5-8 star_rset defined fixed bin(71,0) dcl 1-45 stars_left_in_name internal static fixed bin(17,0) initial dcl 5-8 store_function_misused internal static fixed bin(17,0) initial dcl 5-8 store_not_allowed internal static fixed bin(17,0) initial dcl 5-8 t_atom defined fixed bin(71,0) dcl 1-6 t_atom_ptr based pointer dcl 1-6 temp based fixed bin(71,0) array dcl 2-7 temp_ptr based pointer array dcl 2-7 throw_to_no_catch internal static fixed bin(17,0) initial dcl 5-8 too_few_args internal static fixed bin(17,0) initial dcl 5-8 too_many_args internal static fixed bin(17,0) initial dcl 5-8 tty_input_chan defined pointer dcl 1-6 tty_output_chan defined pointer dcl 1-6 unable_to_float internal static fixed bin(17,0) initial dcl 5-8 undefined_atom internal static fixed bin(17,0) initial dcl 5-8 undefined_function internal static fixed bin(17,0) initial dcl 5-8 undefined_subr internal static fixed bin(17,0) initial dcl 5-8 underflow_fault internal static fixed bin(17,0) initial dcl 5-8 unseen_go_tag internal static fixed bin(17,0) initial dcl 5-8 unwp_frame defined pointer dcl 1-6 user_intr_array defined fixed bin(71,0) array dcl 1-45 wrong_no_args internal static fixed bin(17,0) initial dcl 5-8 zerodivide_fault internal static fixed bin(17,0) initial dcl 5-8 NAMES DECLARED BY EXPLICIT CONTEXT. abs_sleep 000326 constant label dcl 190 ref 184 atan 000174 constant entry external dcl 148 cos 000013 constant entry external dcl 77 erro 000464 constant entry internal dcl 62 ref 37 54 101 114 126 138 exp 000054 constant entry external dcl 96 exp0 000063 constant label dcl 99 ref 102 expt_assistance 000362 constant entry external dcl 198 fixret 000166 constant label dcl 142 fixval 000434 constant entry internal dcl 48 ref 136 fixval0 000442 constant label dcl 51 ref 55 floret 000027 constant label dcl 83 ref 93 106 118 130 175 208 floval 000404 constant entry internal dcl 31 ref 80 91 99 112 124 155 159 162 182 202 205 floval0 000412 constant label dcl 34 ref 38 isqrt 000145 constant entry external dcl 133 isqrt0 000154 constant label dcl 136 ref 139 lisp_trig_ 000004 constant entry external dcl 6 log 000103 constant entry external dcl 109 log0 000112 constant label dcl 112 ref 115 rel_sleep 000307 constant label dcl 185 sin 000036 constant entry external dcl 88 sleep 000275 constant entry external dcl 179 sleep0 000304 constant label dcl 182 sqrt 000124 constant entry external dcl 121 sqrt0 000133 constant label dcl 124 ref 127 THERE WERE NO NAMES DECLARED BY CONTEXT OR IMPLICATION. STORAGE REQUIREMENTS FOR THIS PROGRAM. Object Text Link Symbol Defs Static Start 0 0 656 702 507 666 Length 1170 507 24 252 146 2 BLOCK NAME STACK SIZE TYPE WHY NONQUICK/WHO SHARES STACK FRAME lisp_trig_ 129 external procedure is an external procedure. floval internal procedure shares stack frame of external procedure lisp_trig_. fixval internal procedure shares stack frame of external procedure lisp_trig_. erro internal procedure shares stack frame of external procedure lisp_trig_. STORAGE FOR INTERNAL STATIC VARIABLES. LOC IDENTIFIER BLOCK NAME 000010 timeup lisp_trig_ STORAGE FOR AUTOMATIC VARIABLES. STACK FRAME LOC IDENTIFIER BLOCK NAME lisp_trig_ 000100 fn lisp_trig_ 000101 fn2 lisp_trig_ 000102 n lisp_trig_ 000104 stack lisp_trig_ 000106 myname lisp_trig_ 000110 unm lisp_trig_ 000134 unm erro THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM. fx1_to_fl2 call_ext_out return_mac fl2_to_fx1 fl2_to_fx2 ext_entry square_root_ sine_radians_ cosine_radians_ arc_tangent_radians_log_base_e_ exponential_ double_square_root_ arc_tangent_radians_single_power_single_ THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM. lisp_error_ system_info_$timeup timer_manager_$sleep THE FOLLOWING EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. lisp_static_vars_$stack_ptr lisp_static_vars_$unmkd_ptr LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC LINE LOC 6 000003 77 000011 79 000020 80 000022 81 000023 83 000027 84 000031 85 000034 88 000035 90 000043 91 000045 92 000046 93 000052 96 000053 98 000061 99 000063 100 000064 101 000067 102 000070 104 000071 105 000077 106 000101 109 000102 111 000110 112 000112 113 000113 114 000115 115 000116 117 000117 118 000122 121 000123 123 000131 124 000133 125 000134 126 000136 127 000137 129 000140 130 000143 133 000144 135 000152 136 000154 137 000155 138 000157 139 000160 141 000161 142 000166 143 000170 144 000172 148 000173 150 000201 151 000203 152 000210 153 000212 154 000213 155 000215 156 000216 157 000222 158 000223 159 000225 160 000226 161 000230 162 000233 163 000234 165 000240 166 000244 167 000247 168 000251 169 000253 171 000257 172 000264 173 000265 175 000273 179 000274 181 000302 182 000304 184 000305 185 000307 188 000325 190 000326 194 000337 196 000360 198 000361 202 000367 203 000370 204 000372 205 000375 207 000376 208 000403 31 000404 33 000405 34 000412 35 000421 37 000431 38 000432 40 000433 48 000434 50 000435 51 000442 52 000452 54 000461 55 000462 57 000463 62 000464 67 000465 68 000471 69 000474 70 000476 71 000500 72 000504 ----------------------------------------------------------- Historical Background This edition of the Multics software materials and documentation is provided and donated to Massachusetts Institute of Technology by Group BULL including BULL HN Information Systems Inc. as a contribution to computer science knowledge. This donation is made also to give evidence of the common contributions of Massachusetts Institute of Technology, Bell Laboratories, General Electric, Honeywell Information Systems Inc., Honeywell BULL Inc., Groupe BULL and BULL HN Information Systems Inc. to the development of this operating system. Multics development was initiated by Massachusetts Institute of Technology Project MAC (1963-1970), renamed the MIT Laboratory for Computer Science and Artificial Intelligence in the mid 1970s, under the leadership of Professor Fernando Jose Corbato. Users consider that Multics provided the best software architecture for managing computer hardware properly and for executing programs. Many subsequent operating systems incorporated Multics principles. Multics was distributed in 1975 to 2000 by Group Bull in Europe , and in the U.S. by Bull HN Information Systems Inc., as successor in interest by change in name only to Honeywell Bull Inc. and Honeywell Information Systems Inc. . ----------------------------------------------------------- Permission to use, copy, modify, and distribute these programs and their documentation for any purpose and without fee is hereby granted,provided that the below copyright notice and historical background appear in all copies and that both the copyright notice and historical background and this permission notice appear in supporting documentation, and that the names of MIT, HIS, BULL or BULL HN not be used in advertising or publicity pertaining to distribution of the programs without specific prior written permission. Copyright 1972 by Massachusetts Institute of Technology and Honeywell Information Systems Inc. Copyright 2006 by BULL HN Information Systems Inc. Copyright 2006 by Bull SAS All Rights Reserved