Files
perfaware/code/part_1/sim_8086.c
T

89 lines
2.5 KiB
C

#include "duffle/dsl.h"
#include "duffle/analysis.h"
#include "duffle/math.h"
#include "duffle/memory.h"
#include "duffle/hashing.h"
#include "duffle/encoding.h"
#include "duffle/tables.h"
#include "duffle/text.h"
#include "duffle/files.h"
#include "duffle/win32.h"
typedef Struct_(U2_HL) { U1 Low; U1 High; };
#define bitmask_(pos) (1 << pos)
#define bit_isolate(bitfield, pos) (bitmask_(pos) & value)
#define serialize_bit(bitfield, pos) (bit_isolate(bitfield, pos) == bitmask_(pos) ? '1' : '0')
typedef Enum_(U4, Endieaness) {
Little,
Big,
};
FI_ void a8utf8_from_u1_le(UTF8 out[8], U1 value) {
out[0] = serialize_bit(value, 7);
out[1] = serialize_bit(value, 6);
out[2] = serialize_bit(value, 5);
out[3] = serialize_bit(value, 4);
out[4] = serialize_bit(value, 3);
out[5] = serialize_bit(value, 2);
out[6] = serialize_bit(value, 1);
out[7] = serialize_bit(value, 0);
}
FI_ void a8utf8_from_u1_be(UTF8 out[8], U1 value) {
out[0] = serialize_bit(value, 0);
out[1] = serialize_bit(value, 1);
out[2] = serialize_bit(value, 2);
out[3] = serialize_bit(value, 3);
out[4] = serialize_bit(value, 4);
out[5] = serialize_bit(value, 5);
out[6] = serialize_bit(value, 6);
out[7] = serialize_bit(value, 7);
}
I_ U4 binary_as_str8_eval_len(Slice_U1 data) { return data.len * 8; }
#define jump_lt(a,b,label) if (a < b) goto label
I_ Str8 binary_as_str8(Slice_U1 data, FArena* str8_mem) { Str8 result = {0};
U4 req_len = data.len * 8; jump_lt(str8_mem->capacity,req_len, jret);
result = farena_push_array(str8_mem, UTF8, req_len);
for index_iter(U4,cursor, 0,<,req_len) { a8utf8_from_u1_le(result.ptr + cursor, data.ptr[cursor]); }
jret: return result;
}
typedef Enum_(U4, x86_Op) {
x86_mov
};
enum {
Scratchpad_Len = kilo(1),
FileRam_Len = kilo(16),
};
typedef Struct_(SMemory) {
U1 Scratchpad [Scratchpad_Len];
U1 FileRam [FileRam_Len];
};
global SMemory smem;
#define path_course_content "./course_content/perfaware/"
#define path_part1 path_course_content "part1/"
CLANG_OPTIMIZE_DISABLE
int main()
{
FArena scratch = farena_make(slice_ut_arr(smem.Scratchpad));
FArena file_arena = farena_make(slice_ut_arr(smem.FileRam));
Str8 path_listing_0037_single_register_mov = slit8(path_part1 "listing_0037_single_register_mov");
Str8 path_listing_0037_single_register_mov_asm = slit8(path_part1 "listing_0037_single_register_mov.asm");
Slice_U1 data = data_from_file_path(& file_arena, path_listing_0037_single_register_mov, & scratch);
ms_exit_process(0);
return 0;
}
CLANG_OPTIMIZE_ENABLE