29 lines
225 B
Text
29 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
|
|
~~~
|