Retro/ScriptedAmigaEmulator
Watch
1
0
Fork
You've already forked ScriptedAmigaEmulator
 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions
ScriptedAmigaEmulator/sae/copper.js
Rupert Hausberger fbf36a4fa5 update 0.9.0
2016-07-15 19:44:16 +02:00

646 lines
21 KiB
JavaScript
Raw Blame History

/*-------------------------------------------------------------------------
| SAE - Scripted Amiga Emulator
| https://github.com/naTmeg/ScriptedAmigaEmulator
|
| Copyright (C) 2012-2016 Rupert Hausberger
|
| This program is free software; you can redistribute it and/or
| modify it under the terms of the GNU General Public License
| as published by the Free Software Foundation; either version 2
| of the License, or (at your option) any later version.
|
| This program is distributed in the hope that it will be useful,
| but WITHOUT ANY WARRANTY; without even the implied warranty of
| MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
| GNU General Public License for more details.
|
| Note: ported from WinUAE 3.2.x
-------------------------------------------------------------------------*/
/* global references */
var SAER_Copper_cop_state = null;
/*---------------------------------*/
/* global variables */
var SAEV_Copper_access = false;
var SAEV_Copper_last_hpos = 0;
var SAEV_Copper_enabled_thisline = 0;
/*---------------------------------*/
function SAEO_Copper() {
const customdelay = [
1,1,1,1,0,0,0,0,0,0,0,0,0,0,0,0,1,1,0,0,1,1,1,1,0,0,0,0,0,0,0,0, /* 32 0x00 - 0x3e */
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 0x40 - 0x5e */
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 0x60 - 0x7e */
0,0,0,0,1,1,1,1,1,0,0,0,0,0,0,0, /* 0x80 - 0x9e */
1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, /* 32 0xa0 - 0xde */
/* BPLxPTH/BPLxPTL */
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, /* 16 */
/* BPLCON0-3,BPLMOD1-2 */
0,0,0,0,0,0,0,0, /* 8 */
/* BPLxDAT */
0,0,0,0,0,0,0,0, /* 8 */
/* SPRxPTH/SPRxPTL */
1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1, /* 16 */
/* SPRxPOS/SPRxCTL/SPRxDATA/SPRxDATB */
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
/* COLORxx */
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
/* RESERVED */
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
];
const COP_stop = 0;
const COP_waitforever = 1;
const COP_read1 = 2;
const COP_read2 = 3;
const COP_bltwait = 4;
const COP_wait_in2 = 5;
const COP_skip_in2 = 6;
const COP_wait1 = 7;
const COP_wait = 8;
const COP_skip1 = 9;
const COP_strobe_delay1 = 10;
const COP_strobe_delay2 = 11;
const COP_strobe_delay1x = 12;
const COP_strobe_delay2x = 13;
const COP_strobe_extra = 14; /* just to skip current cycle when CPU wrote to COPJMP */
const COP_start_delay = 15;
function copper_state() {
this.i1 = 0; this.saved_i1 = 0; /* The current instruction words. */
this.i2 = 0; this.saved_i2 = 0;
this.state = COP_stop;
this.state_prev = COP_stop;
this.ip = 0; this.saved_ip = 0; /* Instruction pointer */
this.hpos = 0;
this.vpos = 0;
this.ignore_next = false;
this.vcmp = 0;
this.hcmp = 0;
this.strobe = 0; /* COPJMP1 / COPJMP2 accessed */
this.moveaddr = 0;
this.movedata = 0;
this.movedelay = 0;
};
var cop_state = new copper_state();
SAER_Copper_cop_state = cop_state;
var cop1lc = 0, cop2lc = 0, copcon = 0;
//var last_copper_hpos = 0; -> SAEV_Copper_last_hpos
//var copper_access = false; -> SAEV_Copper_access
//var copper_enabled_thisline = 0; -> SAEV_Copper_enabled_thisline
/*-----------------------------------------------------------------------*/
this.reset = function() {
copcon = 0;
cop_state.state = COP_stop;
cop_state.movedelay = 0;
cop_state.strobe = 0;
cop_state.ignore_next = false;
}
/*-----------------------------------------------------------------------*/
this.clr_copcon = function() { //OWN used in playfield.reset_cutom()
copcon = 0;
}
/*this.get_copxlc = function() { //OWN used in events.alloc_cycle_blitter()
return cop_state.strobe == 1 ? cop1lc : cop2lc;
}*/
/*this.get_copper_address = function(copno) {
switch (copno) {
case 1: return cop1lc;
case 2: return cop2lc;
case -1: return cop_state.ip;
default: return 0;
}
}*/
this.copper_stop = function() { //called in custom.DMACON()
if (SAEV_Copper_enabled_thisline) {
// let MOVE to finish
switch (cop_state.state) {
case COP_read2:
SAEV_Copper_enabled_thisline = -1;
break;
}
}
if (SAEV_Copper_enabled_thisline >= 0) {
SAEV_Copper_enabled_thisline = 0;
SAEF_clrSpcFlags(SAEC_spcflag_COPPER);
}
}
function check_copper_stop() {
//if (SAEV_Copper_enabled_thisline < 0 && !((SAEV_Custom_dmacon & SAEC_Custom_DMAF_COPEN) && (SAEV_Custom_dmacon & SAEC_Custom_DMAF_DMAEN))) {
if (SAEV_Copper_enabled_thisline < 0 && !SAEF_Custom_dmaen(SAEC_Custom_DMAF_COPEN)) {
SAEV_Copper_enabled_thisline = 0;
SAEF_clrSpcFlags(SAEC_spcflag_COPPER);
}
}
/*-> playfield
function copper_cant_read(hpos, alloc) {
if (hpos + 1 >= maxhpos) // first refresh slot
return 1;
if ((hpos == maxhpos - 3) && (maxhpos & 1) && alloc >= 0) {
//if (alloc) SAER.events.alloc_cycle(hpos, SAEC_Events_cycle_line_COPPER);
return -1;
}
return is_bitplane_dma_inline(hpos);
}*/
function put16_copper(hpos, addr, value, noget) {
SAEV_Copper_access = true;
//var v = custom_wput_1(hpos, addr, value, noget);
var v = SAER_Custom_put16_real(hpos, addr, value, noget);
SAEV_Copper_access = false;
return v;
}
/*function dump(error, until_hpos) {
SAEF_log("copper.dump() %s: vpos=%d until_hpos=%d vp=%d", error, vpos, until_hpos, vpos & (((cop_state.saved_i2 >> 8) & 0x7F) | 0x80));
SAEF_log("copper.dump() cvcmp=%d chcmp=%d chpos=%d cvpos=%d ci1=%04X ci2=%04X", cop_state.vcmp, cop_state.hcmp, cop_state.hpos, cop_state.vpos, cop_state.saved_i1, cop_state.saved_i2);
SAEF_log("copper.dump() cstate=%d ip=%x SPCFLAGS=%x iscline=%d", cop_state.state, cop_state.ip, SAEV_spcflags, SAEV_Copper_enabled_thisline);
}*/
function update_copper(until_hpos) {
var vp = SAER.playfield.get_vpos() & (((cop_state.saved_i2 >> 8) & 0x7F) | 0x80);
var c_hpos = cop_state.hpos;
var maxhpos;
//if (nocustom()) return;
if (cop_state.state == COP_wait && vp < cop_state.vcmp) {
//dump("error2", until_hpos);
SAEV_Copper_enabled_thisline = 0;
cop_state.state = COP_stop;
SAEF_clrSpcFlags(SAEC_spcflag_COPPER);
return;
}
if (until_hpos <= SAEV_Copper_last_hpos)
return;
maxhpos = SAER.playfield.get_maxhpos();
if (until_hpos > (maxhpos & ~1))
until_hpos = maxhpos & ~1;
for (;;) {
var old_hpos = c_hpos;
var hp;
if (c_hpos >= until_hpos)
break;
/* So we know about the fetch state. */
SAER.playfield.decide_line(c_hpos);
// bitplane only, don't want blitter to steal our cycles.
SAER.playfield.decide_fetch(c_hpos);
if (cop_state.movedelay > 0) {
cop_state.movedelay--;
if (cop_state.movedelay == 0) {
put16_copper(c_hpos, cop_state.moveaddr, cop_state.movedata, 0);
}
}
maxhpos = SAER.playfield.get_maxhpos();
if ((c_hpos == maxhpos - 3) && (maxhpos & 1))
c_hpos += 1;
else
c_hpos += 2;
switch (cop_state.state) {
case COP_wait_in2: {
if (SAER.playfield.copper_cant_read(old_hpos, 0))
continue;
cop_state.state = COP_wait1;
break;
}
case COP_skip_in2: {
if (SAER.playfield.copper_cant_read(old_hpos, 0))
continue;
cop_state.state = COP_skip1;
break;
}
case COP_strobe_extra: {
// Wait 1 copper cycle doing nothing
cop_state.state = COP_strobe_delay1;
break;
}
case COP_strobe_delay1: {
// First cycle after COPJMP is just like normal first read cycle
// Cycle is used and needs to be free.
if (SAER.playfield.copper_cant_read(old_hpos, 1))
continue;
//SAER.events.alloc_cycle(old_hpos, SAEC_Events_cycle_line_COPPER);
maxhpos = SAER.playfield.get_maxhpos();
if (old_hpos == maxhpos - 2) {
// if COP_strobe_delay2 would cross scanlines (positioned immediately
// after first strobe/refresh slot) it will disappear!
cop_state.state = COP_read1;
if (cop_state.strobe == 1)
cop_state.ip = cop1lc;
else
cop_state.ip = cop2lc;
cop_state.strobe = 0;
} else {
cop_state.state = COP_strobe_delay2;
cop_state.ip += 2;
}
break;
}
case COP_strobe_delay2: {
// Second cycle after COPJMP. This is the strange one.
// This cycle does not need to be free
// But it still gets allocated by copper if it is free = CPU and blitter can't use it.
//if (!SAER.playfield.copper_cant_read(old_hpos, 0)) SAER.events.alloc_cycle(old_hpos, SAEC_Events_cycle_line_COPPER);
cop_state.state = COP_read1;
// Next cycle finally reads from new pointer
if (cop_state.strobe == 1)
cop_state.ip = cop1lc;
else
cop_state.ip = cop2lc;
cop_state.strobe = 0;
break;
}
case COP_strobe_delay1x: {
// First cycle after COPJMP and Copper was waiting. This is the buggy one.
// Cycle can be free and copper won"t allocate it.
// If Blitter uses this cycle = Copper"s PC gets copied to blitter DMA pointer..
cop_state.state = COP_strobe_delay2x;
break;
}
case COP_strobe_delay2x: {
// Second cycle fetches following word and tosses it away. Must be free cycle
// but it is not allocated, blitter or cpu can still use it.
if (SAER.playfield.copper_cant_read(old_hpos, 1))
continue;
//SAER_Events_cycle_line[old_hpos] |= SAEC_Events_cycle_line_COPPER_SPECIAL;
cop_state.state = COP_read1;
// Next cycle finally reads from new pointer
if (cop_state.strobe == 1)
cop_state.ip = cop1lc;
else
cop_state.ip = cop2lc;
cop_state.strobe = 0;
break;
}
case COP_start_delay: {
// cycle after vblank strobe fetches word from old pointer first
if (SAER.playfield.copper_cant_read(old_hpos, 1))
continue;
cop_state.state = COP_read1;
//cop_state.i1 = SAEV_Custom_last_value = SAER_Memory_chipGet16_indirect(cop_state.ip);
cop_state.i1 = SAEV_Custom_last_value = (SAER_Memory_chipData[cop_state.ip] << 8) | SAER_Memory_chipData[cop_state.ip + 1];
//SAER.events.alloc_cycle(old_hpos, SAEC_Events_cycle_line_COPPER);
cop_state.ip = cop1lc;
break;
}
case COP_read1: {
if (SAER.playfield.copper_cant_read(old_hpos, 1))
continue;
//cop_state.i1 = SAEV_Custom_last_value = SAER_Memory_chipGet16_indirect(cop_state.ip);
cop_state.i1 = SAEV_Custom_last_value = (SAER_Memory_chipData[cop_state.ip] << 8) | SAER_Memory_chipData[cop_state.ip + 1];
//SAER.events.alloc_cycle(old_hpos, SAEC_Events_cycle_line_COPPER);
cop_state.ip += 2;
cop_state.state = COP_read2;
break;
}
case COP_read2: {
if (SAER.playfield.copper_cant_read(old_hpos, 1))
continue;
//cop_state.i2 = SAEV_Custom_last_value = SAER_Memory_chipGet16_indirect(cop_state.ip);
cop_state.i2 = SAEV_Custom_last_value = (SAER_Memory_chipData[cop_state.ip] << 8) | SAER_Memory_chipData[cop_state.ip + 1];
//SAER.events.alloc_cycle(old_hpos, SAEC_Events_cycle_line_COPPER);
cop_state.ip += 2;
cop_state.saved_i1 = cop_state.i1;
cop_state.saved_i2 = cop_state.i2;
cop_state.saved_ip = cop_state.ip;
if (cop_state.i1 & 1) { // WAIT or SKIP
cop_state.ignore_next = false;
if (cop_state.i2 & 1)
cop_state.state = COP_skip_in2;
else
cop_state.state = COP_wait_in2;
} else { // MOVE
var reg = cop_state.i1 & 0x1FE;
var data = cop_state.i2;
cop_state.state = COP_read1;
test_copper_dangerous(reg);
if (!SAEV_Copper_enabled_thisline) {
//goto out; //was "dangerous" register -> copper stopped
cop_state.hpos = c_hpos;
SAEV_Copper_last_hpos = until_hpos;
return;
}
if (cop_state.ignore_next)
reg = 0x1fe;
if (reg == 0x88) {
cop_state.strobe = 1;
cop_state.state = COP_strobe_delay1;
} else if (reg == 0x8a) {
cop_state.strobe = 2;
cop_state.state = COP_strobe_delay1;
} else {
if (customdelay[reg >> 1]) {
cop_state.moveaddr = reg;
cop_state.movedata = data;
cop_state.movedelay = customdelay[reg >> 1];
} else
put16_copper(old_hpos, reg, data, 0);
}
cop_state.ignore_next = false;
}
check_copper_stop();
break;
}
case COP_wait1: {
cop_state.state = COP_wait;
cop_state.vcmp = (cop_state.saved_i1 & (cop_state.saved_i2 | 0x8000)) >> 8;
cop_state.hcmp = (cop_state.saved_i1 & cop_state.saved_i2 & 0xFE);
vp = SAER.playfield.get_vpos() & (((cop_state.saved_i2 >> 8) & 0x7F) | 0x80);
if (cop_state.saved_i1 == 0xFFFF && cop_state.saved_i2 == 0xFFFE) {
cop_state.state = COP_waitforever;
SAEV_Copper_enabled_thisline = 0;
SAEF_clrSpcFlags(SAEC_spcflag_COPPER);
//goto out;
cop_state.hpos = c_hpos;
SAEV_Copper_last_hpos = until_hpos;
return;
}
if (vp < cop_state.vcmp) {
SAEV_Copper_enabled_thisline = 0;
SAEF_clrSpcFlags(SAEC_spcflag_COPPER);
//goto out;
cop_state.hpos = c_hpos;
SAEV_Copper_last_hpos = until_hpos;
return;
}
/* fall through */
}
case COP_wait: {
var ch_comp = c_hpos;
if (ch_comp & 1)
ch_comp = 0;
/* First handle possible blitter wait
* Must be before following free cycle check */
if ((cop_state.saved_i2 & 0x8000) == 0) {
SAER.blitter.decide_blitter(old_hpos);
if (SAEV_Blitter_bltstate != SAEC_Blitter_bltstate_DONE) {
/* We need to wait for the blitter. */
cop_state.state = COP_bltwait;
SAEV_Copper_enabled_thisline = 0;
SAEF_clrSpcFlags(SAEC_spcflag_COPPER);
//goto out;
cop_state.hpos = c_hpos;
SAEV_Copper_last_hpos = until_hpos;
return;
}
}
if (SAER.playfield.copper_cant_read(old_hpos, 0))
continue;
hp = ch_comp & (cop_state.saved_i2 & 0xFE);
if (vp == cop_state.vcmp && hp < cop_state.hcmp)
break;
cop_state.state = COP_read1;
break;
}
case COP_skip1: {
var vcmp, hcmp, vp1, hp1;
maxhpos = SAER.playfield.get_maxhpos();
if (c_hpos >= (maxhpos & ~1) || (c_hpos & 1))
break;
if (SAER.playfield.copper_cant_read(old_hpos, 0))
continue;
vcmp = (cop_state.saved_i1 & (cop_state.saved_i2 | 0x8000)) >> 8;
hcmp = (cop_state.saved_i1 & cop_state.saved_i2 & 0xFE);
vp1 = SAER.playfield.get_vpos() & (((cop_state.saved_i2 >> 8) & 0x7F) | 0x80);
hp1 = c_hpos & (cop_state.saved_i2 & 0xFE);
if ((vp1 > vcmp || (vp1 == vcmp && hp1 >= hcmp)) && ((cop_state.saved_i2 & 0x8000) != 0 || SAEV_Blitter_bltstate == SAEC_Blitter_bltstate_DONE))
cop_state.ignore_next = true;
cop_state.state = COP_read1;
break;
}
default:
break;
}
}
//out:
cop_state.hpos = c_hpos;
SAEV_Copper_last_hpos = until_hpos;
}
this.compute_spcflag_copper = function(hpos) {
var wasenabled = SAEV_Copper_enabled_thisline;
SAEV_Copper_enabled_thisline = 0;
SAEF_clrSpcFlags(SAEC_spcflag_COPPER);
if (!SAEF_Custom_dmaen(SAEC_Custom_DMAF_COPEN) || cop_state.state == COP_stop || cop_state.state == COP_waitforever || cop_state.state == COP_bltwait) //|| nocustom())
return;
if (cop_state.state == COP_wait) {
var vp = SAER.playfield.get_vpos() & (((cop_state.saved_i2 >> 8) & 0x7F) | 0x80);
if (vp < cop_state.vcmp)
return;
}
// do not use past cycles if starting for the first time in this line
// (write to DMACON for example) hpos+1 for long lines
if (!wasenabled && cop_state.hpos < hpos && hpos < SAER.playfield.get_maxhpos()) {
var maxhpos_short = SAER.playfield.get_maxhpos_short();
hpos = (hpos + 2) & ~1;
if (hpos > (maxhpos_short & ~1))
hpos = maxhpos_short & ~1;
cop_state.hpos = hpos;
}
// if COPJMPx was written while DMA was disabled, advance to next state,
// COP_strobe_extra is single cycle only and does not need free bus.
// (copper state emulation does not run if DMA is disabled)
if (!wasenabled && cop_state.state == COP_strobe_extra)
cop_state.state = COP_strobe_delay1;
SAEV_Copper_enabled_thisline = 1;
SAEF_setSpcFlags(SAEC_spcflag_COPPER);
}
this.blitter_done_notify = function(hpos) {
if (cop_state.state != COP_bltwait)
return;
var vpos = SAER.playfield.get_vpos();
var vp_wait = vpos & (((cop_state.saved_i2 >> 8) & 0x7F) | 0x80);
var vp = vpos;
var maxhpos = SAER.playfield.get_maxhpos();
hpos++;
hpos &= ~1;
if (hpos >= maxhpos) {
hpos -= maxhpos;
vp++;
}
cop_state.hpos = hpos;
cop_state.vpos = vp;
cop_state.state = COP_wait;
/* No need to check blitter state again */
cop_state.saved_i2 |= 0x8000;
if (SAEF_Custom_dmaen(SAEC_Custom_DMAF_COPEN) && vp_wait >= cop_state.vcmp) {
SAEV_Copper_enabled_thisline = 1;
SAEF_setSpcFlags(SAEC_spcflag_COPPER);
} else
SAEF_clrSpcFlags(SAEC_spcflag_COPPER);
}
this.cycle = function() { //do_copper()
var hpos = SAER.events.current_hpos();
update_copper(hpos);
}
this.sync_copper_with_cpu = function(hpos, do_schedule) {
/* Need to let the copper advance to the current position. */
if (SAEV_Copper_enabled_thisline)
update_copper(hpos);
}
/*-----------------------------------------------------------------------*/
function test_copper_dangerous(address) {
var addr = address & 0x01fe;
if (addr < ((copcon & 2) ? ((SAEV_config.chipset.mask & SAEC_Config_Chipset_Mask_ECS_AGNUS) ? 0 : 0x40) : 0x80)) {
cop_state.state = COP_stop;
SAEV_Copper_enabled_thisline = 0;
SAEF_clrSpcFlags(SAEC_spcflag_COPPER);
return true;
}
return false;
}
/*function immediate_copper(num) {
var pos = 0;
var oldpos = 0;
cop_state.state = COP_stop;
cop_state.vpos = SAER.playfield.get_vpos();
cop_state.hpos = SAER.events.current_hpos() & ~1;
cop_state.ip = num == 1 ? cop1lc : cop2lc;
while (pos < (maxvpos << 5)) {
if (oldpos > pos)
pos = oldpos;
if (!SAEF_Custom_dmaen(SAEC_Custom_DMAF_COPEN))
break;
if (cop_state.ip >= SAEV_config.memory.chipSize && cop_state.ip < currprefs.z3chipmem_start && cop_state.ip >= currprefs.z3chipmem_start + currprefs.z3chipmem_size)
break;
pos++;
oldpos = pos;
//cop_state.i1 = SAER_Memory_chipGet16_indirect(cop_state.ip);
//cop_state.i2 = SAER_Memory_chipGet16_indirect(cop_state.ip + 2);
cop_state.i1 = (SAER_Memory_chipData[cop_state.ip ] << 8) | SAER_Memory_chipData[cop_state.ip + 1];
cop_state.i2 = (SAER_Memory_chipData[cop_state.ip + 2] << 8) | SAER_Memory_chipData[cop_state.ip + 3];
cop_state.ip += 4;
if (!(cop_state.i1 & 1)) { // move
cop_state.i1 &= 0x1fe;
if (cop_state.i1 == 0x88) {
cop_state.ip = cop1lc;
continue;
}
if (cop_state.i1 == 0x8a) {
cop_state.ip = cop2lc;
continue;
}
if (test_copper_dangerous(cop_state.i1))
break;
//custom_wput_1(0, cop_state.i1, cop_state.i2, 0);
SAER_Custom_put16_real(0, addr, value, 0);
} else { // wait or skip
if ((cop_state.i1 >> 8) > ((pos >> 5) & 0xff))
pos = (((pos >> 5) & 0x100) | ((cop_state.i1 >> 8)) << 5) | ((cop_state.i1 & 0xff) >> 3);
if (cop_state.i1 >= 0xffdf && cop_state.i2 == 0xfffe)
break;
}
}
cop_state.state = COP_stop;
SAEF_clrSpcFlags(SAEC_spcflag_COPPER);
}*/
this.COP1LCH = function(v) {
v = v & (SAEV_config.chipset.mask == SAEC_Config_Chipset_Mask_OCS ? 7 : 31); //OWN
cop1lc = ((cop1lc & 0x0000ffff) | (v << 16)) >>> 0;
}
this.COP1LCL = function(v) {
cop1lc = ((cop1lc & 0xffff0000) | (v & 0xfffe)) >>> 0;
}
this.COP2LCH = function(v) {
v = v & (SAEV_config.chipset.mask == SAEC_Config_Chipset_Mask_OCS ? 7 : 31); //OWN
cop2lc = ((cop2lc & 0x0000ffff) | (v << 16)) >>> 0;
}
this.COP2LCL = function(v) {
cop2lc = ((cop2lc & 0xffff0000) | (v & 0xfffe)) >>> 0;
}
// vblank = copper starts at hpos=2
// normal COPJMP write: takes 2 more cycles
this.COPJMP = function(num, vblank) {
var oldstrobe = cop_state.strobe;
var wasstopped = cop_state.state == COP_stop && !vblank;
/*if (SAEF_Custom_dmaen(SAEC_Custom_DMAF_COPEN) && (cop_state.saved_i1 != 0xffff || cop_state.saved_i2 != 0xfffe))
SAEF_warn("copper.COPJMP vblank without copper ending %08x (%08x %08x)", cop_state.ip, cop1lc, cop2lc);*/
SAEF_clrSpcFlags(SAEC_spcflag_COPPER);
cop_state.ignore_next = false;
if (!oldstrobe)
cop_state.state_prev = cop_state.state;
if ((cop_state.state == COP_wait || cop_state.state == COP_waitforever) && !vblank && SAEF_Custom_dmaen(SAEC_Custom_DMAF_COPEN)) {
cop_state.state = COP_strobe_delay1x;
} else {
cop_state.state = vblank ? COP_start_delay : (SAEV_Copper_access ? COP_strobe_delay1 : COP_strobe_extra);
}
cop_state.vpos = SAER.playfield.get_vpos();
cop_state.hpos = SAER.events.current_hpos() & ~1;
SAEV_Copper_enabled_thisline = 0;
cop_state.strobe = num;
/*if (nocustom()) {
immediate_copper(num);
return;
}*/
if (SAEF_Custom_dmaen(SAEC_Custom_DMAF_COPEN)) {
this.compute_spcflag_copper(SAER.events.current_hpos());
} else if (wasstopped || (oldstrobe > 0 && oldstrobe != num && cop_state.state_prev == COP_wait)) {
/* dma disabled, copper idle and accessed both COPxJMPs -> copper stops! */
cop_state.state = COP_stop;
}
}
this.COPCON = function(a) {
copcon = a;
}
}
Reference in a new issue View git blame Copy permalink