999 lines
36 KiB
TypeScript
999 lines
36 KiB
TypeScript
|
|
import { Platform, BaseZ80Platform, Base6502Platform, Base6809Platform } from "../common/baseplatform";
|
|
import { PLATFORMS, newAddressDecoder, padBytes, noise, setKeyboardFromMap, AnimationTimer, VectorVideo, Keys, makeKeycodeMap } from "../common/emu";
|
|
import { hex, lzgmini, stringToByteArray, safe_extend } from "../common/util";
|
|
import { MasterAudio, AY38910_Audio } from "../common/audio";
|
|
import { ProbeRecorder } from "../common/recorder";
|
|
import { NullProbe, Probeable, ProbeAll } from "../common/devices";
|
|
|
|
// emulator from https://github.com/raz0red/jsvecx
|
|
// https://roadsidethoughts.com/vectrex/vectrex-memory-map.htm
|
|
// http://www.playvectrex.com/designit/chrissalo/memorymap.htm
|
|
// http://vectrexmuseum.com/share/coder/other/TEXT/VECTREX/INTERNAL.TXT
|
|
// http://vide.malban.de/help/vectrex-tutorial-ii-starting-with-bios
|
|
// http://www.playvectrex.com/designit/chrissalo/bios.asm
|
|
// https://www.6809.org.uk/asm6809/doc/asm6809.shtml
|
|
// http://www.playvectrex.com/
|
|
// http://vectrexmuseum.com/vectrexhistory.php
|
|
|
|
var VECTREX_PRESETS = [
|
|
{ id: 'hello.xasm', name: 'Hello World (ASM)' },
|
|
{ id: 'hello.c', name: 'Hello World (CMOC)' },
|
|
{ id: 'joystick.c', name: 'Joystick Test (CMOC)' },
|
|
{ id: 'threed.c', name: '3D Transformations (CMOC)' },
|
|
]
|
|
|
|
// TODO: player 2
|
|
var VECTREX_KEYCODE_MAP = makeKeycodeMap([
|
|
[Keys.LEFT, 0, 0x01],
|
|
[Keys.RIGHT, 0, 0x02],
|
|
[Keys.DOWN, 0, 0x04],
|
|
[Keys.UP, 0, 0x08],
|
|
[Keys.GP_B, 2, 0x01],
|
|
[Keys.GP_A, 2, 0x02],
|
|
[Keys.GP_D, 2, 0x04],
|
|
[Keys.GP_C, 2, 0x08],
|
|
|
|
[Keys.P2_LEFT, 1, 0x01],
|
|
[Keys.P2_RIGHT, 1, 0x02],
|
|
[Keys.P2_DOWN, 1, 0x04],
|
|
[Keys.P2_UP, 1, 0x08],
|
|
[Keys.P2_GP_B, 2, 0x10],
|
|
[Keys.P2_GP_A, 2, 0x20],
|
|
[Keys.P2_GP_D, 2, 0x40],
|
|
[Keys.P2_GP_C, 2, 0x80],
|
|
]);
|
|
|
|
//
|
|
|
|
class VIA6522 {
|
|
vectrex: VectrexPlatform;
|
|
constructor(vectrex) {
|
|
this.vectrex = vectrex;
|
|
}
|
|
|
|
//static unsigned via_ora;
|
|
ora = 0;
|
|
//static unsigned via_orb;
|
|
orb = 0;
|
|
//static unsigned via_ddra;
|
|
ddra = 0;
|
|
//static unsigned via_ddrb;
|
|
ddrb = 0;
|
|
//static unsigned via_t1on; /* is timer 1 on? */
|
|
t1on = 0;
|
|
//static unsigned via_t1int; /* are timer 1 interrupts allowed? */
|
|
t1int = 0;
|
|
//static unsigned via_t1c;
|
|
t1c = 0;
|
|
//static unsigned via_t1ll;
|
|
t1ll = 0;
|
|
//static unsigned via_t1lh;
|
|
t1lh = 0;
|
|
//static unsigned via_t1pb7; /* timer 1 controlled version of pb7 */
|
|
t1pb7 = 0;
|
|
//static unsigned via_t2on; /* is timer 2 on? */
|
|
t2on = 0;
|
|
//static unsigned via_t2int; /* are timer 2 interrupts allowed? */
|
|
t2int = 0;
|
|
//static unsigned via_t2c;
|
|
t2c = 0;
|
|
//static unsigned via_t2ll;
|
|
t2ll = 0;
|
|
//static unsigned via_sr;
|
|
sr = 0;
|
|
//static unsigned via_srb; /* number of bits shifted so far */
|
|
srb = 0;
|
|
//static unsigned via_src; /* shift counter */
|
|
src = 0;
|
|
//static unsigned via_srclk;
|
|
srclk = 0;
|
|
//static unsigned via_acr;
|
|
acr = 0;
|
|
//static unsigned via_pcr;
|
|
pcr = 0;
|
|
//static unsigned via_ifr;
|
|
ifr = 0;
|
|
//static unsigned via_ier;
|
|
ier = 0;
|
|
//static unsigned via_ca2;
|
|
ca2 = 0;
|
|
//static unsigned via_cb2h; /* basic handshake version of cb2 */
|
|
cb2h = 0;
|
|
//static unsigned via_cb2s; /* version of cb2 controlled by the shift register */
|
|
cb2s = 0;
|
|
|
|
reset() {
|
|
// http://archive.6502.org/datasheets/mos_6522_preliminary_nov_1977.pdf
|
|
// "Reset sets all registers to zero except t1 t2 and sr"
|
|
this.ora = 0;
|
|
this.orb = 0;
|
|
this.ddra = 0;
|
|
this.ddrb = 0;
|
|
this.t1on = 0;
|
|
this.t1int = 0;
|
|
this.t1c = 0;
|
|
this.t1ll = 0;
|
|
this.t1lh = 0;
|
|
this.t1pb7 = 0x80;
|
|
this.t2on = 0;
|
|
this.t2int = 0;
|
|
this.t2c = 0;
|
|
this.t2ll = 0;
|
|
this.sr = 0;
|
|
this.srb = 8;
|
|
this.src = 0;
|
|
this.srclk = 0;
|
|
this.acr = 0;
|
|
this.pcr = 0;
|
|
this.ifr = 0;
|
|
this.ier = 0;
|
|
this.ca2 = 1;
|
|
this.cb2h = 1;
|
|
this.cb2s = 0;
|
|
};
|
|
|
|
int_update() {
|
|
if ((this.ifr & 0x7f) & (this.ier & 0x7f)) {
|
|
this.ifr |= 0x80;
|
|
}
|
|
else {
|
|
this.ifr &= 0x7f;
|
|
}
|
|
}
|
|
|
|
step0() {
|
|
var t2shift = 0;
|
|
if (this.t1on) {
|
|
this.t1c = (this.t1c > 0 ? this.t1c - 1 : 0xffff);
|
|
if ((this.t1c & 0xffff) == 0xffff) {
|
|
/* counter just rolled over */
|
|
if (this.acr & 0x40) {
|
|
/* continuous interrupt mode */
|
|
this.ifr |= 0x40;
|
|
this.int_update();
|
|
this.t1pb7 ^= 0x80;
|
|
/* reload counter */
|
|
this.t1c = (this.t1lh << 8) | this.t1ll;
|
|
}
|
|
else {
|
|
/* one shot mode */
|
|
if (this.t1int) {
|
|
this.ifr |= 0x40;
|
|
this.int_update();
|
|
this.t1pb7 = 0x80;
|
|
this.t1int = 0;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
if (this.t2on && (this.acr & 0x20) == 0x00) {
|
|
this.t2c = (this.t2c > 0 ? this.t2c - 1 : 0xffff);
|
|
if ((this.t2c & 0xffff) == 0xffff) {
|
|
/* one shot mode */
|
|
if (this.t2int) {
|
|
this.ifr |= 0x20;
|
|
this.int_update();
|
|
this.t2int = 0;
|
|
}
|
|
}
|
|
}
|
|
|
|
/* shift counter */
|
|
this.src = (this.src > 0 ? this.src - 1 : 0xff); // raz was 0xffffffff
|
|
if ((this.src & 0xff) == 0xff) {
|
|
this.src = this.t2ll;
|
|
if (this.srclk) {
|
|
t2shift = 1;
|
|
this.srclk = 0;
|
|
}
|
|
else {
|
|
t2shift = 0;
|
|
this.srclk = 1;
|
|
}
|
|
}
|
|
else {
|
|
t2shift = 0;
|
|
}
|
|
|
|
if (this.srb < 8) {
|
|
switch (this.acr & 0x1c) {
|
|
case 0x00:
|
|
/* disabled */
|
|
break;
|
|
case 0x04:
|
|
/* shift in under control of t2 */
|
|
if (t2shift) {
|
|
/* shifting in 0s since cb2 is always an output */
|
|
this.sr <<= 1;
|
|
this.srb++;
|
|
}
|
|
break;
|
|
case 0x08:
|
|
/* shift in under system clk control */
|
|
this.sr <<= 1;
|
|
this.srb++;
|
|
break;
|
|
case 0x0c:
|
|
/* shift in under cb1 control */
|
|
break;
|
|
case 0x10:
|
|
/* shift out under t2 control (free run) */
|
|
if (t2shift) {
|
|
this.cb2s = (this.sr >> 7) & 1;
|
|
this.sr <<= 1;
|
|
this.sr |= this.cb2s;
|
|
}
|
|
break;
|
|
case 0x14:
|
|
/* shift out under t2 control */
|
|
if (t2shift) {
|
|
this.cb2s = (this.sr >> 7) & 1;
|
|
this.sr <<= 1;
|
|
this.sr |= this.cb2s;
|
|
this.srb++;
|
|
}
|
|
break;
|
|
case 0x18:
|
|
/* shift out under system clock control */
|
|
this.cb2s = (this.sr >> 7) & 1;
|
|
this.sr <<= 1;
|
|
this.sr |= this.cb2s;
|
|
this.srb++;
|
|
break;
|
|
case 0x1c:
|
|
/* shift out under cb1 control */
|
|
break;
|
|
}
|
|
|
|
if (this.srb == 8) {
|
|
this.ifr |= 0x04;
|
|
this.int_update();
|
|
}
|
|
}
|
|
}
|
|
|
|
step1() {
|
|
if ((this.pcr & 0x0e) == 0x0a) {
|
|
/* if ca2 is in pulse mode, then make sure
|
|
* it gets restored to '1' after the pulse.
|
|
*/
|
|
this.ca2 = 1;
|
|
}
|
|
if ((this.pcr & 0xe0) == 0xa0) {
|
|
/* if cb2 is in pulse mode, then make sure
|
|
* it gets restored to '1' after the pulse.
|
|
*/
|
|
this.cb2h = 1;
|
|
}
|
|
}
|
|
|
|
read(address) {
|
|
var data;
|
|
/* io */
|
|
switch (address & 0xf) {
|
|
case 0x0:
|
|
/* compare signal is an input so the value does not come from
|
|
* orb.
|
|
*/
|
|
if (this.acr & 0x80) {
|
|
/* timer 1 has control of bit 7 */
|
|
data = ((this.orb & 0x5f) | this.t1pb7 | this.vectrex.alg.compare);
|
|
}
|
|
else {
|
|
/* bit 7 is being driven by orb */
|
|
data = ((this.orb & 0xdf) | this.vectrex.alg.compare);
|
|
}
|
|
return data & 0xff;
|
|
case 0x1:
|
|
/* register 1 also performs handshakes if necessary */
|
|
if ((this.pcr & 0x0e) == 0x08) {
|
|
/* if ca2 is in pulse mode or handshake mode, then it
|
|
* goes low whenever ira is read.
|
|
*/
|
|
this.ca2 = 0;
|
|
}
|
|
/* fall through */
|
|
case 0xf:
|
|
if ((this.orb & 0x18) == 0x08) {
|
|
/* the snd chip is driving port a */
|
|
data = this.vectrex.psg.readData();
|
|
//console.log(this.vectrex.psg.currentRegister(), data);
|
|
}
|
|
else {
|
|
data = this.ora;
|
|
}
|
|
return data & 0xff;
|
|
case 0x2:
|
|
return this.ddrb & 0xff;
|
|
case 0x3:
|
|
return this.ddra & 0xff;
|
|
case 0x4:
|
|
/* T1 low order counter */
|
|
data = this.t1c;
|
|
this.ifr &= 0xbf; /* remove timer 1 interrupt flag */
|
|
this.t1on = 0; /* timer 1 is stopped */
|
|
this.t1int = 0;
|
|
this.t1pb7 = 0x80;
|
|
this.int_update();
|
|
return data & 0xff;
|
|
case 0x5:
|
|
/* T1 high order counter */
|
|
return (this.t1c >> 8) & 0xff;
|
|
case 0x6:
|
|
/* T1 low order latch */
|
|
return this.t1ll & 0xff;
|
|
case 0x7:
|
|
/* T1 high order latch */
|
|
return this.t1lh & 0xff;
|
|
case 0x8:
|
|
/* T2 low order counter */
|
|
data = this.t2c;
|
|
this.ifr &= 0xdf; /* remove timer 2 interrupt flag */
|
|
this.t2on = 0; /* timer 2 is stopped */
|
|
this.t2int = 0;
|
|
this.int_update();
|
|
return data & 0xff;
|
|
case 0x9:
|
|
/* T2 high order counter */
|
|
return (this.t2c >> 8);
|
|
case 0xa:
|
|
data = this.sr;
|
|
this.ifr &= 0xfb; /* remove shift register interrupt flag */
|
|
this.srb = 0;
|
|
this.srclk = 1;
|
|
this.int_update();
|
|
return data & 0xff;
|
|
case 0xb:
|
|
return this.acr & 0xff;
|
|
case 0xc:
|
|
return this.pcr & 0xff;
|
|
case 0xd:
|
|
/* interrupt flag register */
|
|
return this.ifr & 0xff;
|
|
case 0xe:
|
|
/* interrupt enable register */
|
|
return (this.ier | 0x80) & 0xff;
|
|
}
|
|
}
|
|
|
|
write(address, data) {
|
|
switch (address & 0xf) {
|
|
case 0x0:
|
|
this.orb = data;
|
|
this.vectrex.snd_update();
|
|
this.vectrex.alg.update();
|
|
if ((this.pcr & 0xe0) == 0x80) {
|
|
/* if cb2 is in pulse mode or handshake mode, then it
|
|
* goes low whenever orb is written.
|
|
*/
|
|
this.cb2h = 0;
|
|
}
|
|
break;
|
|
case 0x1:
|
|
/* register 1 also performs handshakes if necessary */
|
|
if ((this.pcr & 0x0e) == 0x08) {
|
|
/* if ca2 is in pulse mode or handshake mode, then it
|
|
* goes low whenever ora is written.
|
|
*/
|
|
this.ca2 = 0;
|
|
}
|
|
/* fall through */
|
|
case 0xf:
|
|
this.ora = data;
|
|
this.vectrex.snd_update();
|
|
/* output of port a feeds directly into the dac which then
|
|
* feeds the x axis sample and hold.
|
|
*/
|
|
this.vectrex.alg.xsh = data ^ 0x80;
|
|
this.vectrex.alg.update();
|
|
break;
|
|
case 0x2:
|
|
this.ddrb = data;
|
|
break;
|
|
case 0x3:
|
|
this.ddra = data;
|
|
break;
|
|
case 0x4:
|
|
/* T1 low order counter */
|
|
this.t1ll = data;
|
|
break;
|
|
case 0x5:
|
|
/* T1 high order counter */
|
|
this.t1lh = data;
|
|
this.t1c = (this.t1lh << 8) | this.t1ll;
|
|
this.ifr &= 0xbf; /* remove timer 1 interrupt flag */
|
|
this.t1on = 1; /* timer 1 starts running */
|
|
this.t1int = 1;
|
|
this.t1pb7 = 0;
|
|
this.int_update();
|
|
break;
|
|
case 0x6:
|
|
/* T1 low order latch */
|
|
this.t1ll = data;
|
|
break;
|
|
case 0x7:
|
|
/* T1 high order latch */
|
|
this.t1lh = data;
|
|
break;
|
|
case 0x8:
|
|
/* T2 low order latch */
|
|
this.t2ll = data;
|
|
break;
|
|
case 0x9:
|
|
/* T2 high order latch/counter */
|
|
this.t2c = (data << 8) | this.t2ll;
|
|
this.ifr &= 0xdf;
|
|
this.t2on = 1; /* timer 2 starts running */
|
|
this.t2int = 1;
|
|
this.int_update();
|
|
break;
|
|
case 0xa:
|
|
this.sr = data;
|
|
this.ifr &= 0xfb; /* remove shift register interrupt flag */
|
|
this.srb = 0;
|
|
this.srclk = 1;
|
|
this.int_update();
|
|
break;
|
|
case 0xb:
|
|
this.acr = data;
|
|
break;
|
|
case 0xc:
|
|
this.pcr = data;
|
|
if ((this.pcr & 0x0e) == 0x0c) {
|
|
/* ca2 is outputting low */
|
|
this.ca2 = 0;
|
|
}
|
|
else {
|
|
/* ca2 is disabled or in pulse mode or is
|
|
* outputting high.
|
|
*/
|
|
this.ca2 = 1;
|
|
}
|
|
if ((this.pcr & 0xe0) == 0xc0) {
|
|
/* cb2 is outputting low */
|
|
this.cb2h = 0;
|
|
}
|
|
else {
|
|
/* cb2 is disabled or is in pulse mode or is
|
|
* outputting high.
|
|
*/
|
|
this.cb2h = 1;
|
|
}
|
|
break;
|
|
case 0xd:
|
|
/* interrupt flag register */
|
|
this.ifr &= (~(data & 0x7f)); // & 0xffff ); // raz
|
|
this.int_update();
|
|
break;
|
|
case 0xe:
|
|
/* interrupt enable register */
|
|
if (data & 0x80) {
|
|
this.ier |= data & 0x7f;
|
|
}
|
|
else {
|
|
this.ier &= (~(data & 0x7f)); // & 0xffff ); // raz
|
|
}
|
|
this.int_update();
|
|
break;
|
|
}
|
|
}
|
|
saveState() {
|
|
return safe_extend(null, {}, this);
|
|
}
|
|
loadState(state) {
|
|
safe_extend(null, this, state);
|
|
}
|
|
toLongString(state) {
|
|
var s = "";
|
|
for (var key in state) {
|
|
s += key + ": " + hex(state[key]) + "\n";
|
|
}
|
|
return s;
|
|
}
|
|
};
|
|
|
|
const Globals =
|
|
{
|
|
VECTREX_MHZ: 1500000, /* speed of the vectrex being emulated */
|
|
VECTREX_COLORS: 128, /* number of possible colors ... grayscale */
|
|
ALG_MAX_X: 33000,
|
|
ALG_MAX_Y: 41000,
|
|
//VECTREX_PDECAY: 30, /* phosphor decay rate */
|
|
//VECTOR_HASH: 65521,
|
|
SCREEN_X_DEFAULT: 900,
|
|
SCREEN_Y_DEFAULT: 1100,
|
|
BOUNDS_MIN_X: 0,
|
|
BOUNDS_MAX_X: 30000,
|
|
BOUNDS_MIN_Y: 41000,
|
|
BOUNDS_MAX_Y: 0,
|
|
};
|
|
|
|
class VectrexAnalog {
|
|
vectrex: VectrexPlatform;
|
|
constructor(vectrex) {
|
|
this.vectrex = vectrex;
|
|
}
|
|
videoEnabled = true;
|
|
//static unsigned rsh; /* zero ref sample and hold */
|
|
rsh = 0;
|
|
//static unsigned xsh; /* x sample and hold */
|
|
xsh = 0;
|
|
//static unsigned ysh; /* y sample and hold */
|
|
ysh = 0;
|
|
//static unsigned zsh; /* z sample and hold */
|
|
zsh = 0;
|
|
//unsigned jch0; /* joystick direction channel 0 */
|
|
jch0 = 0;
|
|
//unsigned jch1; /* joystick direction channel 1 */
|
|
jch1 = 0;
|
|
//unsigned jch2; /* joystick direction channel 2 */
|
|
jch2 = 0;
|
|
//unsigned jch3; /* joystick direction channel 3 */
|
|
jch3 = 0;
|
|
//static unsigned jsh; /* joystick sample and hold */
|
|
jsh = 0;
|
|
//static unsigned compare;
|
|
compare = 0;
|
|
//static long dx; /* delta x */
|
|
dx = 0;
|
|
//static long dy; /* delta y */
|
|
dy = 0;
|
|
//static long curr_x; /* current x position */
|
|
curr_x = 0;
|
|
//static long curr_y; /* current y position */
|
|
curr_y = 0;
|
|
|
|
max_x = Globals.ALG_MAX_X >> 1;
|
|
max_y = Globals.ALG_MAX_Y >> 1;
|
|
|
|
//static unsigned vectoring; /* are we drawing a vector right now? */
|
|
vectoring = false;
|
|
//static long vector_x0;
|
|
vector_x0 = 0;
|
|
//static long vector_y0;
|
|
vector_y0 = 0;
|
|
//static long vector_x1;
|
|
vector_x1 = 0;
|
|
//static long vector_y1;
|
|
vector_y1 = 0;
|
|
//static long vector_dx;
|
|
vector_dx = 0;
|
|
//static long vector_dy;
|
|
vector_dy = 0;
|
|
//static unsigned char vector_color;
|
|
vector_color = 0;
|
|
|
|
reset() {
|
|
this.rsh = 128;
|
|
this.xsh = 128;
|
|
this.ysh = 128;
|
|
this.zsh = 0;
|
|
this.jch0 = 128;
|
|
this.jch1 = 128;
|
|
this.jch2 = 128;
|
|
this.jch3 = 128;
|
|
this.jsh = 128;
|
|
this.compare = 0;
|
|
/* check this */
|
|
this.dx = 0;
|
|
this.dy = 0;
|
|
this.curr_x = Globals.ALG_MAX_X >> 1;
|
|
this.curr_y = Globals.ALG_MAX_Y >> 1;
|
|
this.vectoring = false;
|
|
}
|
|
|
|
update() {
|
|
var via = this.vectrex.via;
|
|
switch (via.orb & 0x06) {
|
|
case 0x00:
|
|
this.jsh = this.jch0;
|
|
if ((via.orb & 0x01) == 0x00) {
|
|
/* demultiplexor is on */
|
|
this.ysh = this.xsh;
|
|
}
|
|
break;
|
|
case 0x02:
|
|
this.jsh = this.jch1;
|
|
if ((via.orb & 0x01) == 0x00) {
|
|
/* demultiplexor is on */
|
|
this.rsh = this.xsh;
|
|
}
|
|
break;
|
|
case 0x04:
|
|
this.jsh = this.jch2;
|
|
if ((via.orb & 0x01) == 0x00) {
|
|
/* demultiplexor is on */
|
|
if (this.xsh > 0x80) {
|
|
this.zsh = this.xsh - 0x80;
|
|
} else {
|
|
this.zsh = 0;
|
|
}
|
|
}
|
|
break;
|
|
case 0x06:
|
|
/* sound output line */
|
|
this.jsh = this.jch3;
|
|
break;
|
|
}
|
|
|
|
/* compare the current joystick direction with a reference */
|
|
if (this.jsh > this.xsh) {
|
|
this.compare = 0x20;
|
|
} else {
|
|
this.compare = 0;
|
|
}
|
|
|
|
/* compute the new "deltas" */
|
|
this.dx = this.xsh - this.rsh;
|
|
this.dy = this.rsh - this.ysh;
|
|
}
|
|
|
|
step() {
|
|
var via = this.vectrex.via;
|
|
var sig_dx = 0;
|
|
var sig_dy = 0;
|
|
var sig_ramp = 0;
|
|
var sig_blank = 0;
|
|
|
|
if (via.acr & 0x10) {
|
|
sig_blank = via.cb2s;
|
|
}
|
|
else {
|
|
sig_blank = via.cb2h;
|
|
}
|
|
|
|
if (via.ca2 == 0)
|
|
{
|
|
/* need to force the current point to the 'orgin' so just
|
|
* calculate distance to origin and use that as dx,dy.
|
|
*/
|
|
sig_dx = this.max_x - this.curr_x;
|
|
sig_dy = this.max_y - this.curr_y;
|
|
}
|
|
else {
|
|
if (via.acr & 0x80) {
|
|
sig_ramp = via.t1pb7;
|
|
}
|
|
else {
|
|
sig_ramp = via.orb & 0x80;
|
|
}
|
|
|
|
if (sig_ramp == 0) {
|
|
sig_dx = this.dx;
|
|
sig_dy = this.dy;
|
|
}
|
|
else {
|
|
sig_dx = 0;
|
|
sig_dy = 0;
|
|
}
|
|
}
|
|
//if (sig_dx || sig_dy) console.log(via.ca2, this.curr_x, this.curr_y, this.dx, this.dy, sig_dx, sig_dy, sig_ramp, sig_blank);
|
|
|
|
if (!this.vectoring) {
|
|
if (sig_blank == 1 &&
|
|
this.curr_x >= 0 && this.curr_x < Globals.ALG_MAX_X &&
|
|
this.curr_y >= 0 && this.curr_y < Globals.ALG_MAX_Y) {
|
|
/* start a new vector */
|
|
this.vectoring = true;
|
|
this.vector_x0 = this.curr_x;
|
|
this.vector_y0 = this.curr_y;
|
|
this.vector_x1 = this.curr_x;
|
|
this.vector_y1 = this.curr_y;
|
|
this.vector_dx = sig_dx;
|
|
this.vector_dy = sig_dy;
|
|
this.vector_color = this.zsh & 0xff;
|
|
}
|
|
}
|
|
else {
|
|
/* already drawing a vector ... check if we need to turn it off */
|
|
if (sig_blank == 0) {
|
|
/* blank just went on, vectoring turns off, and we've got a
|
|
* new line.
|
|
*/
|
|
this.vectoring = false;
|
|
|
|
this.addline(this.vector_x0, this.vector_y0,
|
|
this.vector_x1, this.vector_y1,
|
|
this.vector_color);
|
|
}
|
|
else if (sig_dx != this.vector_dx ||
|
|
sig_dy != this.vector_dy ||
|
|
(this.zsh & 0xff) != this.vector_color) {
|
|
|
|
/* the parameters of the vectoring processing has changed.
|
|
* so end the current line.
|
|
*/
|
|
this.addline(this.vector_x0, this.vector_y0,
|
|
this.vector_x1, this.vector_y1,
|
|
this.vector_color);
|
|
|
|
/* we continue vectoring with a new set of parameters if the
|
|
* current point is not out of limits.
|
|
*/
|
|
|
|
if (this.curr_x >= 0 && this.curr_x < Globals.ALG_MAX_X &&
|
|
this.curr_y >= 0 && this.curr_y < Globals.ALG_MAX_Y) {
|
|
this.vector_x0 = this.curr_x;
|
|
this.vector_y0 = this.curr_y;
|
|
this.vector_x1 = this.curr_x;
|
|
this.vector_y1 = this.curr_y;
|
|
this.vector_dx = sig_dx;
|
|
this.vector_dy = sig_dy;
|
|
this.vector_color = this.zsh & 0xff;
|
|
}
|
|
else {
|
|
this.vectoring = false;
|
|
}
|
|
}
|
|
}
|
|
|
|
this.curr_x += sig_dx;
|
|
this.curr_y += sig_dy;
|
|
|
|
if (this.vectoring &&
|
|
this.curr_x >= 0 && this.curr_x < Globals.ALG_MAX_X &&
|
|
this.curr_y >= 0 && this.curr_y < Globals.ALG_MAX_Y) {
|
|
/* we're vectoring ... current point is still within limits so
|
|
* extend the current vector.
|
|
*/
|
|
this.vector_x1 = this.curr_x;
|
|
this.vector_y1 = this.curr_y;
|
|
}
|
|
}
|
|
|
|
addline(x0, y0, x1, y1, color) {
|
|
if (!this.videoEnabled) return;
|
|
// TODO
|
|
//console.log(x0, y0, x1, y1, color);
|
|
x0 = (x0 - Globals.BOUNDS_MIN_X) / (Globals.BOUNDS_MAX_X - Globals.BOUNDS_MIN_X) * Globals.SCREEN_X_DEFAULT;
|
|
x1 = (x1 - Globals.BOUNDS_MIN_X) / (Globals.BOUNDS_MAX_X - Globals.BOUNDS_MIN_X) * Globals.SCREEN_X_DEFAULT;
|
|
y0 = (y0 - Globals.BOUNDS_MIN_Y) / (Globals.BOUNDS_MAX_Y - Globals.BOUNDS_MIN_Y) * Globals.SCREEN_Y_DEFAULT;
|
|
y1 = (y1 - Globals.BOUNDS_MIN_Y) / (Globals.BOUNDS_MAX_Y - Globals.BOUNDS_MIN_Y) * Globals.SCREEN_Y_DEFAULT;
|
|
this.vectrex.video.drawLine(x0, y0, x1, y1, color, 7);
|
|
}
|
|
|
|
saveState() {
|
|
return safe_extend(null, {}, this);
|
|
}
|
|
loadState(state) {
|
|
safe_extend(null, this, state);
|
|
}
|
|
toLongString(state) {
|
|
var s = "";
|
|
for (var key in state) {
|
|
s += key + ": " + state[key] + "\n";
|
|
}
|
|
return s;
|
|
}
|
|
}
|
|
|
|
//
|
|
|
|
class VectrexPlatform extends Base6809Platform {
|
|
|
|
mainElement;
|
|
via: VIA6522;
|
|
alg: VectrexAnalog;
|
|
ram: Uint8Array;
|
|
rom: Uint8Array;
|
|
bios: Uint8Array;
|
|
inputs: Uint8Array;
|
|
bus;
|
|
video: VectorVideo;
|
|
psg: AY38910_Audio;
|
|
audio;
|
|
timer: AnimationTimer;
|
|
|
|
constructor(mainElement) {
|
|
super();
|
|
this.mainElement = mainElement;
|
|
}
|
|
|
|
getPresets() {
|
|
return VECTREX_PRESETS;
|
|
}
|
|
|
|
start() {
|
|
this.via = new VIA6522(this);
|
|
this.alg = new VectrexAnalog(this);
|
|
this.bios = padBytes(new lzgmini().decode(stringToByteArray(atob(VECTREX_FASTROM_LZG))), 0x2000);
|
|
this.ram = new Uint8Array(0x400);
|
|
this.inputs = new Uint8Array(4);
|
|
var mbus = {
|
|
read: newAddressDecoder([
|
|
[0x0000, 0x7fff, 0, (a) => { return this.rom && this.rom[a]; }],
|
|
[0xc800, 0xcfff, 0x3ff, (a) => { return this.ram[a]; }],
|
|
[0xd000, 0xdfff, 0xf, (a) => { return this.via.read(a); }],
|
|
[0xe000, 0xffff, 0x1fff, (a) => { return this.bios && this.bios[a]; }],
|
|
]),
|
|
|
|
write: newAddressDecoder([
|
|
[0xc800, 0xcfff, 0x3ff, (a, v) => { this.ram[a] = v; }],
|
|
[0xd000, 0xd7ff, 0x3ff, (a, v) => { this.via.write(a & 0xf, v); }],
|
|
[0xd800, 0xdfff, 0x3ff, (a, v) => { this.ram[a] = v; this.via.write(a & 0xf, v); }],
|
|
])
|
|
};
|
|
this.bus = {
|
|
read: (a) => { var v = mbus.read(a); this.probe.logRead(a,v); return v; },
|
|
write: (a,v) => { this.probe.logWrite(a,v); mbus.write(a,v); }
|
|
};
|
|
this._cpu = this.newCPU(this.bus);
|
|
// create video/audio
|
|
this.video = new VectorVideo(this.mainElement, Globals.SCREEN_X_DEFAULT, Globals.SCREEN_Y_DEFAULT);
|
|
this.video.persistenceAlpha = 0.2;
|
|
this.audio = new MasterAudio();
|
|
this.psg = new AY38910_Audio(this.audio);
|
|
this.video.create();
|
|
this.timer = new AnimationTimer(60, this.nextFrame.bind(this));
|
|
setKeyboardFromMap(this.video, this.inputs, VECTREX_KEYCODE_MAP); // true = always send function);
|
|
}
|
|
|
|
// TODO: loadControlsState
|
|
updateControls() {
|
|
// joystick (analog simulation)
|
|
this.alg.jch0 = (this.inputs[0] & 0x1) ? 0x00 : (this.inputs[0] & 0x2) ? 0xff : 0x80;
|
|
this.alg.jch1 = (this.inputs[0] & 0x4) ? 0x00 : (this.inputs[0] & 0x8) ? 0xff : 0x80;
|
|
this.alg.jch2 = (this.inputs[1] & 0x1) ? 0x00 : (this.inputs[1] & 0x2) ? 0xff : 0x80;
|
|
this.alg.jch3 = (this.inputs[1] & 0x4) ? 0x00 : (this.inputs[1] & 0x8) ? 0xff : 0x80;
|
|
// buttons (digital)
|
|
this.psg.psg.register[14] = ~this.inputs[2];
|
|
}
|
|
|
|
advance(novideo:boolean) : number {
|
|
if (!novideo) this.video.clear();
|
|
this.alg.videoEnabled = !novideo;
|
|
this.updateControls();
|
|
this.probe.logNewFrame();
|
|
var frameCycles = 1500000 / 60;
|
|
var cycles = 0;
|
|
while (cycles < frameCycles) {
|
|
cycles += this.step();
|
|
}
|
|
return cycles;
|
|
}
|
|
|
|
step() {
|
|
this.probe.logExecute(this.getPC(), this.getSP());
|
|
if (this.via.ifr & 0x80) {
|
|
this._cpu.interrupt();
|
|
}
|
|
var n = this.runCPU(this._cpu, 1);
|
|
if (n == 0) n = 1; // TODO?
|
|
this.probe.logClocks(n);
|
|
for (var i=0; i<n; i++) {
|
|
this.via.step0();
|
|
this.alg.step();
|
|
this.via.step1();
|
|
}
|
|
return n;
|
|
}
|
|
|
|
snd_update() {
|
|
switch (this.via.orb & 0x18) {
|
|
case 0x00:
|
|
/* the sound chip is disabled */
|
|
break;
|
|
case 0x08:
|
|
/* the sound chip is sending data */
|
|
break;
|
|
case 0x10:
|
|
/* the sound chip is recieving data */
|
|
if (this.psg.curreg != 14) {
|
|
this.psg.setData(this.via.ora);
|
|
}
|
|
break;
|
|
case 0x18:
|
|
/* the sound chip is latching an address */
|
|
if ((this.via.ora & 0xf0) == 0x00) {
|
|
this.psg.selectRegister(this.via.ora & 0x0f);
|
|
}
|
|
break;
|
|
}
|
|
}
|
|
|
|
getCPUState() {
|
|
return this._cpu.saveState();
|
|
}
|
|
|
|
loadROM(title, data) {
|
|
this.rom = padBytes(data, 0x8000);
|
|
this.reset();
|
|
}
|
|
|
|
loadBIOS(title, data) {
|
|
this.bios = padBytes(data, 0x2000);
|
|
this.reset();
|
|
}
|
|
|
|
isRunning() {
|
|
return this.timer.isRunning();
|
|
}
|
|
pause() {
|
|
this.timer.stop();
|
|
this.audio.stop();
|
|
}
|
|
resume() {
|
|
this.timer.start();
|
|
this.audio.start();
|
|
}
|
|
reset() {
|
|
this._cpu.reset();
|
|
this.via.reset();
|
|
this.alg.reset();
|
|
}
|
|
readAddress(addr: number) {
|
|
return ((addr & 0xf000) != 0xd000) ? this.bus.read(addr) : null; // ignore I/O space
|
|
}
|
|
|
|
loadState(state) {
|
|
this._cpu.loadState(state.c);
|
|
this.ram.set(state.b);
|
|
this.via.loadState(state.via);
|
|
this.alg.loadState(state.alg);
|
|
this.loadControlsState(state);
|
|
}
|
|
saveState() {
|
|
return {
|
|
c: this.getCPUState(),
|
|
b: this.ram.slice(0),
|
|
via: this.via.saveState(),
|
|
alg: this.alg.saveState(),
|
|
in: this.inputs.slice(0)
|
|
};
|
|
}
|
|
loadControlsState(state) {
|
|
this.inputs.set(state.in);
|
|
}
|
|
saveControlsState() {
|
|
return {
|
|
in: this.inputs.slice(0)
|
|
};
|
|
}
|
|
|
|
getMemoryMap() {
|
|
return {
|
|
main: [
|
|
{ name: 'Cartridge ROM', start: 0x0000, size: 0x8000, type: 'rom' },
|
|
{ name: 'RAM', start: 0xc800, size: 0x400, type: 'ram' },
|
|
{ name: 'I/O Registers', start: 0xd000, size: 0x80, type: 'io' },
|
|
{ name: 'BIOS', start: 0xe000, size: 0x2000, type: 'rom' },
|
|
]
|
|
}
|
|
};
|
|
|
|
getDebugCategories() {
|
|
return super.getDebugCategories().concat(['VIA6522','ANALOG']);
|
|
}
|
|
getDebugInfo(category, state) {
|
|
switch (category) {
|
|
case 'VIA6522': return this.via.toLongString(state.via);
|
|
case 'ANALOG': return this.alg.toLongString(state.alg);
|
|
default: return super.getDebugInfo(category, state);
|
|
}
|
|
}
|
|
|
|
// probing
|
|
nullProbe = new NullProbe();
|
|
probe : ProbeAll = this.nullProbe;
|
|
|
|
startProbing?() : ProbeRecorder {
|
|
var rec = new ProbeRecorder(this);
|
|
this.connectProbe(rec);
|
|
return rec;
|
|
}
|
|
stopProbing?() : void {
|
|
this.connectProbe(null);
|
|
}
|
|
connectProbe(probe:ProbeAll) {
|
|
this.probe = probe || this.nullProbe;
|
|
}
|
|
}
|
|
|
|
//
|
|
|
|
PLATFORMS['vectrex'] = VectrexPlatform;
|
|
|
|
var VECTREX_FASTROM_LZG = `TFpHAAAgAAAAG/A3SzUgAXSsbrHtd/hQMOhNSU5FgPhQAN5TVE9STYAAjsiDb4CMy8Um+b3o43zIJIa7t8iAjgEBv8iBrAUTcCb5IAC98a/MAgC996kKeQ9WD5uOyKi9+E+OyK+xo/mxocwAAb34fI7JAKwIBO2rn8SfxoYFl9mX2pfbICS96GYQjsjElpuupjAEr6aO7aduA4amBYQDJgIM2W7tvefkbtuGpoQrBb3hKSBB3PCDAAHd8CcUNAi98aq96s/O7i+96p01CJYPJySOyKjOy+u9+NiOyK9uwdzwECb/RL3xiw87EM7L6n7wHG4w6vC95R694mK95Li941M1CL3rQ73sRr3slb3mRyXflr0QJ/9hlr5uMZJ+4KWfwsx/AN3cl7eGIJecjuHnn52OyTOfuYYdl7gPVs7td732jTQIvecRvfaHliaFASYCCresAlnqz73yiawCX/Kl9si3JxyO7yYQvsjcvep/ju9dsaOUsaE1CArcIMA1CA+chgSXt4Z/l7iWtydK1rgnBAq4IBLWJsQfJgxKl7eewqaGxgO96aGsBLXyqc7uIL3qnRCO4PjO7ae2yJvuxr3qqKwHzawEyuZHILI5CrgnTgztvfUXhAeLBJec3rmGgKfE3NyLCKdEb0XnRm9HbhNNKwyBECwCiwyBYC8OIO6B8C8CgAyBoCwCIOKnyBEfiR2KAafIEG9CMcgSEJ+5OQACBxAAIBgQAQAFAAMlB1AAAAEAADUAsQEEBAgIDQ3uPe5T7m/ujjQIhsgfi5a9ECYAnJbusaGnlhOxoZKWFCcyltSR1icckdgnCJbVJxSW1yYglteLDIF/IhiX15bUl9ggDpbVbogIl9VuCNYM8m4gDoACl9XW1r3ntRCfzJ/OltduitfW2G6K0J/S3MjTzNPQ3cjcytPO09LdypYbJw8rBArUIAYM1CACNAi96EyG0B+LvfKlxgwQjsjIjsuJveqNNYiGgJfurCIbA4sDl+8M9pbuKhkK7ycNvemKl8gPydfKD8s1iATuhh+X7zWI1u/B4C8Mlu+ABJfvT73pSjWID+8P7r3oNzWItsjnJyusBe7nJyHc3tPi3d6X3Nzg0+Td4JfdNQisAnEIrCL+ju+zvep/OY7joZ+jvfUXjuRIhAauhuyB3dyX3g/f1+AP4SBYlr8mGW4UhH+LMJeibkE/l+axwYsQl+cgSZa9JuPGHM7JM6bEJwgzyBJaJvYgNAztCr+e3q9EnuCvRoZAp8SWwCYQjuQSn51u/0CXnAzAnuimgJeisWHmsWHnn+jW5qwjNeKf5DnOrGJi7samxKxDYo7kJp+dOQrBJwaG/5ecIBduPB+JxAMmAssBrAchbh855FDkauSE5J5/ACggMEAoMCgAEDAQQBggUEAwKDAIYH84cIAAQAAwIBBQIChAMD5wGDBgIBhAMCRQfwZwAH9AEGAoODAoCG4lfyAYMDAIaEAgUG4sAIBAMGA4bgkgGCA4QCgQYCAAMEA4UH8ccIYEzskLjsgVt8iPvfKppsQnImpJJxnsReNB7UXsR+ND7UcxRb3qbTNKesiPJuA5b8R6yOq2yL0m7rbI7ibppoQn5W+EfMi2bMT8yMjtRfzIyu1H/MkH7UH8yQntQ4YYp0l8yOogwYYct8iPrCNXJgkzyBKsAkT0ORArAJyFQBAmAKSFILGhqYUQsaHUhQGxodimQYEEJ1aFAScxrAJgLKwCaiesgpqvlsigRNbK4Ea99ZOAEJeDjuI+5kOmhdaDrCJvr0ivSjUI7ETjSO1E7EbjSu1GvfKljuJapkFIroYxROZCveqNfuUqblkpGm7bKRJuXakxRI7Lp8YEbtisAtzrseGmRqvIEKdGocgRJgJkxL3ypTFEveptblFDgQMmDaZCocgQLAaLCKdCIBtkxKZuJEKGGKfIELbI7SYKtsjAJgWGf7fIon7llmrIEG57bgJvxKwD0hXmQ1onEDQKrELUpuS96aGxQTUKfuUqrKR+8qnOyyuGDrfIj6bEECcApuZE4UEkDcsD50QQrkKO7rq96n9NECoAg3rI924XN7bIJoQBJgN8yPi2yPgQjn8Aju8EvedqEI5ggI7vC26CgFCO7xVugqBuDBxuAiBQesjZf8jrf8jttsh5Jyu2yJtEjsja9sjZ54a2yNomBbbI2ycabg6LAoQCt27V5ob3yNkn67bI2SYNhgG3yL4gBqwCkyUFrCIr7DNFesiPECb/S73sySAFrAXCpY6AOL/IkG4rJx63yI9uGicWtsiRiwa3yJHGBBC+yJCO7uu96n8g5TUIliaEAUhISI7urc7Lp732H9bsJg+WvSYI1usmB9btJgMc/jkaATk0Mo7IyL3y8qbklwQfIL3zEsYMrmG99A41sjQWjqwiL+aEJwcwBUom9yAdpuSEgEynhCoCDL1uA3+nBKZhpwHsYu0CDOwM8zWWNDa99gGnZB1YSbEi7WLmrAcDZDW2NDaN3+x8bkTsem5VNbashOVyrCKtD5wPnw+iD6WOyQus4r5xJvnMAADd3t3g3eLd5Jfnl72Xvpfql+uX7Jf4xkDX95ftl8COCACf8IYHl7+O44Sfo25nyN3KscGX1N3M3c6X1ZfW3dDd0pfXl9iW1I7u687Lib32H4Z/1tS959IQv8kHv8kJOTQwrCVPcjUIhqCXj5bIJworA0ogAUysolKWyqwHBsoPy5bUJwyBHy5uiIQ/l9S94vKOy4HGCKaEiwOngFom96zm6l+GIL3pC73o/TUIlsgQJv+qlsqxoaSW1LGhngqsIsqYvefkNbCO7eAQjstxzm59hhavoTAIp8CLD1om9Tk0Ho7LgYYIbIBKJvsgAjQerCIhhgk0AmrkJge981Q1AjWescGGA7fII6bkSm4k5obEf+FhI9/gYi/b1wSOy3FIroa98qm98tUgy6wbN6wk8+bkWFjrYi/fxH9utabkSqwIOMo0Br31F6fksYGBYC75gaAt9adhNQY5NHaW7RAnAJMKrOO2H5eLgRsjBIAEIPbGEj3DyTMfA6bEhMAmDQyLlm4SL+oPi08g5abkp0GO4kJIEK6GEJ+JxiDnxI7iPqZh5obXi47iOuaG58gQp0OO4lJuma9MjuJKbqKHgQYmAgz0loibihmnT5aHmYkZp06Wi73qPqyGngzrlsAnCKzCAoYDl8E19qwDrB+JhDCnYcQPwQQkAssEwQwjAsAE62HnYTWGNAaGf6xD5fLDrCIIrAUIpqTmIqwHChZuVvzmrGMBlm4GIawiH2GuYm7IVm5ovfNzNdY0Vm6hvfSVNba98qnM/Dj9yCq2yJsQju2jEK6mzu2f7saN2jmsBxMQjn+gzsiojcesgh0JbgYQzsivjbk5vfGSNAi98ua96rS2yIC98bT8yIH9yB/9yCG98fis46ucJwgKnCYErZ/InZafbgSfboSglqJuBKJuhKOWpW4EpW6EpjWIluonEhCOyQuGBJePbaQmBzEqCo8m9jmW5yc1NCCmJeYnHwHMBhYQnty9+P81ICQgb6QP5w+iju2flpuuhswQAL34fIYwxnBuGOeECuogxs7JM4Ycl5CmxIQ/rMNuCpAm8yCqrAZDpkTmRh8C7EysBEXgpkGEAidarAVF7E69+HwM9W6bAaZCxiC954TMARDtTqzLdh+JNCCGP6zHcSBvpMwEBO1MpkGsotUGrKTNhgSnQQrqfutThgGnxG+krApYrAdWQKwCqOtunpa9JhmW7iYVEI6sA7SPpqSEPyYIMagSCo8m8zk0IJbI1spuLCTmJhCuLB4grAW0b6QP7awFEiKKgMYwveeEDPMK6yDOrAZHlucnEW7ZrCc5JQE5rCI2bs6GCKwHLzm2yPInCH/I8s7tNyAxtsjzbkXzzu1NICS2yLZuRbbO7UIgF7bI9CcLf8j0f8j2zu1aIAe2yPYm8CADvfJ99sgAyxDBoCQHhgC98lYgBswIseL2yALLIMHwbg4Cbs4Jbk45ABABAAYfBwYID/8COQNuQwUJD/+xwQcKEAsADDgNAP8AAAEAAjADAAQABW5YPQgACQ8KAG4VAG4V7Y/+tgAZARmxYTKx5AYZBRkAgP/u3cy7qpmId7EFyKjIr3+gfxDI+ckAsQICsWEBsWEDbkRuAQJuAQGxYQJuEQFuCANuhAJuBAFuBAMAgMhAPwAggBAfPz8Av7+/wCBICPgwqBDQoL+/AD8/SCCAALBIOPs4gCgwSICARfAofz+/pQDQYCAouEAVgED4QBj6OODITUlORSBGSUVMRIBuB9hHQU1FIE9WRVKAABAA/yCg/8BA/5Ag/3Ag/1BQ/9CQAQAgAP8wsP+wMP+w0P8wbgtQ/1DQ/1Aw/9CwAf8AAAAwAP8QwP/AEP/A8P8QQP/wQP9A8P9AEP/wwG6X8NCsAkluPEBA/wDg/0DA/+AA/8DA/wAgAQA/AP+AAAA/P/8AgAH/fyAAbn3Q/yB/AOBuGG4hMADAAP9gzf+gAAAg0P88MP8AggAwMKwCeiDwbrbECP/Y2P8gAAAAQKwCTyjY/zwIrAURAQAErAUVbsn4bgn4/9gobokgAP8A2P/QqKwCpggY/xjw//C4ABBI/wgA/+gQ//gAAG4BAAYAEPpuSgDwABAY//AIbu8o/9BY//DA/wjo/xgQ//BIABC4bq/wbi9upvoAEAZugRAAEOj/8PgBrAJj6Aj/AED/GLGh2AAI4P8QbhdA//CxocABABixwSD/yHD/EKD/AKD/7KT/OW2sIxexHbEBEM7L6r3xi8xzIRCzy/4nXP3L/nzIO47L6734T73xr9wlEIMBASYC11ZXxAOO8P3mhdcpxgLXJM79Db32h73xkr3yib3yqbbIJs7xDIUgJwIzTL3zhY7w6b3zCIYDvfQ0esgkJvNuF4EgI7C98a+GzJcpzPEB3TkPJQ8mzgAAjvEBxgumwKGAJw3BAScEwQUjBc7gACAHWibq1znXOgxW3zfuxG4wzPhI3SqsCmrMwMD+yDm983q2yDsmDErOy+unRsxo0G4J/sg3M0K984W2yFYmxb7IJYwAfSO9bgBBQNYAVoEAAKl+ADncjgAASnIAALbgOA4DZyBHQ0UgMTk4MoDxYCfPVkVDVFJFWIDzYCasBwT8YN/pbh2A/DjM0UVOVEVSVEFJTklOR24JvNxORVcgSURFQVOAAI1czJ//3QLMAQDdAMyYf5cL1wS981QgPo1JxnqOyAC99T/MyH3dewx9J/yGBZcozDB13T3MAQPdH8wFB90hOY3Xjb1+8nK+yCUwAb/IJY0OhiCVDSf8/Mg93Qh+8uaG0B+LOazCmjm0yA+3yA+OyBKmHacehg6XAcwZAZcAEtcADwPMCW5ClgFDpx3XAMb/1wNDqh5Dpx80AsYBH5ik5KeAWCb3NYJ6yCOOyB+mgCYMjMgjJvdvhIZuLjmXAA8BCgDGYFwq/bbIIyslhiAMAJUAJwrGQNcBlQAmCyAIxsBuQicBX+cbIMUfmJoBlwGGIG4TBh+YmG4EVPHIGibo1gEg4I7IAOeGbhUZlwCsAlOWAdcBxhHXAMYB1wA5zA4Ajd9KKvt+9TNuHyACjdXswSr6OW4Ezsg/hg3mwOGGJwKNwEoq9TmGHyAKhj8gBoZfIAKGf5cBt8gnzAUElwDXsSGsA0T3yCjsgY1Nhv+XCvbIKFom/Q8KOXrII43qtsgjJvYgdqaALnKN3SD4jvnwjR2982uNICBixn/XBKaE5gIgFpcBdAQAiQ8AIBDG/yACblLsgZcBDwBuEM6XDA8KDADXAQ8FNQa99YTnf6p/xkCBQCMSgWQjBIYIIAKGBNUNJ/xKJv05seI5vfGqIAW2yCQnFswAzNcMlwrMAwIPAawJpawFDznswf3IKuzBvfL8vfV1fvSVje6mxCb6OY3sscOuhDQExoAzeDYGNQKBCSMChjyLMMYtNgY2ECDLpoAgCNcEIAfsgdcEt8gj7ISsAqQwAhKsAp/MAAAgH6wbGf8AlwrXBcwAQKwCpxKXCrbII0oq2X7zT8b/IAbGfyAC5oDXBOwBbmumhDADbmyXCg+sCSmmhC/gbidKrAlSbl22yCnGQG5i9dANJwsPrAJQJts5bg6XChJuMvZuCA8KTSbIbjO2yCQ0An/IJKaAKgSNuyD4JgW987wg8UonseHdIOk1ArfIJG4f/8gsjvnUzBiDDwGXC24C1wAKAMyAgawCvwCXAH3IAAwAtsgrlwHMAQD+yCyXACAEpoaXCqbAKviGgZcAAAGsQmyM+7QnLDCIUB8ws8gswAJYIQCGgRJaJvqXAPbIKtcBCgDMgQESrELrrAJLxgMgm4aYlwt+81Q0FMYCIAM0FF++yHumAUmxAagCRmmEaQFpAloq7qaENZTGDY7IP40Fhj+nBjlPIAaOyADMAP9vi4MAASr5OYaAp4VaJvunhDluPwLGBY7ILm2FJwJqhVoq9znGAyAJbg8FxgEgAV9aKv05jvncpoY5TSoEQCgBSl0qBFAoAVo5NBDdNFnGAFlJWVjXNtw0jeCXNNE0IwgMNh6JIAJEVIEJIvrdNNY2jvwk5oWO/Cymhps1iwrFASYE64YgA1rghtc2ljY1kIsQjvxtX6yii8aAhB+BECYBXKaGOTQQljaN5t03saHe3Tk1kMAQ1zaXO43ojVRANAKNVTWEt8g298gjdAMIq43SIBhuB26ElyONxKaAp8AvBg8jNYgKI6aAjSanxKaEjRqrxKfAph+NEm4GgI0SoG4GliMr1CbcNYiXO9w3IASxoTnXPMUBJwSWOyAK1jsqAwM8UD2JANY8KgFAOebG54ZKKvk5llYrKCf5jvyNn02GgJdW7MHdT7FhUd9TvfUzzB8f3V/MAADdY91ll1UgOc7IXsYCpsWBHycCbMVaKvWeUc7IWIYHbMShxCwCb8TmwMQH5oXnwEyBCSPrClcma5ZVSioChgKXVeafyFNuNW/GxUAnGY755KaGlEWXRZZViwOmhppuAsQf10YgI4756qwOEZZVSIsDM8bEP1ieTeyF7cSeU+aAn1NdK6XmgCoGvfUzD1Y5n1PEP9dXEJ5PzshejshChgLmwMUBJwdU5qXEDyCxwlSxAawC5OfOyGeOyEfsw21YKgpgWOBYggBgWCAE61iJAO2BjMhNJuU5IMBAwFBMQVlFUoDgwAHAIEdBTUWA/chPTScChgFdJwLGAf3IeazjDVDdKpc8IGe98ZJPvfG0vfVarOOEeRCO95SNWrbIem4Bn41RbiOWPCcGlg8mPQ88li8nnpYuJsyWFSaWlhInD5Z5JwtMkU8jAoYBl3kgHJZ6J7EA1hMnCUyRUCMNhgEgCdYUJ6BKJgKWUJd6hvOXL0OXLiCQjsheNAKNE6bgJw6NHB8T7KG983ofI73zeDnMICDthO0CpwTMMIDtBTnOAACBYyMIgGQzyQEAIPSBCSMHgAozyBAg9TPGHzA0AjQExgVPwQEjEKxCGKbkIAam4ESxAYQPu8gjf8gjq4WBLy4CixCBOSMFgAp8yCOnhVoqz24RX6aFgTAmCYYgp4VcwQUt8Tk0UE/mgCsI4cAn+CIBTEw10I3tgQEmBqxCqyr6OTQgNDbsZKvE60HtZCAQbkYfMKtk62Ug8G6EQV86pgSrhCgChn+hAi0VpgSgbkSAoQIuCVzBAiXiGgEgAhz+NTY1oJZnKimEf5dnjshYhgS99oNUVFTaWMQH11TWWMQ411OxoQfXXcYC11yGfyANlncnapBbKgVf13cgYpd3RETWUycNl0bWWSsFJwUfiVPXRkSBByMFgQ8nAUzWWisGJwKIDx+JjTfWXScrllysRKxcvfV+lV0n8NZcWFCOyEswhb31F4QPgQUiA0iLBaeEln6nAZZYQ6xCpjmWVI7IRU0nCTAfRCT454Qg9DkBAgQIECBAgPfv324D/v37bgZ/f4CAACBQUCDIIBAQQCAAsQEIMCBwcBD4MPhwcABgbghwcCDwcPD4+HiIcAiIgIiI+G4GcPiIsQL4cIBwbiwgCG5xOBAgREQA/v/+AHBQUHjIUCAgIKhuUAhIYIiIMIBACIiIYGAQAECIiFBIiEiAgICIIAiQgNjIrANCqLGjCECACFAAAHAMIHBwAEQQcAAAbIKsA0j4oBBQQEAQrAJlABBIIAgIUPCAEIiIYAAgeCAIqIhIgKwFSKCAqKwDQkAgsYFQUBBAQAiIAHCoCiCI+GC6OG42kqwCSCAAUHAgYABAEKj4AHAAIEggcDCQCPAgcHgAYEAAEBC4iHCASODgmPggCMCAqJiI8IjwICCIUKggICBAIAgAAP4gCCCI+PCiOPiCOKwDSAAA+HBAqKwCSCBAAABASCCACPgIiECICGBgIHggILD4rAOYiKwDmIiIiICooBCsAkhQIEBAEKwDSHioiPjwunwgRESsA+gAAFAomJAAICAArAJIgEgggIgQbi+IEGAgEABAAICIrCM4iIggiJCsAuWAkJBuAyCoiCCAQAgIAABIIPBwcHBgRGxQOIIArAXo+JhoABCsAkUAgIAwcPhwEHBwgHBgAG4KACB4iKwi2IB4iHBwiPiIiPiAaIhwIHAgUIgg+HAIcAD4ACBgrCPYgoixoawi2BFBMCEQIDEAAQMGCg8VHCQtCBAIEAsIEA0KCBAOCwmxgQwKsaINC7HCDw0MseQOseJugW6KCQgAGTJKYnmOorXG1eLt9fv////79e3i1ca1oo55YkoyGQO9A4cDVAMkAvcCzQKkAn4CWwI5AhkB+wHeAcMBqgGSAXwBZgFSAT8BLQEcAQwA/QDvAOIA1QDJAL4AswCpAKAAlwCOAIYAfwB4AHEAawBlAF8AWgBVAFAASwBHAEMAPwA8ADgANQAyAC8ALQAqACgAJgAkACIAIAAeABwAGwAA/uj+tpMfDJMfBpifJDwRgP1p/XkhB7EpDpmfJA6VmyAOrAoOnaMoDqCmKw4iAigCLbFhse4uAi0oIYDv//7cunQKBXIBAgEA//7//cP+tlEkUAaxIQyxowSxIxix5QyxIawaFhgmgP26mHZVRDMiEawFUf4o/XmYHBA/CJgcBLFDrAkDCJMYbgQInB+xom7ErBsKbkScHzAagKwCtph2VDIQrAZdZv62DBgRGLFnEgwGERidIRifIxihJBijJhifpCgYBxIHBgA8GIDe76wM9f6y/rYYBhoGHAwYDBokIxgXBm4GDBcMGCQkGKQoDKMmDKEkDJ8jDJ0hGJofrAoWJBh0AwkbdA4GvqwisZaaHR6RlRgelJgbHo+UGBQWCoyRFbGhbgwyGIDu///udAUJVLED/xb+thwGHwYcrAJUsWEVBhOxoRMGFwYYHhiAbqXdzKwHYP4o/rYWDxYFsSIaDxYPHQ8dBbEiIQ8dMh2AbpYGFgKxIhoGFgYdBh0CsSIhBh0yEW6WG6wFNBcwseeA/Wn+tqAjEqAjDJwgBp4hEpwgMhOArEIGFgSxJBoIHICmoCAIvfO+tsiAhH+3yIB6yICmpEeE+OagWLEBV8T4fciAK9+9899uGYUPJuCFICfNOUtBUlJTT0ZUODJMRE1DQkNKrAgCrALEy/KxIfXL+Mv7y/vwAA==`;
|