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=1
  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


ITS==1?SFA==1


MACLISP VERSION 2149 ASSEMBLED ON ITS AT AI
    ==> INSERTED:  .FASL DEFS
    ==> 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:  15653	[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:  2644	[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:  1506	[ARRAY STUFF]
    ==> INSERTED:  ARRAY 98
	P13:  2240	[FASLOAD]
    ==> INSERTED:  FASLOA 263
	P14:  5102	[NEW I/O PACKAGE]
    ==> INSERTED:  QIO 759
	P15:  3715	[INTERRUPT AND UUO HANDLERS]
	LENGTH OF PATCH AREA = 40
	***** 62 (OCTAL) SYSTEM SEGMENTS
	***** ONE SAR SEGMENT [756 UNUSED WORDS]
	***** ONE IMPURE SYMBOL BLOCK SEGMENT [740 UNUSED WORDS]
	P16:  23640	[SYSTEM ATOMS AND STUFF]
	***** ONE VALUE CELL SEGMENT [617 UNUSED WORDS]
	***** TWO SYMBOL HEADER SEGMENTS [437 UNUSED WORDS]
	***** THREE PURE SYMBOL BLOCK SEGMENTS
AI:STRUCT 656 L;
		105433	 3.    25-036	######
	###### 33=TOO MANY PURE FIXNUMS (PFXEST=3200)
	HIGHEST NLISP INUM=777
	LOWEST NLISP INUM=-346
	***** FOUR PURE FIXNUM SEGMENTS
	***** FIVE PURE LIST SEGMENTS [140 UNUSED WORDS]
	***** ZERO PURE FLONUM SEGMENTS
	***** TWO IMPURE LIST SEGMENTS [301 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 = 307 SECS
    ==> INSERTED:  STRUCT 656
	***** 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:  15653	[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:  2644	[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:  1506	[ARRAY STUFF]
    ==> INSERTED:  ARRAY 98
	P13:  2240	[FASLOAD]
    ==> INSERTED:  FASLOA 263
	P14:  5102	[NEW I/O PACKAGE]
    ==> INSERTED:  QIO 759
	P15:  3715	[INTERRUPT AND UUO HANDLERS]
	LENGTH OF PATCH AREA = 40
	***** 62 (OCTAL) SYSTEM SEGMENTS
	***** ONE SAR SEGMENT [756 UNUSED WORDS]
	***** ONE IMPURE SYMBOL BLOCK SEGMENT [740 UNUSED WORDS]
	P16:  23640	[SYSTEM ATOMS AND STUFF]
	***** ONE VALUE CELL SEGMENT [617 UNUSED WORDS]
	***** TWO SYMBOL HEADER SEGMENTS [437 UNUSED WORDS]
	***** THREE PURE SYMBOL BLOCK SEGMENTS
AI:STRUCT 656 L;
		105433	 3.    25-036	######
	###### 33=TOO MANY PURE FIXNUMS (PFXEST=3200)
	HIGHEST NLISP INUM=777
	LOWEST NLISP INUM=-346
	***** FOUR PURE FIXNUM SEGMENTS
	***** FIVE PURE LIST SEGMENTS [140 UNUSED WORDS]
	***** ZERO PURE FLONUM SEGMENTS
	***** TWO IMPURE LIST SEGMENTS [301 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 = 510 SECS
    ==> INSERTED:  STRUCT 656
	***** TWO BIT BLOCK SEGMENTS
    ==> INSERTED:  ALLOC 303

Constants area inclusive
From	To
3547	3600
10236	10736
26077	26611
32110	32251
33567	33642
36010	36106
40057	40070
42633	42734
45231	45357
47113	47177
52700	52751
54407	54457
56642	56717
63621	64021
67573	67736
127611	127777
Run time = 16:59.92
8945 Symbols including initial ones (55%ôyåÉ)