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 2100 ASSEMBLED ON ITS AT MC
    ==> INSERTED:  DEFNS 239
    ==> INSERTED:  MACS 77
	***** FOUR "ZERO" (LOW IMPURE) SEGMENTS
	***** TWO SEGMENT TABLE SEGMENTS
    ==> INSERTED:  ERROR 152
	P0:  3022	[ERROR HANDLERS AND MESSAGES]
    ==> INSERTED:  STATUS 248
	P1:  15621	[TOPLEVEL, COMMON, AND RANDOM STUFF]
	P2:  3434	[PRINT,TYO,EXPLODE,FLATC,BAKTRACE,ETC]
    ==> INSERTED:  PRINT 303
	P3:  1366	[UTAPE, LAP, AND AGGLOMERATED SUBRS]
    ==> INSERTED:  ULAP 145
	P4:  2244	[ARITHMETIC SUBROUTINES]
    ==> INSERTED:  ARITH 93
	P5:  1751	[BIGNUM-ONLY ARITHMETICS]
    ==> INSERTED:  BIGNUM 19
	P6:  2644	[EVAL, APPLY, STUFF OPEN-CODED BY COMPLR]
	P7:  2423	[GARBAGE COLLECTOR]
	P10:  1620	[MEMORY MANAGEMENT STUFF]
    ==> INSERTED:  GCBIB 256
	P11:  3544	[HIRSUTE READER, MAKNAM, ETC.]
    ==> INSERTED:  READER 269
	P12:  1503	[ARRAY STUFF]
    ==> INSERTED:  ARRAY 92
	P13:  2240	[FASLOAD]
    ==> INSERTED:  FASLOA 263
	P14:  5074	[NEW I/O PACKAGE]
    ==> INSERTED:  QIO 726
	P15:  3716	[INTERRUPT AND UUO HANDLERS]
	LENGTH OF PATCH AREA = 45
	***** 62 (OCTAL) SYSTEM SEGMENTS
	***** ONE SAR SEGMENT [756 UNUSED WORDS]
	***** ONE IMPURE SYMBOL BLOCK SEGMENT [740 UNUSED WORDS]
	P16:  23642	[SYSTEM ATOMS AND STUFF]
	***** ONE VALUE CELL SEGMENT [617 UNUSED WORDS]
	***** TWO SYMBOL HEADER SEGMENTS [437 UNUSED WORDS]
	***** THREE PURE SYMBOL BLOCK SEGMENTS
MC:STRUCT 636 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 [136 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 = 76 SECS
    ==> INSERTED:  STRUCT 636
	***** TWO BIT BLOCK SEGMENTS
    ==> INSERTED:  ALLOC 281

***** 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 152
	P0:  3022	[ERROR HANDLERS AND MESSAGES]
    ==> INSERTED:  STATUS 248
	P1:  15621	[TOPLEVEL, COMMON, AND RANDOM STUFF]
	P2:  3434	[PRINT,TYO,EXPLODE,FLATC,BAKTRACE,ETC]
    ==> INSERTED:  PRINT 303
	P3:  1366	[UTAPE, LAP, AND AGGLOMERATED SUBRS]
    ==> INSERTED:  ULAP 145
	P4:  2244	[ARITHMETIC SUBROUTINES]
    ==> INSERTED:  ARITH 93
	P5:  1751	[BIGNUM-ONLY ARITHMETICS]
    ==> INSERTED:  BIGNUM 19
	P6:  2644	[EVAL, APPLY, STUFF OPEN-CODED BY COMPLR]
	P7:  2423	[GARBAGE COLLECTOR]
	P10:  1620	[MEMORY MANAGEMENT STUFF]
    ==> INSERTED:  GCBIB 256
	P11:  3544	[HIRSUTE READER, MAKNAM, ETC.]
    ==> INSERTED:  READER 269
	P12:  1503	[ARRAY STUFF]
    ==> INSERTED:  ARRAY 92
	P13:  2240	[FASLOAD]
    ==> INSERTED:  FASLOA 263
	P14:  5074	[NEW I/O PACKAGE]
    ==> INSERTED:  QIO 726
	P15:  3716	[INTERRUPT AND UUO HANDLERS]
	LENGTH OF PATCH AREA = 45
	***** 62 (OCTAL) SYSTEM SEGMENTS
	***** ONE SAR SEGMENT [756 UNUSED WORDS]
	***** ONE IMPURE SYMBOL BLOCK SEGMENT [740 UNUSED WORDS]
	P16:  23642	[SYSTEM ATOMS AND STUFF]
	***** ONE VALUE CELL SEGMENT [617 UNUSED WORDS]
	***** TWO SYMBOL HEADER SEGMENTS [437 UNUSED WORDS]
	***** THREE PURE SYMBOL BLOCK SEGMENTS
MC:STRUCT 636 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 [136 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 = 137 SECS
    ==> INSERTED:  STRUCT 636
	***** TWO BIT BLOCK SEGMENTS
    ==> INSERTED:  ALLOC 281

Constants area inclusive
From	To
3543	3574
10262	11021
26156	26642
32152	32276
33611	33664
36032	36130
40070	40101
42644	42745
45242	45370
47124	47210
52703	52754
54403	54457
56642	56717
63633	64013
67575	67731
127607	127775
Run time = 4:55.36
8839 Symbols including initial ones (55% used)