MIDAS.433
****** MACLISP ****** LISP INTERPRETER AND SYSTEM *************
ASSEMBLING MACLISP -- INITIAL SWITCH VALUES (*=EXPERIMENTAL):
  ITS=0
  TOPS10=0
  TOPS20=0
  SAIL=0
* TENEX=0
* CMU=0
  ML=0
  BIGNUM=1
  OBTSIZ=777
  JOBQIO=1
  HNKLOG=11
  USELESS=1
  PDLBUG=0
* DBFLAG=0
* CXFLAG=0
* NARITH=0
* SFA=1
REDEFINITIONS:
TTY: .INSRTed, end input with ^C
ML==1



ITS==1?SFA==1



MACLISP VERSION 2144 ASSEMBLED ON ITS AT MC
    ==> INSERTED:  DEFNS 240
    ==> INSERTED:  MACS 80
	***** FOUR "ZERO" (LOW IMPURE) SEGMENTS
	***** TWO SEGMENT TABLE SEGMENTS
    ==> INSERTED:  ERROR 155
	P0:  2737	[ERROR HANDLERS AND MESSAGES]
    ==> INSERTED:  STATUS 265
	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:  1762	[BIGNUM-ONLY ARITHMETICS]
    ==> INSERTED:  BIGNUM 27
	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 = 50
	***** 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 303

***** 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 265
	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:  1762	[BIGNUM-ONLY ARITHMETICS]
    ==> INSERTED:  BIGNUM 27
	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 = 50
	***** 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 = 226 SECS
    ==> INSERTED:  STRUCT 655
	***** TWO BIT BLOCK SEGMENTS
    ==> INSERTED:  ALLOC 303

Constants area inclusive
From	To
3547	3600
10236	10736
26073	26605
32104	32245
33563	33636
36004	36102
40053	40064
42626	42727
45224	45352
47106	47172
52673	52744
54401	54451
56634	56711
63613	64013
67563	67726
127610	127776
Run time = 6:48.76
8912 Symbols including initial ones (55% used)