534 lines
16 KiB
TypeScript
534 lines
16 KiB
TypeScript
|
|
import { MOS6502, MOS6502State } from "../common/cpu/MOS6502";
|
|
import { BasicMachine, RasterFrameBased, Bus, ProbeAll } from "../common/devices";
|
|
import { KeyFlags, newAddressDecoder, padBytes, Keys, makeKeycodeMap, newKeyboardHandler, EmuHalt, dumpRAM, gtia_ntsc_to_rgb } from "../common/emu";
|
|
import { TssChannelAdapter, MasterAudio, POKEYDeviceChannel } from "../common/audio";
|
|
import { hex, rgb2bgr } from "../common/util";
|
|
|
|
// https://atarihq.com/danb/a7800.shtml
|
|
// https://atarihq.com/danb/files/maria_r1.txt
|
|
// https://sites.google.com/site/atari7800wiki/
|
|
|
|
interface Atari7800StateBase {
|
|
ram : Uint8Array;
|
|
regs6532 : Uint8Array;
|
|
}
|
|
|
|
interface Atari7800ControlsState {
|
|
inputs : Uint8Array;
|
|
}
|
|
|
|
interface Atari7800State extends Atari7800StateBase, Atari7800ControlsState {
|
|
c : MOS6502State;
|
|
tia : {
|
|
regs : Uint8Array,
|
|
};
|
|
maria : {
|
|
regs : Uint8Array,
|
|
offset,dll,dlstart : number;
|
|
dli,h16,h8 : boolean;
|
|
};
|
|
}
|
|
|
|
const SWCHA = 0;
|
|
const SWCHB = 2;
|
|
const INPT0 = 8;
|
|
|
|
const Atari7800_KEYCODE_MAP = makeKeycodeMap([
|
|
[Keys.A, INPT0+0, 0x80],
|
|
[Keys.B, INPT0+1, 0x80],
|
|
[Keys.SELECT, SWCHB, -0x02],
|
|
[Keys.START, SWCHB, -0x01],
|
|
[Keys.UP, SWCHA, -0x10],
|
|
[Keys.DOWN, SWCHA, -0x20],
|
|
[Keys.LEFT, SWCHA, -0x40],
|
|
[Keys.RIGHT, SWCHA, -0x80],
|
|
|
|
[Keys.P2_A, INPT0+2, 0x80],
|
|
[Keys.P2_B, INPT0+3, 0x80],
|
|
//[Keys.P2_SELECT, 1, 2],
|
|
//[Keys.P2_START, 1, 3],
|
|
[Keys.P2_UP, SWCHA, -0x01],
|
|
[Keys.P2_DOWN, SWCHA, -0x02],
|
|
[Keys.P2_LEFT, SWCHA, -0x04],
|
|
[Keys.P2_RIGHT, SWCHA, -0x08],
|
|
]);
|
|
|
|
// http://www.ataripreservation.org/websites/freddy.offenga/megazine/ISSUE5-PALNTSC.html
|
|
// http://7800.8bitdev.org/index.php/7800_Software_Guide#APPENDIX_4:_FRAME_TIMING
|
|
const CLK = 3579545;
|
|
const linesPerFrame = 262;
|
|
const numVisibleLines = 258-16;
|
|
const colorClocksPerLine = 454; // 456?
|
|
const colorClocksPreDMA = 28;
|
|
const audioOversample = 2;
|
|
const audioSampleRate = linesPerFrame*60*audioOversample;
|
|
|
|
// TIA chip
|
|
|
|
class TIA {
|
|
regs = new Uint8Array(0x20);
|
|
|
|
reset() {
|
|
this.regs.fill(0);
|
|
}
|
|
read(a : number) : number {
|
|
return this.regs[a] | 0;
|
|
}
|
|
write(a : number, v : number) {
|
|
this.regs[a] = v;
|
|
}
|
|
saveState() {
|
|
return {
|
|
regs: this.regs.slice(0)
|
|
};
|
|
}
|
|
loadState(s) {
|
|
for (let i=0; i<32; i++)
|
|
this.write(i, s.regs[i]);
|
|
}
|
|
static stateToLongString(state) : string {
|
|
let s = "";
|
|
s += dumpRAM(state.regs, 0, 32);
|
|
return s;
|
|
}
|
|
}
|
|
|
|
// MARIA chip
|
|
|
|
class MARIA {
|
|
bus : Bus;
|
|
cycles : number = 0;
|
|
regs = new Uint8Array(0x20);
|
|
offset : number = -1;
|
|
dll : number = 0;
|
|
dlstart : number = 0;
|
|
dli : boolean = false;
|
|
h16 : boolean = false;
|
|
h8 : boolean = false;
|
|
pixels = new Uint8Array(320);
|
|
WSYNC : number = 0;
|
|
|
|
reset() {
|
|
this.regs.fill(0);
|
|
// TODO?
|
|
}
|
|
read(a : number) : number {
|
|
return this.regs[a] | 0;
|
|
}
|
|
write(a : number, v : number) {
|
|
this.regs[a] = v;
|
|
if (a == 0x04) this.WSYNC++;
|
|
//console.log(hex(a), '=', hex(v));
|
|
}
|
|
saveState() {
|
|
return {
|
|
regs: this.regs.slice(0),
|
|
offset: this.offset,
|
|
dll: this.dll,
|
|
dlstart: this.dlstart,
|
|
dli: this.dli,
|
|
h16: this.h16,
|
|
h8: this.h8,
|
|
};
|
|
}
|
|
loadState(s) {
|
|
for (let i=0; i<32; i++)
|
|
this.write(i, s.regs[i]|0);
|
|
this.offset = s.offset|0;
|
|
this.dll = s.dll|0;
|
|
this.dlstart = s.dlstart|0;
|
|
this.dli = !!s.dli;
|
|
this.h16 = !!s.h16;
|
|
this.h8 = !!s.h8;
|
|
}
|
|
isDMAEnabled() {
|
|
return (this.regs[0x1c] & 0x60) == 0x40;
|
|
}
|
|
getDLLStart() {
|
|
return (this.regs[0x0c] << 8) + this.regs[0x10];
|
|
}
|
|
getCharBaseAddress() {
|
|
return (this.regs[0x14] << 8) + this.offset;
|
|
}
|
|
setVBLANK(b : boolean) {
|
|
if (b) {
|
|
this.regs[0x08] |= 0x80;
|
|
this.offset = -1;
|
|
this.dll = this.getDLLStart();
|
|
this.dli = this.bus && (this.bus.read(this.dll) & 0x80) != 0; // if DLI on first zone
|
|
} else {
|
|
this.regs[0x08] &= ~0x80;
|
|
}
|
|
}
|
|
readDLLEntry(bus) {
|
|
// display lists must be in RAM (TODO: probe?)
|
|
if (this.dll >= 0x4000) { return; }
|
|
let x = bus.read(this.dll);
|
|
this.offset = (x & 0xf);
|
|
this.h16 = (x & 0x40) != 0;
|
|
this.h8 = (x & 0x20) != 0;
|
|
this.dlstart = (bus.read(this.dll+1)<<8) + bus.read(this.dll+2);
|
|
//console.log(hex(this.dll,4), this.offset, hex(this.dlstart,4));
|
|
this.dll = (this.dll + 3) & 0xffff; // TODO: can also only cross 1 page?
|
|
this.dli = (bus.read(this.dll) & 0x80) != 0; // DLI flag is from next DLL entry
|
|
}
|
|
isHoley(a : number) : boolean {
|
|
if (a & 0x8000) {
|
|
if (this.h16 && (a & 0x1000)) return true;
|
|
if (this.h8 && (a & 0x800)) return true;
|
|
}
|
|
return false;
|
|
}
|
|
readDMA(a : number) : number {
|
|
if (this.isHoley(a))
|
|
return 0;
|
|
else {
|
|
this.cycles += 3;
|
|
return this.bus.read(a);
|
|
}
|
|
}
|
|
doDMA(bus : Bus) {
|
|
this.bus = bus;
|
|
this.cycles = 0;
|
|
this.pixels.fill(this.regs[0x0]);
|
|
if (this.isDMAEnabled()) {
|
|
this.cycles += 16; // TODO: last line in zone gets additional 8 cycles
|
|
// time for a new DLL entry?
|
|
if (this.offset < 0) {
|
|
this.readDLLEntry(bus);
|
|
}
|
|
// read the DL (only can span two pages)
|
|
let dlhi = this.dlstart & 0xff00;
|
|
let dlofs = this.dlstart & 0xff;
|
|
do {
|
|
// read DL entry
|
|
let b0 = bus.read(dlhi + ((dlofs+0) & 0x1ff));
|
|
let b1 = bus.read(dlhi + ((dlofs+1) & 0x1ff));
|
|
if (b1 == 0) break; // end of DL
|
|
// display lists must be in RAM (TODO: probe?)
|
|
if (dlhi >= 0x4000) { break; }
|
|
let b2 = bus.read(dlhi + ((dlofs+2) & 0x1ff));
|
|
let b3 = bus.read(dlhi + ((dlofs+3) & 0x1ff));
|
|
let indirect = false;
|
|
// extended header?
|
|
if ((b1 & 31) == 0) {
|
|
var pal = b3 >> 5;
|
|
var width = 32 - (b3 & 31);
|
|
var xpos = bus.read(dlhi + ((dlofs+4) & 0x1ff));
|
|
var writemode = b1 & 0x80;
|
|
indirect = (b1 & 0x20) != 0;
|
|
dlofs += 5;
|
|
this.cycles += 10;
|
|
} else {
|
|
// direct mode
|
|
var xpos = b3;
|
|
var pal = b1 >> 5;
|
|
var width = 32 - (b1 & 31);
|
|
var writemode = 0;
|
|
dlofs += 4;
|
|
this.cycles += 8;
|
|
}
|
|
let gfxadr = b0 + (((b2 + (indirect?0:this.offset)) & 0xff) << 8);
|
|
xpos *= 2;
|
|
// copy graphics data (direct)
|
|
let readmode = (this.regs[0x1c] & 0x3) + (writemode?4:0);
|
|
// double bytes?
|
|
let dbl = indirect && (this.regs[0x1c] & 0x10) != 0;
|
|
if (dbl) { width *= 2; }
|
|
//if (this.offset == 0) console.log(hex(dla,4), hex(gfxadr,4), xpos, width, pal, readmode);
|
|
for (var i=0; i<width; i++) {
|
|
let data = this.readDMA( dbl ? (gfxadr+(i>>1)) : (gfxadr+i) );
|
|
if (indirect) {
|
|
let indadr = ((this.regs[0x14] + this.offset) << 8) + data;
|
|
if (dbl && (i&1)) {
|
|
indadr++;
|
|
this.cycles -= 3; // indirect read has 6/9 cycles
|
|
}
|
|
data = this.readDMA(indadr);
|
|
}
|
|
// TODO: more modes (https://github.com/gstanton/ProSystem1_3/blob/master/Core/Maria.cpp)
|
|
switch (readmode) {
|
|
case 0: // 160 A/B
|
|
for (let j=0; j<4; j++) {
|
|
var col = (data >> 6) & 3;
|
|
if (col > 0) {
|
|
this.pixels[xpos] = this.pixels[xpos+1] = this.regs[(pal<<2) + col];
|
|
}
|
|
data <<= 2;
|
|
xpos = (xpos + 2) & 0x1ff;
|
|
}
|
|
break;
|
|
case 2: // 320 B/D (TODO?)
|
|
case 3: // 320 A/C
|
|
for (let j=0; j<8; j++) {
|
|
var col = (data & 128) ? 1 : 0;
|
|
if (col > 0) {
|
|
this.pixels[xpos] = this.regs[(pal<<2) + col];
|
|
}
|
|
data <<= 1;
|
|
xpos = (xpos + 1) & 0x1ff;
|
|
}
|
|
break;
|
|
}
|
|
}
|
|
} while (this.cycles < colorClocksPerLine); // TODO?
|
|
// decrement offset
|
|
this.offset -= 1;
|
|
}
|
|
return this.cycles;
|
|
}
|
|
doInterrupt() : boolean {
|
|
if (this.dli && this.offset < 0) {
|
|
this.dli = false;
|
|
return true;
|
|
} else
|
|
return false;
|
|
//return this.dli;// && this.offset == 1;
|
|
}
|
|
static stateToLongString(state) : string {
|
|
let s = "";
|
|
s += dumpRAM(state.regs, 0, 32);
|
|
s += "\n DLL: $" + hex((state.regs[0x0c] << 8) + state.regs[0x10],4) + " @ $" + hex(state.dll,4);
|
|
s += "\n DL: $" + hex(state.dlstart,4);
|
|
s += "\nOffset: " + state.offset;
|
|
s += "\n DLI? " + state.dli;
|
|
return s;
|
|
}
|
|
}
|
|
|
|
// Atari 7800
|
|
|
|
export class Atari7800 extends BasicMachine implements RasterFrameBased {
|
|
|
|
cpuFrequency = 1789772;
|
|
canvasWidth = 320;
|
|
numTotalScanlines = linesPerFrame;
|
|
numVisibleScanlines = numVisibleLines;
|
|
defaultROMSize = 0xc000;
|
|
cpuCyclesPerLine = 113.5;
|
|
sampleRate = audioSampleRate;
|
|
|
|
cpu : MOS6502;
|
|
ram : Uint8Array = new Uint8Array(0x1000);
|
|
regs6532 = new Uint8Array(4);
|
|
tia : TIA = new TIA();
|
|
maria : MARIA = new MARIA();
|
|
pokey1; //TODO: type
|
|
audioadapter;
|
|
|
|
lastFrameCycles = 0;
|
|
xtracyc = 0;
|
|
|
|
read : (a:number) => number;
|
|
write : (a:number, v:number) => void;
|
|
|
|
dmaBus : Bus; // to pass to MARIA
|
|
|
|
constructor() {
|
|
super();
|
|
this.cpu = new MOS6502();
|
|
this.read = newAddressDecoder([
|
|
[0x0008, 0x000d, 0x0f, (a) => { this.xtracyc++; return this.readInput(a); }],
|
|
[0x0000, 0x001f, 0x1f, (a) => { this.xtracyc++; return this.tia.read(a); }],
|
|
[0x0020, 0x003f, 0x1f, (a) => { return this.maria.read(a); }],
|
|
[0x0040, 0x00ff, 0xff, (a) => { return this.ram[a + 0x800]; }],
|
|
[0x0100, 0x013f, 0xff, (a) => { return this.read(a); }], // shadow
|
|
[0x0140, 0x01ff, 0x1ff, (a) => { return this.ram[a + 0x800]; }],
|
|
[0x0280, 0x02ff, 0x3, (a) => { this.xtracyc++; return this.inputs[a]; }],
|
|
[0x1800, 0x27ff, 0xffff, (a) => { return this.ram[a - 0x1800]; }],
|
|
[0x2800, 0x3fff, 0x7ff, (a) => { return this.read(a | 0x2000); }], // shadow
|
|
[0x4000, 0xffff, 0xffff, (a) => { return this.rom ? this.rom[a - 0x4000] : 0; }],
|
|
[0x0000, 0xffff, 0xffff, (a) => { return this.probe && this.probe.logIllegal(a); }],
|
|
]);
|
|
this.write = newAddressDecoder([
|
|
[0x0015, 0x001A, 0x1f, (a,v) => { this.xtracyc++; this.pokey1.setTIARegister(a, v); }],
|
|
[0x0000, 0x001f, 0x1f, (a,v) => { this.xtracyc++; this.tia.write(a,v); }],
|
|
[0x0020, 0x003f, 0x1f, (a,v) => { this.maria.write(a,v); }],
|
|
[0x0040, 0x00ff, 0xff, (a,v) => { this.ram[a + 0x800] = v; }],
|
|
[0x0100, 0x013f, 0xff, (a,v) => { this.write(a,v); }], // shadow
|
|
[0x0140, 0x01ff, 0x1ff, (a,v) => { this.ram[a + 0x800] = v; }],
|
|
[0x0280, 0x02ff, 0x3, (a,v) => { this.xtracyc++; this.regs6532[a] = v; /*TODO*/ }],
|
|
[0x1800, 0x27ff, 0xffff, (a,v) => { this.ram[a - 0x1800] = v; }],
|
|
[0x2800, 0x3fff, 0x7ff, (a,v) => { this.write(a | 0x2000, v); }], // shadow
|
|
[0xbfff, 0xbfff, 0xffff, (a,v) => { }], // TODO: bank switching?
|
|
[0x0000, 0xffff, 0xffff, (a,v) => { this.probe && this.probe.logIllegal(a); }],
|
|
]);
|
|
this.connectCPUMemoryBus(this);
|
|
this.dmaBus = this.probeDMABus(this);
|
|
this.handler = newKeyboardHandler(this.inputs, Atari7800_KEYCODE_MAP);
|
|
this.pokey1 = new POKEYDeviceChannel();
|
|
this.audioadapter = new TssChannelAdapter(this.pokey1, audioOversample, audioSampleRate);
|
|
}
|
|
|
|
readConst(a) {
|
|
// make sure we don't log during this
|
|
let oldprobe = this.probe;
|
|
this.probe = null;
|
|
let v = this.read(a);
|
|
this.probe = oldprobe;
|
|
return v;
|
|
}
|
|
|
|
readInput(a:number) : number {
|
|
switch (a) {
|
|
case 0xc: return ~this.inputs[0x8] & 0x80; //INPT4
|
|
case 0xd: return ~this.inputs[0x9] & 0x80; //INPT5
|
|
default: return this.inputs[a]|0;
|
|
}
|
|
}
|
|
|
|
advanceCPU() : number {
|
|
var clk = super.advanceCPU();
|
|
if (this.xtracyc) {
|
|
clk += this.xtracyc;
|
|
this.probe.logClocks(this.xtracyc);
|
|
this.xtracyc = 0;
|
|
}
|
|
return clk;
|
|
}
|
|
|
|
advanceFrame(trap) : number {
|
|
var idata = this.pixels;
|
|
var iofs = 0;
|
|
var rgb;
|
|
var mc = 0;
|
|
var fc = 0;
|
|
var steps = 0;
|
|
this.probe.logNewFrame();
|
|
//console.log(hex(this.cpu.getPC()), hex(this.maria.dll));
|
|
// visible lines
|
|
for (var sl=0; sl<linesPerFrame; sl++) {
|
|
this.scanline = sl;
|
|
var visible = sl < numVisibleLines;
|
|
this.maria.setVBLANK(!visible);
|
|
this.maria.WSYNC = 0;
|
|
// pre-DMA clocks
|
|
while (mc < colorClocksPreDMA) {
|
|
if (this.maria.WSYNC) break;
|
|
if (trap && trap()) {
|
|
trap = null;
|
|
sl = 999;
|
|
break; // TODO?
|
|
}
|
|
mc += this.advanceCPU() << 2;
|
|
steps++;
|
|
}
|
|
// is this scanline visible?
|
|
if (visible) {
|
|
// do DMA for scanline?
|
|
let dmaClocks = this.maria.doDMA(this.dmaBus);
|
|
this.probe.logClocks(dmaClocks >> 2); // TODO: logDMA
|
|
mc += dmaClocks;
|
|
// copy line to frame buffer
|
|
if (idata) {
|
|
for (var i=0; i<320; i++) {
|
|
idata[iofs++] = COLORS_RGBA[this.maria.pixels[i]];
|
|
}
|
|
}
|
|
}
|
|
// do interrupt? (if visible or before 1st scanline)
|
|
if ((visible || sl == linesPerFrame-1) && this.maria.doInterrupt()) {
|
|
this.probe.logInterrupt(0);
|
|
this.cpu.NMI();
|
|
}
|
|
// post-DMA clocks
|
|
while (mc < colorClocksPerLine) {
|
|
if (this.maria.WSYNC) {
|
|
this.probe.logWait(0);
|
|
this.probe.logClocks((colorClocksPerLine - mc) >> 2);
|
|
mc = colorClocksPerLine;
|
|
break;
|
|
}
|
|
if (trap && trap()) {
|
|
trap = null;
|
|
sl = 999;
|
|
break;
|
|
}
|
|
mc += this.advanceCPU() << 2;
|
|
steps++;
|
|
}
|
|
// audio
|
|
this.audio && this.audioadapter.generate(this.audio);
|
|
// update clocks, scanline
|
|
mc -= colorClocksPerLine;
|
|
fc += mc;
|
|
this.probe.logNewScanline();
|
|
}
|
|
/*
|
|
// TODO let bkcol = this.maria.regs[0x0];
|
|
// TODO $(this.video.canvas).css('background-color', COLORS_WEB[bkcol]);
|
|
*/
|
|
this.lastFrameCycles = fc;
|
|
return steps;
|
|
}
|
|
|
|
getRasterX() { return this.lastFrameCycles % colorClocksPerLine; }
|
|
getRasterY() { return this.scanline; }
|
|
|
|
loadROM(data) {
|
|
if (data.length == 0xc080) data = data.slice(0x80); // strip header
|
|
this.rom = padBytes(data, this.defaultROMSize, true);
|
|
}
|
|
|
|
reset() {
|
|
super.reset();
|
|
this.tia.reset();
|
|
this.maria.reset();
|
|
this.inputs.fill(0x0);
|
|
this.inputs[SWCHA] = 0xff;
|
|
this.inputs[SWCHB] = 1+2+8;
|
|
//this.cpu.advanceClock(); // needed for test to pass?
|
|
}
|
|
|
|
readAddress(addr : number) {
|
|
return this.read(addr) | 0;
|
|
}
|
|
|
|
loadState(state : Atari7800State) {
|
|
this.cpu.loadState(state.c);
|
|
this.ram.set(state.ram);
|
|
this.tia.loadState(state.tia);
|
|
this.maria.loadState(state.maria);
|
|
this.regs6532.set(state.regs6532);
|
|
this.loadControlsState(state);
|
|
}
|
|
saveState() : Atari7800State {
|
|
return {
|
|
c:this.cpu.saveState(),
|
|
ram:this.ram.slice(0),
|
|
tia:this.tia.saveState(),
|
|
maria:this.maria.saveState(),
|
|
regs6532:this.regs6532.slice(0),
|
|
inputs:this.inputs.slice(0)
|
|
};
|
|
}
|
|
loadControlsState(state:Atari7800ControlsState) : void {
|
|
this.inputs.set(state.inputs);
|
|
}
|
|
saveControlsState() : Atari7800ControlsState {
|
|
return {
|
|
inputs:this.inputs.slice(0)
|
|
};
|
|
}
|
|
|
|
getDebugCategories() {
|
|
return ['CPU','Stack','TIA','MARIA'];
|
|
}
|
|
getDebugInfo(category, state) {
|
|
switch (category) {
|
|
case 'TIA': return TIA.stateToLongString(state.tia);
|
|
case 'MARIA': return MARIA.stateToLongString(state.maria) + "\nScanline: " + this.scanline;
|
|
//default: return super.getDebugInfo(category, state);
|
|
}
|
|
}
|
|
}
|
|
|
|
///
|
|
|
|
var COLORS_RGBA = new Uint32Array(256);
|
|
for (var i=0; i<256; i++) {
|
|
COLORS_RGBA[i] = gtia_ntsc_to_rgb(i);
|
|
}
|
|
|