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

   1 // SPDX-License-Identifier: MIT
   2
   3 #include <stdint.h>
   4 #include <endian.h>
   5 #include <stdio.h>
   6 #include <stdlib.h>
   7 #include <string.h>
   8 #include <time.h>
   9 #include "config_file/config_file.h"
  10 #include "rtg.h"
  11
  12 uint8_t rtg_u8[4];
  13 uint16_t rtg_x[8], rtg_y[8];
  14 uint16_t rtg_user[8];
  15 uint16_t rtg_format;
  16 uint32_t rtg_address[8];
  17 uint32_t rtg_address_adj[8];
  18 uint32_t rtg_rgb[8];
  19
  20 static uint8_t display_enabled = 0xFF;
  21
  22 uint16_t rtg_display_width, rtg_display_height;
  23 uint16_t rtg_display_format;
  24 uint16_t rtg_pitch, rtg_total_rows;
  25 uint16_t rtg_offset_x, rtg_offset_y;
  26
  27 uint8_t *rtg_mem; // FIXME
  28
  29 uint32_t framebuffer_addr = 0;
  30 uint32_t framebuffer_addr_adj = 0;
  31
  32 static void handle_rtg_command(uint32_t cmd);
  33 //static struct timespec f1, f2;
  34
  35 uint8_t realtime_graphics_debug = 0;
  36 extern int cpu_emulation_running;
  37 extern struct emulator_config *cfg;
  38 extern uint8_t rtg_on;
  39
  40 /*
  41 static const char *op_type_names[OP_TYPE_NUM] = {
  42     "BYTE",
  43     "WORD",
  44     "LONGWORD",
  45     "MEM",
  46 };
  47
  48 static const char *rtg_format_names[RTGFMT_NUM] = {
  49     "8BPP CLUT",
  50     "16BPP RGB (565)",
  51     "32BPP RGB (RGBA)",
  52     "15BPP RGB (555)",
  53 };
  54 */
  55 int init_rtg_data(struct emulator_config *cfg_) {
  56     rtg_mem = calloc(1, 40 * SIZE_MEGA);
  57     if (!rtg_mem) {
  58         printf("Failed to allocate RTG video memory.\n");
  59         return 0;
  60     }
  61
  62     m68k_add_ram_range(PIGFX_RTG_BASE + PIGFX_REG_SIZE, 32 * SIZE_MEGA - PIGFX_REG_SIZE, rtg_mem);
  63     add_mapping(cfg_, MAPTYPE_RAM_NOALLOC, PIGFX_RTG_BASE + PIGFX_REG_SIZE, 40 * SIZE_MEGA - PIGFX_REG_SIZE, -1, (char *)rtg_mem, "rtg_mem", 0);
  64     return 1;
  65 }
  66
  67 void shutdown_rtg() {
  68     printf("[RTG] Shutting down RTG.\n");
  69     if (rtg_on) {
  70         rtg_on = 0;
  71     }
  72     if (rtg_mem) {
  73
  74         free(rtg_mem);
  75         rtg_mem = NULL;
  76     }
  77 }
  78
  79 unsigned int rtg_get_fb() {
  80     return PIGFX_RTG_BASE + PIGFX_REG_SIZE + framebuffer_addr_adj;
  81 }
  82
  83 unsigned int rtg_read(uint32_t address, uint8_t mode) {
  84     //printf("%s read from RTG: %.8X\n", op_type_names[mode], address);
  85     if (address == RTG_COMMAND) {
  86         return 0xFFCF;
  87     }
  88     if (address >= PIGFX_REG_SIZE) {
  89         if (rtg_mem && (address - PIGFX_REG_SIZE) < PIGFX_UPPER) {
  90             switch (mode) {
  91                 case OP_TYPE_BYTE:
  92                     return (rtg_mem[address - PIGFX_REG_SIZE]);
  93                     break;
  94                 case OP_TYPE_WORD:
  95                     return be16toh(*(( uint16_t *) (&rtg_mem[address - PIGFX_REG_SIZE])));
  96                     break;
  97                 case OP_TYPE_LONGWORD:
  98                     return be32toh(*(( uint32_t *) (&rtg_mem[address - PIGFX_REG_SIZE])));
  99                     break;
 100                 default:
 101                     return 0;
 102             }
 103         }
 104     }
 105
 106     return 0;
 107 }
 108
 109 struct timespec diff(struct timespec start, struct timespec end)
 110 {
 111     struct timespec temp;
 112     if ((end.tv_nsec-start.tv_nsec)<0) {
 113         temp.tv_sec = end.tv_sec-start.tv_sec-1;
 114         temp.tv_nsec = 1000000000+end.tv_nsec-start.tv_nsec;
 115     } else {
 116         temp.tv_sec = end.tv_sec-start.tv_sec;
 117         temp.tv_nsec = end.tv_nsec-start.tv_nsec;
 118     }
 119     return temp;
 120 }
 121
 122 #define CHKREG(a, b) case a: b = value; break;
 123
 124 void rtg_write(uint32_t address, uint32_t value, uint8_t mode) {
 125     //printf("%s write to RTG: %.8X (%.8X)\n", op_type_names[mode], address, value);
 126     if (address >= PIGFX_REG_SIZE) {
 127         /*if ((address - PIGFX_REG_SIZE) < framebuffer_addr) {// || (address - PIGFX_REG_SIZE) > framebuffer_addr + ((rtg_display_width << rtg_display_format) * rtg_display_height)) {
 128             printf("Write to RTG memory outside frame buffer %.8X (%.8X).\n", (address - PIGFX_REG_SIZE), framebuffer_addr);
 129         }*/
 130         if (rtg_mem && (address - PIGFX_REG_SIZE) < PIGFX_UPPER) {
 131             switch (mode) {
 132                 case OP_TYPE_BYTE:
 133                     rtg_mem[address - PIGFX_REG_SIZE] = value;
 134                     break;
 135                 case OP_TYPE_WORD:
 136                     *(( uint16_t *) (&rtg_mem[address - PIGFX_REG_SIZE])) = htobe16(value);
 137                     break;
 138                 case OP_TYPE_LONGWORD:
 139                     *(( uint32_t *) (&rtg_mem[address - PIGFX_REG_SIZE])) = htobe32(value);
 140                     break;
 141                 default:
 142                     return;
 143             }
 144         }
 145     }
 146     else {
 147         switch (mode) {
 148             case OP_TYPE_BYTE:
 149                 switch (address) {
 150                     CHKREG(RTG_U81, rtg_u8[0]);
 151                     CHKREG(RTG_U82, rtg_u8[1]);
 152                     CHKREG(RTG_U83, rtg_u8[2]);
 153                     CHKREG(RTG_U84, rtg_u8[3]);
 154                 }
 155                 break;
 156             case OP_TYPE_WORD:
 157                 switch (address) {
 158                     CHKREG(RTG_X1, rtg_x[0]);
 159                     CHKREG(RTG_X2, rtg_x[1]);
 160                     CHKREG(RTG_X3, rtg_x[2]);
 161                     CHKREG(RTG_X4, rtg_x[3]);
 162                     CHKREG(RTG_X5, rtg_x[4]);
 163                     CHKREG(RTG_Y1, rtg_y[0]);
 164                     CHKREG(RTG_Y2, rtg_y[1]);
 165                     CHKREG(RTG_Y3, rtg_y[2]);
 166                     CHKREG(RTG_Y4, rtg_y[3]);
 167                     CHKREG(RTG_Y5, rtg_y[4]);
 168                     CHKREG(RTG_U1, rtg_user[0]);
 169                     CHKREG(RTG_U2, rtg_user[1]);
 170                     CHKREG(RTG_FORMAT, rtg_format);
 171                     case RTG_COMMAND:
 172                         handle_rtg_command(value);
 173                         break;
 174                 }
 175                 break;
 176             case OP_TYPE_LONGWORD:
 177                 switch (address) {
 178                     case RTG_ADDR1:
 179                         rtg_address[0] = value;
 180                         rtg_address_adj[0] = value - (PIGFX_RTG_BASE + PIGFX_REG_SIZE);
 181                         break;
 182                     case RTG_ADDR2:
 183                         rtg_address[1] = value;
 184                         rtg_address_adj[1] = value - (PIGFX_RTG_BASE + PIGFX_REG_SIZE);
 185                         break;
 186                     CHKREG(RTG_ADDR3, rtg_address[2]);
 187                     CHKREG(RTG_ADDR4, rtg_address[3]);
 188                     CHKREG(RTG_RGB1, rtg_rgb[0]);
 189                     CHKREG(RTG_RGB2, rtg_rgb[1]);
 190                 }
 191                 break;
 192         }
 193     }
 194
 195     return;
 196 }
 197
 198 #define gdebug(a) if (realtime_graphics_debug) { printf(a); m68k_end_timeslice(); cpu_emulation_running = 0; }
 199
 200 static void handle_rtg_command(uint32_t cmd) {
 201   //printf("Handling RTG command %d (%.8X)\n", cmd, cmd);
 202     switch (cmd) {
 203         case RTGCMD_SETGC:
 204             rtg_display_format = rtg_format;
 205             rtg_display_width = rtg_x[0];
 206             rtg_display_height = rtg_y[0];
 207             if (rtg_u8[0]) {
 208                 //rtg_pitch = rtg_display_width << rtg_format;
 209                 framebuffer_addr_adj = framebuffer_addr + (rtg_offset_x << rtg_display_format) + (rtg_offset_y * rtg_pitch);
 210                 rtg_total_rows = rtg_y[1];
 211             }
 212             else {
 213                 //rtg_pitch = rtg_display_width << rtg_format;
 214                 framebuffer_addr_adj = framebuffer_addr + (rtg_offset_x << rtg_display_format) + (rtg_offset_y * rtg_pitch);
 215                 rtg_total_rows = rtg_y[1];
 216             }
 217             //printf("Set RTG mode:\n");
 218             //printf("%dx%d pixels\n", rtg_display_width, rtg_display_height);
 219             //printf("Pixel format: %s\n", rtg_format_names[rtg_display_format]);
 220             break;
 221         case RTGCMD_SETPAN:
 222             //printf("Command: SetPan.\n");
 223             rtg_offset_x = rtg_x[1];
 224             rtg_offset_y = rtg_y[1];
 225             rtg_pitch = (rtg_x[0] << rtg_display_format);
 226             framebuffer_addr = rtg_address[0] - (PIGFX_RTG_BASE + PIGFX_REG_SIZE);
 227             framebuffer_addr_adj = framebuffer_addr + (rtg_offset_x << rtg_display_format) + (rtg_offset_y * rtg_pitch);
 228             //printf("Set panning to $%.8X (%.8X)\n", framebuffer_addr, rtg_address[0]);
 229             //printf("(Panned: $%.8X)\n", framebuffer_addr_adj);
 230             //printf("Offset X/Y: %d/%d\n", rtg_offset_x, rtg_offset_y);
 231             //printf("Pitch: %d (%d bytes)\n", rtg_x[0], rtg_pitch);
 232             break;
 233         case RTGCMD_SETCLUT: {
 234             //printf("Command: SetCLUT.\n");
 235             //printf("Set palette entry %d to %d, %d, %d\n", rtg_u8[0], rtg_u8[1], rtg_u8[2], rtg_u8[3]);
 236             //printf("Set palette entry %d to 32-bit palette color: %.8X\n", rtg_u8[0], rtg_rgb[0]);
 237             rtg_set_clut_entry(rtg_u8[0], rtg_rgb[0]);
 238             break;
 239         }
 240         case RTGCMD_SETDISPLAY:
 241             //printf("RTG SetDisplay %s\n", (rtg_u8[1]) ? "enabled" : "disabled");
 242             // I remeber wrongs.
 243             //printf("Command: SetDisplay.\n");
 244             break;
 245         case RTGCMD_ENABLE:
 246         case RTGCMD_SETSWITCH:
 247             //printf("RTG SetSwitch %s\n", ((rtg_x[0]) & 0x01) ? "enabled" : "disabled");
 248             //printf("LAL: %.4X\n", rtg_x[0]);
 249             if (display_enabled != ((rtg_x[0]) & 0x01)) {
 250                 display_enabled = ((rtg_x[0]) & 0x01);
 251                 if (display_enabled) {
 252                     rtg_init_display();
 253                 }
 254                 else
 255                     rtg_shutdown_display();
 256             }
 257             break;
 258         case RTGCMD_FILLRECT:
 259             if (rtg_u8[0] == 0xFF || rtg_format != RTGFMT_8BIT) {
 260                 rtg_fillrect_solid(rtg_x[0], rtg_y[0], rtg_x[1], rtg_y[1], rtg_rgb[0], rtg_x[2], rtg_format);
 261                 gdebug("FillRect Solid\n");
 262             }
 263             else {
 264                 rtg_fillrect(rtg_x[0], rtg_y[0], rtg_x[1], rtg_y[1], rtg_rgb[0], rtg_x[2], rtg_format, rtg_u8[0]);
 265                 gdebug("FillRect Masked\n");
 266             }
 267             break;
 268         case RTGCMD_INVERTRECT:
 269             rtg_invertrect(rtg_x[0], rtg_y[0], rtg_x[1], rtg_y[1], rtg_x[2], rtg_format, rtg_u8[0]);
 270             gdebug("InvertRect\n");
 271             break;
 272         case RTGCMD_BLITRECT:
 273             if (rtg_u8[0] == 0xFF || rtg_format != RTGFMT_8BIT) {
 274                 rtg_blitrect_solid(rtg_x[0], rtg_y[0], rtg_x[1], rtg_y[1], rtg_x[2], rtg_y[2], rtg_x[3], rtg_format);
 275                 gdebug("BlitRect Solid\n");
 276             }
 277             else {
 278                 rtg_blitrect(rtg_x[0], rtg_y[0], rtg_x[1], rtg_y[1], rtg_x[2], rtg_y[2], rtg_x[3], rtg_format, rtg_u8[0]);
 279                 gdebug("BlitRect Masked\n");
 280             }
 281             break;
 282         case RTGCMD_BLITRECT_NOMASK_COMPLETE:
 283             rtg_blitrect_nomask_complete(rtg_x[0], rtg_y[0], rtg_x[1], rtg_y[1], rtg_x[2], rtg_y[2], rtg_x[3], rtg_x[4], rtg_address[0], rtg_address[1], rtg_format, rtg_u8[0]);
 284             gdebug("BlitRectNoMaskComplete\n");
 285             break;
 286         case RTGCMD_BLITPATTERN:
 287             rtg_blitpattern(rtg_x[0], rtg_y[0], rtg_x[1], rtg_y[1], rtg_address[0], rtg_rgb[0], rtg_rgb[1], rtg_x[3], rtg_format, rtg_x[2], rtg_y[2], rtg_u8[0], rtg_u8[1], rtg_u8[2]);
 288             gdebug("BlitPattern\n");
 289             return;
 290         case RTGCMD_BLITTEMPLATE:
 291             rtg_blittemplate(rtg_x[0], rtg_y[0], rtg_x[1], rtg_y[1], rtg_address[0], rtg_rgb[0], rtg_rgb[1], rtg_x[3], rtg_x[4], rtg_format, rtg_x[2], rtg_u8[0], rtg_u8[1]);
 292             gdebug("BlitTemplate\n");
 293             break;
 294         case RTGCMD_DRAWLINE:
 295             if (rtg_u8[0] == 0xFF && rtg_y[2] == 0xFFFF)
 296                 rtg_drawline_solid(rtg_x[0], rtg_y[0], rtg_x[1], rtg_y[1], rtg_x[2], rtg_rgb[0], rtg_x[3], rtg_format);
 297             else
 298                 rtg_drawline(rtg_x[0], rtg_y[0], rtg_x[1], rtg_y[1], rtg_x[2], rtg_y[2], rtg_x[4], rtg_rgb[0], rtg_rgb[1],  rtg_x[3], rtg_format, rtg_u8[0], rtg_u8[1]);
 299             gdebug("DrawLine\n");
 300             break;
 301         case RTGCMD_P2C:
 302             rtg_p2c(rtg_x[0], rtg_y[0], rtg_x[1], rtg_y[1], rtg_x[2], rtg_y[2], rtg_u8[1], rtg_u8[2], rtg_u8[0], (rtg_user[0] >> 0x8), rtg_x[4], (uint8_t *)&rtg_mem[rtg_address_adj[1]]);
 303             gdebug("Planar2Chunky\n");
 304             break;
 305         case RTGCMD_P2D:
 306             rtg_p2d(rtg_x[0], rtg_y[0], rtg_x[1], rtg_y[1], rtg_x[2], rtg_y[2], rtg_u8[1], rtg_u8[2], rtg_u8[0], (rtg_user[0] >> 0x8), rtg_x[4], (uint8_t *)&rtg_mem[rtg_address_adj[1]]);
 307             gdebug("Planar2Direct\n");
 308             break;
 309         case RTGCMD_SETSPRITE:
 310             rtg_enable_mouse_cursor();
 311             gdebug("SetSprite\n");
 312             break;
 313         case RTGCMD_SETSPRITECOLOR:
 314             rtg_set_cursor_clut_entry(rtg_u8[0], rtg_u8[1], rtg_u8[2], rtg_u8[3]);
 315             gdebug("SetSpriteColor\n");
 316             break;
 317         case RTGCMD_SETSPRITEPOS:
 318             rtg_set_mouse_cursor_pos((int16_t)rtg_x[0], (int16_t)rtg_y[0]);
 319             gdebug("SetSpritePos\n");
 320             break;
 321         case RTGCMD_SETSPRITEIMAGE:
 322             rtg_set_mouse_cursor_image(&rtg_mem[rtg_address_adj[1]], rtg_u8[0], rtg_u8[1]);
 323             gdebug("SetSpriteImage\n");
 324             break;
 325         case RTGCMD_DEBUGME:
 326             printf ("[RTG] DebugMe!\n");
 327             break;
 328         default:
 329             printf("[!!!RTG] Unknown/unhandled RTG command %d ($%.4X)\n", cmd, cmd);
 330             break;
 331     }
 332 }