MIDAS.424
****** 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 2122 ASSEMBLED ON ITS AT MC
    ==> INSERTED:  DEFNS 240
    ==> INSERTED:  MACS 80
	***** FOUR "ZERO" (LOW IMPURE) SEGMENTS
	***** TWO SEGMENT TABLE SEGMENTS
    ==> INSERTED:  ERROR 154
	P0:  2740	[ERROR HANDLERS AND MESSAGES]
    ==> INSERTED:  STATUS 253
	P1:  15647	[TOPLEVEL, COMMON, AND RANDOM STUFF]
	P2:  3436	[PRINT,TYO,EXPLODE,FLATC,BAKTRACE,ETC]
    ==> INSERTED:  PRINT 305
	P3:  1371	[UTAPE, LAP, AND AGGLOMERATED SUBRS]
    ==> INSERTED:  ULAP 145
	P4:  2244	[ARITHMETIC SUBROUTINES]
    ==> INSERTED:  ARITH 93
	P5:  1751	[BIGNUM-ONLY ARITHMETICS]
    ==> INSERTED:  BIGNUM 19
	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 279
	P12:  1505	[ARRAY STUFF]
    ==> INSERTED:  ARRAY 95
	P13:  2240	[FASLOAD]
    ==> INSERTED:  FASLOA 263
	P14:  5102	[NEW I/O PACKAGE]
    ==> INSERTED:  QIO 747
	P15:  3715	[INTERRUPT AND UUO HANDLERS]
	LENGTH OF PATCH AREA = 60
	***** 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 649 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 = 76 SECS
    ==> INSERTED:  STRUCT 649
	***** TWO BIT BLOCK SEGMENTS
    ==> INSERTED:  ALLOC 286

***** 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 154
	P0:  2740	[ERROR HANDLERS AND MESSAGES]
    ==> INSERTED:  STATUS 253
	P1:  15647	[TOPLEVEL, COMMON, AND RANDOM STUFF]
	P2:  3436	[PRINT,TYO,EXPLODE,FLATC,BAKTRACE,ETC]
    ==> INSERTED:  PRINT 305
	P3:  1371	[UTAPE, LAP, AND AGGLOMERATED SUBRS]
    ==> INSERTED:  ULAP 145
	P4:  2244	[ARITHMETIC SUBROUTINES]
    ==> INSERTED:  ARITH 93
	P5:  1751	[BIGNUM-ONLY ARITHMETICS]
    ==> INSERTED:  BIGNUM 19
	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 279
	P12:  1505	[ARRAY STUFF]
    ==> INSERTED:  ARRAY 95
	P13:  2240	[FASLOAD]
    ==> INSERTED:  FASLOA 263
	P14:  5102	[NEW I/O PACKAGE]
    ==> INSERTED:  QIO 747
	P15:  3715	[INTERRUPT AND UUO HANDLERS]
	LENGTH OF PATCH AREA = 60
	***** 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 649 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 = 113 SECS
    ==> INSERTED:  STRUCT 649
	***** TWO BIT BLOCK SEGMENTS
    ==> INSERTED:  ALLOC 286

Constants area inclusive
From	To
3545	3576
10237	10737
26074	26606
32105	32244
33562	33635
36003	36101
40041	40052
42614	42715
45212	45340
47074	47160
52661	52732
54361	54437
56622	56677
63601	64001
67553	67716
127610	127776
Run time = 4:28.51
8850 Symbols including initial ones (55% used)