COMPILATION LISTING OF SEGMENT lisp_command_caller_ Compiled by: Multics PL/I Compiler, Release 28b, of April 11, 1983 Compiled at: Honeywell LCPD Phoenix, System M Compiled on: 06/30/83 0844.6 mst Thu Options: map single_symbol_list 1 /* ************************************************************** 2* * * 3* * Copyright, (C) Massachusetts Institute of Technology, 1973 * 4* * * 5* ************************************************************** */ 6 cline: proc; 7 /*this is a procedure to pass a lisp string to the Multics command processor*/ 8 9 10 11 12 1 1 /* include file lisp_stack_fmt.incl.pl1 -- 1 2* describes the format of the pushdown list 1 3* used by the lisp evaluator and lisp subrs 1 4* for passing arguments, saving atom bindings, 1 5* and as temporaries */ 1 6 1 7 dcl 1 8 temp(10000) fixed bin(71) aligned based, 1 9 1 10 temp_ptr(10000) ptr aligned based, 1 11 1 push_down_list_ptr_types(10000) based aligned, 1 12 2 junk bit(21) unaligned, 1 13 2 temp_type bit(9) unaligned, 1 14 2 more_junk bit(42) unaligned, 1 15 1 16 1 pdl_ptr_types36(10000) based aligned, 1 17 2 temp_type36 bit(36), 1 18 2 junk bit(36), 1 19 1 20 1 binding_block aligned based, 1 21 2 top_block bit(18) unaligned, 1 22 2 bot_block bit(18) unaligned, /* these two are rel pointers into the marked PDL */ 1 23 2 back_ptr bit(18) unaligned, /* relative pointer into unmarked PDL for last binding block. */ 1 24 2 rev_ptr bit(18) unaligned, /* relative pointer to reversal bb which reversed this one, init to 0 */ 1 25 1 26 1 bindings(10000) based aligned, /* format fof bindings on stack */ 1 27 2 old_val fixed bin(71) aligned, 1 28 2 atom fixed bin(71) aligned; 1 29 1 30 1 31 1 32 /* end include file lisp_stack_fmt.incl.pl1 */ 13 2 1 /* Include file lisp_common_vars.incl.pl1; 2 2* describes the external static variables which may be referenced 2 3* by lisp routines. 2 4* D. Reed 4/1/71 */ 2 5 2 6 dcl 1 lisp_static_vars_$lisp_static_vars_ external, 2 7 2 cclist_ptr ptr, /* pointer to list of constants kept 2 8* by compiled programs */ 2 9 2 garbage_collect_soon bit(1) aligned, /* if this is on we should garbage collect soon */ 2 10 2 11 lisp_static_vars_$err_recp ptr ext aligned, /* pointer to error data */ 2 12 err_recp ptr defined (lisp_static_vars_$err_recp), 2 13 eval_frame ptr defined (lisp_static_vars_$eval_frame), /* info kept by eval if *rset t */ 2 14 lisp_static_vars_$eval_frame ptr ext static, 2 15 lisp_static_vars_$prog_frame ptr ext aligned, 2 16 lisp_static_vars_$err_frame ptr ext aligned, 2 17 lisp_static_vars_$catch_frame ptr ext aligned, 2 18 lisp_static_vars_$unwp_frame ptr ext aligned, 2 19 lisp_static_vars_$stack_ptr ptr ext aligned, 2 20 lisp_static_vars_$t_atom fixed bin(71) ext aligned, 2 21 lisp_static_vars_$top_level label ext, /* top level read_eval_print loop */ 2 22 lisp_static_vars_$unmkd_ptr ptr ext aligned, 2 23 lisp_static_vars_$binding_top ptr ext aligned, 2 24 lisp_static_vars_$obarray fixed bin(71) aligned ext, 2 25 obarray fixed bin(71) defined (lisp_static_vars_$obarray), 2 26 lisp_static_vars_$array_atom fixed bin(71) aligned ext, 2 27 array_atom fixed bin(71) defined (lisp_static_vars_$array_atom), 2 28 binding_top ptr defined (lisp_static_vars_$binding_top), 2 29 unmkd_ptr ptr defined (lisp_static_vars_$unmkd_ptr), 2 30 stack_ptr ptr defined (lisp_static_vars_$stack_ptr), 2 31 lisp_static_vars_$nil ext static fixed bin(71) aligned, 2 32 nil fixed bin(71) defined (lisp_static_vars_$nil), 2 33 lisp_static_vars_$tty_input_chan ext static ptr, /* used by the reader */ 2 34 lisp_static_vars_$tty_output_chan ext static ptr, /*used by print*/ 2 35 tty_input_chan ptr def (lisp_static_vars_$tty_input_chan), 2 36 tty_output_chan ptr def (lisp_static_vars_$tty_output_chan), 2 37 lisp_static_vars_$iochan_list external pointer, /* list of all open iochans */ 2 38 nil_ptr ptr based(addr(lisp_static_vars_$nil)) aligned, 2 39 prog_frame ptr def (lisp_static_vars_$prog_frame), /* 3 ptrs for use of lisp_prog_fns_ */ 2 40 err_frame ptr def (lisp_static_vars_$err_frame), /* they point out frames in unmkd pdl */ 2 41 catch_frame ptr def (lisp_static_vars_$catch_frame), 2 42 unwp_frame ptr def (lisp_static_vars_$unwp_frame), 2 43 t_atom_ptr ptr aligned based(addr(lisp_static_vars_$t_atom)), 2 44 t_atom fixed bin(71) defined (lisp_static_vars_$t_atom); /* pointer to atom t */ 2 45 dcl lisp_static_vars_$user_intr_array(20) fixed bin(71) aligned ext static, /* -> atoms whose values are intr service functions */ 2 46 user_intr_array (20) fixed bin(71) aligned def (lisp_static_vars_$user_intr_array), 2 47 lisp_static_vars_$star_rset fixed bin(71) aligned ext static, 2 48 star_rset fixed bin(71) aligned def (lisp_static_vars_$star_rset); 2 49 2 50 2 51 /* end include file lisp_common_vars.incl.pl1 */ 14 3 1 /* Include file lisp_ptr_fmt.incl.pl1; 3 2* describes the format of lisp pointers as 3 3* a bit string overlay on the double word ITS pair 3 4* which allows lisp to access some unused bits in 3 5* the standard ITS pointer format. It should be noted that 3 6* this is somewhat of a kludge, since 3 7* it is quite machine dependent. However, to store type 3 8* fields in the pointer, saves 2 words in each cons, 3 9* plus some efficiency problems. 3 10* 3 11* D.Reed 4/1/71 */ 3 12 /* modified to move type field to other half of ptr */ 3 13 /* D.Reed 5/31/72 */ 3 14 3 15 3 16 dcl based_ptr ptr aligned based; /* for dealing with lisp values as pointers */ 3 17 dcl lisp_ptr_type bit(36) aligned based, /* for more efficient checking of type bits */ 3 18 1 lisp_ptr based aligned, /* structure of double word pointer in lisp */ 3 19 2 segno bit(18) unaligned, /* segment number pointed to by pointer */ 3 20 2 ringnum bit(3) unaligned, /* ring mumber for validation */ 3 21 2 type bit(9) unaligned, /* type field */ 3 22 2 itsmod bit(6) unaligned, 3 23 2 offset fixed bin(17) unaligned, /* offset in segment of object pointed to */ 3 24 2 chain bit(18) unaligned, /* normally 0, but may be set to chain pointers together */ 3 25 3 26 /* manifest constant strings for testing above type field */ 3 27 3 28 ( 3 29 Cons init("000000000"b), /* a pointer to a list has a zero type field */ 3 30 Fixed init("100000000"b), /* a fixed point number, stored in second word of the ptr */ 3 31 Float init("010000000"b), /* a floating number, also stored in the second word of the ptr */ 3 32 Atsym init("001000000"b), /* this bit on means a ptr to an atomic symbol */ 3 33 Atomic init("111111111"b), /* any bit on means an atomic data type */ 3 34 Bignum init("000001000"b), /* a multiple-precision number */ 3 35 Bigfix init("000001000"b), /* a fixed point bignum (only kind for now) */ 3 36 Numeric init("110000000"b), /* either type immediate number. Both bits on 3 37* means a special internal uncollectable weird object */ 3 38 Uncollectable init("110000000"b), /* not looked through by garbage collector */ 3 39 String init("000100000"b), /* pointer to lisp character string - length word, chars */ 3 40 Subr init("000010000"b), /* pointer to compiled (or builtin) subroutine (linkage) code */ 3 41 System_Subr init("000000100"b), /* Subr bit must be on too, indicates ptr into lisp_subr_tv_ */ 3 42 Array init("000000010"b), /* Subr bit must be on too, indicates ptr to a lisp array */ 3 43 File init("000000001"b) /* pointer to a file object (iochan block) */ 3 44 ) bit(9) static, 3 45 3 46 /* 36 bit manifest constant strings for testing lisp_ptr_type */ 3 47 3 48 3 49 ( 3 50 Cons36 init("000000000000000000000000000000"b), 3 51 Fixed36 init("000000000000000000000100000000"b), 3 52 Float36 init("000000000000000000000010000000"b), 3 53 Atsym36 init("000000000000000000000001000000"b), 3 54 Atomic36 init("000000000000000000000111111100"b), 3 55 Bignum36 init("000000000000000000000000001000"b), 3 56 System_Subr36 3 57 init("000000000000000000000000000100"b), 3 58 Bigfix36 init("000000000000000000000000001000"b), 3 59 Numeric36 init("000000000000000000000110000000"b), /* does not check for bignum */ 3 60 NotConsOrAtsym36 3 61 init("000000000000000000000110111111"b), 3 62 SubrNumeric36 3 63 init("000000000000000000000110010000"b), /* used in garbage collector, for quick check */ 3 64 String36 init("000000000000000000000000100000"b), 3 65 Subr36 init("000000000000000000000000010000"b), 3 66 File36 init("000000000000000000000000000001"b), 3 67 Array36 init("000000000000000000000000000010"b)) bit(36) aligned static, 3 68 3 69 /* undefined pointer value is double word of zeros */ 3 70 3 71 Undefined bit(72) static init(""b); 3 72 3 73 /* end of include file lisp_ptr_fmt.incl.pl1 */ 15 4 1 /***** BEGIN INCLUDE FILE lisp_string_fmt.incl.pl1 ***** 4 2* describes format of storage for lisp 4 3* character strings. 4 4* D. Reed 4/1/71 */ 4 5 4 6 dcl 1 lisp_string based aligned, 4 7 2 string_length fixed bin, 4 8 2 string char(1 refer(string_length)); 4 9 4 10 /***** END INCLUDE FILE lisp_string_fmt.incl.pl1 */ 16 5 1 /* Include file lisp_atom_fmt.incl.pl1; 5 2* describes internal format of atoms in the lisp system 5 3* D.Reed 4/1/71 */ 5 4 5 5 dcl 1 atom aligned based, /* overlay for atom fomat */ 5 6 2 value fixed bin(71), /* atom's value */ 5 7 2 plist fixed bin(71), /* property list */ 5 8 2 pnamel fixed bin, /* length of print name */ 5 9 2 pname char(1 refer(pnamel)), /* print name of atom */ 5 10 5 11 1 atom_ptrs based aligned, /* for use of plist and value of atom as ptrs */ 5 12 2 value ptr, 5 13 2 plist ptr, 5 14 5 15 1 atom_double_words based aligned, /* overlay for atom pointer checking */ 5 16 2 value bit(72), 5 17 2 plist bit(72); 5 18 5 19 /* end of include file lisp_atom_fmt.incl.pl1 */ 17 6 1 6 2 /* BEGIN INCLUDE FILE lisp_error_codes.incl.pl1 */ 6 3 6 4 /* This contains codes to be stored on the unmkd pdl before calling 6 5* lisp_error_. These codes, at ab|-2,x7, are used by lisp_error_ 6 6* as an index into lisp_error_table_. */ 6 7 6 8 dcl ( 6 9 undefined_atom init(100), /* - correctable */ 6 10 undefined_function init(101), /* - correctable */ 6 11 too_many_args init(102), /* uncorrectable */ 6 12 too_few_args init(103), /* .. */ 6 13 file_system_error init(104), /* (obsolete) */ 6 14 bad_argument init(105), /* uncorrectable arg reject */ 6 15 undefined_subr init(106), 6 16 bad_function init(107), /* "bad functional form" */ 6 17 bad_bv init(108), /* attempt to bind non-variable */ 6 18 unseen_go_tag init(109), /* correctable -> unevaled new tag */ 6 19 throw_to_no_catch init(110), /* .. */ 6 20 nonfixedarg init(111), /* correctable */ 6 21 parenmissing init(112), /* uncorr reader error */ 6 22 doterror init(113), /* .. */ 6 23 illobj init(114), /* .. */ 6 24 badmacro init(115), /* .. */ 6 25 shortreadlist init(116), /* .. */ 6 26 badreadlist init(117), /* .. */ 6 27 array_bound_error init(118), /* corr -> (array sub1 sub2...) */ 6 28 car_cdr_error init(119), /* uncorr - car or cdr of number */ 6 29 bad_arg_correctable init(120), /* correctable arg reject */ 6 30 bad_prog_op init(121), /* uncorr fail-act: go or return */ 6 31 no_lexpr init(122), /* uncorr fail-act: args or setarg */ 6 32 wrong_no_args init(123), /* correctable wna -> new expr value */ 6 33 bad_ibase init(124), /* corr */ 6 34 bad_base init(125), /* corr */ 6 35 bad_input_source init(126), /* corr - retry i/o */ 6 36 bad_output_dest init(127), /* .. */ 6 37 nihil_ex_nihile init(128), /* uncorr - attempt to setq nil */ 6 38 not_pdl_ptr init(131), /* corr arg reject - for pdl ptr args */ 6 39 bad_f_fcn init(134), /* compiled call to fsubr with evaled args */ 6 40 overflow_err init(135), /* arithmetic overflow. */ 6 41 mismatch_super_parens init(136), /* uncorr reader error */ 6 42 no_left_super_paren init(137), /* .. */ 6 43 flonum_too_big init(138), /* .. */ 6 44 quoterror init(139), /* .. */ 6 45 badreadtable init(140), /* .. */ 6 46 badobarray init(141), /* .. */ 6 47 atan_0_0_err init(142), /* (atan 0 0) doesn't work */ 6 48 unable_to_float init(143), /* corr arg reject - (float x) */ 6 49 division_by_zero init(144), /* uncorr (should really be corr) */ 6 50 eof_in_object init(145), /* corr fail-act -> keep reading anyway */ 6 51 cant_filepos init(146), /* corr fail-act -> new expr value */ 6 52 filepos_oob init(147), /* .. */ 6 53 file_sys_fun_err init(148), /* corr f.s. err -> new expr value */ 6 54 stars_left_in_name init(149), /* .. */ 6 55 io_wrong_direction init(150), /* .. */ 6 56 file_is_closed init(151), /* .. */ 6 57 reopen_inconsistent init(152), /* .. */ 6 58 bad_entry_name init(153), /* .. */ 6 59 bad_do_format init(154), /* bad do format in interp. */ 6 60 not_an_array init(155), /* bad array-type arg */ 6 61 not_alpha_array init(156), /* bad all-alphabetic array */ 6 62 include_file_error init(157), /* %include barfed */ 6 63 stack_loss_error init(158), /* stack overflew */ 6 64 underflow_fault init(159), 6 65 zerodivide_fault init(160), 6 66 bad_array_subscript init(161), 6 67 store_not_allowed init(162), 6 68 dead_array_reference init(163), 6 69 cant_subscript_readtable init(164), 6 70 not_same_type init(165), 6 71 special_array_type init(166), 6 72 array_too_big init(167), 6 73 argument_must_be_array init(168), 6 74 store_function_misused init(169) 6 75 ) fixed bin static; 6 76 6 77 /* END INCLUDE FILE lisp_error_codes.incl.pl1 */ 18 7 1 7 2 /* BEGIN INCLUDE FILE lisp_unmkd_pdl.incl.pl1 */ 7 3 7 4 /* which describes the format of information that gets 7 5* put on the unmarked pdl */ 7 6 7 7 dcl errcode(2) fixed bin aligned based, /* (1) is error code for lisp_error_ */ 7 8 /* (2) is file system code (if any) */ 7 9 7 10 1 frame aligned based, /* many types of frames are pushed */ 7 11 2 prev_frame bit(18) unaligned, /* rel ptr to previous frame same type, or 0 */ 7 12 2 stack_ptr bit(18) unaligned, /* rel(stack_ptr) when the frame was created */ 7 13 2 (dat1, dat2) bit(18) unaligned, /* available for any lawful purpose */ 7 14 2 ret label; /* where to return to */ 7 15 7 16 dcl nframeptrs fixed bin static init(6), /* in the following two declarations, 7 17* I used 6 where I meant nframeptrs because of compiler bug */ 7 18 lisp_static_vars_$frame_ptrs (0:6) ptr ext static, 7 19 frame_ptrs (0 : 6) pointer defined (lisp_static_vars_$frame_ptrs); /* prog_frame, err_frame, etc. */ 7 20 7 21 7 22 /* END INCLUDE FILE lisp_unmkd_pdl.incl.pl1 */ 7 23 19 20 21 22 23 dcl (stack, unm) ptr, 24 code fixed bin(35), 25 lisp_static_vars_$ignore_faults ext bit(36) aligned, 26 (addr, addrel) builtin, 27 lisp_error_ entry, 28 cu_$cl entry options(variable), 29 cu_$cp entry(ptr, fixed bin, fixed bin(35)); 30 /* */ 31 stack = addrel(stack_ptr, -2); 32 if stack -> temp_type36(1) & Atsym36 33 then call cucp ((stack->temp_ptr(1)->atom.pname)); 34 else if stack ->temp_type36(1) &String36 35 then call cucp((stack->temp_ptr(1)->string)); 36 else go to error_in_cline; 37 cucp: proc(str); dcl str char(*) aligned; 38 lisp_static_vars_$ignore_faults = "1"b; /*so that the lisp fault handler won't get faults 39* during the command call*/ 40 call cu_$cp (addr(str), length(str), code); 41 /*call the command*/ 42 lisp_static_vars_$ignore_faults = ""b; /*now lisp will handle them again*/ 43 end; 44 stack -> temp(1) = nil; /*the value of cline is nil*/ 45 return; 46 47 48 49 50 51 error_in_cline: 52 unm = unmkd_ptr; 53 unmkd_ptr = addrel(unm, 2); /*push it up to protect 2 words*/ 54 unm -> errcode(1) = bad_argument; 55 unm -> errcode(2) = fn_cline; 56 call lisp_error_; 57 return; 58 8 1 8 2 /* BEGIN INCLUDE FILE lisp_name_codes.incl.pl1 */ 8 3 8 4 /* These are codes for the names of functions which are stored into ab|-1,x7 before 8 5* calling lisp_error_ for a bad_argument or bad_arg_correctable error. They 8 6* are used so that the name of the function which is rejecting its argument 8 7* can be printed. Please note that all these codes are negative. */ 8 8 8 9 dcl ( 8 10 fn_do init (-10), 8 11 fn_arg init (-11), 8 12 fn_setarg init (-12), 8 13 fn_status init (-13), 8 14 fn_sstatus init (-14), 8 15 fn_errprint init (-15), 8 16 fn_errframe init (-16), 8 17 fn_evalframe init (-17), 8 18 fn_defaultf init (-18), 8 19 fn_tyo init (-22), 8 20 fn_ascii init (-23), 8 21 fn_rplaca init (-24), 8 22 fn_definedp init (-25), 8 23 fn_setq init (-26), 8 24 fn_set init (-27), 8 25 fn_delete init (-28), 8 26 fn_delq init (-29), 8 27 fn_stringlength init (-30), 8 28 fn_catenate init (-31), 8 29 fn_array init (-32), 8 30 fn_substr init (-33), 8 31 fn_index init (-34), 8 32 fn_get_pname init (-35), 8 33 fn_make_atom init (-36), 8 34 fn_ItoC init (-37), 8 35 fn_CtoI init (-38), 8 36 fn_defsubr init (-39), 8 37 fn_star_array init (-40), 8 38 fn_args init (-41), 8 39 fn_sysp init (-42), 8 40 fn_get init (-43), 8 41 fn_getl init (-44), 8 42 fn_putprop init (-45), 8 43 fn_remprop init (-46), 8 44 fn_save init (-47), 8 45 fn_add1 init (-48), 8 46 fn_sub1 init (-49), 8 47 fn_greaterp init (-50), 8 48 fn_lessp init (-51), 8 49 fn_minus init (-52), 8 50 fn_plus init (-53), 8 51 fn_times init (-54), 8 52 fn_difference init (-55), 8 53 fn_quotient init (-56), 8 54 fn_abs init (-57), 8 55 fn_expt init (-58), 8 56 fn_boole init (-59), 8 57 fn_rot init (-60), 8 58 fn_lsh init (-61), 8 59 fn_signp init (-62), 8 60 fn_fix init (-63), 8 61 fn_float init (-64), 8 62 fn_remainder init (-65), 8 63 fn_max init (-66), 8 64 fn_min init (-67), 8 65 fn_add1_fix init (-68), 8 66 fn_add1_flo init (-69), 8 67 fn_sub1_fix init (-70), 8 68 fn_sub1_flo init (-71), 8 69 fn_plus_fix init (-72), 8 70 fn_plus_flo init (-73), 8 71 fn_times_fix init (-74), 8 72 fn_times_flo init (-75), 8 73 fn_diff_fix init (-76), 8 74 fn_diff_flo init (-77), 8 75 fn_quot_fix init (-78), 8 76 fn_quot_flo init (-79), 8 77 fn_eval init (-80), 8 78 fn_apply init (-81), 8 79 fn_prog init (-82), 8 80 fn_errset init (-83), 8 81 fn_catch init (-84), 8 82 fn_throw init (-85), 8 83 fn_store init (-86), 8 84 fn_defun init (-87), 8 85 fn_baktrace init (-88), 8 86 fn_bltarray init (-89), 8 87 fn_star_rearray init (-90), 8 88 fn_gensym init (-91), 8 89 fn_makunbound init (-92), 8 90 fn_boundp init (-93), 8 91 fn_star_status init (-94), 8 92 fn_star_sstatus init (-95), 8 93 fn_freturn init (-96), 8 94 fn_cos init (-97), 8 95 fn_sin init (-98), 8 96 fn_exp init (-99), 8 97 fn_log init (-100), 8 98 fn_sqrt init (-101), 8 99 fn_isqrt init (-102), 8 100 fn_atan init (-103), 8 101 fn_sleep init (-104), 8 102 fn_oddp init (-105), 8 103 fn_tyipeek init (-106), 8 104 fn_alarmclock init (-107), 8 105 fn_plusp init (-108), 8 106 fn_minusp init (-109), 8 107 fn_ls init (-110), 8 108 fn_eql init (-111), 8 109 fn_gt init (-112), 8 110 fn_alphalessp init (-113), 8 111 fn_samepnamep init (-114), 8 112 fn_getchar init (-115), 8 113 fn_opena init (-116), 8 114 fn_sxhash init (-117), 8 115 fn_gcd init (-118), 8 116 fn_allfiles init (-119), 8 117 fn_chrct init (-120), 8 118 fn_close init (-121), 8 119 fn_deletef init (-122), 8 120 fn_eoffn init (-123), 8 121 fn_filepos init (-124), 8 122 fn_inpush init (-125), 8 123 fn_linel init (-126), 8 124 fn_mergef init (-127), 8 125 fn_namelist init (-128), 8 126 fn_names init (-129), 8 127 fn_namestring init (-130), 8 128 fn_openi init (-131), 8 129 fn_openo init (-132), 8 130 fn_prin1 init (-133), 8 131 fn_princ init (-134), 8 132 fn_print init (-135), 8 133 fn_read init (-136), 8 134 fn_readch init (-137), 8 135 fn_readstring init (-138), 8 136 fn_rename init (-139), 8 137 fn_shortnamestring init (-140), 8 138 fn_tyi init (-141), 8 139 fn_setsyntax init (-142), 8 140 fn_cursorpos init (-143), 8 141 fn_force_output init (-144), 8 142 fn_clear_input init (-145), 8 143 fn_random init (-146), 8 144 fn_haulong init (-147), 8 145 fn_haipart init (-148), 8 146 fn_cline init (-149), 8 147 fn_fillarray init (-150), 8 148 fn_listarray init (-151), 8 149 fn_sort init (-152), 8 150 fn_sortcar init (-153), 8 151 fn_zerop init (-154), 8 152 fn_listify init (-155), 8 153 fn_charpos init (-156), 8 154 fn_pagel init (-157), 8 155 fn_linenum init (-158), 8 156 fn_pagenum init (-159), 8 157 fn_endpagefn init (-160), 8 158 fn_arraydims init (-161), 8 159 fn_loadarrays init (-162), 8 160 fn_dumparrays init (-163), 8 161 fn_expt_fix init (-164), 8 162 fn_expt_flo init (-165), 8 163 fn_nointerrupt init (-166), 8 164 fn_open init (-167), 8 165 fn_in init (-168), 8 166 fn_out init (-169), 8 167 fn_truename init (-170), 8 168 fn_ifix init (-171), 8 169 fn_fsc init (-172), 8 170 fn_progv init (-173), 8 171 fn_mapatoms init (-174), 8 172 fn_unwind_protect init (-175), 8 173 fn_eval_when init (-176), 8 174 fn_read_from_string init (-177), 8 175 fn_displace init (-178), 8 176 fn_nth init (-179), 8 177 fn_nthcdr init (-180), 8 178 fn_includef init (-181) 8 179 ) fixed bin static; 8 180 8 181 /* END INCLUDE FILE lisp_name_codes.incl.pl1 */ 59 60 61 62 suspend: entry; 63 64 lisp_static_vars_$ignore_faults = "1"b; 65 call cu_$cl; 66 lisp_static_vars_$ignore_faults = "0"b; 67 68 stack = stack_ptr; 69 stack_ptr = addr(stack->temp(2)); 70 stack->temp(1) = nil; 71 return; 72 end cline; SOURCE FILES USED IN THIS COMPILATION. LINE NUMBER DATE MODIFIED NAME PATHNAME 0 06/29/83 1542.2 lisp_command_caller_.pl1 >special_ldd>on>06/27/83>lisp_command_caller_.pl1 13 1 03/27/82 0437.0 lisp_stack_fmt.incl.pl1 >ldd>include>lisp_stack_fmt.incl.pl1 14 2 03/27/82 0437.0 lisp_common_vars.incl.pl1 >ldd>include>lisp_common_vars.incl.pl1 15 3 03/27/82 0437.0 lisp_ptr_fmt.incl.pl1 >ldd>include>lisp_ptr_fmt.incl.pl1 16 4 03/27/82 0436.9 lisp_string_fmt.incl.pl1 >ldd>include>lisp_string_fmt.incl.pl1 17 5 03/27/82 0437.1 lisp_atom_fmt.incl.pl1 >ldd>include>lisp_atom_fmt.incl.pl1 18 6 03/27/82 0437.0 lisp_error_codes.incl.pl1 >ldd>include>lisp_error_codes.incl.pl1 19 7 03/27/82 0436.9 lisp_unmkd_pdl.incl.pl1 >ldd>include>lisp_unmkd_pdl.incl.pl1 59 8 06/29/83 1425.3 lisp_name_codes.incl.pl1 >ldd>include>lisp_name_codes.incl.pl1 NAMES DECLARED IN THIS COMPILATION. IDENTIFIER OFFSET LOC STORAGE CLASS DATA TYPE ATTRIBUTES AND REFERENCES (* indicates a set context) Array internal static bit(9) initial unaligned dcl 3-17 Array36 internal static bit(36) initial dcl 3-17 Atomic internal static bit(9) initial unaligned dcl 3-17 Atomic36 internal static bit(36) initial dcl 3-17 Atsym internal static bit(9) initial unaligned dcl 3-17 Atsym36 constant bit(36) initial dcl 3-17 ref 32 Bigfix internal static bit(9) initial unaligned dcl 3-17 Bigfix36 internal static bit(36) initial dcl 3-17 Bignum internal static bit(9) initial unaligned dcl 3-17 Bignum36 internal static bit(36) initial dcl 3-17 Cons internal static bit(9) initial unaligned dcl 3-17 Cons36 internal static bit(36) initial dcl 3-17 File internal static bit(9) initial unaligned dcl 3-17 File36 internal static bit(36) initial dcl 3-17 Fixed internal static bit(9) initial unaligned dcl 3-17 Fixed36 internal static bit(36) initial dcl 3-17 Float internal static bit(9) initial unaligned dcl 3-17 Float36 internal static bit(36) initial dcl 3-17 NotConsOrAtsym36 internal static bit(36) initial dcl 3-17 Numeric internal static bit(9) initial unaligned dcl 3-17 Numeric36 internal static bit(36) initial dcl 3-17 String internal static bit(9) initial unaligned dcl 3-17 String36 constant bit(36) initial dcl 3-17 ref 34 Subr internal static bit(9) initial unaligned dcl 3-17 Subr36 internal static bit(36) initial dcl 3-17 SubrNumeric36 internal static bit(36) initial dcl 3-17 System_Subr internal static bit(9) initial unaligned dcl 3-17 System_Subr36 internal static bit(36) initial dcl 3-17 Uncollectable internal static bit(9) initial unaligned dcl 3-17 Undefined internal static bit(72) initial unaligned dcl 3-17 addr builtin function dcl 23 ref 40 40 69 addrel builtin function dcl 23 ref 31 53 argument_must_be_array internal static fixed bin(17,0) initial dcl 6-8 array_atom defined fixed bin(71,0) dcl 2-6 array_bound_error internal static fixed bin(17,0) initial dcl 6-8 array_too_big internal static fixed bin(17,0) initial dcl 6-8 atan_0_0_err internal static fixed bin(17,0) initial dcl 6-8 atom based structure level 1 dcl 5-5 atom_double_words based structure level 1 dcl 5-5 atom_ptrs based structure level 1 dcl 5-5 bad_arg_correctable internal static fixed bin(17,0) initial dcl 6-8 bad_argument constant fixed bin(17,0) initial dcl 6-8 ref 54 bad_array_subscript internal static fixed bin(17,0) initial dcl 6-8 bad_base internal static fixed bin(17,0) initial dcl 6-8 bad_bv internal static fixed bin(17,0) initial dcl 6-8 bad_do_format internal static fixed bin(17,0) initial dcl 6-8 bad_entry_name internal static fixed bin(17,0) initial dcl 6-8 bad_f_fcn internal static fixed bin(17,0) initial dcl 6-8 bad_function internal static fixed bin(17,0) initial dcl 6-8 bad_ibase internal static fixed bin(17,0) initial dcl 6-8 bad_input_source internal static fixed bin(17,0) initial dcl 6-8 bad_output_dest internal static fixed bin(17,0) initial dcl 6-8 bad_prog_op internal static fixed bin(17,0) initial dcl 6-8 badmacro internal static fixed bin(17,0) initial dcl 6-8 badobarray internal static fixed bin(17,0) initial dcl 6-8 badreadlist internal static fixed bin(17,0) initial dcl 6-8 badreadtable internal static fixed bin(17,0) initial dcl 6-8 based_ptr based pointer dcl 3-16 binding_block based structure level 1 dcl 1-7 binding_top defined pointer dcl 2-6 bindings based structure array level 1 dcl 1-7 cant_filepos internal static fixed bin(17,0) initial dcl 6-8 cant_subscript_readtable internal static fixed bin(17,0) initial dcl 6-8 car_cdr_error internal static fixed bin(17,0) initial dcl 6-8 catch_frame defined pointer dcl 2-6 cline 000003 constant entry external dcl 6 code 000104 automatic fixed bin(35,0) dcl 23 set ref 40* cu_$cl 000022 constant entry external dcl 23 ref 65 cu_$cp 000024 constant entry external dcl 23 ref 40 cucp 000143 constant entry internal dcl 37 ref 32 34 dead_array_reference internal static fixed bin(17,0) initial dcl 6-8 division_by_zero internal static fixed bin(17,0) initial dcl 6-8 doterror internal static fixed bin(17,0) initial dcl 6-8 eof_in_object internal static fixed bin(17,0) initial dcl 6-8 err_frame defined pointer dcl 2-6 err_recp defined pointer dcl 2-6 errcode based fixed bin(17,0) array dcl 7-7 set ref 54* 55* error_in_cline 000074 constant label dcl 51 set ref 36 eval_frame defined pointer dcl 2-6 file_is_closed internal static fixed bin(17,0) initial dcl 6-8 file_sys_fun_err internal static fixed bin(17,0) initial dcl 6-8 file_system_error internal static fixed bin(17,0) initial dcl 6-8 filepos_oob internal static fixed bin(17,0) initial dcl 6-8 flonum_too_big internal static fixed bin(17,0) initial dcl 6-8 fn_CtoI internal static fixed bin(17,0) initial dcl 8-9 fn_ItoC internal static fixed bin(17,0) initial dcl 8-9 fn_abs internal static fixed bin(17,0) initial dcl 8-9 fn_add1 internal static fixed bin(17,0) initial dcl 8-9 fn_add1_fix internal static fixed bin(17,0) initial dcl 8-9 fn_add1_flo internal static fixed bin(17,0) initial dcl 8-9 fn_alarmclock internal static fixed bin(17,0) initial dcl 8-9 fn_allfiles internal static fixed bin(17,0) initial dcl 8-9 fn_alphalessp internal static fixed bin(17,0) initial dcl 8-9 fn_apply internal static fixed bin(17,0) initial dcl 8-9 fn_arg internal static fixed bin(17,0) initial dcl 8-9 fn_args internal static fixed bin(17,0) initial dcl 8-9 fn_array internal static fixed bin(17,0) initial dcl 8-9 fn_arraydims internal static fixed bin(17,0) initial dcl 8-9 fn_ascii internal static fixed bin(17,0) initial dcl 8-9 fn_atan internal static fixed bin(17,0) initial dcl 8-9 fn_baktrace internal static fixed bin(17,0) initial dcl 8-9 fn_bltarray internal static fixed bin(17,0) initial dcl 8-9 fn_boole internal static fixed bin(17,0) initial dcl 8-9 fn_boundp internal static fixed bin(17,0) initial dcl 8-9 fn_catch internal static fixed bin(17,0) initial dcl 8-9 fn_catenate internal static fixed bin(17,0) initial dcl 8-9 fn_charpos internal static fixed bin(17,0) initial dcl 8-9 fn_chrct internal static fixed bin(17,0) initial dcl 8-9 fn_clear_input internal static fixed bin(17,0) initial dcl 8-9 fn_cline constant fixed bin(17,0) initial dcl 8-9 ref 55 fn_close internal static fixed bin(17,0) initial dcl 8-9 fn_cos internal static fixed bin(17,0) initial dcl 8-9 fn_cursorpos internal static fixed bin(17,0) initial dcl 8-9 fn_defaultf internal static fixed bin(17,0) initial dcl 8-9 fn_definedp internal static fixed bin(17,0) initial dcl 8-9 fn_defsubr internal static fixed bin(17,0) initial dcl 8-9 fn_defun internal static fixed bin(17,0) initial dcl 8-9 fn_delete internal static fixed bin(17,0) initial dcl 8-9 fn_deletef internal static fixed bin(17,0) initial dcl 8-9 fn_delq internal static fixed bin(17,0) initial dcl 8-9 fn_diff_fix internal static fixed bin(17,0) initial dcl 8-9 fn_diff_flo internal static fixed bin(17,0) initial dcl 8-9 fn_difference internal static fixed bin(17,0) initial dcl 8-9 fn_displace internal static fixed bin(17,0) initial dcl 8-9 fn_do internal static fixed bin(17,0) initial dcl 8-9 fn_dumparrays internal static fixed bin(17,0) initial dcl 8-9 fn_endpagefn internal static fixed bin(17,0) initial dcl 8-9 fn_eoffn internal static fixed bin(17,0) initial dcl 8-9 fn_eql internal static fixed bin(17,0) initial dcl 8-9 fn_errframe internal static fixed bin(17,0) initial dcl 8-9 fn_errprint internal static fixed bin(17,0) initial dcl 8-9 fn_errset internal static fixed bin(17,0) initial dcl 8-9 fn_eval internal static fixed bin(17,0) initial dcl 8-9 fn_eval_when internal static fixed bin(17,0) initial dcl 8-9 fn_evalframe internal static fixed bin(17,0) initial dcl 8-9 fn_exp internal static fixed bin(17,0) initial dcl 8-9 fn_expt internal static fixed bin(17,0) initial dcl 8-9 fn_expt_fix internal static fixed bin(17,0) initial dcl 8-9 fn_expt_flo internal static fixed bin(17,0) initial dcl 8-9 fn_filepos internal static fixed bin(17,0) initial dcl 8-9 fn_fillarray internal static fixed bin(17,0) initial dcl 8-9 fn_fix internal static fixed bin(17,0) initial dcl 8-9 fn_float internal static fixed bin(17,0) initial dcl 8-9 fn_force_output internal static fixed bin(17,0) initial dcl 8-9 fn_freturn internal static fixed bin(17,0) initial dcl 8-9 fn_fsc internal static fixed bin(17,0) initial dcl 8-9 fn_gcd internal static fixed bin(17,0) initial dcl 8-9 fn_gensym internal static fixed bin(17,0) initial dcl 8-9 fn_get internal static fixed bin(17,0) initial dcl 8-9 fn_get_pname internal static fixed bin(17,0) initial dcl 8-9 fn_getchar internal static fixed bin(17,0) initial dcl 8-9 fn_getl internal static fixed bin(17,0) initial dcl 8-9 fn_greaterp internal static fixed bin(17,0) initial dcl 8-9 fn_gt internal static fixed bin(17,0) initial dcl 8-9 fn_haipart internal static fixed bin(17,0) initial dcl 8-9 fn_haulong internal static fixed bin(17,0) initial dcl 8-9 fn_ifix internal static fixed bin(17,0) initial dcl 8-9 fn_in internal static fixed bin(17,0) initial dcl 8-9 fn_includef internal static fixed bin(17,0) initial dcl 8-9 fn_index internal static fixed bin(17,0) initial dcl 8-9 fn_inpush internal static fixed bin(17,0) initial dcl 8-9 fn_isqrt internal static fixed bin(17,0) initial dcl 8-9 fn_lessp internal static fixed bin(17,0) initial dcl 8-9 fn_linel internal static fixed bin(17,0) initial dcl 8-9 fn_linenum internal static fixed bin(17,0) initial dcl 8-9 fn_listarray internal static fixed bin(17,0) initial dcl 8-9 fn_listify internal static fixed bin(17,0) initial dcl 8-9 fn_loadarrays internal static fixed bin(17,0) initial dcl 8-9 fn_log internal static fixed bin(17,0) initial dcl 8-9 fn_ls internal static fixed bin(17,0) initial dcl 8-9 fn_lsh internal static fixed bin(17,0) initial dcl 8-9 fn_make_atom internal static fixed bin(17,0) initial dcl 8-9 fn_makunbound internal static fixed bin(17,0) initial dcl 8-9 fn_mapatoms internal static fixed bin(17,0) initial dcl 8-9 fn_max internal static fixed bin(17,0) initial dcl 8-9 fn_mergef internal static fixed bin(17,0) initial dcl 8-9 fn_min internal static fixed bin(17,0) initial dcl 8-9 fn_minus internal static fixed bin(17,0) initial dcl 8-9 fn_minusp internal static fixed bin(17,0) initial dcl 8-9 fn_namelist internal static fixed bin(17,0) initial dcl 8-9 fn_names internal static fixed bin(17,0) initial dcl 8-9 fn_namestring internal static fixed bin(17,0) initial dcl 8-9 fn_nointerrupt internal static fixed bin(17,0) initial dcl 8-9 fn_nth internal static fixed bin(17,0) initial dcl 8-9 fn_nthcdr internal static fixed bin(17,0) initial dcl 8-9 fn_oddp internal static fixed bin(17,0) initial dcl 8-9 fn_open internal static fixed bin(17,0) initial dcl 8-9 fn_opena internal static fixed bin(17,0) initial dcl 8-9 fn_openi internal static fixed bin(17,0) initial dcl 8-9 fn_openo internal static fixed bin(17,0) initial dcl 8-9 fn_out internal static fixed bin(17,0) initial dcl 8-9 fn_pagel internal static fixed bin(17,0) initial dcl 8-9 fn_pagenum internal static fixed bin(17,0) initial dcl 8-9 fn_plus internal static fixed bin(17,0) initial dcl 8-9 fn_plus_fix internal static fixed bin(17,0) initial dcl 8-9 fn_plus_flo internal static fixed bin(17,0) initial dcl 8-9 fn_plusp internal static fixed bin(17,0) initial dcl 8-9 fn_prin1 internal static fixed bin(17,0) initial dcl 8-9 fn_princ internal static fixed bin(17,0) initial dcl 8-9 fn_print internal static fixed bin(17,0) initial dcl 8-9 fn_prog internal static fixed bin(17,0) initial dcl 8-9 fn_progv internal static fixed bin(17,0) initial dcl 8-9 fn_putprop internal static fixed bin(17,0) initial dcl 8-9 fn_quot_fix internal static fixed bin(17,0) initial dcl 8-9 fn_quot_flo internal static fixed bin(17,0) initial dcl 8-9 fn_quotient internal static fixed bin(17,0) initial dcl 8-9 fn_random internal static fixed bin(17,0) initial dcl 8-9 fn_read internal static fixed bin(17,0) initial dcl 8-9 fn_read_from_string internal static fixed bin(17,0) initial dcl 8-9 fn_readch internal static fixed bin(17,0) initial dcl 8-9 fn_readstring internal static fixed bin(17,0) initial dcl 8-9 fn_remainder internal static fixed bin(17,0) initial dcl 8-9 fn_remprop internal static fixed bin(17,0) initial dcl 8-9 fn_rename internal static fixed bin(17,0) initial dcl 8-9 fn_rot internal static fixed bin(17,0) initial dcl 8-9 fn_rplaca internal static fixed bin(17,0) initial dcl 8-9 fn_samepnamep internal static fixed bin(17,0) initial dcl 8-9 fn_save internal static fixed bin(17,0) initial dcl 8-9 fn_set internal static fixed bin(17,0) initial dcl 8-9 fn_setarg internal static fixed bin(17,0) initial dcl 8-9 fn_setq internal static fixed bin(17,0) initial dcl 8-9 fn_setsyntax internal static fixed bin(17,0) initial dcl 8-9 fn_shortnamestring internal static fixed bin(17,0) initial dcl 8-9 fn_signp internal static fixed bin(17,0) initial dcl 8-9 fn_sin internal static fixed bin(17,0) initial dcl 8-9 fn_sleep internal static fixed bin(17,0) initial dcl 8-9 fn_sort internal static fixed bin(17,0) initial dcl 8-9 fn_sortcar internal static fixed bin(17,0) initial dcl 8-9 fn_sqrt internal static fixed bin(17,0) initial dcl 8-9 fn_sstatus internal static fixed bin(17,0) initial dcl 8-9 fn_star_array internal static fixed bin(17,0) initial dcl 8-9 fn_star_rearray internal static fixed bin(17,0) initial dcl 8-9 fn_star_sstatus internal static fixed bin(17,0) initial dcl 8-9 fn_star_status internal static fixed bin(17,0) initial dcl 8-9 fn_status internal static fixed bin(17,0) initial dcl 8-9 fn_store internal static fixed bin(17,0) initial dcl 8-9 fn_stringlength internal static fixed bin(17,0) initial dcl 8-9 fn_sub1 internal static fixed bin(17,0) initial dcl 8-9 fn_sub1_fix internal static fixed bin(17,0) initial dcl 8-9 fn_sub1_flo internal static fixed bin(17,0) initial dcl 8-9 fn_substr internal static fixed bin(17,0) initial dcl 8-9 fn_sxhash internal static fixed bin(17,0) initial dcl 8-9 fn_sysp internal static fixed bin(17,0) initial dcl 8-9 fn_throw internal static fixed bin(17,0) initial dcl 8-9 fn_times internal static fixed bin(17,0) initial dcl 8-9 fn_times_fix internal static fixed bin(17,0) initial dcl 8-9 fn_times_flo internal static fixed bin(17,0) initial dcl 8-9 fn_truename internal static fixed bin(17,0) initial dcl 8-9 fn_tyi internal static fixed bin(17,0) initial dcl 8-9 fn_tyipeek internal static fixed bin(17,0) initial dcl 8-9 fn_tyo internal static fixed bin(17,0) initial dcl 8-9 fn_unwind_protect internal static fixed bin(17,0) initial dcl 8-9 fn_zerop internal static fixed bin(17,0) initial dcl 8-9 frame based structure level 1 dcl 7-7 frame_ptrs defined pointer array dcl 7-16 illobj internal static fixed bin(17,0) initial dcl 6-8 include_file_error internal static fixed bin(17,0) initial dcl 6-8 io_wrong_direction internal static fixed bin(17,0) initial dcl 6-8 length builtin function ref 40 40 lisp_error_ 000020 constant entry external dcl 23 ref 56 lisp_ptr based structure level 1 dcl 3-17 lisp_ptr_type based bit(36) dcl 3-17 lisp_static_vars_$array_atom external static fixed bin(71,0) dcl 2-6 lisp_static_vars_$binding_top external static pointer dcl 2-6 lisp_static_vars_$catch_frame external static pointer dcl 2-6 lisp_static_vars_$err_frame external static pointer dcl 2-6 lisp_static_vars_$err_recp external static pointer dcl 2-6 lisp_static_vars_$eval_frame external static pointer dcl 2-6 lisp_static_vars_$frame_ptrs external static pointer array dcl 7-16 lisp_static_vars_$ignore_faults 000016 external static bit(36) dcl 23 set ref 38* 42* 64* 66* lisp_static_vars_$iochan_list external static pointer dcl 2-6 lisp_static_vars_$lisp_static_vars_ external static structure level 1 unaligned dcl 2-6 lisp_static_vars_$nil 000014 external static fixed bin(71,0) dcl 2-6 ref 44 44 70 70 lisp_static_vars_$obarray external static fixed bin(71,0) dcl 2-6 lisp_static_vars_$prog_frame external static pointer dcl 2-6 lisp_static_vars_$stack_ptr 000010 external static pointer dcl 2-6 set ref 31 31 68 68 69* 69 lisp_static_vars_$star_rset external static fixed bin(71,0) dcl 2-45 lisp_static_vars_$t_atom external static fixed bin(71,0) dcl 2-6 lisp_static_vars_$top_level external static label variable dcl 2-6 lisp_static_vars_$tty_input_chan external static pointer dcl 2-6 lisp_static_vars_$tty_output_chan external static pointer dcl 2-6 lisp_static_vars_$unmkd_ptr 000012 external static pointer dcl 2-6 set ref 51 51 53* 53 lisp_static_vars_$unwp_frame external static pointer dcl 2-6 lisp_static_vars_$user_intr_array external static fixed bin(71,0) array dcl 2-45 lisp_string based structure level 1 dcl 4-6 mismatch_super_parens internal static fixed bin(17,0) initial dcl 6-8 nframeptrs internal static fixed bin(17,0) initial dcl 7-16 nihil_ex_nihile internal static fixed bin(17,0) initial dcl 6-8 nil defined fixed bin(71,0) dcl 2-6 ref 44 70 nil_ptr based pointer dcl 2-6 no_left_super_paren internal static fixed bin(17,0) initial dcl 6-8 no_lexpr internal static fixed bin(17,0) initial dcl 6-8 nonfixedarg internal static fixed bin(17,0) initial dcl 6-8 not_alpha_array internal static fixed bin(17,0) initial dcl 6-8 not_an_array internal static fixed bin(17,0) initial dcl 6-8 not_pdl_ptr internal static fixed bin(17,0) initial dcl 6-8 not_same_type internal static fixed bin(17,0) initial dcl 6-8 obarray defined fixed bin(71,0) dcl 2-6 overflow_err internal static fixed bin(17,0) initial dcl 6-8 parenmissing internal static fixed bin(17,0) initial dcl 6-8 pdl_ptr_types36 based structure array level 1 dcl 1-7 pname 5 based char level 2 dcl 5-5 ref 32 pnamel 4 based fixed bin(17,0) level 2 dcl 5-5 ref 32 prog_frame defined pointer dcl 2-6 push_down_list_ptr_types based structure array level 1 dcl 1-7 quoterror internal static fixed bin(17,0) initial dcl 6-8 reopen_inconsistent internal static fixed bin(17,0) initial dcl 6-8 shortreadlist internal static fixed bin(17,0) initial dcl 6-8 special_array_type internal static fixed bin(17,0) initial dcl 6-8 stack 000100 automatic pointer dcl 23 set ref 31* 32 32 34 34 44 68* 69 70 stack_loss_error internal static fixed bin(17,0) initial dcl 6-8 stack_ptr defined pointer dcl 2-6 set ref 31 68 69* star_rset defined fixed bin(71,0) dcl 2-45 stars_left_in_name internal static fixed bin(17,0) initial dcl 6-8 store_function_misused internal static fixed bin(17,0) initial dcl 6-8 store_not_allowed internal static fixed bin(17,0) initial dcl 6-8 str parameter char dcl 37 set ref 37 40 40 40 40 string 1 based char level 2 dcl 4-6 ref 34 string_length based fixed bin(17,0) level 2 dcl 4-6 ref 34 suspend 000114 constant entry external dcl 62 t_atom defined fixed bin(71,0) dcl 2-6 t_atom_ptr based pointer dcl 2-6 temp based fixed bin(71,0) array dcl 1-7 set ref 44* 69 70* temp_ptr based pointer array dcl 1-7 ref 32 34 temp_type36 based bit(36) array level 2 dcl 1-7 ref 32 34 throw_to_no_catch internal static fixed bin(17,0) initial dcl 6-8 too_few_args internal static fixed bin(17,0) initial dcl 6-8 too_many_args internal static fixed bin(17,0) initial dcl 6-8 tty_input_chan defined pointer dcl 2-6 tty_output_chan defined pointer dcl 2-6 unable_to_float internal static fixed bin(17,0) initial dcl 6-8 undefined_atom internal static fixed bin(17,0) initial dcl 6-8 undefined_function internal static fixed bin(17,0) initial dcl 6-8 undefined_subr internal static fixed bin(17,0) initial dcl 6-8 underflow_fault internal static fixed bin(17,0) initial dcl 6-8 unm 000102 automatic pointer dcl 23 set ref 51* 53 54 55 unmkd_ptr defined pointer dcl 2-6 set ref 51 53* unseen_go_tag internal static fixed bin(17,0) initial dcl 6-8 unwp_frame defined pointer dcl 2-6 user_intr_array defined fixed bin(71,0) array dcl 2-45 wrong_no_args internal static fixed bin(17,0) initial dcl 6-8 zerodivide_fault internal static fixed bin(17,0) initial dcl 6-8 STORAGE REQUIREMENTS FOR THIS PROGRAM. Object Text Link Symbol Defs Static Start 0 0 320 346 202 330 Length 712 202 26 327 116 0 BLOCK NAME STACK SIZE TYPE WHY NONQUICK/WHO SHARES STACK FRAME cline 80 external procedure is an external procedure. cucp 76 internal procedure is called during a stack extension. STORAGE FOR AUTOMATIC VARIABLES. STACK FRAME LOC IDENTIFIER BLOCK NAME cline 000100 stack cline 000102 unm cline 000104 code cline THE FOLLOWING EXTERNAL OPERATORS ARE USED BY THIS PROGRAM. alloc_cs call_ext_out call_int_this_desc return shorten_stack ext_entry int_entry_desc THE FOLLOWING EXTERNAL ENTRIES ARE CALLED BY THIS PROGRAM. cu_$cl cu_$cp lisp_error_ THE FOLLOWING EXTERNAL VARIABLES ARE USED BY THIS PROGRAM. lisp_static_vars_$ignore_faults lisp_static_vars_$nil 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 000002 31 000010 32 000014 34 000040 36 000066 44 000070 45 000073 51 000074 53 000077 54 000102 55 000104 56 000106 57 000112 62 000113 64 000121 65 000124 66 000130 68 000132 69 000135 70 000137 71 000141 37 000142 38 000156 40 000160 42 000177 43 000201 ----------------------------------------------------------- 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