Initial submission of the PCem-Experimental source code.

2016-06-26 00:34:39 +02:00
parent 09d7c4384f
commit fd2a5bc9f5
610 changed files with 184352 additions and 0 deletions
--- a/src/vid_pc1640.c
+++ b/src/vid_pc1640.c
@@ -0,0 +1,164 @@
+/*PC1640 video emulation.
+  Mostly standard EGA, but with CGA & Hercules emulation*/
+#include <stdlib.h>
+#include "ibm.h"
+#include "device.h"
+#include "io.h"
+#include "mem.h"
+#include "rom.h"
+#include "timer.h"
+#include "video.h"
+#include "vid_cga.h"
+#include "vid_ega.h"
+#include "vid_pc1640.h"
+
+typedef struct pc1640_t
+{
+        mem_mapping_t cga_mapping;
+        mem_mapping_t ega_mapping;
+
+        cga_t cga;
+        ega_t ega;
+        
+        rom_t bios_rom;
+        
+        int cga_enabled;
+        int dispontime, dispofftime, vidtime;
+} pc1640_t;
+
+void pc1640_out(uint16_t addr, uint8_t val, void *p)
+{
+        pc1640_t *pc1640 = (pc1640_t *)p;
+        
+        switch (addr)
+        {
+                case 0x3db:
+                pc1640->cga_enabled = val & 0x40;
+                if (pc1640->cga_enabled)
+                {
+                        mem_mapping_enable(&pc1640->cga_mapping);
+                        mem_mapping_disable(&pc1640->ega_mapping);
+                }
+                else
+                {
+                        mem_mapping_disable(&pc1640->cga_mapping);
+                        switch (pc1640->ega.gdcreg[6] & 0xc)
+                        {
+                                case 0x0: /*128k at A0000*/
+                                mem_mapping_set_addr(&pc1640->ega_mapping, 0xa0000, 0x20000);
+                                break;
+                                case 0x4: /*64k at A0000*/
+                                mem_mapping_set_addr(&pc1640->ega_mapping, 0xa0000, 0x10000);
+                                break;
+                                case 0x8: /*32k at B0000*/
+                                mem_mapping_set_addr(&pc1640->ega_mapping, 0xb0000, 0x08000);
+                                break;
+                                case 0xC: /*32k at B8000*/
+                                mem_mapping_set_addr(&pc1640->ega_mapping, 0xb8000, 0x08000);
+                                break;
+                        }
+                }                
+                pclog("3DB write %02X\n", val);
+                return;
+        }
+        if (pc1640->cga_enabled) cga_out(addr, val, &pc1640->cga);
+        else                     ega_out(addr, val, &pc1640->ega);
+}
+
+uint8_t pc1640_in(uint16_t addr, void *p)
+{
+        pc1640_t *pc1640 = (pc1640_t *)p;
+        
+        switch (addr)
+        {
+        }
+        
+        if (pc1640->cga_enabled) return cga_in(addr, &pc1640->cga);
+        else                     return ega_in(addr, &pc1640->ega);
+}
+
+void pc1640_recalctimings(pc1640_t *pc1640)
+{
+        cga_recalctimings(&pc1640->cga);
+        ega_recalctimings(&pc1640->ega);
+        if (pc1640->cga_enabled) 
+        {
+		overscan_x = overscan_y = 16;
+                pc1640->dispontime  = pc1640->cga.dispontime;
+                pc1640->dispofftime = pc1640->cga.dispofftime;
+        }
+        else            
+        {
+		overscan_x = 16; overscan_y = 28;
+                pc1640->dispontime  = pc1640->ega.dispontime;
+                pc1640->dispofftime = pc1640->ega.dispofftime;
+        }
+}
+
+void pc1640_poll(void *p)
+{
+        pc1640_t *pc1640 = (pc1640_t *)p;
+        if (pc1640->cga_enabled) 
+        {
+		overscan_x = overscan_y = 16;
+                pc1640->cga.vidtime = pc1640->vidtime;
+                cga_poll(&pc1640->cga);
+                pc1640->vidtime = pc1640->cga.vidtime;
+        }
+        else                     
+        {
+		overscan_x = 16; overscan_y = 28;
+                pc1640->ega.vidtime = pc1640->vidtime;
+                ega_poll(&pc1640->ega);
+                pc1640->vidtime = pc1640->ega.vidtime;
+        }
+}
+
+void *pc1640_init()
+{
+        pc1640_t *pc1640 = malloc(sizeof(pc1640_t));
+        cga_t *cga = &pc1640->cga;
+        ega_t *ega = &pc1640->ega;
+        memset(pc1640, 0, sizeof(pc1640_t));
+
+        rom_init(&pc1640->bios_rom, "roms/pc1640/40100", 0xc0000, 0x8000, 0x7fff, 0, 0);
+        
+        ega_init(&pc1640->ega);
+        pc1640->cga.vram = pc1640->ega.vram;
+        pc1640->cga_enabled = 1;
+        cga_init(&pc1640->cga);
+                        
+        timer_add(pc1640_poll, &pc1640->vidtime, TIMER_ALWAYS_ENABLED, pc1640);
+        mem_mapping_add(&pc1640->cga_mapping, 0xb8000, 0x08000, cga_read, NULL, NULL, cga_write, NULL, NULL,  NULL, 0, cga);
+        mem_mapping_add(&pc1640->ega_mapping, 0,       0,       ega_read, NULL, NULL, ega_write, NULL, NULL,  NULL, 0, ega);
+        io_sethandler(0x03a0, 0x0040, pc1640_in, NULL, NULL, pc1640_out, NULL, NULL, pc1640);
+	overscan_x = overscan_y = 16;
+        return pc1640;
+}
+
+void pc1640_close(void *p)
+{
+        pc1640_t *pc1640 = (pc1640_t *)p;
+
+        free(pc1640->ega.vram);
+        free(pc1640);
+}
+
+void pc1640_speed_changed(void *p)
+{
+        pc1640_t *pc1640 = (pc1640_t *)p;
+        
+        pc1640_recalctimings(pc1640);
+}
+
+device_t pc1640_device =
+{
+        "Amstrad PC1640 (video)",
+        0,
+        pc1640_init,
+        pc1640_close,
+        NULL,
+        pc1640_speed_changed,
+        NULL,
+        NULL
+};