ASSEMBLY LISTING OF SEGMENT >spec>on>06/27/83>lisp_car_cdrs_.alm ASSEMBLED ON: 07/06/83 0926.7 mst Wed OPTIONS USED: list ASSEMBLED BY: ALM Version 6.4 April 1981 ASSEMBLER CREATED: 11/03/82 1423.6 mst Wed  1 " **************************************************************  2 " * *  3 " * Copyright, (C) Massachusetts Institute of Technology, 1973 *  4 " * *  5 " **************************************************************  6 "  7 " lisp_car_cdrs_ - contains all the car's and cdr's of lisp.... 8 "  9 "  10 " Modified 1982.10.06 by Richard Lamson to add nth and nthcdr  11 "  12  13  14 include lisp_object_types  1-1  1-2 " BEGIN INCLUDE FILE lisp_object_types.incl.alm 1-3 "  1-4 " D.A.Moon 14 July 72  1-5  1-6 "These are bit masks used to check or set the type bits in lisp pointers  1-7 "they should be used with cana instructions in the dl mode. 1-8 "  1-9 " Modified 1 Oct 1972 by Dan Bricklin to add bignum types.  1-10  1-11  1-12  077700 1-13 bool lisp_ptr.type,077700 "the whole type field  1-14  040000 1-15 bool Fixed,040000 "fixed number, stored in second word of ptr 020000 1-16 bool Float,020000 "floating number, stored in second word of ptr  061400 1-17 bool Numeric,061400 "fixed or float, big or little  010000 1-18 bool Atsym,010000 "Atomic symbol pointed at by ptr  077700 1-19 bool Atomic,077700 "any of these bits indicates an atom (non-list)  001000 1-20 bool Bignum,001000 "points to a bignum - fixed  060000 1-21 bool Uncollectable,060000 "not a pointer, also both bits on = "pdl_ptr"  004000 1-22 bool String,004000 "points at a lisp character string 002000 1-23 bool Subr,002000 "points at subr link 000400 1-24 bool System_Subr,000400 "marks a subr as being in the text of lisp bound seg. 000200 1-25 bool Array,000200 "points at an array,  1-26 " which is a special kind of subr  067500 1-27 bool Unevalable,067500 "any of these bits means  1-28 " does not have car and cdr  001000 1-29 bool Big_fixed,001000 "points to fixed bignum 000100 1-30 bool File,000100 "points to a file object (i.e. an iochan)  1-31  1-32 "fields for making numbers, a fault tag is included in case someone takes the car or cdr of it  1-33  040047 1-34 bool fixnum_type,040047  020047 1-35 bool flonum_type,020047  1-36  1-37 " END INCLUDE FILE: lisp_object_types.incl.alm  15  000000 16 segdef car 000000 17 segdef quote  000002 18 segdef cdr 19  20 " The fast two...  21  000000 22 quote:  000000 aa 0 77776 2371 20 23 car: ldaq ap|-2,*  000001 aa 000003 7100 04 24 tra zap_out-*,ic  000002 aa 000002 6200 00 25 cdr: eax0 2 for post index 000003 aa 0 77776 2371 70 26 ldaq ap|-2,*0  000004 aa 0 77776 3501 00 27 zap_out: eppap ap|-2 pop stack back  000005 aa 2 00000 7101 00 28 tra bp|0 and return  29  30 "  31 " Now the slightly slower ones, entered with a save lp...  32 "  000006 33 segdef cddddr  000020 34 segdef cadddr  000025 35 segdef cdaddr  000032 36 segdef caaddr  000037 37 segdef cddadr  000043 38 segdef cadadr  000047 39 segdef cdaadr  000053 40 segdef caaadr  000057 41 segdef cdddar  000062 42 segdef caddar  000065 43 segdef cdadar  000070 44 segdef caadar  000073 45 segdef cddaar  000076 46 segdef cadaar  000101 47 segdef cdaaar  000104 48 segdef caaaar  49  000107 50 segdef cdddr  000111 51 segdef caddr  000113 52 segdef cdadr  000115 53 segdef caadr  000117 54 segdef cddar  000121 55 segdef cadar  000123 56 segdef cdaar  000125 57 segdef caaar  58  000127 59 segdef cddr  000131 60 segdef cadr  000133 61 segdef cdar  000135 62 segdef caar  63  000006 aa 0 77776 3521 20 64 cddddr: eppbp ap|-2,*  000007 aa 2 00002 3521 20 65 eppbp bp|2,*  000010 aa 2 00002 3521 20 66 cddd: eppbp bp|2,*  000011 aa 2 00002 3521 20 67 cdd: eppbp bp|2,*  000012 aa 2 00002 2371 00 68 cd: ldaq bp|2  000013 aa 0 77776 3501 00 69 c: eppap ap|-2  000014 aa 1 77774 3701 37 70 epplp ab|-4,7* 000015 aa 1 77776 3521 37 71 eppbp ab|-2,7* 000016 aa 777774 6270 17 72 eax7 -4,7  000017 aa 2 00000 7101 00 73 tra bp|0  74  000020 aa 0 77776 3521 20 75 cadddr: eppbp ap|-2,*  000021 aa 2 00002 3521 20 76 eppbp bp|2,*  000022 aa 2 00002 3521 20 77 cadd: eppbp bp|2,*  000023 aa 2 00002 2371 20 78 cad: ldaq bp|2,*  000024 aa 777767 7100 04 79 tra c-*,ic 000025 aa 0 77776 3521 20 80 cdaddr: eppbp ap|-2,*  000026 aa 2 00002 3521 20 81 eppbp bp|2,*  000027 aa 2 00002 3521 20 82 cdad: eppbp bp|2,*  000030 aa 2 00000 3521 20 83 cda: eppbp bp|0,*  000031 aa 777761 7100 04 84 tra cd-*,ic  000032 aa 0 77776 3521 20 85 caaddr: eppbp ap|-2,*  000033 aa 2 00002 3521 20 86 eppbp bp|2,*  000034 aa 2 00002 3521 20 87 caad: eppbp bp|2,*  000035 aa 2 00000 2371 20 88 caa: ldaq bp|0,*  000036 aa 777755 7100 04 89 tra c-*,ic 000037 aa 0 77776 3521 20 90 cddadr: eppbp ap|-2,*  000040 aa 2 00002 3521 20 91 eppbp bp|2,*  000041 aa 2 00000 3521 20 92 cdda: eppbp bp|0,*  000042 aa 777747 7100 04 93 tra cdd-*,ic  000043 aa 0 77776 3521 20 94 cadadr: eppbp ap|-2,*  000044 aa 2 00002 3521 20 95 eppbp bp|2,*  000045 aa 2 00000 3521 20 96 cada: eppbp bp|0,*  000046 aa 777755 7100 04 97 tra cad-*,ic  000047 aa 0 77776 3521 20 98 cdaadr: eppbp ap|-2,*  000050 aa 2 00002 3521 20 99 eppbp bp|2,*  000051 aa 2 00000 3521 20 100 cdaa: eppbp bp|0,*  000052 aa 777756 7100 04 101 tra cda-*,ic  000053 aa 0 77776 3521 20 102 caaadr: eppbp ap|-2,*  000054 aa 2 00002 3521 20 103 eppbp bp|2,*  000055 aa 2 00000 3521 20 104 caaa: eppbp bp|0,*  000056 aa 777757 7100 04 105 tra caa-*,ic  000057 aa 0 77776 3521 20 106 cdddar: eppbp ap|-2,*  000060 aa 2 00000 3521 20 107 eppbp bp|0,*  000061 aa 777727 7100 04 108 tra cddd-*,ic  000062 aa 0 77776 3521 20 109 caddar: eppbp ap|-2,*  000063 aa 2 00000 3521 20 110 eppbp bp|0,*  000064 aa 777736 7100 04 111 tra cadd-*,ic  000065 aa 0 77776 3521 20 112 cdadar: eppbp ap|-2,*  000066 aa 2 00000 3521 20 113 eppbp bp|0,*  000067 aa 777740 7100 04 114 tra cdad-*,ic  000070 aa 0 77776 3521 20 115 caadar: eppbp ap|-2,*  000071 aa 2 00000 3521 20 116 eppbp bp|0,*  000072 aa 777742 7100 04 117 tra caad-*,ic  000073 aa 0 77776 3521 20 118 cddaar: eppbp ap|-2,*  000074 aa 2 00000 3521 20 119 eppbp bp|0,*  000075 aa 777744 7100 04 120 tra cdda-*,ic  000076 aa 0 77776 3521 20 121 cadaar: eppbp ap|-2,*  000077 aa 2 00000 3521 20 122 eppbp bp|0,*  000100 aa 777745 7100 04 123 tra cada-*,ic  000101 aa 0 77776 3521 20 124 cdaaar: eppbp ap|-2,*  000102 aa 2 00000 3521 20 125 eppbp bp|0,*  000103 aa 777746 7100 04 126 tra cdaa-*,ic  000104 aa 0 77776 3521 20 127 caaaar: eppbp ap|-2,*  000105 aa 2 00000 3521 20 128 eppbp bp|0,*  000106 aa 777747 7100 04 129 tra caaa-*,ic  130  000107 aa 0 77776 3521 20 131 cdddr: eppbp ap|-2,*  000110 aa 777700 7100 04 132 tra cddd-*,ic  000111 aa 0 77776 3521 20 133 caddr: eppbp ap|-2,*  000112 aa 777710 7100 04 134 tra cadd-*,ic  000113 aa 0 77776 3521 20 135 cdadr: eppbp ap|-2,*  000114 aa 777713 7100 04 136 tra cdad-*,ic  000115 aa 0 77776 3521 20 137 caadr: eppbp ap|-2,*  000116 aa 777716 7100 04 138 tra caad-*,ic  000117 aa 0 77776 3521 20 139 cddar: eppbp ap|-2,*  000120 aa 777721 7100 04 140 tra cdda-*,ic  000121 aa 0 77776 3521 20 141 cadar: eppbp ap|-2,*  000122 aa 777723 7100 04 142 tra cada-*,ic  000123 aa 0 77776 3521 20 143 cdaar: eppbp ap|-2,*  000124 aa 777725 7100 04 144 tra cdaa-*,ic  000125 aa 0 77776 3521 20 145 caaar: eppbp ap|-2,*  000126 aa 777727 7100 04 146 tra caaa-*,ic  147  000127 aa 0 77776 3521 20 148 cddr: eppbp ap|-2,* 000130 aa 777661 7100 04 149 tra cdd-*,ic  000131 aa 0 77776 3521 20 150 cadr: eppbp ap|-2,* 000132 aa 777671 7100 04 151 tra cad-*,ic  000133 aa 0 77776 3521 20 152 cdar: eppbp ap|-2,* 000134 aa 777674 7100 04 153 tra cda-*,ic  000135 aa 0 77776 3521 20 154 caar: eppbp ap|-2,* 000136 aa 777677 7100 04 155 tra caa-*,ic  156  157 " nth: (nth n list): returns (ca(d**n)r list)  000137 158 segdef nth 000137 aa 0 77775 7201 00 159 nth: lxl0 ap|-3 get n in x0 000140 aa 0 77776 3521 20 160 eppbp ap|-2,* and the list in bp  000141 aa 777777 6200 10 161 nthloop: eax0 -1,x0 count  000142 aa 000003 6040 04 162 tmi nthreturns-*,ic  000143 aa 2 00002 3521 20 163 eppbp bp|2,* cdr  000144 aa 777775 7100 04 164 tra nthloop-*,ic  000145 165 nthreturns: 000145 aa 2 00000 2371 00 166 ldaq bp|0 return car  000146 aa 0 77774 3501 00 167 eppap ap|-4 pop our args.  000147 aa 777645 7100 04 168 tra c+1-*,ic  169  170 " nthcdr: (nthcdr n list) returns (c(d**n)r list)  000150 171 segdef nthcdr  000150 aa 0 77775 7201 00 172 nthcdr: lxl0 ap|-3 get n in x0  000151 aa 000002 6270 17 173 eax7 2,x7  000152 aa 1 77776 6501 17 174 sprilp ab|-2,x7  000153 aa 0 77776 3701 00 175 epplp ap|-2 get address first cons in lp  000154 aa 4 00000 3521 20 176 eppbp lp|0,* and the cons in bp  000155 aa 077700 2350 07 177 lda Atomic,dl  000156 178 nthcdrloop: 000156 aa 4 00000 3151 00 179 cana lp|0 test to see if end of list  000157 aa 000014 6010 04 180 tnz nthcdrreturnsnil-*,ic  000160 aa 777777 6200 10 181 eax0 -1,x0 count  000161 aa 000004 6040 04 182 tmi nthcdrreturns-*,ic 000162 aa 2 00002 3701 00 183 epplp bp|2 pointer to next cons  000163 aa 4 00000 3521 20 184 eppbp lp|0,* cdr  000164 aa 777772 7100 04 185 tra nthcdrloop-*,ic  000165 186 nthcdrreturns:  000165 aa 1 77776 3701 37 187 epplp ab|-2,x7*  000166 aa 777776 6270 17 188 eax7 -2,x7 000167 aa 0 77774 2521 00 189 spribp ap|-4 we need to return this cdr  000170 aa 0 77774 2371 00 190 ldaq ap|-4 get it into AQ  000171 aa 0 77774 3501 00 191 eppap ap|-4 pop our args  000172 aa 777622 7100 04 192 tra c+1-*,ic return  000173 193 nthcdrreturnsnil:  000173 aa 1 77776 3701 37 194 epplp ab|-2,x7*  000174 aa 777776 6270 17 195 eax7 -2,x7 000175 4a 4 00010 2371 20 196 ldaq lisp_static_vars_$nil 000176 aa 0 77774 3501 00 197 eppap ap|-4  000177 aa 777615 7100 04 198 tra c+1-*,ic  199  200  201 end  NO LITERALS  NAME DEFINITIONS FOR ENTRY POINTS AND SEGDEFS 000200 5a 000003 000000 000201 5a 000263 600000 000202 aa 000000 000000 000203 55 000012 000002 000204 5a 000002 400003 000205 55 000006 000012 000206 aa 016 154 151 163 000207 aa 160 137 143 141 000210 aa 162 137 143 144 000211 aa 162 163 137 000 000212 55 000017 000003 000213 0a 000150 400000 000214 55 000015 000003 000215 aa 006 156 164 150 nthcdr  000216 aa 143 144 162 000 000217 55 000023 000012 000220 0a 000137 400000 000221 55 000022 000003 000222 aa 003 156 164 150 nth 000223 55 000030 000017 000224 0a 000135 400000 000225 55 000026 000003 000226 aa 004 143 141 141 caar  000227 aa 162 000 000 000 000230 55 000035 000023 000231 0a 000133 400000 000232 55 000033 000003 000233 aa 004 143 144 141 cdar  000234 aa 162 000 000 000 000235 55 000042 000030 000236 0a 000131 400000 000237 55 000040 000003 000240 aa 004 143 141 144 cadr  000241 aa 162 000 000 000 000242 55 000047 000035 000243 0a 000127 400000 000244 55 000045 000003 000245 aa 004 143 144 144 cddr  000246 aa 162 000 000 000 000247 55 000054 000042 000250 0a 000125 400000 000251 55 000052 000003 000252 aa 005 143 141 141 caaar  000253 aa 141 162 000 000 000254 55 000061 000047 000255 0a 000123 400000 000256 55 000057 000003 000257 aa 005 143 144 141 cdaar  000260 aa 141 162 000 000 000261 55 000066 000054 000262 0a 000121 400000 000263 55 000064 000003 000264 aa 005 143 141 144 cadar  000265 aa 141 162 000 000 000266 55 000073 000061 000267 0a 000117 400000 000270 55 000071 000003 000271 aa 005 143 144 144 cddar  000272 aa 141 162 000 000 000273 55 000100 000066 000274 0a 000115 400000 000275 55 000076 000003 000276 aa 005 143 141 141 caadr  000277 aa 144 162 000 000 000300 55 000105 000073 000301 0a 000113 400000 000302 55 000103 000003 000303 aa 005 143 144 141 cdadr  000304 aa 144 162 000 000 000305 55 000112 000100 000306 0a 000111 400000 000307 55 000110 000003 000310 aa 005 143 141 144 caddr  000311 aa 144 162 000 000 000312 55 000117 000105 000313 0a 000107 400000 000314 55 000115 000003 000315 aa 005 143 144 144 cdddr  000316 aa 144 162 000 000 000317 55 000124 000112 000320 0a 000104 400000 000321 55 000122 000003 000322 aa 006 143 141 141 caaaar  000323 aa 141 141 162 000 000324 55 000131 000117 000325 0a 000101 400000 000326 55 000127 000003 000327 aa 006 143 144 141 cdaaar  000330 aa 141 141 162 000 000331 55 000136 000124 000332 0a 000076 400000 000333 55 000134 000003 000334 aa 006 143 141 144 cadaar  000335 aa 141 141 162 000 000336 55 000143 000131 000337 0a 000073 400000 000340 55 000141 000003 000341 aa 006 143 144 144 cddaar  000342 aa 141 141 162 000 000343 55 000150 000136 000344 0a 000070 400000 000345 55 000146 000003 000346 aa 006 143 141 141 caadar  000347 aa 144 141 162 000 000350 55 000155 000143 000351 0a 000065 400000 000352 55 000153 000003 000353 aa 006 143 144 141 cdadar  000354 aa 144 141 162 000 000355 55 000162 000150 000356 0a 000062 400000 000357 55 000160 000003 000360 aa 006 143 141 144 caddar  000361 aa 144 141 162 000 000362 55 000167 000155 000363 0a 000057 400000 000364 55 000165 000003 000365 aa 006 143 144 144 cdddar  000366 aa 144 141 162 000 000367 55 000174 000162 000370 0a 000053 400000 000371 55 000172 000003 000372 aa 006 143 141 141 caaadr  000373 aa 141 144 162 000 000374 55 000201 000167 000375 0a 000047 400000 000376 55 000177 000003 000377 aa 006 143 144 141 cdaadr  000400 aa 141 144 162 000 000401 55 000206 000174 000402 0a 000043 400000 000403 55 000204 000003 000404 aa 006 143 141 144 cadadr  000405 aa 141 144 162 000 000406 55 000213 000201 000407 0a 000037 400000 000410 55 000211 000003 000411 aa 006 143 144 144 cddadr  000412 aa 141 144 162 000 000413 55 000220 000206 000414 0a 000032 400000 000415 55 000216 000003 000416 aa 006 143 141 141 caaddr  000417 aa 144 144 162 000 000420 55 000225 000213 000421 0a 000025 400000 000422 55 000223 000003 000423 aa 006 143 144 141 cdaddr  000424 aa 144 144 162 000 000425 55 000232 000220 000426 0a 000020 400000 000427 55 000230 000003 000430 aa 006 143 141 144 cadddr  000431 aa 144 144 162 000 000432 55 000237 000225 000433 0a 000006 400000 000434 55 000235 000003 000435 aa 006 143 144 144 cddddr  000436 aa 144 144 162 000 000437 55 000243 000232 000440 0a 000002 400000 000441 55 000242 000003 000442 aa 003 143 144 162 cdr 000443 55 000250 000237 000444 0a 000000 400000 000445 55 000246 000003 000446 aa 005 161 165 157 quote  000447 aa 164 145 000 000 000450 55 000254 000243 000451 0a 000000 400000 000452 55 000253 000003 000453 aa 003 143 141 162 car 000454 55 000002 000250 000455 6a 000000 400002 000456 55 000257 000003 000457 aa 014 163 171 155 symbol_table  000460 aa 142 157 154 137 000461 aa 164 141 142 154 000462 aa 145 000 000 000 DEFINITIONS HASH TABLE  000463 aa 000000 000065 000464 5a 000035 000000 000465 5a 000061 000000 000466 5a 000066 000000 000467 5a 000073 000000 000470 5a 000100 000000 000471 5a 000105 000000 000472 5a 000112 000000 000473 5a 000131 000000 000474 5a 000136 000000 000475 5a 000143 000000 000476 5a 000150 000000 000477 5a 000155 000000 000500 5a 000162 000000 000501 5a 000167 000000 000502 5a 000174 000000 000503 5a 000201 000000 000504 5a 000206 000000 000505 5a 000213 000000 000506 5a 000220 000000 000507 5a 000225 000000 000510 5a 000232 000000 000511 5a 000237 000000 000512 5a 000243 000000 000513 5a 000250 000000 000514 aa 000000 000000 000515 aa 000000 000000 000516 aa 000000 000000 000517 aa 000000 000000 000520 5a 000254 000000 000521 aa 000000 000000 000522 aa 000000 000000 000523 aa 000000 000000 000524 aa 000000 000000 000525 aa 000000 000000 000526 aa 000000 000000 000527 aa 000000 000000 000530 aa 000000 000000 000531 aa 000000 000000 000532 aa 000000 000000 000533 aa 000000 000000 000534 aa 000000 000000 000535 aa 000000 000000 000536 5a 000012 000000 000537 aa 000000 000000 000540 aa 000000 000000 000541 5a 000124 000000 000542 5a 000117 000000 000543 5a 000054 000000 000544 5a 000017 000000 000545 5a 000030 000000 000546 5a 000023 000000 000547 5a 000047 000000 000550 5a 000042 000000 EXTERNAL NAMES  000551 aa 003 156 151 154 nil 000552 aa 021 154 151 163 lisp_static_vars_  000553 aa 160 137 163 164 000554 aa 141 164 151 143 000555 aa 137 166 141 162 000556 aa 163 137 000 000 NO TRAP POINTER WORDS  TYPE PAIR BLOCKS  000557 aa 000004 000000 000560 55 000352 000351 000561 aa 000001 000000 000562 aa 000000 000000 INTERNAL EXPRESSION WORDS 000563 5a 000357 000000 LINKAGE INFORMATION 000000 aa 000000 000000 000001 0a 000200 000000 000002 aa 000000 000000 000003 aa 000000 000000 000004 aa 000000 000000 000005 aa 000000 000000 000006 22 000010 000012 000007 a2 000000 000000 000010 9a 777770 0000 46 lisp_static_vars_|nil  000011 5a 000363 0000 00 SYMBOL INFORMATION SYMBOL TABLE HEADER  000000 aa 000000 000001 000001 aa 163171 155142 000002 aa 164162 145145 000003 aa 000000 000004 000004 aa 000000 111316 000005 aa 510113 575622 000006 aa 000000 112002 000007 aa 325253 363444 000010 aa 141154 155040 000011 aa 040040 040040 000012 aa 000024 000040 000013 aa 000034 000040 000014 aa 000044 000100 000015 aa 000002 000002 000016 aa 000064 000000 000017 aa 000000 000146 000020 aa 000000 000121 000021 aa 000000 000133 000022 aa 000137 000121 000023 aa 000064 000000 000024 aa 101114 115040 000025 aa 126145 162163 000026 aa 151157 156040 000027 aa 040066 056064 000030 aa 040040 101160 000031 aa 162151 154040 000032 aa 061071 070061 000033 aa 040040 040040 000034 aa 107112 157150 000035 aa 156163 157156 000036 aa 056123 171163 000037 aa 115141 151156 000040 aa 164056 141040 000041 aa 040040 040040 000042 aa 040040 040040 000043 aa 040040 040040 000044 aa 154151 163164 000045 aa 040040 040040 000046 aa 040040 040040 000047 aa 040040 040040 000050 aa 040040 040040 000051 aa 040040 040040 000052 aa 040040 040040 000053 aa 040040 040040 000054 aa 040040 040040 000055 aa 040040 040040 000056 aa 040040 040040 000057 aa 040040 040040 000060 aa 040040 040040 000061 aa 040040 040040 000062 aa 040040 040040 000063 aa 040040 040040 000064 aa 000000 000001 000065 aa 000000 000002 000066 aa 000076 000044 000067 aa 117710 106002 000070 aa 000000 111771 000071 aa 743235 000000 000072 aa 000107 000047 000073 aa 106701 741731 000074 aa 000000 110670 000075 aa 211444 000000 000076 aa 076163 160145 >spec>on>06/27/83>lisp_car_cdrs_.alm  000077 aa 143076 157156 000100 aa 076060 066057 000101 aa 062067 057070 000102 aa 063076 154151 000103 aa 163160 137143 000104 aa 141162 137143 000105 aa 144162 163137 000106 aa 056141 154155 000107 aa 076154 144144 >ldd>include>lisp_object_types.incl.alm 000110 aa 076151 156143 000111 aa 154165 144145 000112 aa 076154 151163 000113 aa 160137 157142 000114 aa 152145 143164 000115 aa 137164 171160 000116 aa 145163 056151 000117 aa 156143 154056 000120 aa 141154 155040 MULTICS ASSEMBLY CROSS REFERENCE LISTING Value Symbol Source file Line number  200 Array lisp_object_types: 25.  77700 Atomic lisp_car_cdrs_: 177,  lisp_object_types: 19.  10000 Atsym lisp_object_types: 18.  1000 Bignum lisp_object_types: 20.  1000 Big_fixed lisp_object_types: 29.  13 c lisp_car_cdrs_: 69, 79, 89, 168, 192, 198. 35 caa lisp_car_cdrs_: 88, 105, 155.  55 caaa lisp_car_cdrs_: 104, 129, 146.  104 caaaar lisp_car_cdrs_: 48, 127. 53 caaadr lisp_car_cdrs_: 40, 102. 125 caaar lisp_car_cdrs_: 57, 145. 34 caad lisp_car_cdrs_: 87, 117, 138.  70 caadar lisp_car_cdrs_: 44, 115. 32 caaddr lisp_car_cdrs_: 36, 85. 115 caadr lisp_car_cdrs_: 53, 137. 135 caar lisp_car_cdrs_: 62, 154. 23 cad lisp_car_cdrs_: 78, 97, 151.  45 cada lisp_car_cdrs_: 96, 123, 142.  76 cadaar lisp_car_cdrs_: 46, 121. 43 cadadr lisp_car_cdrs_: 38, 94. 121 cadar lisp_car_cdrs_: 55, 141. 22 cadd lisp_car_cdrs_: 77, 111, 134.  62 caddar lisp_car_cdrs_: 42, 109. 20 cadddr lisp_car_cdrs_: 34, 75. 111 caddr lisp_car_cdrs_: 51, 133. 131 cadr lisp_car_cdrs_: 60, 150. 0 car lisp_car_cdrs_: 16, 23. 12 cd lisp_car_cdrs_: 68, 84. 30 cda lisp_car_cdrs_: 83, 101, 153.  51 cdaa lisp_car_cdrs_: 100, 126, 144.  101 cdaaar lisp_car_cdrs_: 47, 124. 47 cdaadr lisp_car_cdrs_: 39, 98. 123 cdaar lisp_car_cdrs_: 56, 143. 27 cdad lisp_car_cdrs_: 82, 114, 136.  65 cdadar lisp_car_cdrs_: 43, 112. 25 cdaddr lisp_car_cdrs_: 35, 80. 113 cdadr lisp_car_cdrs_: 52, 135. 133 cdar lisp_car_cdrs_: 61, 152. 11 cdd lisp_car_cdrs_: 67, 93, 149.  41 cdda lisp_car_cdrs_: 92, 120, 140.  73 cddaar lisp_car_cdrs_: 45, 118. 37 cddadr lisp_car_cdrs_: 37, 90. 117 cddar lisp_car_cdrs_: 54, 139. 10 cddd lisp_car_cdrs_: 66, 108, 132.  57 cdddar lisp_car_cdrs_: 41, 106. 6 cddddr lisp_car_cdrs_: 33, 64. 107 cdddr lisp_car_cdrs_: 50, 131. 127 cddr lisp_car_cdrs_: 59, 148. 2 cdr lisp_car_cdrs_: 18, 25. 100 File lisp_object_types: 30.  40000 Fixed lisp_object_types: 15.  40047 fixnum_type lisp_object_types: 34.  20000 Float lisp_object_types: 16.  20047 flonum_type lisp_object_types: 35.  77700 lisp_ptr.type lisp_object_types: 13.  lisp_static_vars_ lisp_car_cdrs_: 196.  nil lisp_car_cdrs_: 196.  137 nth lisp_car_cdrs_: 158, 159. 150 nthcdr lisp_car_cdrs_: 171, 172. 156 nthcdrloop lisp_car_cdrs_: 178, 185. 165 nthcdrreturns lisp_car_cdrs_: 182, 186. 173 nthcdrreturnsnil lisp_car_cdrs_: 180, 193. 141 nthloop lisp_car_cdrs_: 161, 164. 145 nthreturns lisp_car_cdrs_: 162, 165. 61400 Numeric lisp_object_types: 17.  0 quote lisp_car_cdrs_: 17, 22. 4000 String lisp_object_types: 22.  2000 Subr lisp_object_types: 23.  400 System_Subr lisp_object_types: 24.  60000 Uncollectable lisp_object_types: 21.  67500 Unevalable lisp_object_types: 27.  4 zap_out lisp_car_cdrs_: 24, 27. NO FATAL ERRORS  ----------------------------------------------------------- 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