A set of minimal dependency bootstrap binaries
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 
stage0/vm_decode.c

2805 lines
45 KiB

/* Copyright (C) 2016 Jeremiah Orians
* This file is part of stage0.
*
* stage0 is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* stage0 is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with stage0. If not, see <http://www.gnu.org/licenses/>.
*/
#include "vm.h"
uint64_t performance_counter;
#ifdef TRACE
void record_trace(char* c);
void print_traces();
#endif
/* Allocate and intialize memory/state */
struct lilith* create_vm(size_t size)
{
performance_counter = 0;
struct lilith* vm;
vm = calloc(1, sizeof(struct lilith));
vm->memory = calloc(size, sizeof(uint8_t));
vm->amount_of_Ram = size;
vm->halted = false;
vm->exception = false;
return vm;
}
/* Free up the memory we previously allocated */
void destroy_vm(struct lilith* vm)
{
free(vm->memory);
free(vm);
}
/* Validate Memory Addresses*/
void outside_of_world(struct lilith* vm, unsigned_vm_register place, char* message)
{
if(vm->amount_of_Ram <= place)
{
fprintf(stderr, "Invalid state reached after: %lu instructions\n", performance_counter);
fprintf(stderr, "%i: %s\n", place, message);
vm->halted = true;
#ifdef TRACE
record_trace("HALT");
print_traces();
#endif
exit(EXIT_FAILURE);
}
}
/* Deal with illegal instructions and their encodings */
void illegal_instruction(struct lilith* vm, struct Instruction* c)
{
fprintf(stderr, "Invalid instruction was received at address:%08X\n", c->ip);
fprintf(stderr, "After %lu instructions\n", performance_counter);
fprintf(stderr, "Unable to execute the following instruction:\n\t%s\n", c->operation);
c->invalid = true;
vm->halted = true;
#ifdef DEBUG
fprintf(stderr, "Computer Program has Halted\n");
#endif
#ifdef TRACE
record_trace("HALT");
print_traces();
#endif
exit(EXIT_FAILURE);
}
/* Deal with 4OP */
void decode_4OP(struct Instruction* c)
{
c->raw_XOP = c->raw1;
c->XOP[0] = c->operation[2];
c->XOP[1] = c->operation[3];
c->raw_Immediate = 0;
c->reg0 = c->raw2/16;
c->reg1 = c->raw2%16;
c->reg2 = c->raw3/16;
c->reg3 = c->raw3%16;
}
/* Deal with 3OP */
void decode_3OP(struct Instruction* c)
{
c->raw_XOP = c->raw1*0x10 + c->raw2/16;
c->XOP[0] = c->operation[2];
c->XOP[1] = c->operation[3];
c->XOP[2] = c->operation[4];
c->raw_Immediate = 0;
c->reg0 = c->raw2%16;
c->reg1 = c->raw3/16;
c->reg2 = c->raw3%16;
}
/* Deal with 2OP */
void decode_2OP(struct Instruction* c)
{
c->raw_XOP = c->raw1*0x100 + c->raw2;
c->XOP[0] = c->operation[2];
c->XOP[1] = c->operation[3];
c->XOP[2] = c->operation[4];
c->XOP[3] = c->operation[5];
c->raw_Immediate = 0;
c->reg0 = c->raw3/16;
c->reg1 = c->raw3%16;
}
/* Deal with 1OP */
void decode_1OP(struct Instruction* c)
{
c->raw_XOP = c->raw1*0x1000 + c->raw2*0x10 + c->raw3/16;
c->XOP[0] = c->operation[2];
c->XOP[1] = c->operation[3];
c->XOP[2] = c->operation[4];
c->XOP[3] = c->operation[5];
c->XOP[4] = c->operation[6];
c->raw_Immediate = 0;
c->reg0 = c->raw3%16;
}
/* Deal with 2OPI */
void decode_2OPI(struct lilith* vm, struct Instruction* c)
{
c->raw_Immediate = (uint8_t)vm->memory[vm->ip];
vm->ip = vm->ip + 1;
uint8_t hold = (uint8_t)vm->memory[vm->ip];
vm->ip = vm->ip + 1;
c->raw_Immediate = c->raw_Immediate*0x100 + hold;
c->Immediate[0] = c->operation[4];
c->Immediate[1] = c->operation[5];
c->Immediate[2] = c->operation[6];
c->Immediate[3] = c->operation[7];
c->reg0 = c->raw3/16;
c->reg1 = c->raw3%16;
}
/* Deal with 1OPI */
void decode_1OPI(struct lilith* vm, struct Instruction* c)
{
c->raw_Immediate = (uint8_t)vm->memory[vm->ip];
vm->ip = vm->ip + 1;
uint8_t hold = (uint8_t)vm->memory[vm->ip];
vm->ip = vm->ip + 1;
c->raw_Immediate = c->raw_Immediate*0x100 + hold;
c->Immediate[0] = c->operation[4];
c->Immediate[1] = c->operation[5];
c->Immediate[2] = c->operation[6];
c->Immediate[3] = c->operation[7];
c->HAL_CODE = 0;
c->raw_XOP = c->raw3/16;
c->XOP[0] = c->operation[7];
c->reg0 = c->raw3%16;
}
/* Deal with 0OPI */
void decode_0OPI(struct Instruction* c)
{
c->raw_Immediate = c->raw2*0x100 + c->raw3;
c->Immediate[0] = c->operation[4];
c->Immediate[1] = c->operation[5];
c->Immediate[2] = c->operation[6];
c->Immediate[3] = c->operation[7];
c->HAL_CODE = 0;
c->raw_XOP = c->raw1;
c->XOP[0] = c->operation[2];
c->XOP[1] = c->operation[3];
}
/* Deal with Halcode */
void decode_HALCODE(struct Instruction* c)
{
c->HAL_CODE = c->raw1*0x10000 + c->raw2*0x100 + c->raw3;
}
/* Useful unpacking functions */
void unpack_byte(uint8_t a, char* c)
{
char table[16] = {0x30, 0x31, 0x32, 0x33, 0x34, 0x35, 0x36, 0x37, 0x38, 0x39, 0x41, 0x42, 0x43, 0x44, 0x45, 0x46};
c[0] = table[a / 16];
c[1] = table[a % 16];
}
/* Unpack the full instruction */
void unpack_instruction(struct Instruction* c)
{
unpack_byte(c->raw0, &(c->operation[0]));
unpack_byte(c->raw1, &(c->operation[2]));
unpack_byte(c->raw2, &(c->operation[4]));
unpack_byte(c->raw3, &(c->operation[6]));
c->opcode[0] = c->operation[0];
c->opcode[1] = c->operation[1];
}
/* Load instruction addressed at IP */
void read_instruction(struct lilith* vm, struct Instruction *current)
{
memset(current, 0, sizeof(struct Instruction));
/* Store IP for debugging */
current->ip = vm->ip;
outside_of_world(vm, current->ip, "READ Instruction outside of World");
/* Read the actual bytes and increment the IP */
current->raw0 = (uint8_t)vm->memory[vm->ip];
vm->ip = vm->ip + 1;
current->raw1 = (uint8_t)vm->memory[vm->ip];
vm->ip = vm->ip + 1;
current->raw2 = (uint8_t)vm->memory[vm->ip];
vm->ip = vm->ip + 1;
current->raw3 = (uint8_t)vm->memory[vm->ip];
vm->ip = vm->ip + 1;
unpack_instruction(current);
}
/* Process HALCODE instructions */
bool eval_HALCODE(struct lilith* vm, struct Instruction* c)
{
#ifdef DEBUG
char Name[20] = "ILLEGAL_HALCODE";
#endif
if(POSIX_MODE)
{
switch(c->HAL_CODE)
{
case 0x000002: /* fopen */
{
#ifdef DEBUG
strncpy(Name, "FOPEN", 19);
#elif TRACE
record_trace("FOPEN");
#endif
vm_FOPEN(vm);
break;
}
case 0x000003: /* fclose */
{
#ifdef DEBUG
strncpy(Name, "FCLOSE", 19);
#elif TRACE
record_trace("FCLOSE");
#endif
vm_FCLOSE(vm);
break;
}
case 0x000008: /* fseek */
{
#ifdef DEBUG
strncpy(Name, "FSEEK", 19);
#elif TRACE
record_trace("FSEEK");
#endif
vm_FSEEK(vm);
break;
}
case 0x00003C: /* EXIT */
{
#ifdef DEBUG
strncpy(Name, "EXIT", 19);
#elif TRACE
record_trace("EXIT");
#endif
vm_EXIT(vm, performance_counter);
break;
}
case 0x00003F: /* UNAME */
{
#ifdef DEBUG
strncpy(Name, "UNAME", 19);
#elif TRACE
record_trace("UNAME");
#endif
vm_UNAME(vm);
break;
}
case 0x00005A: /* CHMOD */
{
#ifdef DEBUG
strncpy(Name, "CHMOD", 19);
#elif TRACE
record_trace("CHMOD");
#endif
vm_CHMOD(vm);
break;
}
case 0x100100: /* fgetc */
{
#ifdef DEBUG
strncpy(Name, "FGETC", 19);
#elif TRACE
record_trace("FGETC");
#endif
vm_FGETC(vm);
break;
}
case 0x100200: /* fputc */
{
#ifdef DEBUG
strncpy(Name, "FPUTC", 19);
#elif TRACE
record_trace("FPUTC");
#endif
vm_FPUTC(vm);
break;
}
default:
{
fprintf(stderr, "Invalid HALCODE\nComputer Program has Halted\n");
illegal_instruction(vm, c);
break;
}
}
}
else
{
switch(c->HAL_CODE)
{
case 0x100000: /* fopen_read */
{
#ifdef DEBUG
strncpy(Name, "FOPEN_READ", 19);
#elif TRACE
record_trace("FOPEN_READ");
#endif
vm_FOPEN_READ(vm);
break;
}
case 0x100001: /* fopen_write */
{
#ifdef DEBUG
strncpy(Name, "FOPEN_WRITE", 19);
#elif TRACE
record_trace("FOPEN_WRITE");
#endif
vm_FOPEN_WRITE(vm);
break;
}
case 0x100002: /* fclose */
{
#ifdef DEBUG
strncpy(Name, "FCLOSE", 19);
#elif TRACE
record_trace("FCLOSE");
#endif
vm_FCLOSE(vm);
break;
}
case 0x100003: /* rewind */
{
#ifdef DEBUG
strncpy(Name, "REWIND", 19);
#elif TRACE
record_trace("REWIND");
#endif
vm_REWIND(vm);
break;
}
case 0x100004: /* fseek */
{
#ifdef DEBUG
strncpy(Name, "FSEEK", 19);
#elif TRACE
record_trace("FSEEK");
#endif
vm_FSEEK(vm);
break;
}
case 0x100100: /* fgetc */
{
#ifdef DEBUG
strncpy(Name, "FGETC", 19);
#elif TRACE
record_trace("FGETC");
#endif
vm_FGETC(vm);
break;
}
case 0x100200: /* fputc */
{
#ifdef DEBUG
strncpy(Name, "FPUTC", 19);
#elif TRACE
record_trace("FPUTC");
#endif
vm_FPUTC(vm);
break;
}
case 0x110000: /* HAL_MEM */
{
#ifdef DEBUG
strncpy(Name, "HAL_MEM", 19);
#elif TRACE
record_trace("HAL_MEM");
#endif
vm_HAL_MEM(vm);
break;
}
default:
{
fprintf(stderr, "Invalid HALCODE\nComputer Program has Halted\n");
illegal_instruction(vm, c);
break;
}
}
}
#ifdef DEBUG
fprintf(stdout, "# %s\n", Name);
#endif
return false;
}
/* Process 4OP Integer instructions */
bool eval_4OP_Int(struct lilith* vm, struct Instruction* c)
{
#ifdef DEBUG
char Name[20] = "ILLEGAL_4OP";
#endif
switch(c->raw_XOP)
{
case 0x00: /* ADD.CI */
{
#ifdef DEBUG
strncpy(Name, "ADD.CI", 19);
#elif TRACE
record_trace("ADD.CI");
#endif
ADD_CI(vm, c);
break;
}
case 0x01: /* ADD.CO */
{
#ifdef DEBUG
strncpy(Name, "ADD.CO", 19);
#elif TRACE
record_trace("ADD.CO");
#endif
ADD_CO(vm, c);
break;
}
case 0x02: /* ADD.CIO */
{
#ifdef DEBUG
strncpy(Name, "ADD.CIO", 19);
#elif TRACE
record_trace("ADD.CIO");
#endif
ADD_CIO(vm, c);
break;
}
case 0x03: /* ADDU.CI */
{
#ifdef DEBUG
strncpy(Name, "ADDU.CI", 19);
#elif TRACE
record_trace("ADDU.CI");
#endif
ADDU_CI(vm, c);
break;
}
case 0x04: /* ADDU.CO */
{
#ifdef DEBUG
strncpy(Name, "ADDU.CO", 19);
#elif TRACE
record_trace("ADDU.CO");
#endif
ADDU_CO(vm, c);
break;
}
case 0x05: /* ADDU.CIO */
{
#ifdef DEBUG
strncpy(Name, "ADDU.CIO", 19);
#elif TRACE
record_trace("ADDU.CIO");
#endif
ADDU_CIO(vm, c);
break;
}
case 0x06: /* SUB.BI */
{
#ifdef DEBUG
strncpy(Name, "SUB.BI", 19);
#elif TRACE
record_trace("SUB.BI");
#endif
SUB_BI(vm, c);
break;
}
case 0x07: /* SUB.BO */
{
#ifdef DEBUG
strncpy(Name, "SUB.BO", 19);
#elif TRACE
record_trace("SUB.BO");
#endif
SUB_BO(vm, c);
break;
}
case 0x08: /* SUB.BIO */
{
#ifdef DEBUG
strncpy(Name, "SUB.BIO", 19);
#elif TRACE
record_trace("SUB.BIO");
#endif
SUB_BIO(vm, c);
break;
}
case 0x09: /* SUBU.BI */
{
#ifdef DEBUG
strncpy(Name, "SUBU.BI", 19);
#elif TRACE
record_trace("SUBU.BI");
#endif
SUBU_BI(vm, c);
break;
}
case 0x0A: /* SUBU.BO */
{
#ifdef DEBUG
strncpy(Name, "SUBU.BO", 19);
#elif TRACE
record_trace("SUBU.BO");
#endif
SUBU_BO(vm, c);
break;
}
case 0x0B: /* SUBU.BIO */
{
#ifdef DEBUG
strncpy(Name, "SUBU.BIO", 19);
#elif TRACE
record_trace("SUBU.BIO");
#endif
SUBU_BIO(vm, c);
break;
}
case 0x0C: /* MULTIPLY */
{
#ifdef DEBUG
strncpy(Name, "MULTIPLY", 19);
#elif TRACE
record_trace("MULTIPLY");
#endif
MULTIPLY(vm, c);
break;
}
case 0x0D: /* MULTIPLYU */
{
#ifdef DEBUG
strncpy(Name, "MULTIPLYU", 19);
#elif TRACE
record_trace("MULTIPLYU");
#endif
MULTIPLYU(vm, c);
break;
}
case 0x0E: /* DIVIDE */
{
#ifdef DEBUG
strncpy(Name, "DIVIDE", 19);
#elif TRACE
record_trace("DIVIDE");
#endif
DIVIDE(vm, c);
break;
}
case 0x0F: /* DIVIDEU */
{
#ifdef DEBUG
strncpy(Name, "DIVIDEU", 19);
#elif TRACE
record_trace("DIVIDEU");
#endif
DIVIDEU(vm, c);
break;
}
case 0x10: /* MUX */
{
#ifdef DEBUG
strncpy(Name, "MUX", 19);
#elif TRACE
record_trace("MUX");
#endif
MUX(vm, c);
break;
}
case 0x11: /* NMUX */
{
#ifdef DEBUG
strncpy(Name, "NMUX", 19);
#elif TRACE
record_trace("NMUX");
#endif
NMUX(vm, c);
break;
}
case 0x12: /* SORT */
{
#ifdef DEBUG
strncpy(Name, "SORT", 19);
#elif TRACE
record_trace("SORT");
#endif
SORT(vm, c);
break;
}
case 0x13: /* SORTU */
{
#ifdef DEBUG
strncpy(Name, "SORTU", 19);
#elif TRACE
record_trace("SORTU");
#endif
SORTU(vm, c);
break;
}
default:
{
illegal_instruction(vm, c);
break;
}
}
#ifdef DEBUG
fprintf(stdout, "# %s reg%u reg%u reg%u reg%u\n", Name, c->reg0, c->reg1, c->reg2, c->reg3);
#endif
return false;
}
/* Process 3OP Integer instructions */
bool eval_3OP_Int(struct lilith* vm, struct Instruction* c)
{
#ifdef DEBUG
char Name[20] = "ILLEGAL_3OP";
#endif
switch(c->raw_XOP)
{
case 0x000: /* ADD */
{
#ifdef DEBUG
strncpy(Name, "ADD", 19);
#elif TRACE
record_trace("ADD");
#endif
ADD(vm, c);
break;
}
case 0x001: /* ADDU */
{
#ifdef DEBUG
strncpy(Name, "ADDU", 19);
#elif TRACE
record_trace("ADDU");
#endif
ADDU(vm, c);
break;
}
case 0x002: /* SUB */
{
#ifdef DEBUG
strncpy(Name, "SUB", 19);
#elif TRACE
record_trace("SUB");
#endif
SUB(vm, c);
break;
}
case 0x003: /* SUBU */
{
#ifdef DEBUG
strncpy(Name, "SUBU", 19);
#elif TRACE
record_trace("SUBU");
#endif
SUBU(vm, c);
break;
}
case 0x004: /* CMP */
{
#ifdef DEBUG
strncpy(Name, "CMP", 19);
#elif TRACE
record_trace("CMP");
#endif
CMP(vm, c);
break;
}
case 0x005: /* CMPU */
{
#ifdef DEBUG
strncpy(Name, "CMPU", 19);
#elif TRACE
record_trace("CMPU");
#endif
CMPU(vm, c);
break;
}
case 0x006: /* MUL */
{
#ifdef DEBUG
strncpy(Name, "MUL", 19);
#elif TRACE
record_trace("MUL");
#endif
MUL(vm, c);
break;
}
case 0x007: /* MULH */
{
#ifdef DEBUG
strncpy(Name, "MULH", 19);
#elif TRACE
record_trace("MULH");
#endif
MULH(vm, c);
break;
}
case 0x008: /* MULU */
{
#ifdef DEBUG
strncpy(Name, "MULU", 19);
#elif TRACE
record_trace("MULU");
#endif
MULU(vm, c);
break;
}
case 0x009: /* MULUH */
{
#ifdef DEBUG
strncpy(Name, "MULUH", 19);
#elif TRACE
record_trace("MULUH");
#endif
MULUH(vm, c);
break;
}
case 0x00A: /* DIV */
{
#ifdef DEBUG
strncpy(Name, "DIV", 19);
#elif TRACE
record_trace("DIV");
#endif
DIV(vm, c);
break;
}
case 0x00B: /* MOD */
{
#ifdef DEBUG
strncpy(Name, "MOD", 19);
#elif TRACE
record_trace("MOD");
#endif
MOD(vm, c);
break;
}
case 0x00C: /* DIVU */
{
#ifdef DEBUG
strncpy(Name, "DIVU", 19);
#elif TRACE
record_trace("DIVU");
#endif
DIVU(vm, c);
break;
}
case 0x00D: /* MODU */
{
#ifdef DEBUG
strncpy(Name, "MODU", 19);
#elif TRACE
record_trace("MODU");
#endif
MODU(vm, c);
break;
}
case 0x010: /* MAX */
{
#ifdef DEBUG
strncpy(Name, "MAX", 19);
#elif TRACE
record_trace("MAX");
#endif
MAX(vm, c);
break;
}
case 0x011: /* MAXU */
{
#ifdef DEBUG
strncpy(Name, "MAXU", 19);
#elif TRACE
record_trace("MAXU");
#endif
MAXU(vm, c);
break;
}
case 0x012: /* MIN */
{
#ifdef DEBUG
strncpy(Name, "MIN", 19);
#elif TRACE
record_trace("MIN");
#endif
MIN(vm, c);
break;
}
case 0x013: /* MINU */
{
#ifdef DEBUG
strncpy(Name, "MINU", 19);
#elif TRACE
record_trace("MINU");
#endif
MINU(vm, c);
break;
}
case 0x014: /* PACK */
case 0x015: /* UNPACK */
case 0x016: /* PACK8.CO */
case 0x017: /* PACK8U.CO */
case 0x018: /* PACK16.CO */
case 0x019: /* PACK16U.CO */
case 0x01A: /* PACK32.CO */
case 0x01B: /* PACK32U.CO */
{
illegal_instruction(vm, c);
break;
}
case 0x020: /* AND */
{
#ifdef DEBUG
strncpy(Name, "AND", 19);
#elif TRACE
record_trace("AND");
#endif
AND(vm, c);
break;
}
case 0x021: /* OR */
{
#ifdef DEBUG
strncpy(Name, "OR", 19);
#elif TRACE
record_trace("OR");
#endif
OR(vm, c);
break;
}
case 0x022: /* XOR */
{
#ifdef DEBUG
strncpy(Name, "XOR", 19);
#elif TRACE
record_trace("XOR");
#endif
XOR(vm, c);
break;
}
case 0x023: /* NAND */
{
#ifdef DEBUG
strncpy(Name, "NAND", 19);
#elif TRACE
record_trace("NAND");
#endif
NAND(vm, c);
break;
}
case 0x024: /* NOR */
{
#ifdef DEBUG
strncpy(Name, "NOR", 19);
#elif TRACE
record_trace("NOR");
#endif
NOR(vm, c);
break;
}
case 0x025: /* XNOR */
{
#ifdef DEBUG
strncpy(Name, "XNOR", 19);
#elif TRACE
record_trace("XNOR");
#endif
XNOR(vm, c);
break;
}
case 0x026: /* MPQ */
{
#ifdef DEBUG
strncpy(Name, "MPQ", 19);
#elif TRACE
record_trace("MPQ");
#endif
MPQ(vm, c);
break;
}
case 0x027: /* LPQ */
{
#ifdef DEBUG
strncpy(Name, "LPQ", 19);
#elif TRACE
record_trace("LPQ");
#endif
LPQ(vm, c);
break;
}
case 0x028: /* CPQ */
{
#ifdef DEBUG
strncpy(Name, "CPQ", 19);
#elif TRACE
record_trace("CPQ");
#endif
CPQ(vm, c);
break;
}
case 0x029: /* BPQ */
{
#ifdef DEBUG
strncpy(Name, "BPQ", 19);
#elif TRACE
record_trace("BPQ");
#endif
BPQ(vm, c);
break;
}
case 0x030: /* SAL */
{
#ifdef DEBUG
strncpy(Name, "SAL", 19);
#elif TRACE
record_trace("SAL");
#endif
SAL(vm, c);
break;
}
case 0x031: /* SAR */
{
#ifdef DEBUG
strncpy(Name, "SAR", 19);
#elif TRACE
record_trace("SAR");
#endif
SAR(vm, c);
break;
}
case 0x032: /* SL0 */
{
#ifdef DEBUG
strncpy(Name, "SL0", 19);
#elif TRACE
record_trace("SL0");
#endif
SL0(vm, c);
break;
}
case 0x033: /* SR0 */
{
#ifdef DEBUG
strncpy(Name, "SR0", 19);
#elif TRACE
record_trace("SR0");
#endif
SR0(vm, c);
break;
}
case 0x034: /* SL1 */
{
#ifdef DEBUG
strncpy(Name, "SL1", 19);
#elif TRACE
record_trace("SL1");
#endif
SL1(vm, c);
break;
}
case 0x035: /* SR1 */
{
#ifdef DEBUG
strncpy(Name, "SR1", 19);
#elif TRACE
record_trace("SR1");
#endif
SR1(vm, c);
break;
}
case 0x036: /* ROL */
{
#ifdef DEBUG
strncpy(Name, "ROL", 19);
#elif TRACE
record_trace("ROL");
#endif
ROL(vm, c);
break;
}
case 0x037: /* ROR */
{
#ifdef DEBUG
strncpy(Name, "ROR", 19);
#elif TRACE
record_trace("ROR");
#endif
ROR(vm, c);
break;
}
case 0x038: /* LOADX */
{
#ifdef DEBUG
strncpy(Name, "LOADX", 19);
#elif TRACE
record_trace("LOADX");
#endif
LOADX(vm, c);
break;
}
case 0x039: /* LOADX8 */
{
#ifdef DEBUG
strncpy(Name, "LOADX8", 19);
#elif TRACE
record_trace("LOADX8");
#endif
LOADX8(vm, c);
break;
}
case 0x03A: /* LOADXU8 */
{
#ifdef DEBUG
strncpy(Name, "LOADXU8", 19);
#elif TRACE
record_trace("LOADXU8");
#endif
LOADXU8(vm, c);
break;
}
case 0x03B: /* LOADX16 */
{
#ifdef DEBUG
strncpy(Name, "LOADX16", 19);
#elif TRACE
record_trace("LOADX16");
#endif
LOADX16(vm, c);
break;
}
case 0x03C: /* LOADXU16 */
{
#ifdef DEBUG
strncpy(Name, "LOADXU16", 19);
#elif TRACE
record_trace("LOADXU16");
#endif
LOADXU16(vm, c);
break;
}
case 0x03D: /* LOADX32 */
{
#ifdef DEBUG
strncpy(Name, "LOADX32", 19);
#elif TRACE
record_trace("LOADX32");
#endif
LOADX32(vm, c);
break;
}
case 0x03E: /* LOADXU32 */
{
#ifdef DEBUG
strncpy(Name, "LOADXU32", 19);
#elif TRACE
record_trace("LOADXU32");
#endif
LOADXU32(vm, c);
break;
}
case 0x048: /* STOREX */
{
#ifdef DEBUG
strncpy(Name, "STOREX", 19);
#elif TRACE
record_trace("STOREX");
#endif
STOREX(vm, c);
break;
}
case 0x049: /* STOREX8 */
{
#ifdef DEBUG
strncpy(Name, "STOREX8", 19);
#elif TRACE
record_trace("STOREX8");
#endif
STOREX8(vm, c);
break;
}
case 0x04A: /* STOREX16 */
{
#ifdef DEBUG
strncpy(Name, "STOREX16", 19);
#elif TRACE
record_trace("STOREX16");
#endif
STOREX16(vm, c);
break;
}
case 0x04B: /* STOREX32 */
{
#ifdef DEBUG
strncpy(Name, "STOREX32", 19);
#elif TRACE
record_trace("STOREX32");
#endif
STOREX32(vm, c);
break;
}
case 0x050: /* CMPJUMP.G */
{
#ifdef DEBUG
strncpy(Name, "CMPJUMP.G", 19);
#elif TRACE
record_trace("CMPJUMP.G");
#endif
CMPJUMP_G(vm, c);
break;
}
case 0x051: /* CMPJUMP.GE */
{
#ifdef DEBUG
strncpy(Name, "CMPJUMP.GE", 19);
#elif TRACE
record_trace("CMPJUMP.GE");
#endif
CMPJUMP_GE(vm, c);
break;
}
case 0x052: /* CMPJUMP.E */
{
#ifdef DEBUG
strncpy(Name, "CMPJUMP.E", 19);
#elif TRACE
record_trace("CMPJUMP.E");
#endif
CMPJUMP_E(vm, c);
break;
}
case 0x053: /* CMPJUMP.NE */
{
#ifdef DEBUG
strncpy(Name, "CMPJUMP.NE", 19);
#elif TRACE
record_trace("CMPJUMP.NE");
#endif
CMPJUMP_NE(vm, c);
break;
}
case 0x054: /* CMPJUMP.LE */
{
#ifdef DEBUG
strncpy(Name, "CMPJUMP.LE", 19);
#elif TRACE
record_trace("CMPJUMP.LE");
#endif
CMPJUMP_LE(vm, c);
break;
}
case 0x055: /* CMPJUMP.L */
{
#ifdef DEBUG
strncpy(Name, "CMPJUMP.L", 19);
#elif TRACE
record_trace("CMPJUMP.L");
#endif
CMPJUMP_L(vm, c);
break;
}
case 0x060: /* CMPJUMPU.G */
{
#ifdef DEBUG
strncpy(Name, "CMPJUMPU.G", 19);
#elif TRACE
record_trace("CMPJUMPU.G");
#endif
CMPJUMPU_G(vm, c);
break;
}
case 0x061: /* CMPJUMPU.GE */
{
#ifdef DEBUG
strncpy(Name, "CMPJUMPU.GE", 19);
#elif TRACE
record_trace("CMPJUMPU.GE");
#endif
CMPJUMPU_GE(vm, c);
break;
}
case 0x064: /* CMPJUMPU.LE */
{
#ifdef DEBUG
strncpy(Name, "CMPJUMPU.LE", 19);
#elif TRACE
record_trace("CMPJUMPU.LE");
#endif
CMPJUMPU_LE(vm, c);
break;
}
case 0x065: /* CMPJUMPU.L */
{
#ifdef DEBUG
strncpy(Name, "CMPJUMPU.L", 19);
#elif TRACE
record_trace("CMPJUMPU.L");
#endif
CMPJUMPU_L(vm, c);
break;
}
default:
{
illegal_instruction(vm, c);
break;
}
}
#ifdef DEBUG
fprintf(stdout, "# %s reg%u reg%u reg%u\n", Name, c->reg0, c->reg1, c->reg2);
#endif
return false;
}
/* Process 2OP Integer instructions */
bool eval_2OP_Int(struct lilith* vm, struct Instruction* c)
{
#ifdef DEBUG
char Name[20] = "ILLEGAL_2OP";
#endif
switch(c->raw_XOP)
{
case 0x0000: /* NEG */
{
#ifdef DEBUG
strncpy(Name, "NEG", 19);
#elif TRACE
record_trace("NEG");
#endif
NEG(vm, c);
break;
}
case 0x0001: /* ABS */
{
#ifdef DEBUG
strncpy(Name, "ABS", 19);
#elif TRACE
record_trace("ABS");
#endif
ABS(vm, c);
break;
}
case 0x0002: /* NABS */
{
#ifdef DEBUG
strncpy(Name, "NABS", 19);
#elif TRACE
record_trace("NABS");
#endif
NABS(vm, c);
break;
}
case 0x0003: /* SWAP */
{
#ifdef DEBUG
strncpy(Name, "SWAP", 19);
#elif TRACE
record_trace("SWAP");
#endif
SWAP(vm, c);
break;
}
case 0x0004: /* COPY */
{
#ifdef DEBUG
strncpy(Name, "COPY", 19);
#elif TRACE
record_trace("COPY");
#endif
COPY(vm, c);
break;
}
case 0x0005: /* MOVE */
{
#ifdef DEBUG
strncpy(Name, "MOVE", 19);
#elif TRACE
record_trace("MOVE");
#endif
MOVE(vm, c);
break;
}
case 0x0006: /* NOT */
{
#ifdef DEBUG
strncpy(Name, "NOT", 19);
#elif TRACE
record_trace("NOT");
#endif
NOT(vm, c);
break;
}
case 0x0100: /* BRANCH */
{
#ifdef DEBUG
strncpy(Name, "BRANCH", 19);
#elif TRACE
record_trace("BRANCH");
#endif
BRANCH(vm, c);
break;
}
case 0x0101: /* CALL */
{
#ifdef DEBUG
strncpy(Name, "CALL", 19);
#elif TRACE
record_trace("CALL");
#endif
CALL(vm, c);
break;
}
case 0x0200: /* PUSHR */
{
#ifdef DEBUG
strncpy(Name, "PUSHR", 19);
#elif TRACE
record_trace("PUSHR");
#endif
PUSHR(vm, c);
break;
}
case 0x0201: /* PUSH8 */
{
#ifdef DEBUG
strncpy(Name, "PUSH8", 19);
#elif TRACE
record_trace("PUSH8");
#endif
PUSH8(vm, c);
break;
}
case 0x0202: /* PUSH16 */
{
#ifdef DEBUG
strncpy(Name, "PUSH16", 19);
#elif TRACE
record_trace("PUSH16");
#endif
PUSH16(vm, c);
break;
}
case 0x0203: /* PUSH32 */
{
#ifdef DEBUG
strncpy(Name, "PUSH32", 19);
#elif TRACE
record_trace("PUSH32");
#endif
PUSH32(vm, c);
break;
}
case 0x0280: /* POPR */
{
#ifdef DEBUG
strncpy(Name, "POPR", 19);
#elif TRACE
record_trace("POPR");
#endif
POPR(vm, c);
break;
}
case 0x0281: /* POP8 */
{
#ifdef DEBUG
strncpy(Name, "POP8", 19);
#elif TRACE
record_trace("POP8");
#endif
POP8(vm, c);
break;
}
case 0x0282: /* POPU8 */
{
#ifdef DEBUG
strncpy(Name, "POPU8", 19);
#elif TRACE
record_trace("POPU8");
#endif
POPU8(vm, c);
break;
}
case 0x0283: /* POP16 */
{
#ifdef DEBUG
strncpy(Name, "POP16", 19);
#elif TRACE
record_trace("POP16");
#endif
POP16(vm, c);
break;
}
case 0x0284: /* POPU16 */
{
#ifdef DEBUG
strncpy(Name, "POPU16", 19);
#elif TRACE
record_trace("POPU16");
#endif
POPU16(vm, c);
break;
}
case 0x0285: /* POP32 */
{
#ifdef DEBUG
strncpy(Name, "POP32", 19);
#elif TRACE
record_trace("POP32");
#endif
POP32(vm, c);
break;
}
case 0x0286: /* POPU32 */
{
#ifdef DEBUG
strncpy(Name, "POPU32", 19);
#elif TRACE
record_trace("POPU32");
#endif
POPU32(vm, c);
break;
}
case 0x0300: /* CMPSKIP.G */
{
#ifdef DEBUG
strncpy(Name, "CMPSKIP.G", 19);
#elif TRACE
record_trace("CMPSKIP.G");
#endif
CMPSKIP_G(vm, c);
break;
}
case 0x0301: /* CMPSKIP.GE */
{
#ifdef DEBUG
strncpy(Name, "CMPSKIP.GE", 19);
#elif TRACE
record_trace("CMPSKIP.GE");
#endif
CMPSKIP_GE(vm, c);
break;
}
case 0x0302: /* CMPSKIP.E */
{
#ifdef DEBUG
strncpy(Name, "CMPSKIP.E", 19);
#elif TRACE
record_trace("CMPSKIP.E");
#endif
CMPSKIP_E(vm, c);
break;
}
case 0x0303: /* CMPSKIP.NE */
{
#ifdef DEBUG
strncpy(Name, "CMPSKIP.NE", 19);
#elif TRACE
record_trace("CMPSKIP.NE");
#endif
CMPSKIP_NE(vm, c);
break;
}
case 0x0304: /* CMPSKIP.LE */
{
#ifdef DEBUG
strncpy(Name, "CMPSKIP.LE", 19);
#elif TRACE
record_trace("CMPSKIP.LE");
#endif
CMPSKIP_LE(vm, c);
break;
}
case 0x0305: /* CMPSKIP.L */
{
#ifdef DEBUG
strncpy(Name, "CMPSKIP.L", 19);
#elif TRACE
record_trace("CMPSKIP.L");
#endif
CMPSKIP_L(vm, c);
break;
}
case 0x0380: /* CMPSKIPU.G */
{
#ifdef DEBUG
strncpy(Name, "CMPSKIPU.G", 19);
#elif TRACE
record_trace("CMPSKIPU.G");
#endif
CMPSKIPU_G(vm, c);
break;
}
case 0x0381: /* CMPSKIPU.GE */
{
#ifdef DEBUG
strncpy(Name, "CMPSKIPU.GE", 19);
#elif TRACE
record_trace("CMPSKIPU.GE");
#endif
CMPSKIPU_GE(vm, c);
break;
}
case 0x0384: /* CMPSKIPU.LE */
{
#ifdef DEBUG
strncpy(Name, "CMPSKIPU.LE", 19);
#elif TRACE
record_trace("CMPSKIPU.LE");
#endif
CMPSKIPU_LE(vm, c);
break;
}
case 0x0385: /* CMPSKIPU.L */
{
#ifdef DEBUG
strncpy(Name, "CMPSKIPU.L", 19);
#elif TRACE
record_trace("CMPSKIPU.L");
#endif
CMPSKIPU_L(vm, c);
break;
}
default:
{
illegal_instruction(vm, c);
break;
}
}
#ifdef DEBUG
fprintf(stdout, "# %s reg%u reg%u\n", Name, c->reg0, c->reg1);
#endif
return false;
}
/* Process 1OP Integer instructions */
bool eval_1OP_Int(struct lilith* vm, struct Instruction* c)
{
#ifdef DEBUG
char Name[20] = "ILLEGAL_1OP";
#endif
switch(c->raw_XOP)
{
case 0x00000: /* READPC */
{
#ifdef DEBUG
strncpy(Name, "READPC", 19);
#elif TRACE
record_trace("READPC");
#endif
READPC(vm, c);
break;
}
case 0x00001: /* READSCID */
{
#ifdef DEBUG
strncpy(Name, "READSCID", 19);
#elif TRACE
record_trace("READSCID");
#endif
READSCID(vm, c);
break;
}
case 0x00002: /* FALSE */
{
#ifdef DEBUG
strncpy(Name, "FALSE", 19);
#elif TRACE
record_trace("FALSE");
#endif
FALSE(vm, c);
break;
}
case 0x00003: /* TRUE */
{
#ifdef DEBUG
strncpy(Name, "TRUE", 19);
#elif TRACE
record_trace("TRUE");
#endif
TRUE(vm, c);
break;
}
case 0x01000: /* JSR_COROUTINE */
{
#ifdef DEBUG
strncpy(Name, "JSR_COROUTINE", 19);
#elif TRACE
record_trace("JSR_COROUTINE");
#endif
JSR_COROUTINE(vm, c);
break;
}
case 0x01001: /* RET */
{
#ifdef DEBUG
strncpy(Name, "RET", 19);
#elif TRACE
record_trace("RET");
#endif
RET(vm, c);
break;
}
case 0x02000: /* PUSHPC */
{
#ifdef DEBUG
strncpy(Name, "PUSHPC", 19);
#elif TRACE
record_trace("PUSHPC");
#endif
PUSHPC(vm, c);
break;
}
case 0x02001: /* POPPC */
{
#ifdef DEBUG
strncpy(Name, "POPPC", 19);
#elif TRACE
record_trace("POPPC");
#endif
POPPC(vm, c);
break;
}
default:
{
illegal_instruction(vm, c);
break;
}
}
#ifdef DEBUG
fprintf(stdout, "# %s reg%u\n", Name, c->reg0);
#endif
return false;
}
/* Process 2OPI Integer instructions */
bool eval_2OPI_Int(struct lilith* vm, struct Instruction* c)
{
#ifdef DEBUG
char Name[20] = "ILLEGAL_2OPI";
#endif
/* 0x0E ... 0x2B */
/* 0xB0 ... 0xDF */
switch(c->raw2)
{
case 0x0E: /* ADDI */
{
#ifdef DEBUG
strncpy(Name, "ADDI", 19);
#elif TRACE
record_trace("ADDI");
#endif
ADDI(vm, c);
break;
}
case 0x0F: /* ADDUI */
{
#ifdef DEBUG
strncpy(Name, "ADDUI", 19);
#elif TRACE
record_trace("ADDUI");
#endif
ADDUI(vm, c);
break;
}
case 0x10: /* SUBI */
{
#ifdef DEBUG
strncpy(Name, "SUBI", 19);
#elif TRACE
record_trace("SUBI");
#endif
SUBI(vm, c);
break;
}
case 0x11: /* SUBUI */
{
#ifdef DEBUG
strncpy(Name, "SUBUI", 19);
#elif TRACE
record_trace("SUBUI");
#endif
SUBUI(vm, c);
break;
}
case 0x12: /* CMPI */
{
#ifdef DEBUG
strncpy(Name, "CMPI", 19);
#elif TRACE
record_trace("CMPI");
#endif
CMPI(vm, c);
break;
}
case 0x13: /* LOAD */
{
#ifdef DEBUG
strncpy(Name, "LOAD", 19);
#elif TRACE
record_trace("LOAD");
#endif
LOAD(vm, c);
break;
}
case 0x14: /* LOAD8 */
{
#ifdef DEBUG
strncpy(Name, "LOAD8", 19);
#elif TRACE
record_trace("LOAD8");
#endif
LOAD8(vm, c);
break;
}
case 0x15: /* LOADU8 */
{
#ifdef DEBUG
strncpy(Name, "LOADU8", 19);
#elif TRACE
record_trace("LOADU8");
#endif
LOADU8(vm, c);
break;
}
case 0x16: /* LOAD16 */
{
#ifdef DEBUG
strncpy(Name, "LOAD16", 19);
#elif TRACE
record_trace("LOAD16");
#endif
LOAD16(vm, c);
break;
}
case 0x17: /* LOADU16 */
{
#ifdef DEBUG
strncpy(Name, "LOADU16", 19);
#elif TRACE
record_trace("LOADU16");
#endif
LOADU16(vm, c);
break;
}
case 0x18: /* LOAD32 */
{
#ifdef DEBUG
strncpy(Name, "LOAD32", 19);
#elif TRACE
record_trace("LOAD32");
#endif
LOAD32(vm, c);
break;
}
case 0x19: /* LOADU32 */
{
#ifdef DEBUG
strncpy(Name, "LOADU32", 19);
#elif TRACE
record_trace("LOADU32");
#endif
LOADU32(vm, c);
break;
}
case 0x1F: /* CMPUI */
{
#ifdef DEBUG
strncpy(Name, "CMPUI", 19);
#elif TRACE
record_trace("CMPUI");
#endif
CMPUI(vm, c);
break;
}
case 0x20: /* STORE */
{
#ifdef DEBUG
strncpy(Name, "STORE", 19);
#elif TRACE
record_trace("STORE");
#endif
STORE(vm, c);
break;
}
case 0x21: /* STORE8 */
{
#ifdef DEBUG
strncpy(Name, "STORE8", 19);
#elif TRACE
record_trace("STORE8");
#endif
STORE8(vm, c);
break;
}
case 0x22: /* STORE16 */
{
#ifdef DEBUG
strncpy(Name, "STORE16", 19);
#elif TRACE
record_trace("STORE16");
#endif
STORE16(vm, c);
break;
}
case 0x23: /* STORE32 */
{
#ifdef DEBUG
strncpy(Name, "STORE32", 19);
#elif TRACE
record_trace("STORE32");
#endif
STORE32(vm, c);
break;
}
case 0xB0: /* ANDI */
{
#ifdef DEBUG
strncpy(Name, "ANDI", 19);
#elif TRACE
record_trace("ANDI");
#endif
ANDI(vm, c);
break;
}
case 0xB1: /* ORI */
{
#ifdef DEBUG
strncpy(Name, "ORI", 19);
#elif TRACE
record_trace("ORI");
#endif
ORI(vm, c);
break;
}
case 0xB2: /* XORI */
{
#ifdef DEBUG
strncpy(Name, "XORI", 19);
#elif TRACE
record_trace("XORI");
#endif
XORI(vm, c);
break;
}
case 0xB3: /* NANDI */
{
#ifdef DEBUG
strncpy(Name, "NANDI", 19);
#elif TRACE
record_trace("NANDI");
#endif
NANDI(vm, c);
break;
}
case 0xB4: /* NORI */
{
#ifdef DEBUG
strncpy(Name, "NORI", 19);
#elif TRACE
record_trace("NORI");
#endif
NORI(vm, c);
break;
}
case 0xB5: /* XNORI */
{
#ifdef DEBUG
strncpy(Name, "XNORI", 19);
#elif TRACE
record_trace("XNORI");
#endif
XNORI(vm, c);
break;
}
case 0xC0: /* CMPJUMPI.G */
{
#ifdef DEBUG
strncpy(Name, "CMPJUMPI.G", 19);
#elif TRACE
record_trace("CMPJUMPI.G");
#endif
CMPJUMPI_G(vm, c);
break;
}
case 0xC1: /* CMPJUMPI.GE */
{
#ifdef DEBUG
strncpy(Name, "CMPJUMPI.GE", 19);
#elif TRACE
record_trace("CMPJUMPI.GE");
#endif
CMPJUMPI_GE(vm, c);
break;
}
case 0xC2: /* CMPJUMPI.E */
{
#ifdef DEBUG
strncpy(Name, "CMPJUMPI.E", 19);
#elif TRACE
record_trace("CMPJUMPI.E");
#endif
CMPJUMPI_E(vm, c);
break;
}
case 0xC3: /* CMPJUMPI.NE */
{
#ifdef DEBUG
strncpy(Name, "CMPJUMPI.NE", 19);
#elif TRACE
record_trace("CMPJUMPI.NE");
#endif
CMPJUMPI_NE(vm, c);
break;
}
case 0xC4: /* CMPJUMPI.LE */
{
#ifdef DEBUG
strncpy(Name, "CMPJUMPI.LE", 19);
#elif TRACE
record_trace("CMPJUMPI.LE");
#endif
CMPJUMPI_LE(vm, c);
break;
}
case 0xC5: /* CMPJUMPI.L */
{
#ifdef DEBUG
strncpy(Name, "CMPJUMPI.L", 19);
#elif TRACE
record_trace("CMPJUMPI.L");
#endif
CMPJUMPI_L(vm, c);
break;
}
case 0xD0: /* CMPJUMPUI.G */
{
#ifdef DEBUG
strncpy(Name, "CMPJUMPUI.G", 19);
#elif TRACE
record_trace("CMPJUMPUI.G");
#endif
CMPJUMPUI_G(vm, c);
break;
}
case 0xD1: /* CMPJUMPUI.GE */
{
#ifdef DEBUG
strncpy(Name, "CMPJUMPUI.GE", 19);
#elif TRACE
record_trace("CMPJUMPUI.GE");
#endif
CMPJUMPUI_GE(vm, c);
break;
}
case 0xD4: /* CMPJUMPUI.LE */
{
#ifdef DEBUG
strncpy(Name, "CMPJUMPUI.LE", 19);
#elif TRACE
record_trace("CMPJUMPUI.LE");
#endif
CMPJUMPUI_LE(vm, c);
break;
}
case 0xD5: /* CMPJUMPUI.L */
{
#ifdef DEBUG
strncpy(Name, "CMPJUMPUI.L", 19);
#elif TRACE
record_trace("CMPJUMPUI.L");
#endif
CMPJUMPUI_L(vm, c);
break;
}
default:
{
illegal_instruction(vm, c);
break;
}
}
#ifdef DEBUG
fprintf(stdout, "# %s reg%u reg%u %i\n", Name, c->reg0, c->reg1, c->raw_Immediate);
#endif
return false;
}
/* Process 1OPI Integer instructions */
bool eval_Integer_1OPI(struct lilith* vm, struct Instruction* c)
{
#ifdef DEBUG
char Name[20] = "ILLEGAL_1OPI";
#endif
uint32_t Opcode = (c->raw2 * 16) + c->raw_XOP;
switch(Opcode)
{
case 0x2C0: /* JUMP.C */
{
#ifdef DEBUG
strncpy(Name, "JUMP.C", 19);
#elif TRACE
record_trace("JUMP.C");
#endif
JUMP_C(vm, c);
break;
}
case 0x2C1: /* JUMP.B */
{
#ifdef DEBUG
strncpy(Name, "JUMP.B", 19);
#elif TRACE
record_trace("JUMP.B");
#endif
JUMP_B(vm, c);
break;
}
case 0x2C2: /* JUMP.O */
{
#ifdef DEBUG
strncpy(Name, "JUMP.O", 19);
#elif TRACE
record_trace("JUMP.O");
#endif
JUMP_O(vm, c);
break;
}
case 0x2C3: /* JUMP.G */
{
#ifdef DEBUG
strncpy(Name, "JUMP.G", 19);
#elif TRACE
record_trace("JUMP.G");
#endif
JUMP_G(vm, c);
break;
}
case 0x2C4: /* JUMP.GE */
{
#ifdef DEBUG
strncpy(Name, "JUMP.GE", 19);
#elif TRACE
record_trace("JUMP.GE");
#endif
JUMP_GE(vm, c);
break;
}
case 0x2C5: /* JUMP.E */
{
#ifdef DEBUG
strncpy(Name, "JUMP.E", 19);
#elif TRACE
record_trace("JUMP.E");
#endif
JUMP_E(vm, c);
break;
}
case 0x2C6: /* JUMP.NE */
{
#ifdef DEBUG
strncpy(Name, "JUMP.NE", 19);
#elif TRACE
record_trace("JUMP.NE");
#endif
JUMP_NE(vm, c);
break;
}
case 0x2C7: /* JUMP.LE */
{
#ifdef DEBUG
strncpy(Name, "JUMP.LE", 19);
#elif TRACE
record_trace("JUMP.LE");
#endif
JUMP_LE(vm, c);
break;
}
case 0x2C8: /* JUMP.L */
{
#ifdef DEBUG
strncpy(Name, "JUMP.L", 19);
#elif TRACE
record_trace("JUMP.L");
#endif
JUMP_L(vm, c);
break;
}
case 0x2C9: /* JUMP.Z */
{
#ifdef DEBUG
strncpy(Name, "JUMP.Z", 19);
#elif TRACE
record_trace("JUMP.Z");
#endif
JUMP_Z(vm, c);
break;
}
case 0x2CA: /* JUMP.NZ */
{
#ifdef DEBUG
strncpy(Name, "JUMP.NZ", 19);
#elif TRACE
record_trace("JUMP.NZ");
#endif
JUMP_NZ(vm, c);
break;
}
case 0x2CB: /* JUMP.P */
{
#ifdef DEBUG
strncpy(Name, "JUMP.P", 19);
#elif TRACE
record_trace("JUMP.P");
#endif
JUMP_P(vm, c);
break;
}
case 0x2CC: /* JUMP.NP */
{
#ifdef DEBUG
strncpy(Name, "JUMP.NP", 19);
#elif TRACE
record_trace("JUMP.NP");
#endif
JUMP_NP(vm, c);
break;
}
case 0x2D0: /* CALLI */
{
#ifdef DEBUG
strncpy(Name, "CALLI", 19);
#elif TRACE
record_trace("CALLI");
#endif
CALLI(vm, c);
break;
}
case 0x2D1: /* LOADI */
{
#ifdef DEBUG
strncpy(Name, "LOADI", 19);
#elif TRACE
record_trace("LOADI");
#endif
LOADI(vm, c);
break;
}
case 0x2D2: /* LOADUI*/
{
#ifdef DEBUG
strncpy(Name, "LOADUI", 19);
#elif TRACE
record_trace("LOADUI");
#endif
LOADUI(vm, c);
break;
}
case 0x2D3: /* SALI */
{
#ifdef DEBUG
strncpy(Name, "SALI", 19);
#elif TRACE
record_trace("SALI");
#endif
SALI(vm, c);
break;
}
case 0x2D4: /* SARI */
{
#ifdef DEBUG
strncpy(Name, "SARI", 19);
#elif TRACE
record_trace("SARI");
#endif
SARI(vm, c);
break;
}
case 0x2D5: /* SL0I */
{
#ifdef DEBUG
strncpy(Name, "SL0I", 19);
#elif TRACE
record_trace("SL0I");
#endif
SL0I(vm, c);
break;
}
case 0x2D6: /* SR0I */
{
#ifdef DEBUG
strncpy(Name, "SR0I", 19);
#elif TRACE
record_trace("SR0I");
#endif
SR0I(vm, c);
break;
}
case 0x2D7: /* SL1I */
{
#ifdef DEBUG
strncpy(Name, "SL1I", 19);
#elif TRACE
record_trace("SL1I");
#endif
SL1I(vm, c);
break;
}
case 0x2D8: /* SR1I */
{
#ifdef DEBUG
strncpy(Name, "SR1I", 19);
#elif TRACE
record_trace("SR1I");
#endif
SR1I(vm, c);
break;
}
case 0x2E0: /* LOADR */
{
#ifdef DEBUG
strncpy(Name, "LOADR", 19);
#elif TRACE
record_trace("LOADR");
#endif
LOADR(vm, c);
break;
}
case 0x2E1: /* LOADR8 */
{
#ifdef DEBUG
strncpy(Name, "LOADR8", 19);
#elif TRACE
record_trace("LOADR8");
#endif
LOADR8(vm, c);
break;
}
case 0x2E2: /* LOADRU8 */
{
#ifdef DEBUG
strncpy(Name, "LOADRU8", 19);
#elif TRACE
record_trace("LOADRU8");
#endif
LOADRU8(vm, c);
break;
}
case 0x2E3: /* LOADR16 */
{
#ifdef DEBUG
strncpy(Name, "LOADR16", 19);
#elif TRACE
record_trace("LOADR16");
#endif
LOADR16(vm, c);
break;
}
case 0x2E4: /* LOADRU16 */
{
#ifdef DEBUG
strncpy(Name, "LOADRU16", 19);
#elif TRACE
record_trace("LOADRU16");
#endif
LOADRU16(vm, c);
break;
}
case 0x2E5: /* LOADR32 */
{
#ifdef DEBUG
strncpy(Name, "LOADR32", 19);
#elif TRACE
record_trace("LOADR32");
#endif
LOADR32(vm, c);
break;
}
case 0x2E6: /* LOADRU32 */
{
#ifdef DEBUG
strncpy(Name, "LOADRU32", 19);
#elif TRACE
record_trace("LOADRU32");
#endif
LOADRU32(vm, c);
break;
}
case 0x2F0: /* STORER */
{
#ifdef DEBUG
strncpy(Name, "STORER", 19);
#elif TRACE
record_trace("STORER");
#endif
STORER(vm, c);
break;
}
case 0x2F1: /* STORER8 */
{
#ifdef DEBUG
strncpy(Name, "STORER8", 19);
#elif TRACE
record_trace("STORER8");
#endif
STORER8(vm, c);
break;
}
case 0x2F2: /* STORER16 */
{
#ifdef DEBUG
strncpy(Name, "STORER16", 19);
#elif TRACE
record_trace("STORER16");
#endif
STORER16(vm, c);
break;
}
case 0x2F3: /* STORER32 */
{
#ifdef DEBUG
strncpy(Name, "STORER32", 19);
#elif TRACE
record_trace("STORER32");
#endif
STORER32(vm, c);
break;
}
case 0xA00: /* CMPSKIPI.G */
{
#ifdef DEBUG
strncpy(Name, "CMPSKIPI.G", 19);
#elif TRACE
record_trace("CMPSKIPI.G");
#endif
CMPSKIPI_G(vm, c);
break;
}
case 0xA01: /* CMPSKIPI.GE */
{
#ifdef DEBUG
strncpy(Name, "CMPSKIPI.GE", 19);
#elif TRACE
record_trace("CMPSKIPI.GE");
#endif
CMPSKIPI_GE(vm, c);
break;
}
case 0xA02: /* CMPSKIPI.E */
{
#ifdef DEBUG
strncpy(Name, "CMPSKIPI.E", 19);
#elif TRACE
record_trace("CMPSKIPI.E");
#endif
CMPSKIPI_E(vm, c);
break;
}
case 0xA03: /* CMPSKIPI.NE */
{
#ifdef DEBUG
strncpy(Name, "CMPSKIPI.NE", 19);
#elif TRACE
record_trace("CMPSKIPI.NE");
#endif
CMPSKIPI_NE(vm, c);
break;
}
case 0xA04: /* CMPSKIPI.LE */
{
#ifdef DEBUG
strncpy(Name, "CMPSKIPI.LE", 19);
#elif TRACE
record_trace("CMPSKIPI.LE");
#endif
CMPSKIPI_LE(vm, c);
break;
}
case 0xA05: /* CMPSKIPI.L */
{
#ifdef DEBUG
strncpy(Name, "CMPSKIPI.L", 19);
#elif TRACE
record_trace("CMPSKIPI.L");
#endif
CMPSKIPI_L(vm, c);
break;
}
case 0xA10: /* CMPSKIPUI.G */
{
#ifdef DEBUG
strncpy(Name, "CMPSKIPUI.G", 19);
#elif TRACE
record_trace("CMPSKIPUI.G");
#endif
CMPSKIPUI_G(vm, c);
break;
}
case 0xA11: /* CMPSKIPUI.GE */
{
#ifdef DEBUG
strncpy(Name, "CMPSKIPUI.GE", 19);
#elif TRACE
record_trace("CMPSKIPUI.GE");
#endif
CMPSKIPUI_GE(vm, c);
break;
}
case 0xA14: /* CMPSKIPUI.LE */
{
#ifdef DEBUG
strncpy(Name, "CMPSKIPUI.LE", 19);
#elif TRACE
record_trace("CMPSKIPUI.LE");
#endif
CMPSKIPUI_LE(vm, c);
break;
}
case 0xA15: /* CMPSKIPUI.L */
{
#ifdef DEBUG
strncpy(Name, "CMPSKIPUI.L", 19);
#elif TRACE
record_trace("CMPSKIPUI.L");
#endif
CMPSKIPUI_L(vm, c);
break;
}
default:
{
illegal_instruction(vm, c);
break;
}
}
#ifdef DEBUG
fprintf(stdout, "# %s reg%u %d\n", Name, c->reg0, c->raw_Immediate);
#endif
return false;
}
/* Process 0OPI Integer instructions */
bool eval_Integer_0OPI(struct lilith* vm, struct Instruction* c)
{
#ifdef DEBUG
char Name[20] = "ILLEGAL_0OPI";
#endif
switch(c->raw_XOP)
{
case 0x00: /* JUMP */
{
#ifdef DEBUG
strncpy(Name, "JUMP", 19);
#elif TRACE
record_trace("JUMP");
#endif
JUMP(vm, c);
break;
}
default:
{
illegal_instruction(vm, c);
break;
}
}
#ifdef DEBUG
fprintf(stdout, "# %s %d\n", Name, c->raw_Immediate);
#endif
return false;
}
/* Use Opcode to decide what to do and then have it done */
void eval_instruction(struct lilith* vm, struct Instruction* current)
{
performance_counter = performance_counter + 1;
#ifdef DEBUG
fprintf(stdout, "Executing: %s\n", current->operation);
usleep(1000);
#endif
switch(current->raw0)
{
case 0x00: /* Deal with NOPs */
{
if(0 == current->raw0 && 0 == current->raw1 && 0 == current->raw2 && 0 == current->raw3)
{
#ifdef TRACE
record_trace("NOP");
#endif
return;
}
illegal_instruction(vm, current);
}
case 0x01: /* Integer 4OP */
{
decode_4OP(current);
eval_4OP_Int(vm, current);
break;
}
case 0x05: /* Integer 3OP */
{
decode_3OP(current);
eval_3OP_Int(vm, current);
break;
}
case 0x09: /* Integer 2OP */
{
decode_2OP(current);
eval_2OP_Int(vm, current);
break;
}
case 0x0D: /* Integer 1OP */
{
decode_1OP(current);
eval_1OP_Int(vm, current);
break;
}
case 0xE1: /* Integer 2OPI */
{
decode_2OPI(vm, current);
eval_2OPI_Int(vm, current);
break;
}
case 0xE0: /* Integer 1OPI */
{
decode_1OPI(vm, current);
eval_Integer_1OPI(vm, current);
break;
}
case 0x3C: /* Integer 0OPI */
{
decode_0OPI(current);
eval_Integer_0OPI(vm, current);
break;
}
case 0x42: /* HALCODE */
{
decode_HALCODE(current);
eval_HALCODE(vm, current);
break;
}
case 0xFF: /* Deal with HALT */
{
vm->halted = true;
fprintf(stderr, "Computer Program has Halted\nAfter Executing %lu instructions\n", performance_counter);
#ifdef TRACE
record_trace("HALT");
print_traces();
#endif
break;
}
default: /* Deal with illegal instruction */
{
illegal_instruction(vm, current);
break;
}
}
}