version 1.8, 1995/11/07 18:06:38
|
version 1.9, 1996/10/25 17:09:43
|
Line 42 MAX-CHAR constant /COUNTED-STRING
|
Line 42 MAX-CHAR constant /COUNTED-STRING
|
ADDRESS-UNIT-BITS cells 2* 2 + constant /HOLD |
ADDRESS-UNIT-BITS cells 2* 2 + constant /HOLD |
&84 constant /PAD |
&84 constant /PAD |
true constant CORE |
true constant CORE |
true constant CORE-EXT? |
true constant CORE-EXT |
1 -3 mod 0< constant FLOORED |
1 -3 mod 0< constant FLOORED |
|
|
1 ADDRESS-UNIT-BITS cells 1- lshift 1- constant MAX-N |
1 ADDRESS-UNIT-BITS cells 1- lshift 1- constant MAX-N |