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

30 lines
225 B
Text
Raw Permalink Normal View History

2019-09-12 10:33:56 -07:00
display total memory available
2013-04-10 22:43:41 -07:00
2019-09-12 10:33:56 -07:00
~~~
EOM n:put
~~~
2013-04-10 22:43:41 -07:00
2019-09-12 10:33:56 -07:00
display unused memory
2013-04-10 22:43:41 -07:00
2019-09-12 10:33:56 -07:00
~~~
EOM here - n:put
~~~
2013-04-10 22:43:41 -07:00
2019-09-12 10:33:56 -07:00
display next free address
~~~
here n:put
~~~
allocate 1000 cells
~~~
#1000 allot
~~~
free 500 cells
~~~
#-500 allot
~~~