1 // SPDX-License-Identifier: MIT
8 #include "pistorm-dev.h"
9 #include "pistorm-dev-enums.h"
10 #include "platforms/platforms.h"
11 #include "gpio/ps_protocol.h"
12 #include "platforms/amiga/rtg/rtg.h"
13 #include "platforms/amiga/piscsi/piscsi.h"
14 #include "platforms/amiga/net/pi-net.h"
16 #include <linux/reboot.h>
17 #include <sys/reboot.h>
19 #define DEBUG_PISTORM_DEVICE
21 #ifdef DEBUG_PISTORM_DEVICE
24 #define PIDEV_SWREV 0x0105
26 static const char *op_type_names[4] = {
36 extern uint32_t pistorm_dev_base;
37 extern uint32_t do_reset;
39 extern void adjust_ranges_amiga(struct emulator_config *cfg);
40 extern uint8_t rtg_enabled, rtg_on, pinet_enabled, piscsi_enabled, load_new_config, end_signal;
41 extern struct emulator_config *cfg;
43 char cfg_filename[256] = "default.cfg";
46 static uint8_t pi_byte[8];
47 static uint16_t pi_word[4];
48 static uint32_t pi_longword[4];
49 static uint32_t pi_string[4];
50 static uint32_t pi_ptr[4];
52 static uint32_t pi_dbg_val[4];
53 static uint32_t pi_dbg_string[4];
55 static uint32_t pi_cmd_result = 0, shutdown_confirm = 0xFFFFFFFF;
57 int32_t grab_amiga_string(uint32_t addr, uint8_t *dest, uint32_t str_max_len) {
58 int32_t r = get_mapped_item_by_address(cfg, addr);
62 DEBUG("[GRAB_AMIGA_STRING] No mapped range found for address $%.8X. Grabbing string data over the bus.\n", addr);
64 dest[index] = read8(addr + index);
66 } while (dest[index - 1] != 0x00 && index < str_max_len);
69 uint8_t *src = cfg->map_data[r] + (addr - cfg->map_offset[r]);
71 dest[index] = src[index];
73 } while (dest[index - 1] != 0x00 && index < str_max_len);
75 if (index == str_max_len) {
76 memset(dest, 0x00, str_max_len + 1);
79 DEBUG("[GRAB_AMIGA_STRING] Grabbed string: %s\n", dest);
80 return (int32_t)strlen((const char*)dest);
83 int32_t amiga_transfer_file(uint32_t addr, char *filename) {
84 FILE *in = fopen(filename, "rb");
86 DEBUG("[AMIGA_TRANSFER_FILE] Failed to open file %s for reading.\n", filename);
89 fseek(in, 0, SEEK_END);
91 int32_t r = get_mapped_item_by_address(cfg, addr);
92 uint32_t filesize = ftell(in);
94 fseek(in, 0, SEEK_SET);
96 DEBUG("[GRAB_AMIGA_STRING] No mapped range found for address $%.8X. Transferring file data over the bus.\n", addr);
99 for (uint32_t i = 0; i < filesize; i++) {
100 tmp_read = (uint8_t)fgetc(in);
101 write8(addr + i, tmp_read);
104 uint8_t *dst = cfg->map_data[r] + (addr - cfg->map_offset[r]);
105 fread(dst, filesize, 1, in);
108 DEBUG("[AMIGA_TRANSFER_FILE] Copied %d bytes to address $%.8X.\n", filesize, addr);
113 char *get_pistorm_devcfg_filename() {
117 void set_pistorm_devcfg_filename(char *filename) {
118 strcpy(cfg_filename, filename);
121 void handle_pistorm_dev_write(uint32_t addr_, uint32_t val, uint8_t type) {
122 uint32_t addr = (addr_ & 0xFFFF);
126 // Output debug message based on value written and data in val/str registers.
128 case PI_DBG_VAL1: case PI_DBG_VAL2: case PI_DBG_VAL3: case PI_DBG_VAL4:
129 case PI_DBG_VAL5: case PI_DBG_VAL6: case PI_DBG_VAL7: case PI_DBG_VAL8:
130 DEBUG("[PISTORM-DEV] Set DEBUG VALUE %d to %d ($%.8X)\n", (addr - PI_DBG_VAL1) / 4, val, val);
131 pi_dbg_val[(addr - PI_DBG_VAL1) / 4] = val;
133 case PI_DBG_STR1: case PI_DBG_STR2: case PI_DBG_STR3: case PI_DBG_STR4:
134 DEBUG("[PISTORM-DEV] Set DEBUG STRING POINTER %d to $%.8X\n", (addr - PI_DBG_STR1) / 4, val);
135 pi_dbg_string[(addr - PI_DBG_STR1) / 4] = val;
138 case PI_BYTE1: case PI_BYTE2: case PI_BYTE3: case PI_BYTE4:
139 case PI_BYTE5: case PI_BYTE6: case PI_BYTE7: case PI_BYTE8:
140 DEBUG("[PISTORM-DEV] Set BYTE %d to %d ($%.2X)\n", addr - PI_BYTE1, (val & 0xFF), (val & 0xFF));
141 pi_byte[addr - PI_BYTE1] = (val & 0xFF);
143 case PI_WORD1: case PI_WORD2: case PI_WORD3: case PI_WORD4:
144 DEBUG("[PISTORM-DEV] Set WORD %d to %d ($%.4X)\n", (addr - PI_WORD1) / 2, (val & 0xFFFF), (val & 0xFFFF));
145 pi_word[(addr - PI_WORD1) / 2] = (val & 0xFFFF);
147 case PI_LONGWORD1: case PI_LONGWORD2: case PI_LONGWORD3: case PI_LONGWORD4:
148 DEBUG("[PISTORM-DEV] Set LONGWORD %d to %d ($%.8X)\n", (addr - PI_LONGWORD1) / 4, val, val);
149 pi_longword[(addr - PI_LONGWORD1) / 4] = val;
151 case PI_STR1: case PI_STR2: case PI_STR3: case PI_STR4:
152 DEBUG("[PISTORM-DEV] Set STRING POINTER %d to $%.8X\n", (addr - PI_STR1) / 4, val);
153 pi_string[(addr - PI_STR1) / 4] = val;
155 case PI_PTR1: case PI_PTR2: case PI_PTR3: case PI_PTR4:
156 DEBUG("[PISTORM-DEV] Set DATA POINTER %d to $%.8X\n", (addr - PI_PTR1) / 4, val);
157 pi_ptr[(addr - PI_PTR1) / 4] = val;
160 case PI_CMD_TRANSFERFILE:
161 DEBUG("[PISTORM-DEV] Write to TRANSFERFILE.\n");
162 if (pi_string[0] == 0 || grab_amiga_string(pi_string[0], (uint8_t *)tmp_string, 255) == -1) {
163 printf("[PISTORM-DEV] No or invalid filename for TRANSFERFILE. Aborting.\n");
164 pi_cmd_result = PI_RES_INVALIDVALUE;
165 } else if (pi_ptr[0] == 0) {
166 printf("[PISTORM-DEV] Null pointer specified for TRANSFERFILE destination. Aborting.\n");
167 pi_cmd_result = PI_RES_INVALIDVALUE;
169 if (amiga_transfer_file(pi_ptr[0], tmp_string) == -1) {
170 pi_cmd_result = PI_RES_FAILED;
172 pi_cmd_result = PI_RES_OK;
179 DEBUG("[PISTORM-DEV} Write to MEMCPY: %d (%.8X)\n", val, val);
180 if (pi_ptr[0] == 0 || pi_ptr[1] == 0) {
181 printf("[PISTORM-DEV] MEMCPY from/to null pointer not allowed. Aborting.\n");
182 pi_cmd_result = PI_RES_INVALIDVALUE;
183 } else if (val == 0) {
184 printf("[PISTORM-DEV] MEMCPY called with size 0. Aborting.\n");
185 pi_cmd_result = PI_RES_INVALIDVALUE;
187 int32_t src = get_mapped_item_by_address(cfg, pi_ptr[0]);
188 int32_t dst = get_mapped_item_by_address(cfg, pi_ptr[1]);
189 if (dst != -1 && src != -1) {
190 printf("doing super memcpy\n");
191 uint8_t *src_ptr = &cfg->map_data[src][(pi_ptr[0] - cfg->map_offset[src])];
192 uint8_t *dst_ptr = &cfg->map_data[dst][(pi_ptr[1] - cfg->map_offset[dst])];
193 memcpy(dst_ptr, src_ptr, val);
195 printf("doing manual memcpy\n");
197 for (uint32_t i = 0; i < val; i++) {
198 if (src == -1) tmp = read8(pi_ptr[0] + i);
199 else tmp = cfg->map_data[src][pi_ptr[0] - cfg->map_offset[src]];
201 if (dst == -1) write8(pi_ptr[1] + i, tmp);
202 else cfg->map_data[dst][pi_ptr[1] - cfg->map_offset[dst]] = tmp;
205 DEBUG("[PISTORM-DEV] Copied %d bytes from $%.8X to $%.8X\n", val, pi_ptr[0], pi_ptr[1]);
209 case PI_CMD_RTGSTATUS:
210 DEBUG("[PISTORM-DEV] Write to RTGSTATUS: %d\n", val);
211 if (val == 1 && !rtg_enabled) {
214 pi_cmd_result = PI_RES_OK;
215 } else if (val == 0 && rtg_enabled) {
219 pi_cmd_result = PI_RES_OK;
221 // Refuse to disable RTG if it's currently in use.
222 pi_cmd_result = PI_RES_FAILED;
225 pi_cmd_result = PI_RES_NOCHANGE;
227 adjust_ranges_amiga(cfg);
229 case PI_CMD_NETSTATUS:
230 DEBUG("[PISTORM-DEV] Write to NETSTATUS: %d\n", val);
231 if (val == 1 && !pinet_enabled) {
234 pi_cmd_result = PI_RES_OK;
235 } else if (val == 0 && pinet_enabled) {
238 pi_cmd_result = PI_RES_OK;
240 pi_cmd_result = PI_RES_NOCHANGE;
242 adjust_ranges_amiga(cfg);
244 case PI_CMD_PISCSI_CTRL:
245 DEBUG("[PISTORM-DEV] Write to PISCSI_CTRL: ");
247 case PISCSI_CTRL_DISABLE:
249 if (piscsi_enabled) {
252 // Probably not OK... depends on if you booted from floppy, I guess.
253 pi_cmd_result = PI_RES_OK;
255 pi_cmd_result = PI_RES_NOCHANGE;
258 case PISCSI_CTRL_ENABLE:
260 if (!piscsi_enabled) {
263 piscsi_refresh_drives();
264 pi_cmd_result = PI_RES_OK;
266 pi_cmd_result = PI_RES_NOCHANGE;
269 case PISCSI_CTRL_MAP:
271 if (pi_string[0] == 0 || grab_amiga_string(pi_string[0], (uint8_t *)tmp_string, 255) == -1) {
272 printf("[PISTORM-DEV] Failed to grab string for PISCSI drive filename. Aborting.\n");
273 pi_cmd_result = PI_RES_FAILED;
275 FILE *tmp = fopen(tmp_string, "rb");
277 printf("[PISTORM-DEV] Failed to open file %s for PISCSI drive mapping. Aborting.\n", tmp_string);
278 pi_cmd_result = PI_RES_FILENOTFOUND;
281 printf("[PISTORM-DEV] Attempting to map file %s as PISCSI drive %d...\n", tmp_string, pi_word[0]);
282 piscsi_unmap_drive(pi_word[0]);
283 piscsi_map_drive(tmp_string, pi_word[0]);
284 pi_cmd_result = PI_RES_OK;
289 case PISCSI_CTRL_UNMAP:
291 if (pi_word[0] > 7) {
292 printf("[PISTORM-DEV] Invalid drive ID %d for PISCSI unmap command.", pi_word[0]);
293 pi_cmd_result = PI_RES_INVALIDVALUE;
295 if (piscsi_get_dev(pi_word[0])->fd != -1) {
296 piscsi_unmap_drive(pi_word[0]);
297 pi_cmd_result = PI_RES_OK;
299 pi_cmd_result = PI_RES_NOCHANGE;
303 case PISCSI_CTRL_EJECT:
304 DEBUG("EJECT (NYI)\n");
305 pi_cmd_result = PI_RES_NOCHANGE;
307 case PISCSI_CTRL_INSERT:
308 DEBUG("INSERT (NYI)\n");
309 pi_cmd_result = PI_RES_NOCHANGE;
312 DEBUG("UNKNOWN/UNHANDLED. Aborting.\n");
313 pi_cmd_result = PI_RES_INVALIDVALUE;
316 adjust_ranges_amiga(cfg);
320 DEBUG("[PISTORM-DEV] Write to KICKROM.\n");
321 if (pi_string[0] == 0 || grab_amiga_string(pi_string[0], (uint8_t *)tmp_string, 255) == -1) {
322 printf("[PISTORM-DEV] Failed to grab string KICKROM filename. Aborting.\n");
323 pi_cmd_result = PI_RES_FAILED;
325 FILE *tmp = fopen(tmp_string, "rb");
327 printf("[PISTORM-DEV] Failed to open file %s for KICKROM mapping. Aborting.\n", tmp_string);
328 pi_cmd_result = PI_RES_FILENOTFOUND;
331 if (get_named_mapped_item(cfg, "kickstart") != -1) {
332 uint32_t index = get_named_mapped_item(cfg, "kickstart");
333 free(cfg->map_data[index]);
334 free(cfg->map_id[index]);
335 cfg->map_type[index] = MAPTYPE_NONE;
336 // Dirty hack, I am sleepy and lazy.
337 add_mapping(cfg, MAPTYPE_ROM, cfg->map_offset[index], cfg->map_size[index], 0, tmp_string, "kickstart");
338 pi_cmd_result = PI_RES_OK;
341 printf ("[PISTORM-DEV] Could not find mapped range 'kickstart', cannot remap KICKROM.\n");
342 pi_cmd_result = PI_RES_FAILED;
346 adjust_ranges_amiga(cfg);
350 DEBUG("[PISTORM-DEV] Write to EXTROM.\n");
351 if (pi_string[0] == 0 || grab_amiga_string(pi_string[0], (uint8_t *)tmp_string, 255) == -1) {
352 printf("[PISTORM-DEV] Failed to grab string EXTROM filename. Aborting.\n");
353 pi_cmd_result = PI_RES_FAILED;
355 FILE *tmp = fopen(tmp_string, "rb");
357 printf("[PISTORM-DEV] Failed to open file %s for EXTROM mapping. Aborting.\n", tmp_string);
358 pi_cmd_result = PI_RES_FILENOTFOUND;
361 if (get_named_mapped_item(cfg, "extended") != -1) {
362 uint32_t index = get_named_mapped_item(cfg, "extended");
363 free(cfg->map_data[index]);
364 free(cfg->map_id[index]);
365 cfg->map_type[index] = MAPTYPE_NONE;
366 // Dirty hack, I am tired and lazy.
367 add_mapping(cfg, MAPTYPE_ROM, cfg->map_offset[index], cfg->map_size[index], 0, tmp_string, "extended");
368 pi_cmd_result = PI_RES_OK;
371 printf ("[PISTORM-DEV] Could not find mapped range 'extrom', cannot remap EXTROM.\n");
372 pi_cmd_result = PI_RES_FAILED;
376 adjust_ranges_amiga(cfg);
381 DEBUG("[PISTORM-DEV] System reset called, code %d\n", (val & 0xFFFF));
384 case PI_CMD_SHUTDOWN:
385 DEBUG("[PISTORM-DEV] Shutdown requested. Confirm by replying with return value to CONFIRMSHUTDOWN.\n");
386 shutdown_confirm = rand() % 0xFFFF;
387 pi_cmd_result = shutdown_confirm;
389 case PI_CMD_CONFIRMSHUTDOWN:
390 if (val != shutdown_confirm) {
391 DEBUG("[PISTORM-DEV] Attempted shutdown with wrong shutdown confirm value. Not shutting down.\n");
392 shutdown_confirm = 0xFFFFFFFF;
393 pi_cmd_result = PI_RES_FAILED;
395 printf("[PISTORM-DEV] Shutting down the PiStorm. Good night, fight well, until we meet again.\n");
396 reboot(LINUX_REBOOT_CMD_POWER_OFF);
397 pi_cmd_result = PI_RES_OK;
401 case PI_CMD_SWITCHCONFIG:
402 DEBUG("[PISTORM-DEV] Config switch called, command: ");
406 if (pi_string[0] == 0 || grab_amiga_string(pi_string[0], (uint8_t *)cfg_filename, 255) == -1) {
407 printf("[PISTORM-DEV] Failed to grab string for CONFIG filename. Aborting.\n");
408 pi_cmd_result = PI_RES_FAILED;
410 FILE *tmp = fopen(cfg_filename, "rb");
412 printf("[PISTORM-DEV] Failed to open CONFIG file %s for reading. Aborting.\n", cfg_filename);
413 pi_cmd_result = PI_RES_FILENOTFOUND;
416 printf("[PISTORM-DEV] Attempting to load config file %s...\n", cfg_filename);
417 load_new_config = val + 1;
418 pi_cmd_result = PI_RES_OK;
425 printf("[PISTORM-DEV] Reloading current config file (%s)...\n", cfg_filename);
426 load_new_config = val + 1;
430 printf("[PISTORM-DEV] Loading default.cfg...\n");
431 load_new_config = val + 1;
434 DEBUG("UNKNOWN/UNHANDLED. Command ignored.\n");
435 pi_cmd_result = PI_RES_INVALIDVALUE;
440 DEBUG("[PISTORM-DEV] WARN: Unhandled %s register write to %.4X: %d\n", op_type_names[type], addr - pistorm_dev_base, val);
441 pi_cmd_result = PI_RES_INVALIDCMD;
446 uint32_t handle_pistorm_dev_read(uint32_t addr_, uint8_t type) {
447 uint32_t addr = (addr_ & 0xFFFF);
450 case PI_CMD_FILESIZE:
451 DEBUG("[PISTORM-DEV] %s read from FILESIZE.\n", op_type_names[type]);
452 if (pi_string[0] == 0 || grab_amiga_string(pi_string[0], (uint8_t *)tmp_string, 255) == -1) {
453 DEBUG("[PISTORM-DEV] Failed to grab string for FILESIZE command. Aborting.\n");
454 pi_cmd_result = PI_RES_FAILED;
458 FILE *tmp = fopen(tmp_string, "rb");
460 DEBUG("[PISTORM-DEV] Failed to open file %s for FILESIZE command. Aborting.\n", tmp_string);
462 pi_cmd_result = PI_RES_FILENOTFOUND;
464 fseek(tmp, 0, SEEK_END);
465 pi_longword[0] = ftell(tmp);
466 DEBUG("[PISTORM-DEV] Returning file size for file %s: %d bytes.\n", tmp_string, pi_longword[0]);
468 pi_cmd_result = PI_RES_OK;
472 return pi_longword[0];
476 // Probably replace this with some read from the CPLD to get a simple hardware revision.
477 DEBUG("[PISTORM-DEV] %s Read from HWREV\n", op_type_names[type]);
478 return 0x0101; // 1.1
481 DEBUG("[PISTORM-DEV] %s Read from SWREV\n", op_type_names[type]);
484 case PI_CMD_RTGSTATUS:
485 DEBUG("[PISTORM-DEV] %s Read from RTGSTATUS\n", op_type_names[type]);
486 return (rtg_on << 1) | rtg_enabled;
488 case PI_CMD_NETSTATUS:
489 DEBUG("[PISTORM-DEV] %s Read from NETSTATUS\n", op_type_names[type]);
490 return pinet_enabled;
492 case PI_CMD_PISCSI_CTRL:
493 DEBUG("[PISTORM-DEV] %s Read from PISCSI_CTRL\n", op_type_names[type]);
494 return piscsi_enabled;
497 DEBUG("[PISTORM-DEV] %s read from GET_FB: %.8X\n", op_type_names[type], rtg_get_fb());
500 case PI_DBG_VAL1: case PI_DBG_VAL2: case PI_DBG_VAL3: case PI_DBG_VAL4:
501 case PI_DBG_VAL5: case PI_DBG_VAL6: case PI_DBG_VAL7: case PI_DBG_VAL8:
502 DEBUG("[PISTORM-DEV] Read DEBUG VALUE %d (%d / $%.8X)\n", (addr - PI_DBG_VAL1) / 4, pi_dbg_val[(addr - PI_DBG_VAL1) / 4], pi_dbg_val[(addr - PI_DBG_VAL1) / 4]);
503 return pi_dbg_val[(addr - PI_DBG_VAL1) / 4];
506 case PI_BYTE1: case PI_BYTE2: case PI_BYTE3: case PI_BYTE4:
507 case PI_BYTE5: case PI_BYTE6: case PI_BYTE7: case PI_BYTE8:
508 DEBUG("[PISTORM-DEV] Read BYTE %d (%d / $%.2X)\n", addr - PI_BYTE1, pi_byte[addr - PI_BYTE1], pi_byte[addr - PI_BYTE1]);
509 return pi_byte[addr - PI_BYTE1];
511 case PI_WORD1: case PI_WORD2: case PI_WORD3: case PI_WORD4:
512 DEBUG("[PISTORM-DEV] Read WORD %d (%d / $%.4X)\n", (addr - PI_WORD1) / 2, pi_word[(addr - PI_WORD1) / 2], pi_word[(addr - PI_WORD1) / 2]);
513 return pi_word[(addr - PI_WORD1) / 2];
515 case PI_LONGWORD1: case PI_LONGWORD2: case PI_LONGWORD3: case PI_LONGWORD4:
516 DEBUG("[PISTORM-DEV] Read LONGWORD %d (%d / $%.8X)\n", (addr - PI_LONGWORD1) / 4, pi_longword[(addr - PI_LONGWORD1) / 4], pi_longword[(addr - PI_LONGWORD1) / 4]);
517 return pi_longword[(addr - PI_LONGWORD1) / 4];
521 DEBUG("[PISTORM-DEV] %s Read from CMDRESULT: %d\n", op_type_names[type], pi_cmd_result);
522 return pi_cmd_result;
526 DEBUG("[PISTORM-DEV] WARN: Unhandled %s register read from %.4X\n", op_type_names[type], addr - pistorm_dev_base);