BaseF99bTest.java

/*
  BaseF99bTest.java

  (c) 2010-2015 Edward Swartz

  All rights reserved. This program and the accompanying materials
  are made available under the terms of the Eclipse Public License v1.0
  which accompanies this distribution, and is available at
  http://www.eclipse.org/legal/epl-v10.html
 */
package v9t9.tools.forthcomp.test;

import static org.junit.Assert.assertTrue;

import java.io.PrintWriter;

import v9t9.common.cpu.IInterpreter;
import v9t9.common.settings.BasicSettingsHandler;
import v9t9.machine.f99b.cpu.CpuF99b;
import v9t9.machine.f99b.cpu.CpuStateF99b;
import v9t9.machine.f99b.cpu.DumpFullReporterF99b;
import v9t9.machine.f99b.interpreter.InterpreterF99b;
import v9t9.machine.f99b.machine.F99bMachine;
import v9t9.machine.f99b.machine.F99bMachineModel;
import v9t9.tools.forthcomp.BaseGromTargetContext;
import v9t9.tools.forthcomp.TargetContext;
import v9t9.tools.forthcomp.f99b.F99bTargetContext;

/**
 * @author ejs
 *
 */
public class BaseF99bTest extends BaseForthCompTest {

	final protected static String stockDictDefs = 
		"Variable dp\n"+
		"here dp !\n"+
		": here dp @ ; \n"+
		": , here ! 2 dp +! ; \n"+
		": c, here c! 1 dp +! ; \n"+
		"";
	
	final protected static String compileLiteral = 
		": literal ( n -- ) dup -8 >= over 8 < and  if\n" +
		" 	$f and $20 or c,  else\n" +
		"dup -128 >= over 128 < and  if\n" +
		" 	$78 c, c,\n" +
		"else\n" +
		"	$79 c, ,\n" +
		"then then\n"+
		"; immediate target-only \n";
	
	final protected static String compileMeta =
		"Variable state\n"+
		"Variable latest\n"+
		": create ; target-only\n"+
		": : ; target-only\n"+
		": ; $70 c, ; immediate target-only \n"+

		": compile, 1 urshift $8000 OR postpone LITERAL ;\n"+
		"";

	private BasicSettingsHandler settings;
	
	/* (non-Javadoc)
	 * @see v9t9.forthcomp.test.BaseForthCompTest#initCpu()
	 */
	@Override
	protected void initCpu() {
		f99bMachineModel = new F99bMachineModel();
		settings = new BasicSettingsHandler();
		f99Machine = (F99bMachine) f99bMachineModel.createMachine(settings);
		cpu = (CpuF99b) f99Machine.getCpu();
	
		DumpFullReporterF99b dump = new DumpFullReporterF99b((CpuF99b) cpu,  new PrintWriter(System.out));
		f99Machine.getExecutor().addInstructionListener(dump);
	}
	
	/* (non-Javadoc)
	 * @see v9t9.forthcomp.test.BaseForthCompTest#createInterpreter()
	 */
	@Override
	protected IInterpreter createInterpreter() {
		return new InterpreterF99b(f99Machine);
	}
	
	/* (non-Javadoc)
	 * @see v9t9.forthcomp.test.BaseForthCompTest#createTargetContext()
	 */
	@Override
	protected TargetContext createTargetContext() {
		BaseGromTargetContext targCtx = new F99bTargetContext(4096);
		targCtx.setBaseDP(0x400);
		return targCtx;
	}
	
	/* (non-Javadoc)
	 * @see v9t9.forthcomp.test.BaseForthCompTest#doInterpret(int)
	 */
	@Override
	protected void doInterpret(int pc) {
		((CpuF99b) cpu).rpush((short) 0);
		CpuStateF99b state = (CpuStateF99b) cpu.getState();
		state.setPC((short) pc);
//		((InterpreterF99b) interp).setShowSymbol();
		while (state.getPC() != 0)
			((InterpreterF99b) interp).execute();
		
		assertTrue(state.getSP() <= state.getBaseSP());
		assertTrue(state.getRP() <= state.getBaseRP());
		
	}
	

}