anon/eaxhla
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Extended ASM debug...

Browse Source
This commit is contained in:
xolatile 2024-11-17 11:23:47 -05:00
parent 34e0dee3e3
commit d3acad57f6
1 changed files with 105 additions and 27 deletions

132
source/assembler.c

@ -157,6 +157,8 @@ static void modify_memory(int operation,
static int store_relative(int * array) { static int store_relative(int * array) {
int relative = array[1]; int relative = array[1];
debug_print("@yasmrel@- %i", relative);
empty_array[empty_holes] = text_sector_size; empty_array[empty_holes] = text_sector_size;
empty_imbue[empty_holes] = relative; empty_imbue[empty_holes] = relative;
@ -168,6 +170,8 @@ static int store_relative(int * array) {
static int store_memory(int * array) { static int store_memory(int * array) {
int memory = array[1]; int memory = array[1];
debug_print("@yasmmem@- %i", memory);
empty_store[memory] = text_sector_size; empty_store[memory] = text_sector_size;
++empty_count; ++empty_count;
@ -179,6 +183,8 @@ static int store_immediate(int * array) {
int size = array[1], int size = array[1],
amount = array[2]; amount = array[2];
debug_print("@yasmimm@- @b%s@- %i", size_name [size], amount);
for (int index = 0; index < amount; ++index) { for (int index = 0; index < amount; ++index) {
inset_immediate(1, size, array[3 + index]); inset_immediate(1, size, array[3 + index]);
} }
@ -199,7 +205,7 @@ static int build_double(int * array) {
debug_error(to > MEM, "to : double = %i; -- XBA\n", to); debug_error(to > MEM, "to : double = %i; -- XBA\n", to);
debug_error(from > IMM, "from : double = %i; -- XBA\n", from); debug_error(from > IMM, "from : double = %i; -- XBA\n", from);
debug_print("@y%s@- @b%s@- @c%s@- %u @c%s@- %u", debug_print("@y%s@- @b%s@- @c%s@- %i @c%s@- %i",
operation_name [operation], operation_name [operation],
size_name [size], size_name [size],
operand_name [to], operand_name [to],
@ -258,7 +264,7 @@ static int build_single(int * array) {
debug_error(size > D64, "size : single = %i; -- XBA\n", size); debug_error(size > D64, "size : single = %i; -- XBA\n", size);
debug_error(to > MEM, "to : single = %i; -- XBA\n", to); debug_error(to > MEM, "to : single = %i; -- XBA\n", to);
debug_print("@y%s@- @b%s@- @c%s@- %u", debug_print("@y%s@- @b%s@- @c%s@- %i",
operation_name [operation], operation_name [operation],
size_name [size], size_name [size],
operand_name [to], operand_name [to],
@ -316,8 +322,13 @@ static int build_static_2(int * array) {
static int build_jump_if(int * array) { static int build_jump_if(int * array) {
int operation = array[0], int operation = array[0],
size = array[1], size = array[1],
location = array[3]; location = array[3];
debug_print("@y%s@- @b%s@- @crel@- %i",
operation_name [operation],
size_name [size],
location);
inset(far(location) && (size == D32), 0x0f); inset(far(location) && (size == D32), 0x0f);
@ -331,11 +342,19 @@ static int build_jump_if(int * array) {
static int build_move_if(int * array) { static int build_move_if(int * array) {
int operation = array[0], int operation = array[0],
size = array[1], size = array[1],
to = array[2], to = array[2],
destination = array[3], destination = array[3],
from = array[4], from = array[4],
source = array[5]; source = array[5];
debug_print("@y%s@- @b%s@- @c%s@- %i @c%s@- %i",
operation_name [operation],
size_name [size],
operand_name [to],
destination,
operand_name [from],
source);
short_prefix(size); short_prefix(size);
@ -353,8 +372,17 @@ static int build_move_if(int * array) {
static int build_set_if(int * array) { static int build_set_if(int * array) {
int operation = array[0], int operation = array[0],
to = array[2], size = array[1],
destination = array[3]; to = array[2],
destination = array[3];
debug_error(size != D8, "bla bla");
debug_print("@y%s@- @b%s@- @c%s@- %i",
operation_name [operation],
size_name [size],
operand_name [to],
destination);
inset((to == REG) && (front(destination)), 0x40); inset((to == REG) && (front(destination)), 0x40);
inset((to == REG) && (upper(destination)), 0x41); inset((to == REG) && (upper(destination)), 0x41);
@ -375,6 +403,11 @@ static int build_jump(int * array) {
to = array[2], to = array[2],
destination = array[3]; destination = array[3];
debug_print("@yjmp@- @b%s@- @c%s@- %i",
size_name [size],
operand_name [to],
destination);
inset((to == REG) && upper(destination), 0X41); inset((to == REG) && upper(destination), 0X41);
inset(to == REL, 0xe9 + 0x02 * (size == D8)); inset(to == REL, 0xe9 + 0x02 * (size == D8));
@ -403,7 +436,7 @@ static int build_move(int * array) {
debug_error(to > MEM, "to : move = %i; -- XBA\n", to); debug_error(to > MEM, "to : move = %i; -- XBA\n", to);
debug_error(from > IMM, "from : move = %i; -- XBA\n", from); debug_error(from > IMM, "from : move = %i; -- XBA\n", from);
debug_print("@ymov@- @b%s@- @c%s@- %u @c%s@- %u %u", debug_print("@ymov@- @b%s@- @c%s@- %i @c%s@- %i %i",
size_name [size], size_name [size],
operand_name [to], operand_name [to],
destination, destination,
@ -448,9 +481,7 @@ static int build_call(int * array) {
int from = array[1], int from = array[1],
source = array[2]; source = array[2];
debug_print("@ycall@- @c%s@- %u", debug_print("@ycall@- @c%s@- %i", operand_name [from], source);
operand_name [from],
source);
inset((from == REG) && (upper(source)), 0x41); inset((from == REG) && (upper(source)), 0x41);
@ -466,9 +497,9 @@ static int build_call(int * array) {
static int build_enter(int * array) { static int build_enter(int * array) {
int dynamic_storage = array[1], int dynamic_storage = array[1],
nesting_level = array[2]; nesting_level = array[2];
debug_print("@yenter@- %u %u", dynamic_storage, nesting_level); debug_print("@yenter@- %i %i", dynamic_storage, nesting_level);
inset(1, 0xc8); inset(1, 0xc8);
@ -485,6 +516,12 @@ static int build_float(int * array) {
from = array[2], from = array[2],
source = array[3]; source = array[3];
debug_print("@y%s@- @b%s@- @c%s@- %i",
operation_name [operation],
size_name [size],
operand_name [from],
source);
inset(from == MEM, 0xd8 + 0x04 * (size == D64)); inset(from == MEM, 0xd8 + 0x04 * (size == D64));
modify_memory(operation - FLOAT_BEGIN, 0, from); modify_memory(operation - FLOAT_BEGIN, 0, from);
@ -501,6 +538,13 @@ static int build_shift(int * array) {
destination = array[3], destination = array[3],
offset = array[5]; offset = array[5];
debug_print("@y%s@- @b%s@- @c%s@- %i @cimm@- %i",
operation_name [operation],
size_name [size],
operand_name [to],
destination,
offset);
short_prefix(size); short_prefix(size);
long_prefix(size, to, destination, 0, 0); long_prefix(size, to, destination, 0, 0);
@ -523,6 +567,12 @@ static int build_in_out(int * array) {
type = array[2], type = array[2],
port = array[3]; port = array[3];
debug_print("@y%s@- @b%s@- @c%s@- %i",
operation_name [move],
size_name [size],
operand_name [type],
port);
short_prefix(size); short_prefix(size);
// Shorten and extend, I think we're not covering all cases. // Shorten and extend, I think we're not covering all cases.
@ -538,6 +588,11 @@ static int build_pop(int * array) {
to = array[2], to = array[2],
destination = array[3]; destination = array[3];
debug_print("@ypop@- @b%s@- @c%s@- %i",
size_name [size],
operand_name [to],
destination);
short_prefix(size); short_prefix(size);
inset((to == REG) && (upper(destination)), 0x41); inset((to == REG) && (upper(destination)), 0x41);
@ -556,6 +611,11 @@ static int build_push(int * array) {
from = array[2], from = array[2],
source = array[3]; source = array[3];
debug_print("@ypush@- @b%s@- @c%s@- %i",
size_name [size],
operand_name [from],
source);
short_prefix(size); short_prefix(size);
inset((from == REG) && (upper(source)), 0x41); inset((from == REG) && (upper(source)), 0x41);
@ -576,6 +636,10 @@ static int build_swap(int * array) {
int size = array[1], int size = array[1],
destination = array[3]; destination = array[3];
debug_print("@yswap@- @b%s@- @creg@- %i",
size_name [size],
destination);
long_prefix(size, REG, destination, 0, 0); long_prefix(size, REG, destination, 0, 0);
inset(1, 0x0f); inset(1, 0x0f);
@ -584,17 +648,26 @@ static int build_swap(int * array) {
return 3; return 3;
} }
// Forward or reverse...?!
static int build_bit_scan(int * array) { static int build_bit_scan(int * array) {
int size = array[1], int operation = array[0],
destination = array[3], size = array[1],
from = array[4], destination = array[3],
source = array[5]; from = array[4],
source = array[5];
debug_print("@y%s@- @b%s@- @creg@- %i @c%s@- %i",
operation_name [operation],
size_name [size],
destination,
operand_name [from],
source);
short_prefix(size); short_prefix(size);
long_prefix(size, REG, destination, from, source); long_prefix(size, REG, destination, from, source);
inset_immediate(1, D16, 0xbc0f); inset_immediate(1, D16, 0xbc0f + 0x100 * (operation == BSR));
modify_registers(REG, destination, from, source); modify_registers(REG, destination, from, source);
@ -606,11 +679,16 @@ static int build_bit_scan(int * array) {
} }
static int build_loop(int * array) { static int build_loop(int * array) {
int location = array[3]; int operation = array[0],
location = array[3];
inset(array[0] == LOOPNE, 0xe0); debug_print("@y%s@- @bd8@- @crel@- %i",
inset(array[0] == LOOPE, 0xe1); operation_name [operation],
inset(array[0] == LOOP, 0xe2); location);
inset(operation == LOOPNE, 0xe0);
inset(operation == LOOPE, 0xe1);
inset(operation == LOOP, 0xe2);
inset_memory(1, D8, location, -text_sector_size - 1); inset_memory(1, D8, location, -text_sector_size - 1);
@ -683,7 +761,7 @@ int assemble (int count, int * array) {
index += build_instruction[array[index]](&array[index]); index += build_instruction[array[index]](&array[index]);
debug_print(" -- "); debug_print(" @a--@- ");
for (int byte = size; byte < text_sector_size; ++byte) { for (int byte = size; byte < text_sector_size; ++byte) {
debug_print("@p%02X@- ", (unsigned char)text_sector_byte[byte]); debug_print("@p%02X@- ", (unsigned char)text_sector_byte[byte]);
} }