projects/Stacker/test/memory.st

   1 #
   2 # MEMORY test
   3 #
   4 FORWARD success;
   5 FORWARD failure;
   6 : try_free FREE ;
   7 : read_space >s ;
   8 : write_space 0 72 PUT 1 69 PUT 2 76 PUT 3 76 PUT 4 79 PUT ;
   9 : try_malloc 64 MALLOC ;
  10 : MAIN try_malloc write_space read_space try_free " - " >s success ;