30 lines
225 B
Text
30 lines
225 B
Text
|
display total memory available
|
||
|
|
|
||
|
|
~~~
|
||
|
|
EOM n:put
|
||
|
|
~~~
|
||
|
|
|
||
|
|
display unused memory
|
||
|
|
|
||
|
|
~~~
|
||
|
|
EOM here - n:put
|
||
|
|
~~~
|
||
|
|
|
||
|
|
display next free address
|
||
|
|
|
||
|
|
~~~
|
||
|
|
here n:put
|
||
|
|
~~~
|
||
|
|
|
||
|
|
allocate 1000 cells
|
||
|
|
|
||
|
|
~~~
|
||
|
|
#1000 allot
|
||
|
|
~~~
|
||
|
|
|
||
|
|
free 500 cells
|
||
|
|
|
||
|
|
~~~
|
||
|
|
#-500 allot
|
||
|
|
~~~
|