Renamed packages to match Java guidelines.

Triangle.AbstractMachine/src/main/java/triangle/abstractMachine/Instruction.java

@@ -0,0 +1,67 @@
+/*
+ * @(#)Instruction.java                        2.1 2003/10/07
+ *
+ * Copyright (C) 1999, 2003 D.A. Watt and D.F. Brown
+ * Dept. of Computing Science, University of Glasgow, Glasgow G12 8QQ Scotland
+ * and School of Computer and Math Sciences, The Robert Gordon University,
+ * St. Andrew Street, Aberdeen AB25 1HG, Scotland.
+ * All rights reserved.
+ *
+ * This software is provided free for educational use only. It may
+ * not be used for commercial purposes without the prior written permission
+ * of the authors.
+ */
+
+package triangle.abstractMachine;
+
+import java.io.DataInputStream;
+import java.io.DataOutputStream;
+import java.io.EOFException;
+import java.io.IOException;
+
+public class Instruction {
+
+	// Java has no type synonyms, so the following representations are
+	// assumed:
+	//
+	// type
+	// OpCode = 0..15; {4 bits unsigned}
+	// Length = 0..255; {8 bits unsigned}
+	// Operand = -32767..+32767; {16 bits signed}
+
+	// Represents TAM instructions.
+	final OpCode opCode;
+	final Register register;
+	final int length;
+	int operand; // Not final to allow for patching jump address
+
+	public Instruction(OpCode opcode, Register register, int length, int operand) {
+		this.opCode = opcode;
+		this.register = register;
+		this.length = length;
+		this.operand = operand;
+	}
+
+	public void setOperand(int operand) {
+		this.operand = operand;
+	}
+	
+	public void write(DataOutputStream output) throws IOException {
+		output.writeInt(opCode.ordinal());
+		output.writeInt(register.ordinal());
+		output.writeInt(length);
+		output.writeInt(operand);
+	}
+
+	public static Instruction read(DataInputStream input) throws IOException {
+		try {
+			var opCode = OpCode.values()[input.readInt()];
+			var register = Register.values()[input.readInt()];
+			var length = input.readInt();
+			var operand = input.readInt();
+			return new Instruction(opCode, register, length, operand);
+		} catch (EOFException s) {
+			return null;
+		}
+	}
+}

Triangle.AbstractMachine/src/main/java/triangle/abstractMachine/Machine.java

@@ -0,0 +1,54 @@
+/*
+ * @(#)Machine.java                        2.1 2003/10/07
+ *
+ * Copyright (C) 1999, 2003 D.A. Watt and D.F. Brown
+ * Dept. of Computing Science, University of Glasgow, Glasgow G12 8QQ Scotland
+ * and School of Computer and Math Sciences, The Robert Gordon University,
+ * St. Andrew Street, Aberdeen AB25 1HG, Scotland.
+ * All rights reserved.
+ *
+ * This software is provided free for educational use only. It may
+ * not be used for commercial purposes without the prior written permission
+ * of the authors.
+ */
+
+package triangle.abstractMachine;
+
+public final class Machine {
+
+	public final static int maxRoutineLevel = 7;
+
+	// WORDS AND ADDRESSES
+
+	// Java has no type synonyms, so the following representations are
+	// assumed:
+	//
+	// type
+	// Word = -32767..+32767; {16 bits signed}
+	// DoubleWord = -2147483648..+2147483647; {32 bits signed}
+	// CodeAddress = 0..+32767; {15 bits unsigned}
+	// DataAddress = 0..+32767; {15 bits unsigned}
+
+	// INSTRUCTIONS
+
+	// CODE STORE
+
+	public static Instruction[] code = new Instruction[1024];
+
+	// CODE STORE REGISTERS
+
+	public final static int CB = 0, PB = 1024, // = upper bound of code array + 1
+			PT = 1052; // = PB + 28
+
+	// REGISTER NUMBERS
+
+	// DATA REPRESENTATION
+
+	public final static int booleanSize = 1, characterSize = 1, integerSize = 1, addressSize = 1,
+			closureSize = 2 * addressSize,
+
+			linkDataSize = 3 * addressSize,
+
+			falseRep = 0, trueRep = 1, maxintRep = 32767;
+
+}

Triangle.AbstractMachine/src/main/java/triangle/abstractMachine/OpCode.java

@@ -0,0 +1,5 @@
+package triangle.abstractMachine;
+
+public enum OpCode {
+	LOAD, LOADA, LOADI, LOADL, STORE, STOREI, CALL, CALLI, RETURN, PUSH, POP, JUMP, JUMPI, JUMPIF, HALT
+}

Triangle.AbstractMachine/src/main/java/triangle/abstractMachine/Primitive.java

@@ -0,0 +1,6 @@
+package triangle.abstractMachine;
+
+public enum Primitive {
+	ID, NOT, AND, OR, SUCC, PRED, NEG, ADD, SUB, MULT, DIV, MOD, LT, LE, GE, GT, EQ, NE, EOL, EOF, GET, PUT, GETEOL,
+	PUTEOL, GETINT, PUTINT, NEW, DISPOSE
+}

Triangle.AbstractMachine/src/main/java/triangle/abstractMachine/Register.java

@@ -0,0 +1,5 @@
+package triangle.abstractMachine;
+
+public enum Register {
+	CB, CT, PB, PT, SB, ST, HB, HT, LB, L1, L2, L3, L4, L5, L6, CP
+}