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

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