RosettaCodeData/Task/Memory-allocation/Retro/memory-allocation.retro

30 lines
225 B
Plaintext

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
~~~