656 lines
26 KiB
JavaScript
656 lines
26 KiB
JavaScript
/* Copyright 2017 Will Scullin <scullin@scullinsteel.com>
|
|
*
|
|
* Permission to use, copy, modify, distribute, and sell this software and its
|
|
* documentation for any purpose is hereby granted without fee, provided that
|
|
* the above copyright notice appear in all copies and that both that
|
|
* copyright notice and this permission notice appear in supporting
|
|
* documentation. No representations are made about the suitability of this
|
|
* software for any purpose. It is provided "as is" without express or
|
|
* implied warranty.
|
|
*/
|
|
|
|
/*exported Videoterm */
|
|
/*globals debug: false, allocMemPages: false */
|
|
|
|
function Videoterm(io, slot, context) {
|
|
'use strict';
|
|
|
|
slot = slot || 3;
|
|
|
|
debug('Videx Videoterm card in slot', slot);
|
|
|
|
var LOC = {
|
|
IOREG: 0x80,
|
|
IOVAL: 0x81
|
|
};
|
|
|
|
var ROM = [
|
|
0xad,0x7b,0x07,0x29,0xf8,0xc9,0x30,0xf0,
|
|
0x21,0xa9,0x30,0x8d,0x7b,0x07,0x8d,0xfb,
|
|
0x07,0xa9,0x00,0x8d,0xfb,0x06,0x20,0x61,
|
|
0xc9,0xa2,0x00,0x8a,0x8d,0xb0,0xc0,0xbd,
|
|
0xa1,0xc8,0x8d,0xb1,0xc0,0xe8,0xe0,0x10,
|
|
0xd0,0xf1,0x8d,0x59,0xc0,0x60,0xad,0xfb,
|
|
0x07,0x29,0x08,0xf0,0x09,0x20,0x93,0xfe,
|
|
0x20,0x22,0xfc,0x20,0x89,0xfe,0x68,0xa8,
|
|
0x68,0xaa,0x68,0x60,0x20,0xd1,0xc8,0xe6,
|
|
0x4e,0xd0,0x02,0xe6,0x4f,0xad,0x00,0xc0,
|
|
0x10,0xf5,0x20,0x5c,0xc8,0x90,0xf0,0x2c,
|
|
0x10,0xc0,0x18,0x60,0xc9,0x8b,0xd0,0x02,
|
|
0xa9,0xdb,0xc9,0x81,0xd0,0x0a,0xad,0xfb,
|
|
0x07,0x49,0x40,0x8d,0xfb,0x07,0xb0,0xe7,
|
|
0x48,0xad,0xfb,0x07,0x0a,0x0a,0x68,0x90,
|
|
0x1f,0xc9,0xb0,0x90,0x1b,0x2c,0x63,0xc0,
|
|
0x30,0x14,0xc9,0xb0,0xf0,0x0e,0xc9,0xc0,
|
|
0xd0,0x02,0xa9,0xd0,0xc9,0xdb,0x90,0x08,
|
|
0x29,0xcf,0xd0,0x04,0xa9,0xdd,0x09,0x20,
|
|
0x48,0x29,0x7f,0x8d,0x7b,0x06,0x68,0x38,
|
|
0x60,0x7b,0x50,0x5e,0x29,0x1b,0x08,0x18,
|
|
0x19,0x00,0x08,0xe0,0x08,0x00,0x00,0x00,
|
|
0x00,0x8d,0x7b,0x06,0xa5,0x25,0xcd,0xfb,
|
|
0x05,0xf0,0x06,0x8d,0xfb,0x05,0x20,0x04,
|
|
0xca,0xa5,0x24,0xcd,0x7b,0x05,0x90,0x03,
|
|
0x8d,0x7b,0x05,0xad,0x7b,0x06,0x20,0x89,
|
|
0xca,0xa9,0x0f,0x8d,0xb0,0xc0,0xad,0x7b,
|
|
0x05,0xc9,0x50,0xb0,0x13,0x6d,0x7b,0x04,
|
|
0x8d,0xb1,0xc0,0xa9,0x0e,0x8d,0xb0,0xc0,
|
|
0xa9,0x00,0x6d,0xfb,0x04,0x8d,0xb1,0xc0,
|
|
0x60,0x49,0xc0,0xc9,0x08,0xb0,0x1d,0xa8,
|
|
0xa9,0xc9,0x48,0xb9,0xf2,0xcb,0x48,0x60,
|
|
0xea,0xac,0x7b,0x05,0xa9,0xa0,0x20,0x71,
|
|
0xca,0xc8,0xc0,0x50,0x90,0xf8,0x60,0xa9,
|
|
0x34,0x8d,0x7b,0x07,0x60,0xa9,0x32,0xd0,
|
|
0xf8,0xa0,0xc0,0xa2,0x80,0xca,0xd0,0xfd,
|
|
0xad,0x30,0xc0,0x88,0xd0,0xf5,0x60,0xac,
|
|
0x7b,0x05,0xc0,0x50,0x90,0x05,0x48,0x20,
|
|
0xb0,0xc9,0x68,0xac,0x7b,0x05,0x20,0x71,
|
|
0xca,0xee,0x7b,0x05,0x2c,0x78,0x04,0x10,
|
|
0x07,0xad,0x7b,0x05,0xc9,0x50,0xb0,0x68,
|
|
0x60,0xac,0x7b,0x05,0xad,0xfb,0x05,0x48,
|
|
0x20,0x07,0xca,0x20,0x04,0xc9,0xa0,0x00,
|
|
0x68,0x69,0x00,0xc9,0x18,0x90,0xf0,0xb0,
|
|
0x23,0x20,0x67,0xc9,0x98,0xf0,0xe8,0xa9,
|
|
0x00,0x8d,0x7b,0x05,0x8d,0xfb,0x05,0xa8,
|
|
0xf0,0x12,0xce,0x7b,0x05,0x10,0x9d,0xa9,
|
|
0x4f,0x8d,0x7b,0x05,0xad,0xfb,0x05,0xf0,
|
|
0x93,0xce,0xfb,0x05,0x4c,0x04,0xca,0xa9,
|
|
0x30,0x8d,0x7b,0x07,0x68,0x09,0x80,0xc9,
|
|
0xb1,0xd0,0x67,0xa9,0x08,0x8d,0x58,0xc0,
|
|
0xd0,0x5b,0xc9,0xb2,0xd0,0x51,0xa9,0xfe,
|
|
0x2d,0xfb,0x07,0x8d,0xfb,0x07,0x60,0x8d,
|
|
0x7b,0x06,0x4e,0x78,0x04,0x4c,0xcb,0xc8,
|
|
0x20,0x27,0xca,0xee,0xfb,0x05,0xad,0xfb,
|
|
0x05,0xc9,0x18,0x90,0x4a,0xce,0xfb,0x05,
|
|
0xad,0xfb,0x06,0x69,0x04,0x29,0x7f,0x8d,
|
|
0xfb,0x06,0x20,0x12,0xca,0xa9,0x0d,0x8d,
|
|
0xb0,0xc0,0xad,0x7b,0x04,0x8d,0xb1,0xc0,
|
|
0xa9,0x0c,0x8d,0xb0,0xc0,0xad,0xfb,0x04,
|
|
0x8d,0xb1,0xc0,0xa9,0x17,0x20,0x07,0xca,
|
|
0xa0,0x00,0x20,0x04,0xc9,0xb0,0x95,0xc9,
|
|
0xb3,0xd0,0x0e,0xa9,0x01,0x0d,0xfb,0x07,
|
|
0xd0,0xa9,0xc9,0xb0,0xd0,0x9c,0x4c,0x09,
|
|
0xc8,0x4c,0x27,0xc9,0xad,0xfb,0x05,0x8d,
|
|
0xf8,0x04,0x0a,0x0a,0x6d,0xf8,0x04,0x6d,
|
|
0xfb,0x06,0x48,0x4a,0x4a,0x4a,0x4a,0x8d,
|
|
0xfb,0x04,0x68,0x0a,0x0a,0x0a,0x0a,0x8d,
|
|
0x7b,0x04,0x60,0xc9,0x0d,0xd0,0x06,0xa9,
|
|
0x00,0x8d,0x7b,0x05,0x60,0x09,0x80,0xc9,
|
|
0xa0,0xb0,0xce,0xc9,0x87,0x90,0x08,0xa8,
|
|
0xa9,0xc9,0x48,0xb9,0xb9,0xc9,0x48,0x60,
|
|
0x18,0x71,0x13,0xb2,0x48,0x60,0xaf,0x9d,
|
|
0xf2,0x13,0x13,0x13,0x13,0x13,0x13,0x13,
|
|
0x13,0x13,0x66,0x0e,0x13,0x38,0x00,0x14,
|
|
0x7b,0x18,0x98,0x6d,0x7b,0x04,0x48,0xa9,
|
|
0x00,0x6d,0xfb,0x04,0x48,0x0a,0x29,0x0c,
|
|
0xaa,0xbd,0xb0,0xc0,0x68,0x4a,0x68,0xaa,
|
|
0x60,0x0a,0x48,0xad,0xfb,0x07,0x4a,0x68,
|
|
0x6a,0x48,0x20,0x59,0xca,0x68,0xb0,0x05,
|
|
0x9d,0x00,0xcc,0x90,0x03,0x9d,0x00,0xcd,
|
|
0x60,0x48,0xa9,0xf7,0x20,0xa0,0xc9,0x8d,
|
|
0x59,0xc0,0xad,0x7b,0x07,0x29,0x07,0xd0,
|
|
0x04,0x68,0x4c,0x23,0xca,0x29,0x04,0xf0,
|
|
0x03,0x4c,0x87,0xc9,0x68,0x38,0xe9,0x20,
|
|
0x29,0x7f,0x48,0xce,0x7b,0x07,0xad,0x7b,
|
|
0x07,0x29,0x03,0xd0,0x15,0x68,0xc9,0x18,
|
|
0xb0,0x03,0x8d,0xfb,0x05,0xad,0xf8,0x05,
|
|
0xc9,0x50,0xb0,0x03,0x8d,0x7b,0x05,0x4c,
|
|
0x04,0xca,0x68,0x8d,0xf8,0x05,0x60,0xad,
|
|
0x00,0xc0,0xc9,0x93,0xd0,0x0f,0x2c,0x10,
|
|
0xc0,0xad,0x00,0xc0,0x10,0xfb,0xc9,0x83,
|
|
0xf0,0x03,0x2c,0x10,0xc0,0x60,0xa8,0xb9,
|
|
0x31,0xcb,0x20,0xf1,0xc8,0x20,0x44,0xc8,
|
|
0xc9,0xce,0xb0,0x08,0xc9,0xc9,0x90,0x04,
|
|
0xc9,0xcc,0xd0,0xea,0x4c,0xf1,0xc8,0xea,
|
|
0x2c,0xcb,0xff,0x70,0x31,0x38,0x90,0x18,
|
|
0xb8,0x50,0x2b,0x01,0x82,0x11,0x14,0x1c,
|
|
0x22,0x4c,0x00,0xc8,0x20,0x44,0xc8,0x29,
|
|
0x7f,0xa2,0x00,0x60,0x20,0xa7,0xc9,0xa2,
|
|
0x00,0x60,0xc9,0x00,0xf0,0x09,0xad,0x00,
|
|
0xc0,0x0a,0x90,0x03,0x20,0x5c,0xc8,0xa2,
|
|
0x00,0x60,0x91,0x28,0x38,0xb8,0x8d,0xff,
|
|
0xcf,0x48,0x85,0x35,0x8a,0x48,0x98,0x48,
|
|
0xa5,0x35,0x86,0x35,0xa2,0xc3,0x8e,0x78,
|
|
0x04,0x48,0x50,0x10,0xa9,0x32,0x85,0x38,
|
|
0x86,0x39,0xa9,0x07,0x85,0x36,0x86,0x37,
|
|
0x20,0x00,0xc8,0x18,0x90,0x6f,0x68,0xa4,
|
|
0x35,0xf0,0x1f,0x88,0xad,0x78,0x06,0xc9,
|
|
0x88,0xf0,0x17,0xd9,0x00,0x02,0xf0,0x12,
|
|
0x49,0x20,0xd9,0x00,0x02,0xd0,0x3b,0xad,
|
|
0x78,0x06,0x99,0x00,0x02,0xb0,0x03,0x20,
|
|
0xed,0xca,0xa9,0x80,0x20,0xf5,0xc9,0x20,
|
|
0x44,0xc8,0xc9,0x9b,0xf0,0xf1,0xc9,0x8d,
|
|
0xd0,0x05,0x48,0x20,0x01,0xc9,0x68,0xc9,
|
|
0x95,0xd0,0x12,0xac,0x7b,0x05,0x20,0x59,
|
|
0xca,0xb0,0x05,0xbd,0x00,0xcc,0x90,0x03,
|
|
0xbd,0x00,0xcd,0x09,0x80,0x8d,0x78,0x06,
|
|
0xd0,0x08,0x20,0x44,0xc8,0xa0,0x00,0x8c,
|
|
0x78,0x06,0xba,0xe8,0xe8,0xe8,0x9d,0x00,
|
|
0x01,0xa9,0x00,0x85,0x24,0xad,0xfb,0x05,
|
|
0x85,0x25,0x4c,0x2e,0xc8,0x68,0xac,0xfb,
|
|
0x07,0x10,0x08,0xac,0x78,0x06,0xc0,0xe0,
|
|
0x90,0x01,0x98,0x20,0xb1,0xc8,0x20,0xcf,
|
|
0xca,0xa9,0x7f,0x20,0xa0,0xc9,0xad,0x7b,
|
|
0x05,0xe9,0x47,0x90,0xd4,0x69,0x1f,0x18,
|
|
0x90,0xd1,0x60,0x38,0x71,0xb2,0x7b,0x00,
|
|
0x48,0x66,0xc4,0xc2,0xc1,0xff,0xc3,0xea,
|
|
];
|
|
|
|
var VIDEO_ROM = [
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0xff,0xff,0xff,0x00,0x00,0x00,0x00,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x00,0x00,0x00,0xff,0xff,0xff,0x00,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0xff,0xff,0xff,0xff,0xff,0xff,0x00,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0xff,0xff,
|
|
0xff,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0xff,0xff,0xff,0x00,0x00,0x00,0xff,0xff,
|
|
0xff,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x00,0x00,0x00,0xff,0xff,0xff,0xff,0xff,
|
|
0xff,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
|
|
0xff,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0xe0,0x90,0xe0,0x9e,0xf0,0x0c,0x02,0x1c,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x90,0x90,0xf0,0x90,0xbe,0x08,0x08,0x08,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x80,0x80,0x80,0x9e,0xf0,0x18,0x10,0x10,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x88,0x88,0x50,0x20,0x3e,0x08,0x08,0x08,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0xf0,0x80,0xc0,0x9e,0x90,0x18,0x10,0x10,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x70,0x80,0x80,0x7c,0x12,0x1c,0x14,0x12,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x70,0x80,0x60,0x10,0xec,0x12,0x12,0x0c,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x70,0x80,0x60,0x1e,0xe4,0x04,0x04,0x0e,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x08,0x08,0x08,0x08,0x08,0x00,0x00,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x00,0x00,0x00,0x00,0x0f,0x00,0x00,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x08,0x08,0x08,0x08,0x0f,0x00,0x00,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x00,0x00,0x00,0x00,0x08,0x08,0x08,0x08,
|
|
0x08,0x08,0x08,0x08,0x08,0x08,0x08,0x08,
|
|
0x08,0x08,0x08,0x08,0x08,0x08,0x08,0x08,
|
|
0x08,0x08,0x08,0x08,0x08,0x08,0x08,0x08,
|
|
0x00,0x00,0x00,0x00,0x0f,0x08,0x08,0x08,
|
|
0x08,0x08,0x08,0x08,0x08,0x08,0x08,0x08,
|
|
0x08,0x08,0x08,0x08,0x0f,0x08,0x08,0x08,
|
|
0x08,0x08,0x08,0x08,0x08,0x08,0x08,0x08,
|
|
0x00,0x00,0x00,0x00,0xf8,0x00,0x00,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x08,0x08,0x08,0x08,0xf8,0x00,0x00,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x00,0x00,0x00,0x00,0xff,0x00,0x00,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x08,0x08,0x08,0x08,0xff,0x00,0x00,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x00,0x00,0x00,0x00,0xf8,0x08,0x08,0x08,
|
|
0x08,0x08,0x08,0x08,0x08,0x08,0x08,0x08,
|
|
0x08,0x08,0x08,0x08,0xf8,0x08,0x08,0x08,
|
|
0x08,0x08,0x08,0x08,0x08,0x08,0x08,0x08,
|
|
0x00,0x00,0x00,0x00,0xff,0x08,0x08,0x08,
|
|
0x08,0x08,0x08,0x08,0x08,0x08,0x08,0x08,
|
|
0x08,0x08,0x08,0x08,0xff,0x08,0x08,0x08,
|
|
0x08,0x08,0x08,0x08,0x08,0x08,0x08,0x08,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x18,0x18,0x18,0x18,0x18,0x00,0x18,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x36,0x36,0x12,0x24,0x00,0x00,0x00,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x24,0x24,0x7e,0x24,0x7e,0x24,0x24,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x08,0x3e,0x48,0x3c,0x12,0x7c,0x10,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x62,0x94,0x68,0x10,0x2c,0x52,0x8c,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x20,0x50,0x50,0x62,0x94,0x88,0x76,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x18,0x18,0x08,0x10,0x00,0x00,0x00,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x0c,0x10,0x20,0x20,0x20,0x10,0x0c,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x30,0x08,0x04,0x04,0x04,0x08,0x30,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x10,0x92,0x54,0x38,0x54,0x92,0x10,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x00,0x10,0x10,0xfe,0x10,0x10,0x00,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x00,0x00,0x00,0x00,0x18,0x18,0x08,0x10,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x00,0x00,0x00,0x7e,0x00,0x00,0x00,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x18,0x18,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x02,0x04,0x08,0x10,0x20,0x40,0x80,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x38,0x44,0x8a,0x92,0xa2,0x44,0x38,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x08,0x38,0x08,0x08,0x08,0x08,0x3e,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x3c,0x42,0x02,0x1c,0x20,0x40,0x7e,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x7e,0x04,0x08,0x1c,0x02,0x42,0x3c,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x04,0x0c,0x14,0x24,0x7e,0x04,0x04,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x7e,0x40,0x7c,0x02,0x02,0x42,0x3c,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x1e,0x20,0x40,0x7c,0x42,0x42,0x3c,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x7e,0x02,0x04,0x08,0x10,0x20,0x20,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x3c,0x42,0x42,0x3c,0x42,0x42,0x3c,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x3c,0x42,0x42,0x3e,0x02,0x04,0x78,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x00,0x18,0x18,0x00,0x18,0x18,0x00,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x00,0x18,0x18,0x00,0x18,0x18,0x08,0x10,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x00,0x06,0x18,0x60,0x18,0x06,0x00,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x00,0x00,0x7e,0x00,0x7e,0x00,0x00,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x00,0x60,0x18,0x06,0x18,0x60,0x00,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x3c,0x42,0x02,0x0c,0x10,0x00,0x10,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x3c,0x42,0x9a,0xaa,0x94,0x40,0x3c,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x18,0x24,0x42,0x42,0x7e,0x42,0x42,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x7c,0x42,0x42,0x7c,0x42,0x42,0x7c,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x1c,0x22,0x40,0x40,0x40,0x22,0x1c,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x78,0x44,0x42,0x42,0x42,0x44,0x78,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x7e,0x40,0x40,0x78,0x40,0x40,0x7e,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x7e,0x40,0x40,0x78,0x40,0x40,0x40,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x1c,0x22,0x40,0x4e,0x42,0x22,0x1e,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x42,0x42,0x42,0x7e,0x42,0x42,0x42,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x1c,0x08,0x08,0x08,0x08,0x08,0x1c,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x0e,0x04,0x04,0x04,0x04,0x44,0x38,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x42,0x44,0x48,0x50,0x68,0x44,0x42,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x40,0x40,0x40,0x40,0x40,0x40,0x7e,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x82,0xc6,0xaa,0x92,0x82,0x82,0x82,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x42,0x62,0x52,0x4a,0x46,0x42,0x42,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x38,0x44,0x82,0x82,0x82,0x44,0x38,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x7c,0x42,0x42,0x7c,0x40,0x40,0x40,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x38,0x44,0x82,0x82,0x8a,0x44,0x3a,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x7c,0x42,0x42,0x7c,0x48,0x44,0x42,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x3c,0x42,0x40,0x3c,0x02,0x42,0x3c,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0xfe,0x10,0x10,0x10,0x10,0x10,0x10,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x42,0x42,0x42,0x42,0x42,0x42,0x3c,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x82,0x82,0x44,0x44,0x28,0x28,0x10,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x82,0x82,0x82,0x82,0x92,0xaa,0x44,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x82,0x44,0x28,0x10,0x28,0x44,0x82,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x82,0x44,0x28,0x10,0x10,0x10,0x10,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0xfe,0x04,0x08,0x10,0x20,0x40,0xfe,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x3e,0x30,0x30,0x30,0x30,0x30,0x3e,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x80,0x40,0x20,0x10,0x08,0x04,0x02,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x3e,0x06,0x06,0x06,0x06,0x06,0x3e,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x08,0x1c,0x2a,0x08,0x08,0x08,0x08,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0xfe,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x18,0x18,0x10,0x08,0x00,0x00,0x00,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x00,0x00,0xf8,0x04,0x7c,0x84,0x7a,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x40,0x40,0x7c,0x42,0x42,0x42,0x7c,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x00,0x00,0x3c,0x42,0x40,0x40,0x3e,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x02,0x02,0x3e,0x42,0x42,0x42,0x3e,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x00,0x00,0x3c,0x42,0x7e,0x40,0x3c,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x1c,0x22,0x20,0x78,0x20,0x20,0x20,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x00,0x02,0x3c,0x42,0x42,0x3e,0x02,0x42,
|
|
0x3c,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x40,0x40,0x5c,0x62,0x42,0x42,0x42,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x08,0x00,0x08,0x08,0x08,0x08,0x08,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x04,0x00,0x04,0x04,0x04,0x04,0x04,0x24,
|
|
0x18,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x40,0x40,0x46,0x58,0x60,0x58,0x46,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x18,0x08,0x08,0x08,0x08,0x08,0x1c,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x00,0x00,0xec,0x92,0x92,0x92,0x92,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x00,0x00,0x5c,0x22,0x22,0x22,0x22,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x00,0x00,0x3c,0x42,0x42,0x42,0x3c,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x00,0x00,0x7c,0x42,0x42,0x42,0x7c,0x40,
|
|
0x40,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x00,0x00,0x3e,0x42,0x42,0x42,0x3e,0x02,
|
|
0x02,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x00,0x00,0x5c,0x62,0x40,0x40,0x40,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x00,0x00,0x3e,0x40,0x3c,0x02,0x7c,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x00,0x10,0x3e,0x10,0x10,0x10,0x0e,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x00,0x00,0x44,0x44,0x44,0x44,0x3a,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x00,0x00,0x82,0x82,0x44,0x28,0x10,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x00,0x00,0x82,0x82,0x92,0xaa,0x44,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x00,0x00,0x42,0x24,0x18,0x24,0x42,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x00,0x00,0x82,0x82,0x44,0x28,0x10,0x20,
|
|
0xc0,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x00,0x00,0x7e,0x04,0x18,0x20,0x7e,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x0c,0x10,0x08,0x30,0x08,0x10,0x0c,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x08,0x08,0x08,0x00,0x08,0x08,0x08,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x30,0x08,0x10,0x0c,0x10,0x08,0x30,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x60,0x92,0x0c,0x00,0x00,0x00,0x00,0x00,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
0x24,0x48,0x92,0x24,0x48,0x92,0x24,0x48,
|
|
0x00,0x00,0x00,0x00,0x00,0x00,0x00,0x00,
|
|
];
|
|
|
|
var REGS = {
|
|
CURSOR_UPPER: 0x0A,
|
|
CURSOR_LOWER: 0x0B,
|
|
STARTPOS_HI: 0x0C,
|
|
STARTPOS_LO: 0x0D,
|
|
CURSOR_HI: 0x0E,
|
|
CURSOR_LO: 0x0F,
|
|
LIGHTPEN_HI: 0x10,
|
|
LIGHTPEN_LO: 0x11
|
|
};
|
|
|
|
var CURSOR_MODES = {
|
|
SOLID: 0x00,
|
|
HIDDEN: 0x01,
|
|
BLINK: 0x10,
|
|
FAST_BLINK: 0x11
|
|
};
|
|
|
|
var _regs = [
|
|
0x7b, // 00 - Horiz. total
|
|
0x50, // 01 - Horiz. displayed
|
|
0x62, // 02 - Horiz. sync pos
|
|
0x29, // 03 - Horiz. sync width
|
|
0x1b, // 04 - Vert. total
|
|
0x08, // 05 - Vert. adjust
|
|
0x18, // 06 - Vert. displayed
|
|
0x19, // 07 - Vert. sync pos
|
|
0x00, // 08 - Interlaced
|
|
0x08, // 09 - Max. scan line
|
|
0xc0, // 0A - Cursor upper
|
|
0x08, // 0B - Cursor lower
|
|
0x00, // 0C - Startpos Hi
|
|
0x00, // 0D - Startpos Lo
|
|
0x00, // 0E - Cursor Hi
|
|
0x00, // 0F - Cursor Lo
|
|
0x00, // 10 - Lightpen Hi
|
|
0x00 // 11 - Lightpen Lo
|
|
];
|
|
|
|
var _blink = false;
|
|
var _curReg = 0;
|
|
var _startPos;
|
|
var _cursorPos;
|
|
var _shouldRefresh;
|
|
|
|
// var _cursor = 0;
|
|
var _bank = 0;
|
|
var _buffer = allocMemPages(8);
|
|
var _imageData;
|
|
var _dirty = false;
|
|
|
|
var _black = [0x00, 0x00, 0x00];
|
|
var _white = [0xff, 0xff, 0xff];
|
|
|
|
function _init() {
|
|
var idx;
|
|
|
|
_imageData = context.createImageData(560, 384);
|
|
for (idx = 0; idx < 560 * 384 * 4; idx++) {
|
|
_imageData.data[idx] = 0xff;
|
|
}
|
|
|
|
for (idx = 0; idx < 0x800; idx++) {
|
|
_buffer[idx] = idx & 0xff;
|
|
}
|
|
|
|
_refresh();
|
|
|
|
setInterval(function() {
|
|
_blink = !_blink;
|
|
_refreshCursor();
|
|
}, 300);
|
|
}
|
|
|
|
function _updateBuffer(addr, val) {
|
|
_buffer[addr] = val;
|
|
val &= 0x7f; // XXX temp
|
|
var saddr = (0x800 + addr - _startPos) & 0x7ff;
|
|
var data = _imageData.data;
|
|
var row = (saddr / 80) & 0xff;
|
|
var col = saddr % 80;
|
|
var x = col * 7;
|
|
var y = row * 16;
|
|
var c = val * 16;
|
|
var color;
|
|
|
|
if (row < 25) {
|
|
_dirty = true;
|
|
for (var idx = 0; idx < 8; idx++) {
|
|
var cdata = VIDEO_ROM[c + idx];
|
|
for (var jdx = 0; jdx < 7; jdx++) {
|
|
if (cdata & 0x80) {
|
|
color = _white;
|
|
} else {
|
|
color = _black;
|
|
}
|
|
data[(y + idx * 2) * 560 * 4 + (x + jdx) * 4] = color[0];
|
|
data[(y + idx * 2) * 560 * 4 + (x + jdx) * 4 + 1] = color[1];
|
|
data[(y + idx * 2) * 560 * 4 + (x + jdx) * 4 + 2] = color[2];
|
|
data[(y + idx * 2 + 1) * 560 * 4 + (x + jdx) * 4] = color[0];
|
|
data[(y + idx * 2 + 1) * 560 * 4 + (x + jdx) * 4 + 1] = color[1];
|
|
data[(y + idx * 2 + 1) * 560 * 4 + (x + jdx) * 4 + 2] = color[2];
|
|
cdata <<= 1;
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
function _refreshCursor(fromRegs) {
|
|
var addr = _regs[REGS.CURSOR_HI] << 8 | _regs[REGS.CURSOR_LO];
|
|
var saddr = (0x800 + addr - _startPos) & 0x7ff;
|
|
var data = _imageData.data;
|
|
var row = (saddr / 80) & 0xff;
|
|
var col = saddr % 80;
|
|
var x = col * 7;
|
|
var y = row * 16;
|
|
var blinkmode = (_regs[REGS.CURSOR_UPPER] & 0x60) >> 5;
|
|
|
|
if (fromRegs) {
|
|
if (addr !== _cursorPos) {
|
|
var caddr = (0x800 + _cursorPos - _startPos) & 0x7ff;
|
|
_updateBuffer(caddr, _buffer[caddr]);
|
|
_cursorPos = addr;
|
|
}
|
|
}
|
|
|
|
_updateBuffer(addr, _buffer[addr]);
|
|
if (blinkmode === CURSOR_MODES.HIDDEN) {
|
|
return;
|
|
}
|
|
if (_blink || (blinkmode === CURSOR_MODES.SOLID)) {
|
|
_dirty = true;
|
|
for (var idx = 0; idx < 8; idx++) {
|
|
var color = _white;
|
|
if (idx >= (_regs[REGS.CURSOR_UPPER] & 0x1f) &&
|
|
idx <= (_regs[REGS.CURSOR_LOWER] & 0x1f)) {
|
|
for (var jdx = 0; jdx < 7; jdx++) {
|
|
data[(y + idx * 2) * 560 * 4 + (x + jdx) * 4] = color[0];
|
|
data[(y + idx * 2) * 560 * 4 + (x + jdx) * 4 + 1] = color[1];
|
|
data[(y + idx * 2) * 560 * 4 + (x + jdx) * 4 + 2] = color[2];
|
|
data[(y + idx * 2 + 1) * 560 * 4 + (x + jdx) * 4] = color[0];
|
|
data[(y + idx * 2 + 1) * 560 * 4 + (x + jdx) * 4 + 1] = color[1];
|
|
data[(y + idx * 2 + 1) * 560 * 4 + (x + jdx) * 4 + 2] = color[2];
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
function _updateStartPos() {
|
|
var startPos =
|
|
_regs[REGS.STARTPOS_HI] << 8 |
|
|
_regs[REGS.STARTPOS_LO];
|
|
if (_startPos != startPos) {
|
|
_startPos = startPos;
|
|
_shouldRefresh = true;
|
|
}
|
|
}
|
|
|
|
function _refresh() {
|
|
for (var idx = 0; idx < 0x800; idx++) {
|
|
_updateBuffer(idx, _buffer[idx]);
|
|
}
|
|
}
|
|
|
|
function _access(off, val) {
|
|
var writeMode = val !== undefined;
|
|
var result = undefined;
|
|
switch (off & 0x81) {
|
|
case LOC.IOREG:
|
|
if (writeMode) {
|
|
_curReg = val;
|
|
} else {
|
|
result = _curReg;
|
|
}
|
|
break;
|
|
case LOC.IOVAL:
|
|
if (writeMode) {
|
|
_regs[_curReg] = val;
|
|
switch (_curReg) {
|
|
case REGS.CURSOR_UPPER:
|
|
case REGS.CURSOR_LOWER:
|
|
_refreshCursor(true);
|
|
break;
|
|
case REGS.CURSOR_HI:
|
|
case REGS.CURSOR_LO:
|
|
_refreshCursor(true);
|
|
break;
|
|
case REGS.STARTPOS_HI:
|
|
case REGS.STARTPOS_LO:
|
|
_updateStartPos();
|
|
break;
|
|
}
|
|
} else {
|
|
result = _regs[_curReg];
|
|
}
|
|
break;
|
|
}
|
|
_bank = (off & 0x0C) >> 2;
|
|
return result;
|
|
}
|
|
|
|
_init();
|
|
|
|
return {
|
|
ioSwitch: function (off, val) {
|
|
return _access(off, val);
|
|
},
|
|
|
|
read: function(page, off) {
|
|
if (page < 0xcc) {
|
|
return ROM[(page & 0x03) << 8 | off];
|
|
} else if (page < 0xce){
|
|
var addr = ((page & 0x01) + (_bank << 1)) << 8 | off;
|
|
return _buffer[addr];
|
|
}
|
|
},
|
|
|
|
write: function(page, off, val) {
|
|
if (page > 0xcb && page < 0xce) {
|
|
var addr = ((page & 0x01) + (_bank << 1)) << 8 | off;
|
|
_updateBuffer(addr, val);
|
|
}
|
|
},
|
|
|
|
blit: function() {
|
|
if (_shouldRefresh) {
|
|
_refresh();
|
|
_shouldRefresh = false;
|
|
}
|
|
if (_dirty) {
|
|
context.putImageData(_imageData, 0, 0);
|
|
_dirty = false;
|
|
return true;
|
|
}
|
|
return false;
|
|
}
|
|
};
|
|
}
|