apple2js/js/cards/videoterm.js
2019-02-28 21:21:18 -08:00

653 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.
*/
import { allocMemPages, debug } from '../util';
export default function Videoterm(io, slot, context) {
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;
}
};
}