#define _PROCESS_2
#include "includes.h"
#include "words.h"
#include "thread/debug.h"
#include "threads.h"


#include "words.co1"


void Test_minisl (void) {

  CELLt      __ret__ ;
  CharPtr    top = MEM_Alloc (16384) ;
  CharPtr    bot = top + 16384 ;
  CharPtr    rtop = MEM_Alloc (16384) ;
  CharPtr    rbot = rtop + 16384 ;

  ___(0,"Lauching Mini Stack Language\n") ;
  __ret__ = minisl ((msl_instr_t*)msl_test_code,
		    (pcore_cell*)bot,(pcore_cell*)bot,(pcore_cell*)top,
		    (pcore_cell*)rbot,(pcore_cell*)rbot,(pcore_cell*)rtop) ;
  _t_fprintf(stdout,"Mini-Stack-Language Test answered %ld [%08lX]\n",
	 __ret__.all,__ret__.all) ;

  return ;
}

#include "words.co2"
