langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Memory-allocation/Retro/memory-allocation.retro
+++ b/Task/Memory-allocation/Retro/memory-allocation.retro
@ -0,0 +1,14 @@
+( display total memory available )
+@memory putn
+
+( display unused memory )
+@memory here - putn
+
+( display next free address )
+here putn
+
+( allocate 1000 cells )
+1000 allot
+
+( free 500 cells )
+-500 allot