MIDAS.433 ****** MACLISP ****** LISP INTERPRETER AND S4E ****J*UJ*PiӋMBLING MACiAPIITIALɩCH VAbA(*=EXPERIMENTAL): ITS=E ATOPS10=0 *Ol=a 2f=a * T{0 * CMU=0 MX  BIGNUM=1 BTSIZ۷ JOTd{#E A̟XHU"ӧFA"LްJD {E*ACXFLAG=0 * NAR5$=a FA=1TċgI3SuTHIte, end inpu;/CSf={1 Bԧ==1?SFA==1 LISP VERSI2c38 ASSEMBLOjSAAT MC A ==> INSERTED: DEFNS 240 A^AINSERb:A MACS 80 ***** FOUR "ZERO" (LOW I*ҋ()ŏMENTS ***** TWO SEGMENT TABLE SEGMENTS ==> INSERb:A ERROR 155 P0H2omۋTAgDERS AND MESSAGEwFA={> INSE: STATUS 260 4A 15647 [TOPLEVECgY AND RANDOM STUѮ P2: 4a6RNT,TY"ءLODE,FLATC˩RACE,!H A_ NSERTED: PRINT 6 P3:o1 [UTAPE, h,AAND AOԋD SUBRS]  {=> INSERTED: ULAP 145  A2244 piIHMETIh)ՅROUTINES] _ NSERTED: 4ԑ 93 P5: [c [BIGNUM-ONLY ARITHMETICSE A}gSU"u BIGNUM 2E ΐ eEVAL,hP+SUFF OPEN-CODED BY COMPLR] P7: 2423 [GARBAGE COLLECTOR] P10: 1620 [MEMORY MANAGEMENT STUFF] ==> INSERTED: GCBIB 256 P11: 3552 [HIRSUTE READER, MAKNAM, ETC.] ==> INSERTED: READER 282 P12: 1505 [ARRAY STUFF] ==> INSERTED: ARRAY 97 P13: 2240 [FASLOAD] ==> INSERTED: FASLOA 263 P14: 5102 [NEW I/O PACKAGE] ==> INSERTED: QIO 757 P15: 3713 [INTERRUPT AND UUO HANDLERS] LENGTH OF PATCH AREA = 51 ***** 62 (OCTAL) SYSTEM SEGMENTS ***** ONE SAR SEGMENT [756 UNUSED WORDS] ***** ONE IMPURE SYMBOL BLOCK SEGMENT [740 UNUSED WORDS] P16: 23637 [SYSTEM ATOMS AND STUFF] ***** ONE VALUE CELL SEGMENT [617 UNUSED WORDS] ***** TWO SYMBOL HEADER SEGMENTS [440 UNUSED WORDS] ***** THREE PURE SYMBOL BLOCK SEGMENTS MC:STRUCT 655 L; 105432 3. 25-036 ###### ###### 32=TOO MANY PURE FIXNUMS (PFXEST=3200) HIGHEST NLISP INUM=777 LOWEST NLISP INUM=-347 ***** FOUR PURE FIXNUM SEGMENTS ***** FIVE PURE LIST SEGMENTS [141 UNUSED WORDS] ***** ZERO PURE FLONUM SEGMENTS ***** TWO IMPURE LIST SEGMENTS [302 UNUSED WORDS] ***** ONE IMPURE FIXNUM SEGMENT [733 UNUSED WORDS] ***** ONE IMPURE FLONUM SEGMENT [777 UNUSED WORDS] ***** ONE BIGNUM SEGMENT [773 UNUSED WORDS] TIME TO MAKE INITIAL STRUCT, PASS 1 = 113 SECS ==> INSERTED: STRUCT 655 ***** TWO BIT BLOCK SEGMENTS ==> INSERTED: ALLOC 293 ***** MACLISP ****** LISP INTERPRETER AND SYSTEM ************* INITIAL PURTBL MEMORY LAYOUT [0=NXM, 1=IMPURE, 2=PURE, $=BPS/PDL/SCRATCH] 11122222 22222222 22222222 22221011 22222211 11$00000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000000 00000$0$ 0$00$00$ ***** FOUR "ZERO" (LOW IMPURE) SEGMENTS ***** TWO SEGMENT TABLE SEGMENTS ==> INSERTED: ERROR 155 P0: 2737 [ERROR HANDLERS AND MESSAGES] ==> INSERTED: STATUS 260 P1: 15647 [TOPLEVEL, COMMON, AND RANDOM STUFF] P2: 3440 [PRINT,TYO,EXPLODE,FLATC,BAKTRACE,ETC] ==> INSERTED: PRINT 306 P3: 1371 [UTAPE, LAP, AND AGGLOMERATED SUBRS] ==> INSERTED: ULAP 145 P4: 2244 [ARITHMETIC SUBROUTINES] ==> INSERTED: ARITH 93 P5: 1761 [BIGNUM-ONLY ARITHMETICS] ==> INSERTED: BIGNUM 26 P6: 2643 [EVAL, APPLY, STUFF OPEN-CODED BY COMPLR] P7: 2423 [GARBAGE COLLECTOR] P10: 1620 [MEMORY MANAGEMENT STUFF] ==> INSERTED: GCBIB 256 P11: 3552 [HIRSUTE READER, MAKNAM, ETC.] ==> INSERTED: READER 282 P12: 1505 [ARRAY STUFF] ==> INSERTED: ARRAY 97 P13: 2240 [FASLOAD] ==> INSERTED: FASLOA 263 P14: 5102 [NEW I/O PACKAGE] ==> INSERTED: QIO 757 P15: 3713 [INTERRUPT AND UUO HANDLERS] LENGTH OF PATCH AREA = 51 ***** 62 (OCTAL) SYSTEM SEGMENTS ***** ONE SAR SEGMENT [756 UNUSED WORDS] ***** ONE IMPURE SYMBOL BLOCK SEGMENT [740 UNUSED WORDS] P16: 23637 [SYSTEM ATOMS AND STUFF] ***** ONE VALUE CELL SEGMENT [617 UNUSED WORDS] ***** TWO SYMBOL HEADER SEGMENTS [440 UNUSED WORDS] ***** THREE PURE SYMBOL BLOCK SEGMENTS MC:STRUCT 655 L; 105432 3. 25-036 ###### ###### 32=TOO MANY PURE FIXNUMS (PFXEST=3200) HIGHEST NLISP INUM=777 LOWEST NLISP INUM=-347 ***** FOUR PURE FIXNUM SEGMENTS ***** FIVE PURE LIST SEGMENTS [141 UNUSED WORDS] ***** ZERO PURE FLONUM SEGMENTS ***** TWO IMPURE LIST SEGMENTS [302 UNUSED WORDS] ***** ONE IMPURE FIXNUM SEGMENT [733 UNUSED WORDS] ***** ONE IMPURE FLONUM SEGMENT [777 UNUSED WORDS] ***** ONE BIGNUM SEGMENT [773 UNUSED WORDS] TIME TO MAKE INITIAL STRUCT, PASS 2 = 245 SECS ==> INSERTED: STRUCT 655 ***** TWO BIT BLOCK SEGMENTS ==> INSERTED: ALLOC 293 Constants area inclusive From To 3545 3576 10236 10736 26073 26605 32104 32245 33563 33636 36004 36102 40052 40063 42625 42726 45223 45351 47105 47171 52672 52743 54400 54450 56633 56710 63612 64012 67562 67725 127610 127776 Run time = 7:10.16 8887 Symbols including initial oneh5k% used)