repos/blastem: lc8951.c annotate

annotate lc8951.c @ 2065:02a9846668d1 segacd

Implement transfer of data from CDC to elsewhere. Other miscellaneous CDD/CDC improvements

author	Michael Pavone <pavone@retrodev.com>
date	Sat, 29 Jan 2022 17:43:37 -0800
parents	07ed42bd7b4c
children	a61a8a87410c

rev	line source
2058 70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	1 #include "lc8951.h"
2062 07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	2 #include "backend.h"
2058 70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	3
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	4 enum {
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	5 COMIN,
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	6 IFSTAT,
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	7 DBCL,
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	8 DBCH,
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	9 HEAD0,
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	10 HEAD1,
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	11 HEAD2,
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	12 HEAD3,
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	13 PTL,
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	14 PTH,
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	15 WAL,
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	16 WAH,
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	17 STAT0,
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	18 STAT1,
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	19 STAT2,
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	20 STAT3,
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	21
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	22 SBOUT = COMIN,
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	23 IFCTRL = IFSTAT,
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	24 DACL = HEAD0,
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	25 DACH = HEAD1,
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	26 DTTRG = HEAD2,
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	27 DTACK = HEAD3,
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	28 WAL_WRITE = PTL,
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	29 WAH_WRITE = PTH,
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	30 CTRL0 = WAL,
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	31 CTRL1 = WAH,
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	32 PTL_WRITE = STAT0,
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	33 PTH_WRITE = STAT1,
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	34 RESET = STAT3
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	35 };
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	36
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	37 //IFCTRL
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	38 #define BIT_CMDIEN 0x80
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	39 #define BIT_DTEIEN 0x40
2062 07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	40 #define BIT_DECIEN 0x20
2058 70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	41 #define BIT_CMDBK 0x10
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	42 #define BIT_DTWAI 0x08
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	43 #define BIT_STWAI 0x04
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	44 #define BIT_DOUTEN 0x02
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	45 #define BIT_SOUTEN 0x01
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	46
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	47 //IFSTAT
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	48 #define BIT_CMDI 0x80
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	49 #define BIT_DTEI 0x40
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	50 #define BIT_DECI 0x20
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	51 #define BIT_DTBSY 0x08
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	52 #define BIT_STBSY 0x04
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	53 #define BIT_DTEN 0x02
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	54 #define BIT_STEN 0x01
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	55
2062 07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	56 //CTRL0
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	57 #define BIT_DECEN 0x80
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	58 #define BIT_WRRQ 0x04
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	59
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	60 //STAT3
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	61 #define BIT_VALST 0x80
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	62
2058 70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	63 //datasheet timing info
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	64 //3 cycles for memory operation
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	65 //6 cycles min for DMA-mode host transfer
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	66
2065 02a9846668d1 Implement transfer of data from CDC to elsewhere. Other miscellaneous CDD/CDC improvements Michael Pavone <pavone@retrodev.com> parents: 2062 diff changeset	67 void lc8951_init(lc8951 context, lcd8951_byte_recv_fun byte_handler, void handler_data)
2058 70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	68 {
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	69 //This seems to vary somewhat between Sega CD models
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	70 //unclear if the difference is in the lc8951 or gate array
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	71 context->regs[IFSTAT] = 0xFF;
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	72 context->ar_mask = 0x1F;
2062 07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	73 context->clock_step = (2 + 2) * 6; // external divider, internal divider + DMA period
2065 02a9846668d1 Implement transfer of data from CDC to elsewhere. Other miscellaneous CDD/CDC improvements Michael Pavone <pavone@retrodev.com> parents: 2062 diff changeset	74 context->byte_handler = byte_handler;
02a9846668d1 Implement transfer of data from CDC to elsewhere. Other miscellaneous CDD/CDC improvements Michael Pavone <pavone@retrodev.com> parents: 2062 diff changeset	75 context->handler_data = handler_data;
02a9846668d1 Implement transfer of data from CDC to elsewhere. Other miscellaneous CDD/CDC improvements Michael Pavone <pavone@retrodev.com> parents: 2062 diff changeset	76 context->decode_end = CYCLE_NEVER;
02a9846668d1 Implement transfer of data from CDC to elsewhere. Other miscellaneous CDD/CDC improvements Michael Pavone <pavone@retrodev.com> parents: 2062 diff changeset	77 context->transfer_end = CYCLE_NEVER;
2058 70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	78 }
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	79
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	80 void lc8951_reg_write(lc8951 *context, uint8_t value)
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	81 {
2062 07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	82 printf("CDC write %X: %X\n", context->ar, value);
2058 70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	83 switch (context->ar)
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	84 {
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	85 case SBOUT:
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	86 context->regs[context->ar] = value;
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	87 if (context->ifctrl & BIT_SOUTEN) {
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	88 context->regs[IFSTAT] &= ~BIT_STBSY;
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	89 }
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	90 break;
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	91 case IFCTRL:
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	92 context->ifctrl = value;
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	93 if (!(value & BIT_SOUTEN)) {
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	94 context->regs[IFSTAT] \|= BIT_STBSY;
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	95 }
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	96 if (!(value & BIT_DOUTEN)) {
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	97 context->regs[IFSTAT] \|= BIT_DTBSY;
2065 02a9846668d1 Implement transfer of data from CDC to elsewhere. Other miscellaneous CDD/CDC improvements Michael Pavone <pavone@retrodev.com> parents: 2062 diff changeset	98 context->transfer_end = CYCLE_NEVER;
2058 70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	99 }
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	100 break;
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	101 case DBCL:
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	102 context->regs[context->ar] = value;
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	103 break;
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	104 case DBCH:
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	105 context->regs[context->ar] = value & 0xF;
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	106 break;
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	107 case DACL:
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	108 context->dac &= 0xFF00;
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	109 context->dac \|= value;
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	110 break;
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	111 case DACH:
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	112 context->dac &= 0xFF;
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	113 context->dac \|= value << 8;
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	114 break;
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	115 case DTTRG:
2065 02a9846668d1 Implement transfer of data from CDC to elsewhere. Other miscellaneous CDD/CDC improvements Michael Pavone <pavone@retrodev.com> parents: 2062 diff changeset	116 if (context->ifctrl & BIT_DOUTEN) {
2058 70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	117 context->regs[IFSTAT] &= ~BIT_DTBSY;
2062 07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	118 uint16_t transfer_size = context->regs[DBCL] \| (context->regs[DBCH] << 8);
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	119 context->transfer_end = context->cycle + transfer_size * context->clock_step;
2065 02a9846668d1 Implement transfer of data from CDC to elsewhere. Other miscellaneous CDD/CDC improvements Michael Pavone <pavone@retrodev.com> parents: 2062 diff changeset	120 printf("DTTRG: size %u, cycle %u, end %u\n", transfer_size, context->cycle, context->transfer_end);
2058 70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	121 }
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	122 break;
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	123 case DTACK:
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	124 context->regs[IFSTAT] \|= BIT_DTEI;
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	125 break;
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	126 case WAL_WRITE:
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	127 context->regs[WAL] = value;
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	128 break;
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	129 case WAH_WRITE:
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	130 context->regs[WAH] = value;
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	131 break;
2062 07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	132 case CTRL0:
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	133 context->ctrl0 = value;
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	134 break;
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	135 case CTRL1:
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	136 context->ctrl1 = value;
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	137 break;
2058 70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	138 case PTL_WRITE:
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	139 context->regs[PTL] = value;
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	140 break;
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	141 case PTH_WRITE:
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	142 context->regs[PTH] = value;
2062 07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	143 context->ptl_internal = (context->regs[PTL] \| (context->regs[PTH] << 8)) & (sizeof(context->buffer) - 1);
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	144 context->decoding = 1;
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	145 context->decode_end = context->cycle + 2352 * context->clock_step * 4;
2058 70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	146 break;
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	147 case RESET:
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	148 context->comin_count = 0;
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	149 context->regs[IFSTAT] = 0xFF;
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	150 break;
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	151 default:
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	152 break;
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	153 }
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	154 if (context->ar != SBOUT) {
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	155 context->ar++;
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	156 context->ar &= context->ar_mask;
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	157 }
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	158 }
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	159
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	160 uint8_t lc8951_reg_read(lc8951 *context)
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	161 {
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	162 uint8_t value;
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	163 if (context->ar == COMIN) {
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	164 if (!context->comin_count) {
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	165 return 0xFF;
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	166 }
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	167 value = context->comin[(context->comin_write - context->comin_count)&sizeof(context->comin)];
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	168 context->comin_count--;
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	169 if (!context->comin_count) {
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	170 context->regs[IFSTAT] \|= BIT_CMDI;
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	171 }
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	172 return value;
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	173 }
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	174 if (context->ar == STAT3) {
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	175 context->regs[IFSTAT] \|= BIT_DECI;
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	176 }
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	177 if (context->ar >= sizeof(context->regs)) {
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	178 value = 0xFF;
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	179 } else {
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	180 value = context->regs[context->ar];
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	181 }
2062 07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	182 printf("CDC read %X: %X\n", context->ar, value);
2058 70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	183 context->ar++;
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	184 context->ar &= context->ar_mask;
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	185 return value;
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	186 }
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	187
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	188 void lc8951_ar_write(lc8951 *context, uint8_t value)
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	189 {
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	190 context->ar = value & context->ar_mask;
70260f6051dd Initial work on CDC emulation Michael Pavone <pavone@retrodev.com> parents: diff changeset	191 }
2062 07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	192
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	193 //25 MHz clock input (1/2 SCD MCLK)
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	194 //internal /2 divider
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	195 //3 cycles for each SRAM access (though might be crystal frequency rather than internal frequency)
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	196 //6 cycle period for DMA transfer out
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	197 //
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	198
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	199 void lc8951_run(lc8951 *context, uint32_t cycle)
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	200 {
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	201 for(; context->cycle < cycle; context->cycle += context->clock_step)
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	202 {
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	203 if (context->cycle >= context->decode_end) {
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	204 context->decode_end = CYCLE_NEVER;
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	205 context->regs[IFSTAT] &= ~BIT_DECI;
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	206 context->regs[STAT3] &= ~BIT_VALST;
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	207 uint16_t block_start = (context->regs[PTL] \| (context->regs[PTH] << 8)) & (sizeof(context->buffer)-1);
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	208 for (int reg = HEAD0; reg < PTL; reg++)
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	209 {
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	210 printf("Setting HEAD%d to buffer[%X]\n", reg - HEAD0, block_start);
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	211 context->regs[reg] =context->buffer[block_start++];
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	212 block_start &= (sizeof(context->buffer)-1);
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	213 }
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	214 printf("Decode done %X:%X:%X mode %X\n", context->regs[HEAD0], context->regs[HEAD1], context->regs[HEAD2], context->regs[HEAD3]);
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	215 }
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	216 if (context->transfer_end != CYCLE_NEVER) {
2065 02a9846668d1 Implement transfer of data from CDC to elsewhere. Other miscellaneous CDD/CDC improvements Michael Pavone <pavone@retrodev.com> parents: 2062 diff changeset	217 if (context->byte_handler(context->handler_data, context->buffer[context->dac & (sizeof(context->buffer)-1)])) {
02a9846668d1 Implement transfer of data from CDC to elsewhere. Other miscellaneous CDD/CDC improvements Michael Pavone <pavone@retrodev.com> parents: 2062 diff changeset	218 context->dac++;
02a9846668d1 Implement transfer of data from CDC to elsewhere. Other miscellaneous CDD/CDC improvements Michael Pavone <pavone@retrodev.com> parents: 2062 diff changeset	219 context->regs[DBCL]--;
02a9846668d1 Implement transfer of data from CDC to elsewhere. Other miscellaneous CDD/CDC improvements Michael Pavone <pavone@retrodev.com> parents: 2062 diff changeset	220 if (context->regs[DBCL] == 0xFF) {
02a9846668d1 Implement transfer of data from CDC to elsewhere. Other miscellaneous CDD/CDC improvements Michael Pavone <pavone@retrodev.com> parents: 2062 diff changeset	221 context->regs[DBCH]--;
02a9846668d1 Implement transfer of data from CDC to elsewhere. Other miscellaneous CDD/CDC improvements Michael Pavone <pavone@retrodev.com> parents: 2062 diff changeset	222 if (context->regs[DBCH] == 0xFF) {
02a9846668d1 Implement transfer of data from CDC to elsewhere. Other miscellaneous CDD/CDC improvements Michael Pavone <pavone@retrodev.com> parents: 2062 diff changeset	223 context->regs[IFSTAT] &= ~BIT_DTEI;
02a9846668d1 Implement transfer of data from CDC to elsewhere. Other miscellaneous CDD/CDC improvements Michael Pavone <pavone@retrodev.com> parents: 2062 diff changeset	224 context->regs[IFSTAT] \|= BIT_DTBSY;
02a9846668d1 Implement transfer of data from CDC to elsewhere. Other miscellaneous CDD/CDC improvements Michael Pavone <pavone@retrodev.com> parents: 2062 diff changeset	225 if (context->cycle != context->transfer_end) {
02a9846668d1 Implement transfer of data from CDC to elsewhere. Other miscellaneous CDD/CDC improvements Michael Pavone <pavone@retrodev.com> parents: 2062 diff changeset	226 printf("Expected transfer end at %u but ended at %u\n", context->transfer_end, context->cycle);
02a9846668d1 Implement transfer of data from CDC to elsewhere. Other miscellaneous CDD/CDC improvements Michael Pavone <pavone@retrodev.com> parents: 2062 diff changeset	227 }
02a9846668d1 Implement transfer of data from CDC to elsewhere. Other miscellaneous CDD/CDC improvements Michael Pavone <pavone@retrodev.com> parents: 2062 diff changeset	228 context->transfer_end = CYCLE_NEVER;
2062 07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	229 }
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	230 }
2065 02a9846668d1 Implement transfer of data from CDC to elsewhere. Other miscellaneous CDD/CDC improvements Michael Pavone <pavone@retrodev.com> parents: 2062 diff changeset	231 } else {
02a9846668d1 Implement transfer of data from CDC to elsewhere. Other miscellaneous CDD/CDC improvements Michael Pavone <pavone@retrodev.com> parents: 2062 diff changeset	232 // pause transfer
02a9846668d1 Implement transfer of data from CDC to elsewhere. Other miscellaneous CDD/CDC improvements Michael Pavone <pavone@retrodev.com> parents: 2062 diff changeset	233 context->transfer_end = CYCLE_NEVER;
2062 07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	234 }
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	235 }
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	236 }
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	237 }
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	238
2065 02a9846668d1 Implement transfer of data from CDC to elsewhere. Other miscellaneous CDD/CDC improvements Michael Pavone <pavone@retrodev.com> parents: 2062 diff changeset	239 void lc8951_resume_transfer(lc8951 *context)
02a9846668d1 Implement transfer of data from CDC to elsewhere. Other miscellaneous CDD/CDC improvements Michael Pavone <pavone@retrodev.com> parents: 2062 diff changeset	240 {
02a9846668d1 Implement transfer of data from CDC to elsewhere. Other miscellaneous CDD/CDC improvements Michael Pavone <pavone@retrodev.com> parents: 2062 diff changeset	241 if (context->transfer_end == CYCLE_NEVER && (context->ifctrl & BIT_DOUTEN)) {
02a9846668d1 Implement transfer of data from CDC to elsewhere. Other miscellaneous CDD/CDC improvements Michael Pavone <pavone@retrodev.com> parents: 2062 diff changeset	242 uint16_t transfer_size = context->regs[DBCL] \| (context->regs[DBCH] << 8);
02a9846668d1 Implement transfer of data from CDC to elsewhere. Other miscellaneous CDD/CDC improvements Michael Pavone <pavone@retrodev.com> parents: 2062 diff changeset	243 if (transfer_size) {
02a9846668d1 Implement transfer of data from CDC to elsewhere. Other miscellaneous CDD/CDC improvements Michael Pavone <pavone@retrodev.com> parents: 2062 diff changeset	244 context->transfer_end = context->cycle + transfer_size * context->clock_step;
02a9846668d1 Implement transfer of data from CDC to elsewhere. Other miscellaneous CDD/CDC improvements Michael Pavone <pavone@retrodev.com> parents: 2062 diff changeset	245 printf("RESUME: size %u, cycle %u, end %u\n", transfer_size, context->cycle, context->transfer_end);
02a9846668d1 Implement transfer of data from CDC to elsewhere. Other miscellaneous CDD/CDC improvements Michael Pavone <pavone@retrodev.com> parents: 2062 diff changeset	246 }
02a9846668d1 Implement transfer of data from CDC to elsewhere. Other miscellaneous CDD/CDC improvements Michael Pavone <pavone@retrodev.com> parents: 2062 diff changeset	247 }
02a9846668d1 Implement transfer of data from CDC to elsewhere. Other miscellaneous CDD/CDC improvements Michael Pavone <pavone@retrodev.com> parents: 2062 diff changeset	248 }
02a9846668d1 Implement transfer of data from CDC to elsewhere. Other miscellaneous CDD/CDC improvements Michael Pavone <pavone@retrodev.com> parents: 2062 diff changeset	249
2062 07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	250 void lc8951_write_byte(lc8951 *context, uint32_t cycle, int sector_offset, uint8_t byte)
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	251 {
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	252 lc8951_run(context, cycle);
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	253 uint16_t current_write_addr = context->regs[WAL] \| (context->regs[WAH] << 8);
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	254 if (sector_offset == 12) {
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	255 //we've recevied the sync pattern for the next block
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	256
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	257 //header/status regs no longer considered "valid"
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	258 context->regs[STAT3] \|= BIT_VALST;
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	259 if ((context->ctrl0 & (BIT_DECEN\|BIT_WRRQ)) == (BIT_DECEN\|BIT_WRRQ)) {
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	260 uint16_t block_start = current_write_addr - 2352;
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	261 context->regs[PTL] = block_start;
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	262 context->regs[PTH] = block_start >> 8;
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	263 printf("Decoding block starting at %X\n", block_start);
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	264 context->ptl_internal = block_start & (sizeof(context->buffer)-1);
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	265 context->decode_end = context->cycle + 2352 * context->clock_step * 4;
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	266 }
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	267 }
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	268 if (sector_offset >= 12 && sector_offset < 16) {
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	269 //TODO: Handle SHDREN = 1
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	270 if ((context->ctrl0 & (BIT_DECEN\|BIT_WRRQ)) == (BIT_DECEN)) {
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	271 //monitor only mode
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	272 context->regs[HEAD0 + sector_offset - 12] = byte;
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	273 }
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	274 }
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	275 if ((context->ctrl0 & (BIT_DECEN\|BIT_WRRQ)) == (BIT_DECEN\|BIT_WRRQ)) {
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	276 context->buffer[current_write_addr & (sizeof(context->buffer)-1)] = byte;
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	277 context->regs[WAL]++;
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	278 if (!context->regs[WAL]) {
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	279 context->regs[WAH]++;
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	280 }
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	281 }
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	282 }
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	283
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	284 uint32_t lc8951_next_interrupt(lc8951 *context)
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	285 {
2065 02a9846668d1 Implement transfer of data from CDC to elsewhere. Other miscellaneous CDD/CDC improvements Michael Pavone <pavone@retrodev.com> parents: 2062 diff changeset	286 if ((~context->regs[IFSTAT]) & context->ifctrl & (BIT_CMDI\|BIT_DTEI\|BIT_DECI)) {
2062 07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	287 //interrupt already pending
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	288 return context->cycle;
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	289 }
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	290 uint32_t deci_cycle = CYCLE_NEVER;
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	291 if (context->ifctrl & BIT_DECI) {
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	292 deci_cycle = context->decode_end;
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	293 }
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	294 uint32_t dtei_cycle = CYCLE_NEVER;
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	295 if (context->ifctrl & BIT_DTEI) {
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	296 dtei_cycle = context->transfer_end;
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	297 }
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	298 return deci_cycle < dtei_cycle ? deci_cycle : dtei_cycle;
07ed42bd7b4c Some progress on CDC and CDD emulation. Now passes first 3 "CDC INIT" tests in mcd-verificator Michael Pavone <pavone@retrodev.com> parents: 2058 diff changeset	299 }

Mercurial > repos > blastem

annotate lc8951.c @ 2065:02a9846668d1 segacd