00100	R LISP 22↔
00200	Y
00300	1000 12300   177↔
00400	(DSKIN (CONVRT.LAP)(PLNR.LAP) UR)↔
00500	(INITFN @THINIT)↔
00600	|
00700	
00800	The following  sequence  was  used  to  create  the  system  dump  of
00900	micro-PLANNER:
01000		DO PLNR.DO <RETURN>
01100		<CALL>
01200		SAVE <file name> <RETURN>
01300	
01400	The above values create a micro-PLANNER with approximately the same
01500	amount of free storage, full word storage and binary program space
01600	as a standard LISP:
01700	
01800	LISP	size=12K
01900	free storage =	5245 =	2725.0
02000	full word =	517 =	 335.0
02100	binary program space =	1777 =	1023.0
02200	
02300	PLNR	size=23K
02400	free storage =		10264 =	4276.0
02500	full word =		 1021 =	 529.0
02600	binary program space =	2015 =	1037.0
02700	
02800	A larger micro-PLANNER can be created by:
02900		1) changing the above allocation values and creating a new
03000		dump, or
03100		2) typing R PLNR <nm>, where <nm> is an integer > 23
03200	
03300	For each integer value by which <nm> exceeds 23:
03400		free storage is increased by 1300 words (=704.0)
03500		full word storage is increased by 400 words (=256.0)
03600		(binary program space is not increased)
03700	
03800	The right half of the location 7213 is an exponent  of  two  defining
03900	the  ration  of FULL WORD SPACE to FREE STORAGE.  For a ration of 1:8
04000	(a reasonable general value), this location should be  240040,,777775
04100	(i.e. -3 in the right half, copy the left half - i don't know what it
04200	does).  This location is examined and changed at monitor level by the
04300	E and DE commands:
04400	.E 7213 <RETURN>
04500	.240040 777775
04600	.DE 7213 240040777774 <RETURN>		(changes the ratio to 1:16)
04700	
04800	To increase bps, type the following to your micro-PLANNER:
04900	[assume a desired increase of 4k for bps]
05000		.<CALL>
05100		.C 27 <RETURN>
05200		.S <RETURN>
05300		*(SETQ BPORG (TIMES 23. 1024.)) <RETURN>
05400		*(SETQ BPEND (PLUS BPORG 4095.)) <RETURN>
05500	
05600	NOTE: DO NOT REENTER A LISP THAT HAS BEEN EXPANDED THIS WAY, SINCE
05700	A REENTER CAUSES A REALLOCATION AND THE CONTENTS OF EXPANDED CORE
05800	WILL BE CLOBBERED !!