atari8: some fixes
This commit is contained in:
parent
e2e47cd436
commit
586a793df5
|
@ -371,9 +371,9 @@ if (window.location.host.endsWith('8bitworkshop.com')) {
|
||||||
</div>
|
</div>
|
||||||
<div class="emucontrols-atari8 text-center small control-insns" style="display:none">
|
<div class="emucontrols-atari8 text-center small control-insns" style="display:none">
|
||||||
<span class="control-def"><span class="control-key">←↑↓→</span> Joystick</span>
|
<span class="control-def"><span class="control-key">←↑↓→</span> Joystick</span>
|
||||||
<span class="control-def"><span class="control-key">Z</span> Button 1</span>
|
<span class="control-def"><span class="control-key">Shift</span> Button</span>
|
||||||
<span class="control-def"><span class="control-key">X</span> Button 2</span>
|
<span class="control-def"><span class="control-key">Enter</span> Start</span>
|
||||||
<span class="control-def"><span class="control-key">1</span> Start</span>
|
<span class="control-def"><span class="control-key">\</span> Select</span>
|
||||||
</div>
|
</div>
|
||||||
<!-- -->
|
<!-- -->
|
||||||
<div id="emuoverlay" class="emuoverlay" style="display:none">
|
<div id="emuoverlay" class="emuoverlay" style="display:none">
|
||||||
|
|
|
@ -3,8 +3,10 @@ import { EmuState, Machine } from "../common/baseplatform";
|
||||||
import { MOS6502 } from "../common/cpu/MOS6502";
|
import { MOS6502 } from "../common/cpu/MOS6502";
|
||||||
import { AcceptsKeyInput, AcceptsPaddleInput, AcceptsROM, BasicScanlineMachine, FrameBased, Probeable, RasterFrameBased, TrapCondition, VideoSource } from "../common/devices";
|
import { AcceptsKeyInput, AcceptsPaddleInput, AcceptsROM, BasicScanlineMachine, FrameBased, Probeable, RasterFrameBased, TrapCondition, VideoSource } from "../common/devices";
|
||||||
import { dumpRAM, KeyFlags, Keys, makeKeycodeMap, newAddressDecoder, newKeyboardHandler } from "../common/emu";
|
import { dumpRAM, KeyFlags, Keys, makeKeycodeMap, newAddressDecoder, newKeyboardHandler } from "../common/emu";
|
||||||
import { hex, lpad, lzgmini, rgb2bgr, stringToByteArray } from "../common/util";
|
import { hex, lpad, lzgmini, rgb2bgr, safe_extend, stringToByteArray } from "../common/util";
|
||||||
import { BaseWASIMachine } from "../common/wasmplatform";
|
import { BaseWASIMachine } from "../common/wasmplatform";
|
||||||
|
import { ANTIC, MODE_SHIFT } from "./chips/antic";
|
||||||
|
import { CONSOL, GTIA, TRIG0 } from "./chips/gtia";
|
||||||
|
|
||||||
const ATARI8_KEYMATRIX_INTL_NOSHIFT = [
|
const ATARI8_KEYMATRIX_INTL_NOSHIFT = [
|
||||||
Keys.VK_L, Keys.VK_J, Keys.VK_SEMICOLON, Keys.VK_F1, Keys.VK_F2, Keys.VK_K, Keys.VK_SLASH, Keys.VK_TILDE,
|
Keys.VK_L, Keys.VK_J, Keys.VK_SEMICOLON, Keys.VK_F1, Keys.VK_F2, Keys.VK_K, Keys.VK_SLASH, Keys.VK_TILDE,
|
||||||
|
@ -23,7 +25,7 @@ var ATARI8_KEYCODE_MAP = makeKeycodeMap([
|
||||||
[Keys.DOWN, 0, 0x2],
|
[Keys.DOWN, 0, 0x2],
|
||||||
[Keys.LEFT, 0, 0x4],
|
[Keys.LEFT, 0, 0x4],
|
||||||
[Keys.RIGHT, 0, 0x8],
|
[Keys.RIGHT, 0, 0x8],
|
||||||
[Keys.VK_SPACE, 2, 0x1],
|
[Keys.VK_SHIFT, 2, 0x1],
|
||||||
/*
|
/*
|
||||||
[Keys.P2_UP, 0, 0x10],
|
[Keys.P2_UP, 0, 0x10],
|
||||||
[Keys.P2_DOWN, 0, 0x20],
|
[Keys.P2_DOWN, 0, 0x20],
|
||||||
|
@ -31,625 +33,12 @@ var ATARI8_KEYCODE_MAP = makeKeycodeMap([
|
||||||
[Keys.P2_RIGHT, 0, 0x80],
|
[Keys.P2_RIGHT, 0, 0x80],
|
||||||
[Keys.P2_A, 3, 0x1],
|
[Keys.P2_A, 3, 0x1],
|
||||||
*/
|
*/
|
||||||
[Keys.START, 3, 0x1],
|
[Keys.START, 3, 0x1],
|
||||||
[Keys.SELECT, 3, 0x2],
|
[Keys.SELECT, 3, 0x2],
|
||||||
[Keys.VK_OPEN_BRACKET, 3, 0x4],
|
[Keys.VK_F6, 3, 0x4],
|
||||||
]);
|
]);
|
||||||
|
|
||||||
// ANTIC
|
|
||||||
|
|
||||||
// https://www.atarimax.com/jindroush.atari.org/atanttim.html
|
|
||||||
// http://www.virtualdub.org/blog/pivot/entry.php?id=243
|
|
||||||
// http://www.beipmu.com/Antic_Timings.txt
|
|
||||||
// https://user.xmission.com/~trevin/atari/antic_regs.html
|
|
||||||
// https://user.xmission.com/~trevin/atari/antic_insns.html
|
|
||||||
// http://www.atarimuseum.com/videogames/consoles/5200/conv_to_5200.html
|
|
||||||
// https://www.virtualdub.org/downloads/Altirra%20Hardware%20Reference%20Manual.pdf
|
|
||||||
|
|
||||||
const PF_LEFT = [999, 26, 18, 10];
|
|
||||||
const PF_RIGHT = [999, 26 + 64, 18 + 80, 10 + 96];
|
|
||||||
|
|
||||||
const DMACTL = 0;
|
|
||||||
const CHACTL = 1;
|
|
||||||
const DLISTL = 2;
|
|
||||||
const DLISTH = 3;
|
|
||||||
const HSCROL = 4;
|
|
||||||
const VSCROL = 5;
|
|
||||||
const PMBASE = 7;
|
|
||||||
const CHBASE = 9;
|
|
||||||
const WSYNC = 10;
|
|
||||||
const VCOUNT = 11;
|
|
||||||
const PENH = 12;
|
|
||||||
const PENV = 13;
|
|
||||||
const NMIEN = 14;
|
|
||||||
const NMIRES = 15;
|
|
||||||
const NMIST = 15;
|
|
||||||
|
|
||||||
const PFNONE = 0;
|
|
||||||
const PFNARROW = 1;
|
|
||||||
const PFNORMAL = 2;
|
|
||||||
const PFWIDE = 3;
|
|
||||||
|
|
||||||
const NMIST_CYCLE = 12;
|
|
||||||
const NMI_CYCLE = 24;
|
|
||||||
const WSYNC_CYCLE = 212;
|
|
||||||
|
|
||||||
const MODE_LINES = [0, 0, 8, 10, 8, 16, 8, 16, 8, 4, 4, 2, 1, 2, 1, 1];
|
|
||||||
// how many bits before DMA clock repeats?
|
|
||||||
const MODE_PERIOD = [0, 0, 2, 2, 2, 2, 4, 4, 8, 4, 4, 4, 4, 2, 2, 2];
|
|
||||||
const MODE_YPERIOD = [0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 2, 1, 0, 0, 0, 0];
|
|
||||||
//const MODE_BPP = [0, 0, 1, 1, 2, 2, 1, 1, 2, 1, 2, 1, 1, 2, 2, 1];
|
|
||||||
// how many color clocks / pixel * 2
|
|
||||||
const MODE_SHIFT = [0, 0, 1, 1, 2, 2, 2, 2, 8, 4, 4, 2, 2, 2, 2, 1];
|
|
||||||
|
|
||||||
class ANTIC {
|
|
||||||
regs = new Uint8Array(0x10); // registers
|
|
||||||
read: (address: number) => number; // bus read function
|
|
||||||
nmiPending: boolean = false;
|
|
||||||
|
|
||||||
// derived by registers
|
|
||||||
pfwidth: number; // playfield width
|
|
||||||
left: number;
|
|
||||||
right: number; // left/right clocks for mode
|
|
||||||
|
|
||||||
// a la minute
|
|
||||||
dliop: number = 0; // dli operation
|
|
||||||
mode: number = 0; // current mode
|
|
||||||
jmp = false; // TODO
|
|
||||||
lms = false; // TODO
|
|
||||||
dlarg_lo: number = 0;
|
|
||||||
dlarg_hi: number = 0;
|
|
||||||
period: number = 0; // current mode period bitmask
|
|
||||||
scanaddr: number = 0; // Scan Address (via LMS)
|
|
||||||
startaddr: number = 0; // Start of line Address
|
|
||||||
pfbyte: number = 0; // playfield byte fetched
|
|
||||||
ch: number = 0; // char read
|
|
||||||
linesleft: number = 0; // # of lines left in mode
|
|
||||||
yofs: number = 0; // yofs fine
|
|
||||||
v: number = 0; // vertical scanline #
|
|
||||||
h: number = 0; // horizontal color clock
|
|
||||||
|
|
||||||
linebuf = new Uint8Array(48);
|
|
||||||
dmaclock: number = 0;
|
|
||||||
dmaidx: number = 0;
|
|
||||||
output: number = 0;
|
|
||||||
dramrefresh = false;
|
|
||||||
|
|
||||||
constructor(readfn) {
|
|
||||||
this.read = readfn; // bus read function
|
|
||||||
}
|
|
||||||
reset() {
|
|
||||||
this.regs.fill(0);
|
|
||||||
this.regs[NMIEN] = 0x00;
|
|
||||||
this.regs[NMIST] = 0x7f;
|
|
||||||
this.regs[PENH] = 0x00;
|
|
||||||
this.regs[PENV] = 0xff;
|
|
||||||
this.setReg(DMACTL, 0x0);
|
|
||||||
this.h = this.v = 0;
|
|
||||||
this.startaddr = this.scanaddr = 0;
|
|
||||||
this.dmaclock = 0;
|
|
||||||
}
|
|
||||||
saveState() {
|
|
||||||
return {
|
|
||||||
regs: this.regs.slice(0),
|
|
||||||
mode: this.mode,
|
|
||||||
period: this.period,
|
|
||||||
scanaddr: this.scanaddr,
|
|
||||||
startaddr: this.startaddr,
|
|
||||||
pfbyte: this.pfbyte,
|
|
||||||
ch: this.ch,
|
|
||||||
linesleft: this.linesleft,
|
|
||||||
yofs: this.yofs,
|
|
||||||
v: this.v,
|
|
||||||
h: this.h,
|
|
||||||
linebuf: this.linebuf.slice(0),
|
|
||||||
dmaidx: this.dmaidx,
|
|
||||||
dmaclock: this.dmaclock,
|
|
||||||
output: this.output,
|
|
||||||
dramrefresh: this.dramrefresh,
|
|
||||||
};
|
|
||||||
}
|
|
||||||
loadState(s) {
|
|
||||||
this.regs.set(s.regs);
|
|
||||||
this.setReg(DMACTL, s.regs[DMACTL]);
|
|
||||||
this.mode = s.mode;
|
|
||||||
this.period = s.period;
|
|
||||||
this.scanaddr = s.scanaddr;
|
|
||||||
this.startaddr = s.startaddr;
|
|
||||||
this.pfbyte = s.pfbyte;
|
|
||||||
this.ch = s.ch;
|
|
||||||
this.linesleft = s.linesleft;
|
|
||||||
this.yofs = s.yofs;
|
|
||||||
this.v = s.v;
|
|
||||||
this.h = s.h;
|
|
||||||
this.linebuf.set(s.linebuf);
|
|
||||||
this.dmaidx = s.dmaidx;
|
|
||||||
this.dmaclock = s.dmaclock;
|
|
||||||
this.output = s.output;
|
|
||||||
this.dramrefresh = s.dramrefresh;
|
|
||||||
}
|
|
||||||
static stateToLongString(state): string {
|
|
||||||
let s = "";
|
|
||||||
s += "H: " + lpad(state.h, 3) + " V: " + lpad(state.v, 3) + " Linesleft: " + state.linesleft + "\n";
|
|
||||||
s += "Mode: " + hex(state.mode, 2) + " Period: " + (state.period + 1) + "\n";
|
|
||||||
s += "Addr: " + hex(state.scanaddr, 4) + "\n";
|
|
||||||
s += dumpRAM(state.regs, 0, 16).replace('$00', 'Regs');
|
|
||||||
return s;
|
|
||||||
}
|
|
||||||
setReg(a: number, v: number) {
|
|
||||||
this.regs[a] = v;
|
|
||||||
switch (a) {
|
|
||||||
case WSYNC:
|
|
||||||
this.regs[WSYNC] = 0xff;
|
|
||||||
break;
|
|
||||||
case DMACTL:
|
|
||||||
this.pfwidth = this.regs[DMACTL] & 3;
|
|
||||||
this.setLeftRight();
|
|
||||||
break;
|
|
||||||
case NMIRES:
|
|
||||||
this.regs[NMIST] = 0x1f;
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
setLeftRight() {
|
|
||||||
//let offset = 4 << MODE_PERIOD[this.mode & 0xf];
|
|
||||||
this.left = PF_LEFT[this.pfwidth];
|
|
||||||
this.right = PF_RIGHT[this.pfwidth];
|
|
||||||
}
|
|
||||||
readReg(a: number) {
|
|
||||||
switch (a) {
|
|
||||||
case NMIST:
|
|
||||||
return this.regs[a];
|
|
||||||
case VCOUNT:
|
|
||||||
return this.v >> 1;
|
|
||||||
default:
|
|
||||||
return 0xff;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
processDLIEntry() {
|
|
||||||
if (this.mode == 0) { // N Blank Lines
|
|
||||||
this.linesleft = (this.dliop >> 4) + 1;
|
|
||||||
} else {
|
|
||||||
this.linesleft = MODE_LINES[this.mode];
|
|
||||||
this.period = MODE_PERIOD[this.mode];
|
|
||||||
if (this.jmp) {
|
|
||||||
this.regs[DLISTL] = this.dlarg_lo;
|
|
||||||
this.regs[DLISTH] = this.dlarg_hi;
|
|
||||||
this.mode = 0;
|
|
||||||
// JVB (Jump and wait for Vertical Blank)
|
|
||||||
if (this.dliop & 0x40) {
|
|
||||||
this.linesleft = (248 - this.v) & 0xff; // TODO?
|
|
||||||
}
|
|
||||||
} else if (this.lms) {
|
|
||||||
this.scanaddr = this.dlarg_lo + (this.dlarg_hi << 8);
|
|
||||||
//console.log('scanaddr', hex(this.scanaddr));
|
|
||||||
}
|
|
||||||
this.startaddr = this.scanaddr;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
processLine() {
|
|
||||||
if (this.linesleft > 0) {
|
|
||||||
this.linesleft--;
|
|
||||||
this.yofs++;
|
|
||||||
if (this.mode >= 8 && this.linesleft) {
|
|
||||||
this.scanaddr = this.startaddr; // reset line addr
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
triggerNMI(mask: number) {
|
|
||||||
if (this.regs[NMIEN] & mask) {
|
|
||||||
this.nmiPending = true;
|
|
||||||
}
|
|
||||||
this.regs[NMIST] = mask | 0x1f;
|
|
||||||
}
|
|
||||||
|
|
||||||
nextInsn(): number {
|
|
||||||
let pc = this.regs[DLISTL] + (this.regs[DLISTH] << 8);
|
|
||||||
let b = this.read(pc);
|
|
||||||
//console.log('nextInsn', hex(pc), hex(b), this.v);
|
|
||||||
pc = ((pc + 1) & 0x3ff) | (pc & ~0x3ff);
|
|
||||||
this.regs[DLISTL] = pc & 0xff;
|
|
||||||
this.regs[DLISTH] = pc >> 8;
|
|
||||||
return b;
|
|
||||||
}
|
|
||||||
|
|
||||||
nextScreen(): number {
|
|
||||||
let b = this.read(this.scanaddr);
|
|
||||||
this.scanaddr = ((this.scanaddr + 1) & 0xfff) | (this.scanaddr & ~0xfff);
|
|
||||||
return b;
|
|
||||||
}
|
|
||||||
|
|
||||||
dlDMAEnabled() { return this.regs[DMACTL] & 0b100000; }
|
|
||||||
pmDMAEnabled() { return this.regs[DMACTL] & 0b001100; }
|
|
||||||
|
|
||||||
isVisibleScanline() {
|
|
||||||
return this.v >= 8 && this.v < 248;
|
|
||||||
}
|
|
||||||
isPlayfieldDMAEnabled() {
|
|
||||||
return this.dlDMAEnabled() && !this.linesleft;
|
|
||||||
}
|
|
||||||
isPlayerDMAEnabled() {
|
|
||||||
return this.regs[DMACTL] & 0b1000;
|
|
||||||
}
|
|
||||||
isMissileDMAEnabled() {
|
|
||||||
return this.regs[DMACTL] & 0x1100;
|
|
||||||
}
|
|
||||||
|
|
||||||
clockPulse(): boolean {
|
|
||||||
let dma = this.regs[WSYNC] != 0;
|
|
||||||
if (!this.isVisibleScanline()) {
|
|
||||||
this.doVBlank();
|
|
||||||
} else {
|
|
||||||
switch (this.h) {
|
|
||||||
case 0:
|
|
||||||
if (this.isMissileDMAEnabled()) {
|
|
||||||
this.doPlayerMissileDMA(3);
|
|
||||||
dma = true;
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
case 1:
|
|
||||||
if (this.isPlayfieldDMAEnabled()) {
|
|
||||||
let op = this.nextInsn(); // get mode
|
|
||||||
// TODO: too many booleans
|
|
||||||
this.jmp = (op & ~0x40) == 0x01; // JMP insn?
|
|
||||||
this.lms = (op & 0x40) != 0 && (op & 0xf) != 0; // LMS insn?
|
|
||||||
this.mode = op & 0xf;
|
|
||||||
this.dliop = op;
|
|
||||||
this.yofs = 0;
|
|
||||||
dma = true;
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
case 2: case 3: case 4: case 5:
|
|
||||||
if (this.isPlayerDMAEnabled()) {
|
|
||||||
this.doPlayerMissileDMA(6 - this.h);
|
|
||||||
dma = true;
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
case 6:
|
|
||||||
case 7:
|
|
||||||
if (this.yofs == 0 && this.isPlayfieldDMAEnabled() && (this.jmp || this.lms)) { // read extra bytes?
|
|
||||||
if (this.h == 6) this.dlarg_lo = this.nextInsn();
|
|
||||||
if (this.h == 7) this.dlarg_hi = this.nextInsn();
|
|
||||||
dma = true;
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
case 9:
|
|
||||||
if (this.yofs == 0) {
|
|
||||||
this.processDLIEntry();
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
case 8:
|
|
||||||
if (this.dliop & 0x80) { // TODO: what if DLI disabled?
|
|
||||||
if (this.linesleft == 1) {
|
|
||||||
this.triggerNMI(0x80); // DLI interrupt
|
|
||||||
}
|
|
||||||
}
|
|
||||||
break;
|
|
||||||
case 111:
|
|
||||||
this.processLine();
|
|
||||||
++this.v;
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
this.output = 0; // background color (TODO: only for blank lines)
|
|
||||||
if (this.mode >= 2) {
|
|
||||||
let candma = this.h < 106;
|
|
||||||
this.dmaclock <<= 1;
|
|
||||||
if (this.dmaclock & (1 << this.period)) {
|
|
||||||
this.dmaclock |= 1;
|
|
||||||
}
|
|
||||||
if (this.h == this.left) { this.dmaclock |= 1; this.dmaidx = 0; }
|
|
||||||
if (this.h == this.right) { this.dmaclock &= ~1; this.dmaidx++; }
|
|
||||||
if (this.dmaclock & 1) {
|
|
||||||
if (this.mode < 8 && this.yofs == 0) { // only read chars on 1st line
|
|
||||||
this.linebuf[this.dmaidx] = this.nextScreen(); // read char name
|
|
||||||
dma = candma;
|
|
||||||
}
|
|
||||||
this.dmaidx++;
|
|
||||||
} else if (this.dmaclock & 8) {
|
|
||||||
this.ch = this.linebuf[this.dmaidx - 4 / this.period]; // latch char
|
|
||||||
this.readBitmapData(); // read bitmap
|
|
||||||
dma = candma;
|
|
||||||
}
|
|
||||||
this.output = this.h >= this.left + 3 && this.h <= this.right + 2 ? 4 : 0;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
if (this.h < 19 || this.h > 102) this.output = 2;
|
|
||||||
this.incHorizCounter();
|
|
||||||
if (!dma && this.dramrefresh) {
|
|
||||||
this.dramrefresh = false;
|
|
||||||
dma = true;
|
|
||||||
}
|
|
||||||
return dma;
|
|
||||||
}
|
|
||||||
incHorizCounter() {
|
|
||||||
++this.h;
|
|
||||||
switch (this.h) {
|
|
||||||
case 25: case 25 + 4 * 1: case 25 + 4 * 2: case 25 + 4 * 3: case 25 + 4 * 4:
|
|
||||||
case 25 + 4 * 5: case 25 + 4 * 6: case 25 + 4 * 7: case 25 + 4 * 8:
|
|
||||||
this.dramrefresh = true;
|
|
||||||
break;
|
|
||||||
case 105:
|
|
||||||
this.regs[WSYNC] = 0; // TODO: dram refresh delay to 106?
|
|
||||||
break;
|
|
||||||
case 114:
|
|
||||||
this.h = 0;
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
doVBlank() {
|
|
||||||
this.linesleft = this.mode = 0;
|
|
||||||
if (this.h == 111) { this.v++; }
|
|
||||||
if (this.v == 248 && this.h == 0) { this.triggerNMI(0x40); } // VBI
|
|
||||||
if (this.v == 262 && this.h == 112) { this.v = 0; }
|
|
||||||
this.output = 2; // blank
|
|
||||||
}
|
|
||||||
|
|
||||||
doPlayerMissileDMA(section: number) {
|
|
||||||
let oneline = this.regs[DMACTL] & 0x10;
|
|
||||||
let pmaddr = this.regs[PMBASE] << 8;
|
|
||||||
if (oneline) {
|
|
||||||
pmaddr &= 0b1111100000000000;
|
|
||||||
pmaddr |= section << 8;
|
|
||||||
pmaddr += this.v & 0xff;
|
|
||||||
} else {
|
|
||||||
pmaddr &= 0b111111000000000;
|
|
||||||
pmaddr |= section << 7;
|
|
||||||
pmaddr += this.v >> 1;
|
|
||||||
}
|
|
||||||
this.read(pmaddr);
|
|
||||||
}
|
|
||||||
|
|
||||||
readBitmapData() {
|
|
||||||
const mode = this.mode;
|
|
||||||
if (mode < 8) { // character mode
|
|
||||||
let ch = this.ch;
|
|
||||||
let y = this.yofs >> MODE_YPERIOD[this.mode];
|
|
||||||
let addrofs = y & 7;
|
|
||||||
let chbase = this.regs[CHBASE];
|
|
||||||
// modes 6 & 7
|
|
||||||
if ((mode & 0xe) == 6) { // or 7
|
|
||||||
ch &= 0x3f;
|
|
||||||
chbase &= 0xfe;
|
|
||||||
} else {
|
|
||||||
ch &= 0x7f;
|
|
||||||
chbase &= 0xfc;
|
|
||||||
}
|
|
||||||
let addr = (ch << 3) + (chbase << 8);
|
|
||||||
// modes 2 & 3
|
|
||||||
if ((mode & 0xe) == 2) { // or 3
|
|
||||||
let chactl = this.regs[CHACTL];
|
|
||||||
let mode3lc = mode == 3 && (ch & 0x60) == 0x60;
|
|
||||||
if (chactl & 4)
|
|
||||||
this.pfbyte = this.read(addr + (addrofs ^ 7)); // mirror
|
|
||||||
else
|
|
||||||
this.pfbyte = this.read(addr + addrofs);
|
|
||||||
if (mode3lc && y < 2) { this.pfbyte = 0; }
|
|
||||||
if (!mode3lc && y > 7) { this.pfbyte = 0; }
|
|
||||||
if (this.ch & 0x80) {
|
|
||||||
if (chactl & 1)
|
|
||||||
this.pfbyte = 0x0; // blank
|
|
||||||
if (chactl & 2)
|
|
||||||
this.pfbyte ^= 0xff; // invert
|
|
||||||
}
|
|
||||||
} else {
|
|
||||||
this.pfbyte = this.read(addr + addrofs);
|
|
||||||
}
|
|
||||||
} else { // map mode
|
|
||||||
this.pfbyte = this.nextScreen();
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
shiftout() {
|
|
||||||
if (this.output == 4) { // visible pixel?
|
|
||||||
switch (this.mode) {
|
|
||||||
case 2: case 3:
|
|
||||||
case 15:
|
|
||||||
{
|
|
||||||
let v = (this.pfbyte >> 7) & 1;
|
|
||||||
this.pfbyte <<= 1;
|
|
||||||
return v ? 8 : 6;
|
|
||||||
}
|
|
||||||
case 6: case 7:
|
|
||||||
{
|
|
||||||
let v = (this.pfbyte >> 7) & 1;
|
|
||||||
this.pfbyte <<= 1;
|
|
||||||
return v ? (this.ch >> 6) + 4 : 0;
|
|
||||||
}
|
|
||||||
case 9: case 11: case 12:
|
|
||||||
{
|
|
||||||
let v = (this.pfbyte >> 7) & 1;
|
|
||||||
this.pfbyte <<= 1;
|
|
||||||
return v ? 4 : 0;
|
|
||||||
}
|
|
||||||
case 4: case 5:
|
|
||||||
case 8: case 10:
|
|
||||||
case 13: case 14:
|
|
||||||
{
|
|
||||||
let v = (this.pfbyte >> 6) & 3;
|
|
||||||
this.pfbyte <<= 2;
|
|
||||||
return [0, 4, 5, 6][v]; // TODO: 5th color
|
|
||||||
}
|
|
||||||
}
|
|
||||||
}
|
|
||||||
return this.output;
|
|
||||||
}
|
|
||||||
|
|
||||||
}
|
|
||||||
|
|
||||||
// GTIA
|
|
||||||
// https://user.xmission.com/~trevin/atari/gtia_regs.html
|
|
||||||
// https://user.xmission.com/~trevin/atari/gtia_pinout.html
|
|
||||||
|
|
||||||
|
|
||||||
// write regs
|
|
||||||
const HPOSP0 = 0x0;
|
|
||||||
const HPOSM0 = 0x4;
|
|
||||||
const SIZEP0 = 0x8;
|
|
||||||
const SIZEM = 0x0c;
|
|
||||||
const GRAFP0 = 0x0d;
|
|
||||||
const GRAFM = 0x11;
|
|
||||||
const COLPM0 = 0x12;
|
|
||||||
const COLPF0 = 0x16;
|
|
||||||
const COLPF1 = 0x17;
|
|
||||||
const COLPF2 = 0x18;
|
|
||||||
const COLPF3 = 0x19;
|
|
||||||
const COLBK = 0x1a;
|
|
||||||
const PRIOR = 0x1b;
|
|
||||||
const VDELAY = 0x1c;
|
|
||||||
const GRACTL = 0x1d;
|
|
||||||
const HITCLR = 0x1e;
|
|
||||||
const CONSPK = 0x1f;
|
|
||||||
// read regs
|
|
||||||
const M0PF = 0x0;
|
|
||||||
const P0PF = 0x4;
|
|
||||||
const M0PL = 0x8;
|
|
||||||
const P0PL = 0xc;
|
|
||||||
const TRIG0 = 0x10;
|
|
||||||
const CONSOL = 0x1f;
|
|
||||||
|
|
||||||
class GTIA {
|
|
||||||
regs = new Uint8Array(0x20);
|
|
||||||
shiftregs = new Uint32Array(8);
|
|
||||||
|
|
||||||
count = 0;
|
|
||||||
an = 0;
|
|
||||||
rgb = 0;
|
|
||||||
pmcol = 0;
|
|
||||||
console_inputs = 0;
|
|
||||||
|
|
||||||
reset() {
|
|
||||||
this.regs.fill(0);
|
|
||||||
this.count = 0;
|
|
||||||
}
|
|
||||||
saveState() {
|
|
||||||
return {
|
|
||||||
regs: this.regs.slice(0),
|
|
||||||
shiftregs: this.shiftregs.slice(0),
|
|
||||||
count: this.count,
|
|
||||||
console_inputs: this.console_inputs,
|
|
||||||
};
|
|
||||||
}
|
|
||||||
loadState(s) {
|
|
||||||
this.regs.set(s.regs);
|
|
||||||
this.shiftregs.set(s.shiftregs);
|
|
||||||
this.count = s.count;
|
|
||||||
this.console_inputs = s.console_inputs;
|
|
||||||
}
|
|
||||||
setReg(a: number, v: number) {
|
|
||||||
switch (a) {
|
|
||||||
case CONSOL:
|
|
||||||
v = (v & 15) ^ 15; // 0 = input, 1 = pull down
|
|
||||||
break;
|
|
||||||
case HITCLR:
|
|
||||||
this.regs[P0PF] = this.regs[P0PL] = this.regs[M0PF] = this.regs[M0PL] = 0;
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
this.regs[a] = v;
|
|
||||||
}
|
|
||||||
readReg(a: number) {
|
|
||||||
if (a == CONSOL) {
|
|
||||||
return this.console_inputs & this.regs[CONSOL];
|
|
||||||
}
|
|
||||||
return this.regs[a];
|
|
||||||
}
|
|
||||||
updateGfx(h: number, data: number) {
|
|
||||||
switch (h) {
|
|
||||||
case 0:
|
|
||||||
this.count = 0;
|
|
||||||
if (this.regs[GRACTL] & 1) { this.regs[GRAFM] = data; }
|
|
||||||
break;
|
|
||||||
case 2: case 3: case 4: case 5:
|
|
||||||
if (this.regs[GRACTL] & 2) { this.regs[GRAFP0 - 2 + h] = data; }
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
getPlayfieldColor(): number {
|
|
||||||
let pfcol = 0;
|
|
||||||
switch (this.an) {
|
|
||||||
case 0:
|
|
||||||
pfcol = this.regs[COLBK]; // 0 = background
|
|
||||||
break;
|
|
||||||
case 2: case 3:
|
|
||||||
pfcol = 0; // 2/3 = blank
|
|
||||||
break;
|
|
||||||
case 4: case 5: case 6: case 7:
|
|
||||||
pfcol = this.regs[COLPF0 + this.an - 4];
|
|
||||||
break;
|
|
||||||
case 8:
|
|
||||||
pfcol = (this.regs[COLPF2] & 0xf0) | (this.regs[COLPF1] & 0x0f);
|
|
||||||
break;
|
|
||||||
}
|
|
||||||
return pfcol;
|
|
||||||
}
|
|
||||||
clockPulse1(): void {
|
|
||||||
let topcol = -1;
|
|
||||||
let lasti = -1;
|
|
||||||
let pfset = this.an > 4; // TODO?
|
|
||||||
let p0pf = this.regs[P0PF];
|
|
||||||
let p0pl = this.regs[P0PL];
|
|
||||||
for (let i = 0; i < 8; i++) {
|
|
||||||
let pmcol = this.getPlayerMissileColor(i);
|
|
||||||
if (pmcol >= 0) {
|
|
||||||
if (pfset) {
|
|
||||||
p0pl |= 1 << i;
|
|
||||||
}
|
|
||||||
if (lasti > 0) {
|
|
||||||
p0pl |= 1 << i;
|
|
||||||
p0pl |= 1 << lasti;
|
|
||||||
}
|
|
||||||
topcol = pmcol;
|
|
||||||
lasti = i;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
this.regs[P0PF] = p0pf;
|
|
||||||
this.regs[P0PL] = p0pl;
|
|
||||||
this.pmcol = topcol; // TODO: priority
|
|
||||||
this.count++;
|
|
||||||
this.clockPulse2();
|
|
||||||
}
|
|
||||||
clockPulse2(): void {
|
|
||||||
let col = this.getPlayfieldColor();
|
|
||||||
if (this.pmcol >= 0) col = this.pmcol;
|
|
||||||
this.rgb = COLORS_RGBA[col];
|
|
||||||
}
|
|
||||||
getPlayerMissileColor(i: number) {
|
|
||||||
let bit = this.shiftregs[i] & 0x80000000;
|
|
||||||
this.shiftregs[i] <<= 1;
|
|
||||||
if (this.regs[HPOSP0 + i] - 7 == this.count) {
|
|
||||||
this.triggerObject(i);
|
|
||||||
}
|
|
||||||
return bit ? this.regs[COLPM0 + (i & 3)] : -1;
|
|
||||||
}
|
|
||||||
triggerObject(i: number) {
|
|
||||||
let size, data;
|
|
||||||
if (i < 4) {
|
|
||||||
size = this.regs[SIZEP0 + i] & 3;
|
|
||||||
data = this.regs[GRAFP0 + i];
|
|
||||||
} else {
|
|
||||||
size = (this.regs[SIZEM] >> (i - 4) * 2) & 3;
|
|
||||||
data = this.regs[GRAFM] & (1 << i); // TODO
|
|
||||||
}
|
|
||||||
if (size & 1) data = expandBits(data); else data <<= 8;
|
|
||||||
if (size == 3) data = expandBits(data); else data <<= 16;
|
|
||||||
this.shiftregs[i] = data;
|
|
||||||
}
|
|
||||||
|
|
||||||
static stateToLongString(state): string {
|
|
||||||
let s = "";
|
|
||||||
s += dumpRAM(state.regs, 0, 32);
|
|
||||||
return s;
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
function expandBits(x: number): number {
|
|
||||||
x = (x | (x << 8)) & 0x00FF00FF;
|
|
||||||
x = (x | (x << 4)) & 0x0F0F0F0F;
|
|
||||||
x = (x | (x << 2)) & 0x33333333;
|
|
||||||
x = (x | (x << 1)) & 0x55555555;
|
|
||||||
return x | (x << 1);
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
export class Atari800 extends BasicScanlineMachine {
|
export class Atari800 extends BasicScanlineMachine {
|
||||||
|
@ -660,7 +49,7 @@ export class Atari800 extends BasicScanlineMachine {
|
||||||
cpuCyclesPerLine = 114;
|
cpuCyclesPerLine = 114;
|
||||||
canvasWidth = 352; // TODO?
|
canvasWidth = 352; // TODO?
|
||||||
aspectRatio = 240 / 172;
|
aspectRatio = 240 / 172;
|
||||||
firstVisibleClock = 34 * 2; // TODO?
|
firstVisibleClock = 36 * 2; // TODO?
|
||||||
numVisibleScanlines = 250;
|
numVisibleScanlines = 250;
|
||||||
// TODO: for 400/800/5200
|
// TODO: for 400/800/5200
|
||||||
defaultROMSize = 0x8000;
|
defaultROMSize = 0x8000;
|
||||||
|
@ -682,6 +71,8 @@ export class Atari800 extends BasicScanlineMachine {
|
||||||
lastdmabyte = 0;
|
lastdmabyte = 0;
|
||||||
keycode = 0;
|
keycode = 0;
|
||||||
irqstatus = 0;
|
irqstatus = 0;
|
||||||
|
cart_80 = false;
|
||||||
|
cart_a0 = false;
|
||||||
// TODO: save/load vars
|
// TODO: save/load vars
|
||||||
|
|
||||||
constructor() {
|
constructor() {
|
||||||
|
@ -704,8 +95,9 @@ export class Atari800 extends BasicScanlineMachine {
|
||||||
return {
|
return {
|
||||||
// TODO: https://github.com/dmlloyd/atari800/blob/master/DOC/cart.txt
|
// TODO: https://github.com/dmlloyd/atari800/blob/master/DOC/cart.txt
|
||||||
read: newAddressDecoder([
|
read: newAddressDecoder([
|
||||||
[0x0000, 0x9fff, 0xffff, (a) => { return this.ram[a]; }],
|
[0x0000, 0x7fff, 0xffff, (a) => { return this.ram[a]; }],
|
||||||
[0xa000, 0xbfff, 0xffff, (a) => { return this.rom ? this.rom[a - 0xa000] : this.ram[a]; }],
|
[0x8000, 0x9fff, 0xffff, (a) => { return this.cart_80 ? this.rom[a - 0x8000] : this.ram[a]; }],
|
||||||
|
[0xa000, 0xbfff, 0xffff, (a) => { return this.cart_a0 ? this.rom[a - 0x8000] : this.ram[a]; }],
|
||||||
[0xd000, 0xd0ff, 0x1f, (a) => { return this.gtia.readReg(a); }],
|
[0xd000, 0xd0ff, 0x1f, (a) => { return this.gtia.readReg(a); }],
|
||||||
[0xd200, 0xd2ff, 0xf, (a) => { return this.readPokey(a); }],
|
[0xd200, 0xd2ff, 0xf, (a) => { return this.readPokey(a); }],
|
||||||
[0xd300, 0xd3ff, 0xf, (a) => { return this.readPIA(a); }],
|
[0xd300, 0xd3ff, 0xf, (a) => { return this.readPIA(a); }],
|
||||||
|
@ -726,6 +118,7 @@ export class Atari800 extends BasicScanlineMachine {
|
||||||
}
|
}
|
||||||
|
|
||||||
reset() {
|
reset() {
|
||||||
|
console.log(this.saveState());
|
||||||
super.reset();
|
super.reset();
|
||||||
this.antic.reset();
|
this.antic.reset();
|
||||||
this.gtia.reset();
|
this.gtia.reset();
|
||||||
|
@ -768,15 +161,16 @@ export class Atari800 extends BasicScanlineMachine {
|
||||||
}
|
}
|
||||||
writePokey(a, v) {
|
writePokey(a, v) {
|
||||||
switch (a) {
|
switch (a) {
|
||||||
case 13: this.sendIRQ(0x18); break; // serial output ready IRQ (TODO)
|
//case 13: this.sendIRQ(0x18); break; // serial output ready IRQ (TODO)
|
||||||
case 14: this.irqstatus = 0; break;
|
case 14: this.irqstatus = 0; break;
|
||||||
}
|
}
|
||||||
this.pokey.pokey1.setRegister(a, v);
|
this.pokey.pokey1.setRegister(a, v);
|
||||||
}
|
}
|
||||||
|
|
||||||
startScanline() {
|
startScanline() {
|
||||||
this.gtia.regs[TRIG0] = ~this.inputs[2];
|
for (let i = 0; i < 4; i++)
|
||||||
this.gtia.console_inputs = this.inputs[3] ^ 7;
|
this.gtia.readregs[TRIG0 + i] = (~this.inputs[2] >> i) & 1;
|
||||||
|
this.gtia.readregs[CONSOL] = ~this.inputs[3] & this.gtia.regs[CONSOL];
|
||||||
this.audio && this.audioadapter.generate(this.audio);
|
this.audio && this.audioadapter.generate(this.audio);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
@ -907,7 +301,14 @@ export class Atari800 extends BasicScanlineMachine {
|
||||||
}
|
}
|
||||||
loadROM(rom: Uint8Array) {
|
loadROM(rom: Uint8Array) {
|
||||||
// TODO: support other than 8 KB carts
|
// TODO: support other than 8 KB carts
|
||||||
super.loadROM(rom);
|
// support 4/8/16/32 KB carts
|
||||||
|
let rom2 = new Uint8Array(0x8000);
|
||||||
|
for (let i = 0; i <= rom2.length - rom.length; i += rom.length) {
|
||||||
|
rom2.set(rom, i);
|
||||||
|
}
|
||||||
|
this.cart_a0 = true; // TODO
|
||||||
|
if (rom.length == 0x4000) { this.cart_80 = true; }
|
||||||
|
super.loadROM(rom2);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
@ -930,14 +331,6 @@ export class Atari5200 extends Atari800 {
|
||||||
]),
|
]),
|
||||||
};
|
};
|
||||||
}
|
}
|
||||||
loadROM(rom: Uint8Array) {
|
|
||||||
// support 4/8/16/32 KB carts
|
|
||||||
let rom2 = new Uint8Array(0x8000);
|
|
||||||
for (let i = 0; i < rom2.length; i += rom.length) {
|
|
||||||
rom2.set(rom, i);
|
|
||||||
}
|
|
||||||
super.loadROM(rom2);
|
|
||||||
}
|
|
||||||
}
|
}
|
||||||
|
|
||||||
///
|
///
|
||||||
|
@ -967,7 +360,6 @@ export class Atari8_WASMMachine extends BaseWASIMachine
|
||||||
super.loadBIOS(srcArray);
|
super.loadBIOS(srcArray);
|
||||||
}
|
}
|
||||||
reset() {
|
reset() {
|
||||||
super.reset();
|
|
||||||
this.reloadROM();
|
this.reloadROM();
|
||||||
}
|
}
|
||||||
advanceFrame(trap: TrapCondition): number {
|
advanceFrame(trap: TrapCondition): number {
|
||||||
|
@ -1050,141 +442,3 @@ export class Atari8_WASMMachine extends BaseWASIMachine
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
const ATARI_NTSC_RGB = [
|
|
||||||
0x000000, // 00
|
|
||||||
0x404040, // 02
|
|
||||||
0x6c6c6c, // 04
|
|
||||||
0x909090, // 06
|
|
||||||
0xb0b0b0, // 08
|
|
||||||
0xc8c8c8, // 0A
|
|
||||||
0xdcdcdc, // 0C
|
|
||||||
0xf4f4f4, // 0E
|
|
||||||
0x004444, // 10
|
|
||||||
0x106464, // 12
|
|
||||||
0x248484, // 14
|
|
||||||
0x34a0a0, // 16
|
|
||||||
0x40b8b8, // 18
|
|
||||||
0x50d0d0, // 1A
|
|
||||||
0x5ce8e8, // 1C
|
|
||||||
0x68fcfc, // 1E
|
|
||||||
0x002870, // 20
|
|
||||||
0x144484, // 22
|
|
||||||
0x285c98, // 24
|
|
||||||
0x3c78ac, // 26
|
|
||||||
0x4c8cbc, // 28
|
|
||||||
0x5ca0cc, // 2A
|
|
||||||
0x68b4dc, // 2C
|
|
||||||
0x78c8ec, // 2E
|
|
||||||
0x001884, // 30
|
|
||||||
0x183498, // 32
|
|
||||||
0x3050ac, // 34
|
|
||||||
0x4868c0, // 36
|
|
||||||
0x5c80d0, // 38
|
|
||||||
0x7094e0, // 3A
|
|
||||||
0x80a8ec, // 3C
|
|
||||||
0x94bcfc, // 3E
|
|
||||||
0x000088, // 40
|
|
||||||
0x20209c, // 42
|
|
||||||
0x3c3cb0, // 44
|
|
||||||
0x5858c0, // 46
|
|
||||||
0x7070d0, // 48
|
|
||||||
0x8888e0, // 4A
|
|
||||||
0xa0a0ec, // 4C
|
|
||||||
0xb4b4fc, // 4E
|
|
||||||
0x5c0078, // 50
|
|
||||||
0x74208c, // 52
|
|
||||||
0x883ca0, // 54
|
|
||||||
0x9c58b0, // 56
|
|
||||||
0xb070c0, // 58
|
|
||||||
0xc084d0, // 5A
|
|
||||||
0xd09cdc, // 5C
|
|
||||||
0xe0b0ec, // 5E
|
|
||||||
0x780048, // 60
|
|
||||||
0x902060, // 62
|
|
||||||
0xa43c78, // 64
|
|
||||||
0xb8588c, // 66
|
|
||||||
0xcc70a0, // 68
|
|
||||||
0xdc84b4, // 6A
|
|
||||||
0xec9cc4, // 6C
|
|
||||||
0xfcb0d4, // 6E
|
|
||||||
0x840014, // 70
|
|
||||||
0x982030, // 72
|
|
||||||
0xac3c4c, // 74
|
|
||||||
0xc05868, // 76
|
|
||||||
0xd0707c, // 78
|
|
||||||
0xe08894, // 7A
|
|
||||||
0xeca0a8, // 7C
|
|
||||||
0xfcb4bc, // 7E
|
|
||||||
0x880000, // 80
|
|
||||||
0x9c201c, // 82
|
|
||||||
0xb04038, // 84
|
|
||||||
0xc05c50, // 86
|
|
||||||
0xd07468, // 88
|
|
||||||
0xe08c7c, // 8A
|
|
||||||
0xeca490, // 8C
|
|
||||||
0xfcb8a4, // 8E
|
|
||||||
0x7c1800, // 90
|
|
||||||
0x90381c, // 92
|
|
||||||
0xa85438, // 94
|
|
||||||
0xbc7050, // 96
|
|
||||||
0xcc8868, // 98
|
|
||||||
0xdc9c7c, // 9A
|
|
||||||
0xecb490, // 9C
|
|
||||||
0xfcc8a4, // 9E
|
|
||||||
0x5c2c00, // A0
|
|
||||||
0x784c1c, // A2
|
|
||||||
0x906838, // A4
|
|
||||||
0xac8450, // A6
|
|
||||||
0xc09c68, // A8
|
|
||||||
0xd4b47c, // AA
|
|
||||||
0xe8cc90, // AC
|
|
||||||
0xfce0a4, // AE
|
|
||||||
0x2c3c00, // B0
|
|
||||||
0x485c1c, // B2
|
|
||||||
0x647c38, // B4
|
|
||||||
0x809c50, // B6
|
|
||||||
0x94b468, // B8
|
|
||||||
0xacd07c, // BA
|
|
||||||
0xc0e490, // BC
|
|
||||||
0xd4fca4, // BE
|
|
||||||
0x003c00, // C0
|
|
||||||
0x205c20, // C2
|
|
||||||
0x407c40, // C4
|
|
||||||
0x5c9c5c, // C6
|
|
||||||
0x74b474, // C8
|
|
||||||
0x8cd08c, // CA
|
|
||||||
0xa4e4a4, // CC
|
|
||||||
0xb8fcb8, // CE
|
|
||||||
0x003814, // D0
|
|
||||||
0x1c5c34, // D2
|
|
||||||
0x387c50, // D4
|
|
||||||
0x50986c, // D6
|
|
||||||
0x68b484, // D8
|
|
||||||
0x7ccc9c, // DA
|
|
||||||
0x90e4b4, // DC
|
|
||||||
0xa4fcc8, // DE
|
|
||||||
0x00302c, // E0
|
|
||||||
0x1c504c, // E2
|
|
||||||
0x347068, // E4
|
|
||||||
0x4c8c84, // E6
|
|
||||||
0x64a89c, // E8
|
|
||||||
0x78c0b4, // EA
|
|
||||||
0x88d4cc, // EC
|
|
||||||
0x9cece0, // EE
|
|
||||||
0x002844, // F0
|
|
||||||
0x184864, // F2
|
|
||||||
0x306884, // F4
|
|
||||||
0x4484a0, // F6
|
|
||||||
0x589cb8, // F8
|
|
||||||
0x6cb4d0, // FA
|
|
||||||
0x7ccce8, // FC
|
|
||||||
0x8ce0fc // FE
|
|
||||||
];
|
|
||||||
|
|
||||||
var COLORS_RGBA = new Uint32Array(256);
|
|
||||||
var COLORS_WEB = [];
|
|
||||||
for (var i = 0; i < 256; i++) {
|
|
||||||
COLORS_RGBA[i] = ATARI_NTSC_RGB[i >> 1] | 0xff000000;
|
|
||||||
COLORS_WEB[i] = "#" + hex(rgb2bgr(ATARI_NTSC_RGB[i >> 1]), 6);
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
|
@ -0,0 +1,411 @@
|
||||||
|
import { dumpRAM } from "../../common/emu";
|
||||||
|
import { hex, lpad, safe_extend } from "../../common/util";
|
||||||
|
|
||||||
|
// ANTIC
|
||||||
|
// https://www.atarimax.com/jindroush.atari.org/atanttim.html
|
||||||
|
// http://www.virtualdub.org/blog/pivot/entry.php?id=243
|
||||||
|
// http://www.beipmu.com/Antic_Timings.txt
|
||||||
|
// https://user.xmission.com/~trevin/atari/antic_regs.html
|
||||||
|
// https://user.xmission.com/~trevin/atari/antic_insns.html
|
||||||
|
// http://www.atarimuseum.com/videogames/consoles/5200/conv_to_5200.html
|
||||||
|
// https://www.virtualdub.org/downloads/Altirra%20Hardware%20Reference%20Manual.pdf
|
||||||
|
|
||||||
|
const PF_LEFT = [0, 26, 18, 10];
|
||||||
|
const PF_RIGHT = [0, 26 + 64, 18 + 80, 10 + 96];
|
||||||
|
|
||||||
|
const DMACTL = 0;
|
||||||
|
const CHACTL = 1;
|
||||||
|
const DLISTL = 2;
|
||||||
|
const DLISTH = 3;
|
||||||
|
const HSCROL = 4;
|
||||||
|
const VSCROL = 5;
|
||||||
|
const PMBASE = 7;
|
||||||
|
const CHBASE = 9;
|
||||||
|
const WSYNC = 10;
|
||||||
|
const VCOUNT = 11;
|
||||||
|
const PENH = 12;
|
||||||
|
const PENV = 13;
|
||||||
|
const NMIEN = 14;
|
||||||
|
const NMIRES = 15;
|
||||||
|
const NMIST = 15;
|
||||||
|
|
||||||
|
const PFNONE = 0;
|
||||||
|
const PFNARROW = 1;
|
||||||
|
const PFNORMAL = 2;
|
||||||
|
const PFWIDE = 3;
|
||||||
|
|
||||||
|
const NMIST_CYCLE = 12;
|
||||||
|
const NMI_CYCLE = 24;
|
||||||
|
const WSYNC_CYCLE = 212;
|
||||||
|
|
||||||
|
const MODE_LINES = [0, 0, 8, 10, 8, 16, 8, 16, 8, 4, 4, 2, 1, 2, 1, 1];
|
||||||
|
// how many bits before DMA clock repeats?
|
||||||
|
const MODE_PERIOD = [0, 0, 2, 2, 2, 2, 4, 4, 8, 4, 4, 4, 4, 2, 2, 2];
|
||||||
|
const MODE_YPERIOD = [0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 2, 1, 0, 0, 0, 0];
|
||||||
|
//const MODE_BPP = [0, 0, 1, 1, 2, 2, 1, 1, 2, 1, 2, 1, 1, 2, 2, 1];
|
||||||
|
// how many color clocks / pixel * 2
|
||||||
|
export const MODE_SHIFT = [0, 0, 1, 1, 2, 2, 2, 2, 8, 4, 4, 2, 2, 2, 2, 1];
|
||||||
|
|
||||||
|
export class ANTIC {
|
||||||
|
read: (address: number) => number; // bus read function
|
||||||
|
|
||||||
|
regs = new Uint8Array(0x10); // registers
|
||||||
|
|
||||||
|
pfwidth: number; // playfield width
|
||||||
|
left: number;
|
||||||
|
right: number; // left/right clocks for mode
|
||||||
|
|
||||||
|
nmiPending: boolean = false;
|
||||||
|
dma_enabled: boolean = false;
|
||||||
|
dliop: number = 0; // dli operation
|
||||||
|
mode: number = 0; // current mode
|
||||||
|
jmp = false; // TODO
|
||||||
|
lms = false; // TODO
|
||||||
|
dlarg_lo: number = 0;
|
||||||
|
dlarg_hi: number = 0;
|
||||||
|
period: number = 0; // current mode period bitmask
|
||||||
|
scanaddr: number = 0; // Scan Address (via LMS)
|
||||||
|
startaddr: number = 0; // Start of line Address
|
||||||
|
pfbyte: number = 0; // playfield byte fetched
|
||||||
|
ch: number = 0; // char read
|
||||||
|
linesleft: number = 0; // # of lines left in mode
|
||||||
|
yofs: number = 0; // yofs fine
|
||||||
|
v: number = 0; // vertical scanline #
|
||||||
|
h: number = 0; // horizontal color clock
|
||||||
|
|
||||||
|
linebuf = new Uint8Array(48);
|
||||||
|
dmaclock: number = 0;
|
||||||
|
dmaidx: number = 0;
|
||||||
|
output: number = 0;
|
||||||
|
dramrefresh = false;
|
||||||
|
|
||||||
|
constructor(readfn) {
|
||||||
|
this.read = readfn; // bus read function
|
||||||
|
}
|
||||||
|
reset() {
|
||||||
|
this.regs.fill(0);
|
||||||
|
this.regs[NMIEN] = 0x00;
|
||||||
|
this.regs[NMIST] = 0x7f;
|
||||||
|
this.regs[PENH] = 0x00;
|
||||||
|
this.regs[PENV] = 0xff;
|
||||||
|
this.setReg(DMACTL, 0x0);
|
||||||
|
this.h = this.v = 0;
|
||||||
|
this.startaddr = this.scanaddr = 0;
|
||||||
|
this.dmaclock = 0;
|
||||||
|
}
|
||||||
|
saveState() {
|
||||||
|
return safe_extend(0, {}, this);
|
||||||
|
}
|
||||||
|
loadState(s) {
|
||||||
|
safe_extend(0, this, s);
|
||||||
|
this.setReg(DMACTL, s.regs[DMACTL]);
|
||||||
|
}
|
||||||
|
static stateToLongString(state): string {
|
||||||
|
let s = "";
|
||||||
|
s += "H: " + lpad(state.h, 3) + " V: " + lpad(state.v, 3) + "\n";
|
||||||
|
s += "DLIOp: " + hex(state.dliop, 2) + " Lines: " + state.yofs + "/" + state.linesleft + "\n";
|
||||||
|
s += "Addr: " + hex(state.scanaddr, 4) + "\n";
|
||||||
|
s += dumpRAM(state.regs, 0, 16).replace('$00', 'Regs');
|
||||||
|
return s;
|
||||||
|
}
|
||||||
|
setReg(a: number, v: number) {
|
||||||
|
this.regs[a] = v;
|
||||||
|
switch (a) {
|
||||||
|
case WSYNC:
|
||||||
|
this.regs[WSYNC] = 0xff;
|
||||||
|
break;
|
||||||
|
case DMACTL:
|
||||||
|
this.pfwidth = this.regs[DMACTL] & 3;
|
||||||
|
break;
|
||||||
|
case NMIRES:
|
||||||
|
this.regs[NMIST] = 0x1f;
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
readReg(a: number) {
|
||||||
|
switch (a) {
|
||||||
|
case NMIST:
|
||||||
|
return this.regs[a];
|
||||||
|
case VCOUNT:
|
||||||
|
return this.v >> 1;
|
||||||
|
default:
|
||||||
|
return 0xff;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
processDLIEntry() {
|
||||||
|
if (this.mode == 0) { // N Blank Lines
|
||||||
|
this.linesleft = (this.dliop >> 4) + 1;
|
||||||
|
} else {
|
||||||
|
this.linesleft = MODE_LINES[this.mode];
|
||||||
|
this.period = MODE_PERIOD[this.mode];
|
||||||
|
if (this.jmp) {
|
||||||
|
this.regs[DLISTL] = this.dlarg_lo;
|
||||||
|
this.regs[DLISTH] = this.dlarg_hi;
|
||||||
|
this.mode = this.period = 0;
|
||||||
|
// JVB (Jump and wait for Vertical Blank)
|
||||||
|
if (this.dliop & 0x40) {
|
||||||
|
this.linesleft = (248 - this.v) & 0xff; // TODO?
|
||||||
|
}
|
||||||
|
} else if (this.lms) {
|
||||||
|
this.scanaddr = this.dlarg_lo + (this.dlarg_hi << 8);
|
||||||
|
//console.log('scanaddr', hex(this.scanaddr));
|
||||||
|
}
|
||||||
|
this.startaddr = this.scanaddr;
|
||||||
|
}
|
||||||
|
// TODO: gtia fine scroll?
|
||||||
|
let pfwidth = this.pfwidth;
|
||||||
|
let hscroll = (this.dliop & 0x10) ? (this.regs[HSCROL] & 15) >> 1 : 0;
|
||||||
|
if ((this.dliop & 0x10) && pfwidth < 3) pfwidth++;
|
||||||
|
this.left = PF_LEFT[pfwidth] + hscroll;
|
||||||
|
this.right = PF_RIGHT[pfwidth] + hscroll;
|
||||||
|
}
|
||||||
|
|
||||||
|
nextLine() {
|
||||||
|
if (this.linesleft > 0) {
|
||||||
|
this.linesleft--;
|
||||||
|
this.yofs++;
|
||||||
|
if (this.mode >= 8 && this.linesleft) {
|
||||||
|
this.scanaddr = this.startaddr; // reset line addr
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
triggerNMI(mask: number) {
|
||||||
|
if (this.regs[NMIEN] & mask) {
|
||||||
|
this.nmiPending = true;
|
||||||
|
}
|
||||||
|
this.regs[NMIST] = mask | 0x1f;
|
||||||
|
}
|
||||||
|
|
||||||
|
nextInsn(): number {
|
||||||
|
let pc = this.regs[DLISTL] + (this.regs[DLISTH] << 8);
|
||||||
|
let b = this.read(pc);
|
||||||
|
//console.log('nextInsn', hex(pc), hex(b), this.v);
|
||||||
|
pc = ((pc + 1) & 0x3ff) | (pc & ~0x3ff);
|
||||||
|
this.regs[DLISTL] = pc & 0xff;
|
||||||
|
this.regs[DLISTH] = pc >> 8;
|
||||||
|
return b;
|
||||||
|
}
|
||||||
|
|
||||||
|
nextScreen(): number {
|
||||||
|
let b = this.read(this.scanaddr);
|
||||||
|
this.scanaddr = ((this.scanaddr + 1) & 0xfff) | (this.scanaddr & ~0xfff);
|
||||||
|
return b;
|
||||||
|
}
|
||||||
|
|
||||||
|
dlDMAEnabled() { return this.regs[DMACTL] & 0b100000; }
|
||||||
|
pmDMAEnabled() { return this.regs[DMACTL] & 0b001100; }
|
||||||
|
|
||||||
|
isVisibleScanline() {
|
||||||
|
return this.v >= 8 && this.v < 248;
|
||||||
|
}
|
||||||
|
isPlayfieldDMAEnabled() {
|
||||||
|
return this.dlDMAEnabled() && !this.linesleft;
|
||||||
|
}
|
||||||
|
isPlayerDMAEnabled() {
|
||||||
|
return this.regs[DMACTL] & 0b1000;
|
||||||
|
}
|
||||||
|
isMissileDMAEnabled() {
|
||||||
|
return this.regs[DMACTL] & 0b1100;
|
||||||
|
}
|
||||||
|
|
||||||
|
clockPulse(): boolean {
|
||||||
|
let dma = this.regs[WSYNC] != 0;
|
||||||
|
if (!this.isVisibleScanline()) {
|
||||||
|
this.doVBlank();
|
||||||
|
} else {
|
||||||
|
switch (this.h) {
|
||||||
|
case 0:
|
||||||
|
if (this.isMissileDMAEnabled()) {
|
||||||
|
this.doPlayerMissileDMA(3);
|
||||||
|
dma = true;
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case 1:
|
||||||
|
if (this.isPlayfieldDMAEnabled()) {
|
||||||
|
let op = this.nextInsn(); // get mode
|
||||||
|
// TODO: too many booleans
|
||||||
|
this.jmp = (op & ~0x40) == 0x01; // JMP insn?
|
||||||
|
this.lms = (op & 0x40) != 0 && (op & 0xf) != 0; // LMS insn?
|
||||||
|
this.mode = op & 0xf;
|
||||||
|
this.dliop = op;
|
||||||
|
this.yofs = 0;
|
||||||
|
dma = true;
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case 2: case 3: case 4: case 5:
|
||||||
|
if (this.isPlayerDMAEnabled()) {
|
||||||
|
this.doPlayerMissileDMA(this.h + 2);
|
||||||
|
dma = true;
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case 6:
|
||||||
|
case 7:
|
||||||
|
if (this.yofs == 0 && this.isPlayfieldDMAEnabled() && (this.jmp || this.lms)) { // read extra bytes?
|
||||||
|
if (this.h == 6) this.dlarg_lo = this.nextInsn();
|
||||||
|
if (this.h == 7) this.dlarg_hi = this.nextInsn();
|
||||||
|
dma = true;
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case 9:
|
||||||
|
if (this.yofs == 0) {
|
||||||
|
this.processDLIEntry();
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case 8:
|
||||||
|
if (this.dliop & 0x80) { // TODO: what if DLI disabled?
|
||||||
|
if (this.linesleft == 1) {
|
||||||
|
this.triggerNMI(0x80); // DLI interrupt
|
||||||
|
}
|
||||||
|
}
|
||||||
|
break;
|
||||||
|
case 111:
|
||||||
|
this.nextLine();
|
||||||
|
++this.v;
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
this.output = 0; // background color (TODO: only for blank lines)
|
||||||
|
if (this.mode >= 2 && this.period) {
|
||||||
|
let candma = this.h < 106;
|
||||||
|
this.dmaclock <<= 1;
|
||||||
|
if (this.dmaclock & (1 << this.period)) {
|
||||||
|
this.dmaclock |= 1;
|
||||||
|
}
|
||||||
|
if (this.h == this.left) { this.dmaclock |= 1; this.dmaidx = 0; }
|
||||||
|
if (this.h == this.right) { this.dmaclock &= ~1; this.dmaidx++; }
|
||||||
|
if (this.dmaclock & 1) {
|
||||||
|
if (this.mode < 8 && this.yofs == 0) { // only read chars on 1st line
|
||||||
|
this.linebuf[this.dmaidx] = this.nextScreen(); // read char name
|
||||||
|
dma = candma;
|
||||||
|
}
|
||||||
|
this.dmaidx++;
|
||||||
|
} else if (this.dmaclock & 8) {
|
||||||
|
this.ch = this.linebuf[this.dmaidx - 4 / this.period]; // latch char
|
||||||
|
this.readBitmapData(); // read bitmap
|
||||||
|
dma = candma;
|
||||||
|
}
|
||||||
|
this.output = this.h >= this.left + 3 && this.h <= this.right + 2 ? 4 : 0;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if (this.h < 19 || this.h > 102) this.output = 2;
|
||||||
|
this.incHorizCounter();
|
||||||
|
if (!dma && this.dramrefresh) {
|
||||||
|
this.dramrefresh = false;
|
||||||
|
dma = true;
|
||||||
|
}
|
||||||
|
return dma;
|
||||||
|
}
|
||||||
|
incHorizCounter() {
|
||||||
|
++this.h;
|
||||||
|
switch (this.h) {
|
||||||
|
case 25: case 25 + 4 * 1: case 25 + 4 * 2: case 25 + 4 * 3: case 25 + 4 * 4:
|
||||||
|
case 25 + 4 * 5: case 25 + 4 * 6: case 25 + 4 * 7: case 25 + 4 * 8:
|
||||||
|
this.dramrefresh = true;
|
||||||
|
break;
|
||||||
|
case 105:
|
||||||
|
this.regs[WSYNC] = 0; // TODO: dram refresh delay to 106?
|
||||||
|
break;
|
||||||
|
case 114:
|
||||||
|
this.h = 0;
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
doVBlank() {
|
||||||
|
this.linesleft = this.mode = this.period = 0;
|
||||||
|
if (this.h == 111) { this.v++; }
|
||||||
|
if (this.v == 248 && this.h == 0) { this.triggerNMI(0x40); } // VBI
|
||||||
|
if (this.v == 262 && this.h == 112) { this.v = 0; }
|
||||||
|
this.output = 2; // blank
|
||||||
|
}
|
||||||
|
|
||||||
|
doPlayerMissileDMA(section: number) {
|
||||||
|
let oneline = this.regs[DMACTL] & 0x10;
|
||||||
|
let pmaddr = this.regs[PMBASE] << 8;
|
||||||
|
if (oneline) {
|
||||||
|
pmaddr &= 0b1111100000000000;
|
||||||
|
pmaddr |= section << 8;
|
||||||
|
pmaddr |= this.v & 0xff;
|
||||||
|
} else {
|
||||||
|
pmaddr &= 0b111111000000000;
|
||||||
|
pmaddr |= section << 7;
|
||||||
|
pmaddr |= this.v >> 1;
|
||||||
|
}
|
||||||
|
this.read(pmaddr);
|
||||||
|
}
|
||||||
|
|
||||||
|
readBitmapData() {
|
||||||
|
const mode = this.mode;
|
||||||
|
if (mode < 8) { // character mode
|
||||||
|
let ch = this.ch;
|
||||||
|
let y = this.yofs >> MODE_YPERIOD[this.mode];
|
||||||
|
let addrofs = y & 7;
|
||||||
|
let chbase = this.regs[CHBASE];
|
||||||
|
// modes 6 & 7
|
||||||
|
if ((mode & 0xe) == 6) { // or 7
|
||||||
|
ch &= 0x3f;
|
||||||
|
chbase &= 0xfe;
|
||||||
|
} else {
|
||||||
|
ch &= 0x7f;
|
||||||
|
chbase &= 0xfc;
|
||||||
|
}
|
||||||
|
let addr = (ch << 3) + (chbase << 8);
|
||||||
|
// modes 2 & 3
|
||||||
|
if ((mode & 0xe) == 2) { // or 3
|
||||||
|
let chactl = this.regs[CHACTL];
|
||||||
|
let mode3lc = mode == 3 && (ch & 0x60) == 0x60;
|
||||||
|
if (chactl & 4)
|
||||||
|
this.pfbyte = this.read(addr + (addrofs ^ 7)); // mirror
|
||||||
|
else
|
||||||
|
this.pfbyte = this.read(addr + addrofs);
|
||||||
|
if (mode3lc && y < 2) { this.pfbyte = 0; }
|
||||||
|
if (!mode3lc && y > 7) { this.pfbyte = 0; }
|
||||||
|
if (this.ch & 0x80) {
|
||||||
|
if (chactl & 1)
|
||||||
|
this.pfbyte = 0x0; // blank
|
||||||
|
if (chactl & 2)
|
||||||
|
this.pfbyte ^= 0xff; // invert
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
this.pfbyte = this.read(addr + addrofs);
|
||||||
|
}
|
||||||
|
} else { // map mode
|
||||||
|
this.pfbyte = this.nextScreen();
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
shiftout() {
|
||||||
|
if (this.output == 4) { // visible pixel?
|
||||||
|
switch (this.mode) {
|
||||||
|
case 2: case 3:
|
||||||
|
case 15:
|
||||||
|
{
|
||||||
|
let v = (this.pfbyte >> 7) & 1;
|
||||||
|
this.pfbyte <<= 1;
|
||||||
|
return v ? 8 : 6;
|
||||||
|
}
|
||||||
|
case 6: case 7:
|
||||||
|
{
|
||||||
|
let v = (this.pfbyte >> 7) & 1;
|
||||||
|
this.pfbyte <<= 1;
|
||||||
|
return v ? (this.ch >> 6) + 4 : 0;
|
||||||
|
}
|
||||||
|
case 9: case 11: case 12:
|
||||||
|
{
|
||||||
|
let v = (this.pfbyte >> 7) & 1;
|
||||||
|
this.pfbyte <<= 1;
|
||||||
|
return v ? 4 : 0;
|
||||||
|
}
|
||||||
|
case 4: case 5:
|
||||||
|
case 8: case 10:
|
||||||
|
case 13: case 14:
|
||||||
|
{
|
||||||
|
let v = (this.pfbyte >> 6) & 3;
|
||||||
|
this.pfbyte <<= 2;
|
||||||
|
return [0, 4, 5, 6][v]; // TODO: 5th color
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return this.output;
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
|
@ -0,0 +1,325 @@
|
||||||
|
|
||||||
|
// GTIA
|
||||||
|
// https://user.xmission.com/~trevin/atari/gtia_regs.html
|
||||||
|
// https://user.xmission.com/~trevin/atari/gtia_pinout.html
|
||||||
|
|
||||||
|
import { dumpRAM } from "../../common/emu";
|
||||||
|
import { hex, rgb2bgr, safe_extend } from "../../common/util";
|
||||||
|
|
||||||
|
|
||||||
|
// write regs
|
||||||
|
const HPOSP0 = 0x0;
|
||||||
|
const HPOSM0 = 0x4;
|
||||||
|
const SIZEP0 = 0x8;
|
||||||
|
const SIZEM = 0x0c;
|
||||||
|
const GRAFP0 = 0x0d;
|
||||||
|
const GRAFM = 0x11;
|
||||||
|
const COLPM0 = 0x12;
|
||||||
|
const COLPF0 = 0x16;
|
||||||
|
const COLPF1 = 0x17;
|
||||||
|
const COLPF2 = 0x18;
|
||||||
|
const COLPF3 = 0x19;
|
||||||
|
const COLBK = 0x1a;
|
||||||
|
const PRIOR = 0x1b;
|
||||||
|
const VDELAY = 0x1c;
|
||||||
|
const GRACTL = 0x1d;
|
||||||
|
const HITCLR = 0x1e;
|
||||||
|
const CONSPK = 0x1f;
|
||||||
|
// read regs
|
||||||
|
const M0PF = 0x0;
|
||||||
|
const P0PF = 0x4;
|
||||||
|
const M0PL = 0x8;
|
||||||
|
const P0PL = 0xc;
|
||||||
|
export const TRIG0 = 0x10;
|
||||||
|
export const CONSOL = 0x1f;
|
||||||
|
|
||||||
|
export class GTIA {
|
||||||
|
regs = new Uint8Array(0x20);
|
||||||
|
readregs = new Uint8Array(0x20);
|
||||||
|
shiftregs = new Uint32Array(8);
|
||||||
|
|
||||||
|
count = 0;
|
||||||
|
an = 0;
|
||||||
|
rgb = 0;
|
||||||
|
pmcol = 0;
|
||||||
|
|
||||||
|
reset() {
|
||||||
|
this.regs.fill(0);
|
||||||
|
this.readregs.fill(0); // TODO?
|
||||||
|
this.count = 0;
|
||||||
|
}
|
||||||
|
saveState() {
|
||||||
|
return safe_extend(0, {}, this);
|
||||||
|
}
|
||||||
|
loadState(s) {
|
||||||
|
safe_extend(0, this, s);
|
||||||
|
}
|
||||||
|
setReg(a: number, v: number) {
|
||||||
|
switch (a) {
|
||||||
|
case CONSOL:
|
||||||
|
v = (v & 15) ^ 15; // 0 = input, 1 = pull down
|
||||||
|
break;
|
||||||
|
case HITCLR:
|
||||||
|
for (let i = 0; i < 16; i++) {
|
||||||
|
this.readregs[i] = 0;
|
||||||
|
}
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
this.regs[a] = v;
|
||||||
|
}
|
||||||
|
readReg(a: number) {
|
||||||
|
return this.readregs[a];
|
||||||
|
}
|
||||||
|
updateGfx(h: number, data: number) {
|
||||||
|
switch (h) {
|
||||||
|
case 0:
|
||||||
|
this.count = 0;
|
||||||
|
if (this.regs[GRACTL] & 1) { this.regs[GRAFM] = data; }
|
||||||
|
break;
|
||||||
|
case 2: case 3: case 4: case 5:
|
||||||
|
if (this.regs[GRACTL] & 2) { this.regs[GRAFP0 - 2 + h] = data; }
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
getPlayfieldColor(): number {
|
||||||
|
switch (this.an) {
|
||||||
|
case 0:
|
||||||
|
return COLBK;
|
||||||
|
case 4: case 5: case 6: case 7:
|
||||||
|
return COLPF0 + this.an - 4;
|
||||||
|
case 8:
|
||||||
|
// combine PF2 hue and PF1 luminance
|
||||||
|
return (this.regs[COLPF2] & 0xf0) | (this.regs[COLPF1] & 0x0f) | 0x100;
|
||||||
|
}
|
||||||
|
return 0x100; // black
|
||||||
|
}
|
||||||
|
clockPulse1(): void {
|
||||||
|
let topobj = -1;
|
||||||
|
let pfset = this.an - 4; // TODO?
|
||||||
|
let ppmask = 0;
|
||||||
|
// players
|
||||||
|
for (let i = 0; i < 4; i++) {
|
||||||
|
let bit = this.shiftObject(i);
|
||||||
|
if (bit) {
|
||||||
|
if (pfset >= 0) {
|
||||||
|
this.readregs[P0PF + i] |= 1 << pfset;
|
||||||
|
}
|
||||||
|
ppmask |= 1 << i;
|
||||||
|
topobj = i;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
this.readregs[P0PL + 0] |= ppmask & ~1;
|
||||||
|
this.readregs[P0PL + 1] |= ppmask & ~2;
|
||||||
|
this.readregs[P0PL + 2] |= ppmask & ~4;
|
||||||
|
this.readregs[P0PL + 3] |= ppmask & ~8;
|
||||||
|
// missiles
|
||||||
|
for (let i = 0; i < 4; i++) {
|
||||||
|
let bit = this.shiftObject(i + 4);
|
||||||
|
if (bit) {
|
||||||
|
if (pfset >= 0) {
|
||||||
|
this.readregs[M0PF + i] |= 1 << pfset;
|
||||||
|
}
|
||||||
|
this.readregs[M0PL + i] |= ppmask;
|
||||||
|
topobj = i + 4;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
this.pmcol = topobj >= 0 ? this.getObjectColor(topobj) : -1;
|
||||||
|
this.count++;
|
||||||
|
this.clockPulse2();
|
||||||
|
}
|
||||||
|
clockPulse2(): void {
|
||||||
|
var col: number;
|
||||||
|
if (this.pmcol >= 0) {
|
||||||
|
col = this.pmcol;
|
||||||
|
} else {
|
||||||
|
let pf = this.getPlayfieldColor();
|
||||||
|
col = pf & 0x100 ? pf & 0xff : this.regs[pf];
|
||||||
|
}
|
||||||
|
this.rgb = COLORS_RGBA[col];
|
||||||
|
}
|
||||||
|
shiftObject(i: number) {
|
||||||
|
let bit = this.shiftregs[i] & 0x80000000;
|
||||||
|
this.shiftregs[i] <<= 1;
|
||||||
|
if (this.regs[HPOSP0 + i] - 7 == this.count) {
|
||||||
|
this.triggerObject(i);
|
||||||
|
}
|
||||||
|
return bit;
|
||||||
|
}
|
||||||
|
getObjectColor(i: number) {
|
||||||
|
if ((this.regs[PRIOR] & 0x10) && i >= 4) {
|
||||||
|
return this.regs[COLPF3];
|
||||||
|
} else {
|
||||||
|
return this.regs[COLPM0 + (i & 3)];
|
||||||
|
}
|
||||||
|
}
|
||||||
|
triggerObject(i: number) {
|
||||||
|
let size, data;
|
||||||
|
if (i < 4) {
|
||||||
|
size = this.regs[SIZEP0 + i] & 3;
|
||||||
|
data = this.regs[GRAFP0 + i];
|
||||||
|
} else {
|
||||||
|
let s = (i - 4) << 1;
|
||||||
|
size = (this.regs[SIZEM] >> s) & 3;
|
||||||
|
data = ((this.regs[GRAFM] >> s) & 3) << 6;
|
||||||
|
}
|
||||||
|
if (size & 1) data = expandBits(data); else data <<= 8;
|
||||||
|
if (size == 3) data = expandBits(data); else data <<= 16;
|
||||||
|
this.shiftregs[i] = data;
|
||||||
|
}
|
||||||
|
|
||||||
|
static stateToLongString(state): string {
|
||||||
|
let s = ''
|
||||||
|
s += "Write Registers:\n";
|
||||||
|
s += dumpRAM(state.regs, 0, 32);
|
||||||
|
s += "Read Registers:\n";
|
||||||
|
s += dumpRAM(state.readregs, 0, 32);
|
||||||
|
return s;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
function expandBits(x: number): number {
|
||||||
|
x = (x | (x << 8)) & 0x00FF00FF;
|
||||||
|
x = (x | (x << 4)) & 0x0F0F0F0F;
|
||||||
|
x = (x | (x << 2)) & 0x33333333;
|
||||||
|
x = (x | (x << 1)) & 0x55555555;
|
||||||
|
return x | (x << 1);
|
||||||
|
}
|
||||||
|
|
||||||
|
const ATARI_NTSC_RGB = [
|
||||||
|
0x000000, // 00
|
||||||
|
0x404040, // 02
|
||||||
|
0x6c6c6c, // 04
|
||||||
|
0x909090, // 06
|
||||||
|
0xb0b0b0, // 08
|
||||||
|
0xc8c8c8, // 0A
|
||||||
|
0xdcdcdc, // 0C
|
||||||
|
0xf4f4f4, // 0E
|
||||||
|
0x004444, // 10
|
||||||
|
0x106464, // 12
|
||||||
|
0x248484, // 14
|
||||||
|
0x34a0a0, // 16
|
||||||
|
0x40b8b8, // 18
|
||||||
|
0x50d0d0, // 1A
|
||||||
|
0x5ce8e8, // 1C
|
||||||
|
0x68fcfc, // 1E
|
||||||
|
0x002870, // 20
|
||||||
|
0x144484, // 22
|
||||||
|
0x285c98, // 24
|
||||||
|
0x3c78ac, // 26
|
||||||
|
0x4c8cbc, // 28
|
||||||
|
0x5ca0cc, // 2A
|
||||||
|
0x68b4dc, // 2C
|
||||||
|
0x78c8ec, // 2E
|
||||||
|
0x001884, // 30
|
||||||
|
0x183498, // 32
|
||||||
|
0x3050ac, // 34
|
||||||
|
0x4868c0, // 36
|
||||||
|
0x5c80d0, // 38
|
||||||
|
0x7094e0, // 3A
|
||||||
|
0x80a8ec, // 3C
|
||||||
|
0x94bcfc, // 3E
|
||||||
|
0x000088, // 40
|
||||||
|
0x20209c, // 42
|
||||||
|
0x3c3cb0, // 44
|
||||||
|
0x5858c0, // 46
|
||||||
|
0x7070d0, // 48
|
||||||
|
0x8888e0, // 4A
|
||||||
|
0xa0a0ec, // 4C
|
||||||
|
0xb4b4fc, // 4E
|
||||||
|
0x5c0078, // 50
|
||||||
|
0x74208c, // 52
|
||||||
|
0x883ca0, // 54
|
||||||
|
0x9c58b0, // 56
|
||||||
|
0xb070c0, // 58
|
||||||
|
0xc084d0, // 5A
|
||||||
|
0xd09cdc, // 5C
|
||||||
|
0xe0b0ec, // 5E
|
||||||
|
0x780048, // 60
|
||||||
|
0x902060, // 62
|
||||||
|
0xa43c78, // 64
|
||||||
|
0xb8588c, // 66
|
||||||
|
0xcc70a0, // 68
|
||||||
|
0xdc84b4, // 6A
|
||||||
|
0xec9cc4, // 6C
|
||||||
|
0xfcb0d4, // 6E
|
||||||
|
0x840014, // 70
|
||||||
|
0x982030, // 72
|
||||||
|
0xac3c4c, // 74
|
||||||
|
0xc05868, // 76
|
||||||
|
0xd0707c, // 78
|
||||||
|
0xe08894, // 7A
|
||||||
|
0xeca0a8, // 7C
|
||||||
|
0xfcb4bc, // 7E
|
||||||
|
0x880000, // 80
|
||||||
|
0x9c201c, // 82
|
||||||
|
0xb04038, // 84
|
||||||
|
0xc05c50, // 86
|
||||||
|
0xd07468, // 88
|
||||||
|
0xe08c7c, // 8A
|
||||||
|
0xeca490, // 8C
|
||||||
|
0xfcb8a4, // 8E
|
||||||
|
0x7c1800, // 90
|
||||||
|
0x90381c, // 92
|
||||||
|
0xa85438, // 94
|
||||||
|
0xbc7050, // 96
|
||||||
|
0xcc8868, // 98
|
||||||
|
0xdc9c7c, // 9A
|
||||||
|
0xecb490, // 9C
|
||||||
|
0xfcc8a4, // 9E
|
||||||
|
0x5c2c00, // A0
|
||||||
|
0x784c1c, // A2
|
||||||
|
0x906838, // A4
|
||||||
|
0xac8450, // A6
|
||||||
|
0xc09c68, // A8
|
||||||
|
0xd4b47c, // AA
|
||||||
|
0xe8cc90, // AC
|
||||||
|
0xfce0a4, // AE
|
||||||
|
0x2c3c00, // B0
|
||||||
|
0x485c1c, // B2
|
||||||
|
0x647c38, // B4
|
||||||
|
0x809c50, // B6
|
||||||
|
0x94b468, // B8
|
||||||
|
0xacd07c, // BA
|
||||||
|
0xc0e490, // BC
|
||||||
|
0xd4fca4, // BE
|
||||||
|
0x003c00, // C0
|
||||||
|
0x205c20, // C2
|
||||||
|
0x407c40, // C4
|
||||||
|
0x5c9c5c, // C6
|
||||||
|
0x74b474, // C8
|
||||||
|
0x8cd08c, // CA
|
||||||
|
0xa4e4a4, // CC
|
||||||
|
0xb8fcb8, // CE
|
||||||
|
0x003814, // D0
|
||||||
|
0x1c5c34, // D2
|
||||||
|
0x387c50, // D4
|
||||||
|
0x50986c, // D6
|
||||||
|
0x68b484, // D8
|
||||||
|
0x7ccc9c, // DA
|
||||||
|
0x90e4b4, // DC
|
||||||
|
0xa4fcc8, // DE
|
||||||
|
0x00302c, // E0
|
||||||
|
0x1c504c, // E2
|
||||||
|
0x347068, // E4
|
||||||
|
0x4c8c84, // E6
|
||||||
|
0x64a89c, // E8
|
||||||
|
0x78c0b4, // EA
|
||||||
|
0x88d4cc, // EC
|
||||||
|
0x9cece0, // EE
|
||||||
|
0x002844, // F0
|
||||||
|
0x184864, // F2
|
||||||
|
0x306884, // F4
|
||||||
|
0x4484a0, // F6
|
||||||
|
0x589cb8, // F8
|
||||||
|
0x6cb4d0, // FA
|
||||||
|
0x7ccce8, // FC
|
||||||
|
0x8ce0fc // FE
|
||||||
|
];
|
||||||
|
|
||||||
|
var COLORS_RGBA = new Uint32Array(256);
|
||||||
|
var COLORS_WEB = [];
|
||||||
|
for (var i = 0; i < 256; i++) {
|
||||||
|
COLORS_RGBA[i] = ATARI_NTSC_RGB[i >> 1] | 0xff000000;
|
||||||
|
COLORS_WEB[i] = "#" + hex(rgb2bgr(ATARI_NTSC_RGB[i >> 1]), 6);
|
||||||
|
}
|
||||||
|
|
Loading…
Reference in New Issue