kopia lustrzana https://github.com/maccasoft/z80-tools
69 wiersze
1.7 KiB
Java
69 wiersze
1.7 KiB
Java
package nl.grauw.glass.instructions;
|
|
|
|
import nl.grauw.glass.Scope;
|
|
import nl.grauw.glass.expressions.Expression;
|
|
import nl.grauw.glass.expressions.Schema;
|
|
|
|
public class Call extends InstructionFactory {
|
|
|
|
@Override
|
|
public InstructionObject createObject(Scope context, Expression arguments) {
|
|
if (Call_F_N.ARGUMENTS.check(arguments))
|
|
return new Call_F_N(context, arguments.getElement(0), arguments.getElement(1));
|
|
if (Call_N.ARGUMENTS.check(arguments))
|
|
return new Call_N(context, arguments.getElement(0));
|
|
throw new ArgumentException();
|
|
}
|
|
|
|
public static class Call_N extends InstructionObject {
|
|
|
|
public static Schema ARGUMENTS = new Schema(Schema.DIRECT_N);
|
|
|
|
private Expression argument;
|
|
|
|
public Call_N(Scope context, Expression argument) {
|
|
super(context);
|
|
this.argument = argument;
|
|
}
|
|
|
|
@Override
|
|
public int getSize() {
|
|
return 3;
|
|
}
|
|
|
|
@Override
|
|
public byte[] getBytes() {
|
|
int address = argument.getAddress();
|
|
return new byte[] { (byte)0xCD, (byte)address, (byte)(address >> 8) };
|
|
}
|
|
|
|
}
|
|
|
|
public static class Call_F_N extends InstructionObject {
|
|
|
|
public static Schema ARGUMENTS = new Schema(new Schema.IsFlag(), Schema.DIRECT_N);
|
|
|
|
private Expression argument1;
|
|
private Expression argument2;
|
|
|
|
public Call_F_N(Scope context, Expression argument1, Expression argument2) {
|
|
super(context);
|
|
this.argument1 = argument1;
|
|
this.argument2 = argument2;
|
|
}
|
|
|
|
@Override
|
|
public int getSize() {
|
|
return 3;
|
|
}
|
|
|
|
@Override
|
|
public byte[] getBytes() {
|
|
int address = argument2.getAddress();
|
|
return new byte[] { (byte)(0xC4 | argument1.getFlag().getCode() << 3), (byte)address, (byte)(address >> 8) };
|
|
}
|
|
|
|
}
|
|
|
|
}
|