perm filename PLNR.DO[P,BGB] blob
sn#009286 filedate 1974-04-16 generic text, type T, neo UTF8
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 !!