git.sesse.net Git - pistorm/blob - platforms/amiga/pistorm-dev/pistorm-dev.c

   1 // SPDX-License-Identifier: MIT
   2
   3 #include "pistorm-dev.h"
   4 #include "pistorm-dev-enums.h"
   5 #include "platforms/platforms.h"
   6 #include "gpio/ps_protocol.h"
   7
   8 #include <stdio.h>
   9 #include <string.h>
  10
  11 #define DEBUG_PISTORM_DEVICE
  12
  13 #ifdef DEBUG_PISTORM_DEVICE
  14 #define DEBUG printf
  15
  16 #define PIDEV_SWREV 0x0105
  17
  18 static const char *op_type_names[4] = {
  19     "BYTE",
  20     "WORD",
  21     "LONGWORD",
  22     "MEM",
  23 };
  24 #else
  25 #define DEBUG(...)
  26 #endif
  27
  28 extern uint32_t pistorm_dev_base;
  29 extern uint32_t do_reset;
  30
  31 extern uint8_t rtg_enabled, rtg_on, pinet_enabled, piscsi_enabled, load_new_config;
  32 extern struct emulator_config *cfg;
  33
  34 char cfg_filename[256];
  35
  36 static uint8_t pi_byte[8];
  37 static uint16_t pi_word[4];
  38 static uint32_t pi_longword[4];
  39 static uint32_t pi_string[4];
  40
  41 static uint32_t pi_dbg_val[4];
  42 static uint32_t pi_dbg_string[4];
  43
  44 static uint32_t pi_cmd_result = 0;
  45
  46 int32_t grab_amiga_string(uint32_t addr, uint8_t *dest, uint32_t str_max_len) {
  47     int32_t r = get_mapped_item_by_address(cfg, addr);
  48     uint32_t index = 0;
  49
  50     if (r == -1) {
  51         DEBUG("[GRAB_AMIGA_STRING] No mapped range found for address $%.8X. Grabbing string data over the bus.\n", addr);
  52         do {
  53             dest[index] = read8(addr + index);
  54             index++;
  55         } while (dest[index - 1] != 0x00 && index < str_max_len);
  56     }
  57     else {
  58         uint8_t *src = cfg->map_data[r] + (addr - cfg->map_offset[r]);
  59         do {
  60             dest[index] = src[index];
  61             index++;
  62         } while (dest[index - 1] != 0x00 && index < str_max_len);
  63     }
  64     if (index == str_max_len) {
  65         memset(dest, 0x00, str_max_len + 1);
  66         return -1;
  67     }
  68     DEBUG("[GRAB_AMIGA_STRING] Grabbed string: %s\n", dest);
  69     return (int32_t)strlen((const char*)dest);
  70 }
  71
  72 char *get_pistorm_devcfg_filename() {
  73     return cfg_filename;
  74 }
  75
  76 void handle_pistorm_dev_write(uint32_t addr_, uint32_t val, uint8_t type) {
  77     uint32_t addr = (addr_ & 0xFFFF);
  78
  79     switch((addr)) {
  80         case PI_DBG_MSG:
  81             // Output debug message based on value written and data in val/str registers.
  82             break;
  83         case PI_DBG_VAL1: case PI_DBG_VAL2: case PI_DBG_VAL3: case PI_DBG_VAL4:
  84         case PI_DBG_VAL5: case PI_DBG_VAL6: case PI_DBG_VAL7: case PI_DBG_VAL8:
  85             DEBUG("[PISTORM-DEV] Set DEBUG VALUE %d to %d ($%.8X)\n", (addr - PI_DBG_VAL1) / 4, val, val);
  86             pi_dbg_val[(addr - PI_DBG_VAL1) / 4] = val;
  87             break;
  88         case PI_DBG_STR1: case PI_DBG_STR2: case PI_DBG_STR3: case PI_DBG_STR4:
  89             DEBUG("[PISTORM-DEV] Set DEBUG STRING POINTER %d to $%.8X\n", (addr - PI_DBG_STR1) / 4, val);
  90             pi_dbg_string[(addr - PI_DBG_STR1) / 4] = val;
  91             break;
  92
  93         case PI_BYTE1: case PI_BYTE2: case PI_BYTE3: case PI_BYTE4:
  94         case PI_BYTE5: case PI_BYTE6: case PI_BYTE7: case PI_BYTE8:
  95             DEBUG("[PISTORM-DEV] Set BYTE %d to %d ($%.2X)\n", addr - PI_BYTE1, (val & 0xFF), (val & 0xFF));
  96             pi_byte[addr - PI_BYTE1] = (val & 0xFF);
  97             break;
  98         case PI_WORD1: case PI_WORD2: case PI_WORD3: case PI_WORD4:
  99             DEBUG("[PISTORM-DEV] Set WORD %d to %d ($%.4X)\n", (addr - PI_WORD1) / 2, (val & 0xFFFF), (val & 0xFFFF));
 100             pi_word[(addr - PI_WORD1) / 2] = (val & 0xFFFF);
 101             break;
 102         case PI_LONGWORD1: case PI_LONGWORD2: case PI_LONGWORD3: case PI_LONGWORD4:
 103             DEBUG("[PISTORM-DEV] Set LONGWORD %d to %d ($%.8X)\n", (addr - PI_LONGWORD1) / 4, val, val);
 104             pi_longword[(addr - PI_LONGWORD1) / 4] = val;
 105             break;
 106         case PI_STR1: case PI_STR2: case PI_STR3: case PI_STR4:
 107             DEBUG("[PISTORM-DEV] Set STRING POINTER %d to $%.8X\n", (addr - PI_STR1) / 4, val);
 108             pi_string[(addr - PI_STR1) / 4] = val;
 109             break;
 110
 111         case PI_CMD_RESET:
 112             DEBUG("[PISTORM-DEV] System reset called, code %d\n", (val & 0xFFFF));
 113             do_reset = 1;
 114             break;
 115         case PI_CMD_SWITCHCONFIG:
 116             DEBUG("[PISTORM-DEV] Config switch called, command: ");
 117             switch (val) {
 118                 case PICFG_LOAD:
 119                     DEBUG("LOAD\n");
 120                     if (pi_string[0] == 0 || grab_amiga_string(pi_string[0], (uint8_t *)cfg_filename, 255) == -1) {
 121                         printf("[PISTORM-DEV] Failed to grab string for config filename. Aborting.\n");
 122                     } else {
 123                         FILE *tmp = fopen(cfg_filename, "rb");
 124                         if (tmp == NULL) {
 125                             printf("[PISTORM-DEV] Failed to open config file %s for reading. Aborting.\n", cfg_filename);
 126                         } else {
 127                             printf("[PISTORM-DEV] Attempting to load config file %s...\n", cfg_filename);
 128                             load_new_config = 1;
 129                         }
 130                     }
 131                     pi_string[0] = 0;
 132                     break;
 133                 case PICFG_RELOAD:
 134                     DEBUG("RELOAD\n");
 135                     break;
 136                 case PICFG_DEFAULT:
 137                     DEBUG("DEFAULT\n");
 138                     break;
 139                 default:
 140                     DEBUG("UNKNOWN. Command ignored.\n");
 141                     break;
 142             }
 143             break;
 144         default:
 145             DEBUG("[PISTORM-DEV] WARN: Unhandled %s register write to %.4X: %d\n", op_type_names[type], addr - pistorm_dev_base, val);
 146             break;
 147     }
 148 }
 149
 150 uint32_t handle_pistorm_dev_read(uint32_t addr_, uint8_t type) {
 151     uint32_t addr = (addr_ & 0xFFFF);
 152
 153     switch((addr)) {
 154         case PI_CMD_HWREV:
 155             // Probably replace this with some read from the CPLD to get a simple hardware revision.
 156             DEBUG("[PISTORM-DEV] %s Read from HWREV\n", op_type_names[type]);
 157             return 0x0101; // 1.1
 158             break;
 159         case PI_CMD_SWREV:
 160             DEBUG("[PISTORM-DEV] %s Read from SWREV\n", op_type_names[type]);
 161             return PIDEV_SWREV;
 162             break;
 163         case PI_CMD_RTGSTATUS:
 164             DEBUG("[PISTORM-DEV] %s Read from RTGSTATUS\n", op_type_names[type]);
 165             return (rtg_on << 1) | rtg_enabled;
 166             break;
 167         case PI_CMD_NETSTATUS:
 168             DEBUG("[PISTORM-DEV] %s Read from NETSTATUS\n", op_type_names[type]);
 169             return pinet_enabled;
 170             break;
 171         case PI_CMD_PISCSI_CTRL:
 172             DEBUG("[PISTORM-DEV] %s Read from PISCSI_CTRL\n", op_type_names[type]);
 173             return piscsi_enabled;
 174             break;
 175
 176         case PI_DBG_VAL1: case PI_DBG_VAL2: case PI_DBG_VAL3: case PI_DBG_VAL4:
 177         case PI_DBG_VAL5: case PI_DBG_VAL6: case PI_DBG_VAL7: case PI_DBG_VAL8:
 178             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]);
 179             return pi_dbg_val[(addr - PI_DBG_VAL1) / 4];
 180             break;
 181
 182         case PI_BYTE1: case PI_BYTE2: case PI_BYTE3: case PI_BYTE4:
 183         case PI_BYTE5: case PI_BYTE6: case PI_BYTE7: case PI_BYTE8:
 184             DEBUG("[PISTORM-DEV] Read BYTE %d (%d / $%.2X)\n", addr - PI_BYTE1, pi_byte[addr - PI_BYTE1], pi_byte[addr - PI_BYTE1]);
 185             return pi_byte[addr - PI_BYTE1];
 186             break;
 187         case PI_WORD1: case PI_WORD2: case PI_WORD3: case PI_WORD4:
 188             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]);
 189             return pi_word[(addr - PI_WORD1) / 2];
 190             break;
 191         case PI_LONGWORD1: case PI_LONGWORD2: case PI_LONGWORD3: case PI_LONGWORD4:
 192             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]);
 193             return pi_longword[(addr - PI_LONGWORD1) / 4];
 194             break;
 195
 196         case PI_CMDRESULT:
 197             DEBUG("[PISTORM-DEV] %s Read from CMDRESULT\n", op_type_names[type]);
 198             return pi_cmd_result;
 199             break;
 200
 201         default:
 202             DEBUG("[PISTORM-DEV] WARN: Unhandled %s register read from %.4X\n", op_type_names[type], addr - pistorm_dev_base);
 203             break;
 204     }
 205     return 0;
 206 }