Mercurial > repos > blastem
view vos_program_module.c @ 999:238141756e67
Set sprite overflow flag if we completely consume sprite rendering capacity for the line even if there is nothing left to draw. This graphical corruption in the vertical stretching scroll section. Needs hardware confirmation.
author | Michael Pavone <pavone@retrodev.com> |
---|---|
date | Sat, 30 Apr 2016 16:19:19 -0700 |
parents | de6f00204fa2 |
children |
line wrap: on
line source
#include <stdio.h> #include <stdlib.h> #include <stddef.h> #include <string.h> #include "vos_program_module.h" static uint16_t big16(uint8_t ** src) { uint16_t ret = *((*src)++) << 8; ret |= *((*src)++); return ret; } static uint32_t big32(uint8_t ** src) { uint32_t ret = *((*src)++) << 24; ret |= *((*src)++) << 16; ret |= *((*src)++) << 8; ret |= *((*src)++); return ret; } static void string_(uint8_t ** src, uint16_t *len, char * str, uint32_t storage) { *len = big16(src); memcpy(str, *src, storage); *src += storage; if (*len >= storage) { *len = storage; } else { str[*len] = 0; } if (storage & 1) { (*src)++; } } #define string(src, field) string_(src, &(field).len, (field).str, sizeof((field).str)) int vos_read_header(FILE * f, vos_program_module *out) { uint8_t buffer[4096]; if (fread(buffer, 1, sizeof(buffer), f) != sizeof(buffer)) { return 0; } uint8_t *cur = buffer; out->version = big16(&cur); string(&cur, out->binder_version); string(&cur, out->binder_options); string(&cur, out->system_name); string(&cur, out->user_name); out->date_bound = big32(&cur); out->main_entry_link.code_address = big32(&cur); out->main_entry_link.static_address = big32(&cur); out->user_boundary = big32(&cur); out->n_modules = big16(&cur); out->n_external_vars = big16(&cur); out->n_link_names = big16(&cur); out->n_unsnapped_links = big16(&cur); out->n_vm_pages = big16(&cur); out->n_header_pages = big16(&cur); for (int i = 0; i < 3; i++) { for (int j = 0; j < 4; j++) { out->info[i][j].address = big32(&cur); out->info[i][j].len = big32(&cur); } } out->module_map_address = big32(&cur); out->module_map_len = big32(&cur); out->external_vars_map_address = big32(&cur); out->external_vars_map_len = big32(&cur); out->link_names_map_address = big32(&cur); out->link_names_map_len = big32(&cur); out->link_map_address = big32(&cur); out->link_map_len = big32(&cur); out->header_address = big32(&cur); out->header_len = big32(&cur); memcpy(out->access_info, cur, sizeof(out->access_info)); cur += sizeof(out->access_info); out->flags = big32(&cur); out->n_tasks = big16(&cur); for (int i = 0; i < 3; i++) { out->task_static_len[i] = big32(&cur); } out->stack_len = big32(&cur); out->n_entries = big16(&cur); out->entry_map_address = big32(&cur); out->entry_map_len = big32(&cur); out->pop_version = big16(&cur); out->processor = big16(&cur); string(&cur, out->release_name); out->relocation_info.map_address = big32(&cur); out->relocation_info.map_len = big32(&cur); out->relocation_info.n_relocations = big32(&cur); out->high_water_mark = big32(&cur); string(&cur, out->copyright_notice); for (int i = 0; i < 14; i++) { out->module_origins[i] = big32(&cur); } out->processor_family = big16(&cur); string(&cur, out->program_name); out->string_pool_address = big32(&cur); out->string_pool_len = big32(&cur); out->obj_dir_map_address = big32(&cur); out->obj_dir_map_len = big32(&cur); for (int i = 0; i < 3; i++) { out->global_offset_table_address[i] = big32(&cur); } for (int i = 0; i < 3; i++) { out->block_map_info[i].address = big32(&cur); out->block_map_info[i].len = big32(&cur); } out->section_map_file_address = big32(&cur); out->section_map_address = big32(&cur); out->section_map_len = big32(&cur); out->n_sections = big16(&cur); out->max_heap_size = big32(&cur); out->max_program_size = big32(&cur); out->max_stack_size = big32(&cur); out->stack_fence_size = big32(&cur); out->module_map_entries = NULL; out->external_vars = NULL; return 1; } #define MODULE_MAP_ENTRY_SIZE 74 int vos_read_alloc_module_map(FILE * f, vos_program_module *header) { if (header->module_map_len != header->n_modules * MODULE_MAP_ENTRY_SIZE) { return 0; } uint8_t * buf = malloc(header->module_map_len); fseek(f, header->module_map_address + 0x1000 - header->user_boundary, SEEK_SET); if (fread(buf, 1, header->module_map_len, f) != header->module_map_len) { free(buf); return 0; } uint8_t * cur = buf; header->module_map_entries = malloc(sizeof(vos_module_map_entry) * header->n_modules); for (int i = 0; i < header->n_modules; i++) { string(&cur, header->module_map_entries[i].name); for (int j = 0; j < 5; j++) { header->module_map_entries[i].unknown[j] = big16(&cur); } header->module_map_entries[i].code_address = big32(&cur); header->module_map_entries[i].code_length = big32(&cur); header->module_map_entries[i].foo_address = big32(&cur); header->module_map_entries[i].foo_length = big32(&cur); header->module_map_entries[i].bar_address = big32(&cur); header->module_map_entries[i].bar_length = big32(&cur); for (int j = 0; j < 3; j++) { header->module_map_entries[i].unknown2[j] = big16(&cur); } } return 1; } #define EXTERNAL_VAR_ENTRY_SIZE 44 int vos_read_alloc_external_vars(FILE * f, vos_program_module *header) { if (header->external_vars_map_len != header->n_external_vars * EXTERNAL_VAR_ENTRY_SIZE) { return 0; } uint8_t * buf = malloc(header->external_vars_map_len); fseek(f, header->external_vars_map_address + 0x1000 - header->user_boundary, SEEK_SET); if (fread(buf, 1, header->external_vars_map_len, f) != header->external_vars_map_len) { free(buf); return 0; } uint8_t * cur = buf; header->external_vars = malloc(sizeof(vos_external_var_entry) * header->n_external_vars); for (int i = 0; i < header->n_external_vars; i++) { string(&cur, header->external_vars[i].name); header->external_vars[i].address = big32(&cur); for (int j = 0; j < 3; j++) { header->external_vars[i].unknown[j] = big16(&cur); } } return 1; } void vos_header_cleanup(vos_program_module *header) { free(header->module_map_entries); free(header->external_vars); }