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

372 lines
15 KiB
JavaScript

/* Copyright 2010-2019 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 { debug } from '../util';
export default function Thunderclock(io, slot)
{
var rom = [
0x08,0x78,0x28,0x2c,0x58,0xff,0x70,0x05, // 00
0x38,0xb0,0x01,0x18,0xb8,0x08,0x78,0x48,
0x8a,0x48,0x98,0x48,0xad,0xff,0xcf,0x20, // 10
0x1a,0xc8,0x68,0x68,0xba,0x8d,0xf8,0x07,
0x0a,0x0a,0x0a,0x0a,0x8d,0x78,0x07,0x68, // 20
0x68,0x68,0xa8,0x68,0x9a,0x09,0x04,0x48,
0x28,0x98,0xac,0x78,0x07,0xae,0xf8,0x07, // 30
0x29,0x7f,0x48,0x50,0x0e,0xb8,0xa5,0x36,
0xd0,0x04,0xe4,0x37,0xf0,0x0a,0xa9,0x08, // 40
0x85,0x38,0x38,0x90,0x16,0x4c,0x50,0xc9,
0xa9,0x0b,0x85,0x36,0xa9,0x5e,0x9d,0xb8, // 50
0x04,0xa9,0x0a,0x9d,0x38,0x04,0xa9,0x00,
0x9d,0x38,0x05,0x68,0xc9,0x25,0xf0,0x5c, // 60
0xc9,0x26,0xf0,0x58,0xc9,0x3c,0xf0,0x54,
0xc9,0x3e,0xf0,0x50,0xc9,0x23,0xf0,0x4c, // 70
0xc9,0x5e,0xf0,0x5a,0xc9,0x21,0xf0,0x4a,
0xc9,0x2a,0xf0,0x52,0xa2,0x20,0xc9,0x2c, // 80
0xf0,0x52,0xa2,0x28,0xc9,0x2e,0xf0,0x4c,
0xa2,0x30,0xc9,0x2f,0xf0,0x46,0xae,0xf8, // 90
0x07,0x48,0xbd,0xb8,0x04,0xc9,0x21,0xf0,
0x41,0xc9,0x5e,0xf0,0x0e,0x68,0x29,0x1f, // A0
0x0a,0x38,0xe9,0x01,0x9d,0x38,0x04,0xa9,
0x5e,0xd0,0x23,0x68,0x38,0xe9,0x41,0x30, // B0
0x20,0xc9,0x16,0x10,0x1c,0xaa,0xbd,0x8d,
0xcb,0x4c,0x04,0xcb,0x9d,0x38,0x05,0x4c, // C0
0x2f,0xc9,0xa9,0x20,0x20,0xb7,0xca,0xa9,
0x08,0x20,0xb7,0xca,0xa9,0x21,0x9d,0xb8, // D0
0x04,0x4c,0x2f,0xc9,0x8a,0x20,0xb7,0xca,
0xd0,0xf7,0x68,0xc9,0x0d,0xf0,0x13,0xc9, // E0
0x20,0xf0,0x44,0x29,0x0f,0x20,0xcf,0xca,
0xf0,0x02,0xa9,0x0a,0x9d,0x38,0x07,0x18, // F0
0x90,0x35,0x20,0xcf,0xca,0x7d,0x38,0x07,
0x48,0xa9,0x09,0x9d,0x38,0x06,0x20,0xcf, // 00
0xca,0x48,0xde,0x38,0x06,0xd0,0xf7,0xa9,
0x0a,0x9d,0x38,0x06,0x68,0x20,0xcf,0xca,
0xde,0x38,0x06,0xd0,0xf7,0xa9,0x10,0x20,
0xb7,0xca,0xd0,0xb2,0xba,0x68,0x68,0x98,
0x48,0x68,0x68,0xa9,0x8d,0x48,0x9a,0xae,
0xf8,0x07,0xac,0x78,0x07,0xbd,0xb8,0x03,
0xdd,0x38,0x07,0xd0,0x0c,0x1d,0x38,0x07,
0xf0,0x07,0xc9,0x40,0xd0,0x03,0x99,0x80,
0xc0,0x68,0xa8,0x68,0xaa,0x68,0x28,0x60,
0x68,0xa9,0x18,0x20,0xb7,0xca,0xa9,0x08,
0x20,0xb7,0xca,0xa9,0x09,0x9d,0x38,0x06,
0x20,0xcf,0xca,0xc9,0x0a,0x30,0x02,0xa9,
0x00,0x48,0xde,0x38,0x06,0xd0,0xf1,0x20,
0xcf,0xca,0xc9,0x0d,0x30,0x02,0xa9,0x00,
0x48,0xbd,0x38,0x05,0xf0,0x04,0xc9,0x23,
0xd0,0x5e,0xa0,0x00,0x68,0xc9,0x0a,0x30,
0x04,0xc8,0x38,0xe9,0x0a,0x48,0x98,0xa2,
0x00,0x20,0xa6,0xca,0x68,0x20,0xa6,0xca,
0xac,0xf8,0x07,0xb9,0x38,0x05,0xd0,0x2a,
0xa9,0xaf,0x20,0xa8,0xca,0x68,0xa0,0x04,
0x68,0x20,0xa6,0xca,0x68,0x20,0xa6,0xca,
0x88,0xf0,0x07,0xa9,0x3b,0x20,0xa8,0xca,
0xd0,0xee,0xa9,0xa0,0x8d,0x05,0x02,0xb9,
0xf3,0xcb,0xf0,0x19,0x20,0xa8,0xca,0xc8,
0xd0,0xf5,0xa9,0x00,0x48,0xa0,0x05,0x20,
0xaf,0xca,0x68,0x20,0xa6,0xca,0x68,0x20,
0xa6,0xca,0x88,0xd0,0xf2,0x4c,0x9a,0xca,
0x68,0xaa,0x68,0x0a,0x0a,0xa8,0x8a,0x0a,
0x0a,0x48,0xae,0xf8,0x07,0xbd,0x38,0x05,
0xa2,0xa0,0xc9,0x3c,0xb0,0x02,0xa2,0xa2,
0x8a,0xa2,0x00,0x20,0xa8,0xca,0xb9,0xa3,
0xcb,0xc8,0x20,0xa8,0xca,0xc9,0xa0,0xd0,
0xf5,0x68,0xa8,0xb9,0xbf,0xcb,0xc8,0x20,
0xa8,0xca,0xc9,0xa0,0xd0,0xf5,0x68,0x20,
0xa4,0xca,0x68,0x20,0xa6,0xca,0x20,0xb3,
0xca,0xa0,0x03,0x68,0x20,0xa4,0xca,0xd0,
0x03,0x20,0xa6,0xca,0x68,0x20,0xa6,0xca,
0x88,0xf0,0x09,0xa9,0xba,0x20,0xa8,0xca,
0x68,0x4c,0x29,0xca,0xac,0xf8,0x07,0xb9,
0x38,0x05,0xc9,0x25,0xf0,0x04,0xc9,0x3e,
0xd0,0x50,0xa0,0x41,0xad,0x0c,0x02,0xc9,
0xa0,0xd0,0x02,0xa9,0x30,0x0a,0x0a,0x0a,
0x0a,0x8d,0x20,0x02,0xad,0x0d,0x02,0x29,
0x0f,0x0d,0x20,0x02,0xc9,0x12,0x30,0x02,
0xa0,0x50,0xc9,0x00,0xd0,0x04,0xa9,0x12,
0xd0,0x09,0xc9,0x13,0x30,0x16,0xf8,0x38,
0xe9,0x12,0xd8,0xa2,0x0c,0x48,0x20,0xff,
0xca,0x29,0x0f,0x20,0xa4,0xca,0x68,0x29,
0x0f,0x20,0xa6,0xca,0xa2,0x14,0x20,0xb3,
0xca,0x98,0x20,0xa8,0xca,0xa9,0x4d,0x20,
0xa8,0xca,0x8a,0xa8,0xa9,0x8d,0x20,0xa8,
0xca,0x4c,0x24,0xc9,0xf0,0x0d,0x09,0x30,
0x09,0x80,0x9d,0x00,0x02,0xe8,0x60,0xa9,
0xac,0xd0,0xf5,0xa9,0xa0,0xd0,0xf1,0x99,
0x80,0xc0,0x09,0x04,0x99,0x80,0xc0,0x20,
0xc7,0xca,0x49,0x04,0x99,0x80,0xc0,0x20,
0xca,0xca,0x48,0x48,0x68,0x68,0x60,0x48,
0xa9,0x04,0x9d,0xb8,0x06,0xa9,0x00,0x9d,
0xb8,0x05,0xb9,0x80,0xc0,0x0a,0x7e,0xb8,
0x05,0x68,0x48,0x29,0x01,0x99,0x80,0xc0,
0x09,0x02,0x99,0x80,0xc0,0x49,0x02,0x99,
0x80,0xc0,0x68,0x6a,0x48,0xde,0xb8,0x06,
0xd0,0xe0,0x68,0xbd,0xb8,0x05,0x18,0x6a,
0x6a,0x6a,0x6a,0x60,0x48,0xae,0xf8,0x07,
0xbd,0x38,0x04,0x9d,0xb8,0x06,0x20,0x50,
0xcb,0x68,0x48,0x20,0x4c,0xcb,0x68,0x48,
0x49,0xf8,0x20,0x4c,0xcb,0xa2,0xa0,0x20,
0x69,0xcb,0xa2,0xa0,0x20,0x69,0xcb,0xa0,
0x18,0x20,0x60,0xcb,0xae,0xf8,0x07,0xde,
0xb8,0x06,0xd0,0xda,0x68,0xa0,0xbc,0xca,
0xd0,0xfd,0x88,0xd0,0xfa,0x4c,0x2f,0xc9,
0x48,0x90,0x05,0x20,0x50,0xcb,0xf0,0x03,
0x20,0x59,0xcb,0x68,0x0a,0xd0,0xf1,0x60,
0xa2,0x50,0x20,0x69,0xcb,0xa0,0x28,0xd0,
0x07,0xa2,0x18,0x20,0x69,0xcb,0xa0,0x44,
0xa2,0x13,0xca,0xd0,0xfd,0x88,0xd0,0xf8,
0x60,0xac,0x78,0x07,0xa9,0x20,0x99,0x80,
0xc0,0xea,0xea,0xea,0x49,0x20,0x99,0x80,
0xc0,0xea,0xea,0xea,0x49,0x20,0x99,0x80,
0xc0,0xea,0xea,0xea,0x49,0x20,0x99,0x80,
0xc0,0xca,0xd0,0xe0,0x60,0x64,0xe4,0x24,
0xa4,0x14,0x94,0x54,0xd4,0x74,0xf4,0x34,
0xb4,0x04,0x84,0x44,0xc4,0x2c,0x3c,0x5c,
0x4c,0x1c,0x0c,0x53,0x55,0x4e,0x20,0x4d,
0x4f,0x4e,0x20,0x54,0x55,0x45,0x20,0x57,
0x45,0x44,0x20,0x54,0x48,0x55,0x20,0x46,
0x52,0x49,0x20,0x53,0x41,0x54,0x20,0x45,
0x52,0x52,0x20,0x4a,0x41,0x4e,0x20,0x46,
0x45,0x42,0x20,0x4d,0x41,0x52,0x20,0x41,
0x50,0x52,0x20,0x4d,0x41,0x59,0x20,0x4a,
0x55,0x4e,0x20,0x4a,0x55,0x4c,0x20,0x41,
0x55,0x47,0x20,0x53,0x45,0x50,0x20,0x4f,
0x43,0x54,0x20,0x4e,0x4f,0x56,0x20,0x44,
0x45,0x43,0x20,0xae,0xb0,0xb0,0xb0,0x00,
0xae,0xb0,0xb0,0xb0,0x00,0xa0,0xa0,0xc1,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff,
0xff,0xff,0xff,0xff,0xff,0xff,0xff,0xff
];
var LOC = {
CONTROL: 0x80,
AUX: 0x88
};
var FLAGS = {
DATA: 0x01,
CLOCK: 0x02,
STROBE: 0x04
};
function _init() {
debug('Thunderclock card in slot', slot);
}
var _command = 0;
var _bits = [];
function _calcbits() {
function shift(val) {
for (var idx = 0; idx < 4; idx++) {
_bits.push((val & 0x08) !== 0);
val <<= 1;
}
}
function shiftBCD(val) {
shift(parseInt(val / 10, 10));
shift(parseInt(val % 10, 10));
}
var now = new Date();
var day = now.getDate();
var weekday = now.getDay();
var month = now.getMonth() + 1;
var hour = now.getHours();
var minutes = now.getMinutes();
var seconds = now.getSeconds();
_bits = [];
shift(month);
shift(weekday);
shiftBCD(day);
shiftBCD(hour);
shiftBCD(minutes);
shiftBCD(seconds);
}
function _access(off, val) {
switch (off & 0x8F) {
case LOC.CONTROL:
if (val !== undefined) {
if ((val & FLAGS.STROBE) !== 0) {
if ((_command & 0x78) == 0x18) {
_calcbits();
}
}
_command = val;
} else {
if (_bits.pop()) {
_command |= 0x80;
} else {
_command &= 0x7f;
}
}
break;
case LOC.AUX:
break;
}
/*
if (val === undefined) {
debug("Read " + toHex(_command) + " from " + toHex(off))
} else {
debug("Wrote " + toHex(val) + " to " + toHex(off))
}
*/
return _command;
}
_init();
return {
read: function thunderclock_read(page, off) {
var result;
if (page < 0xc8) {
result = rom[off];
} else {
result = rom[(page - 0xc8) << 8 | off];
}
return result;
},
write: function thunderclock_write() {
},
ioSwitch: function thunderclock_ioSwitch(off, val) {
return _access(off, val);
}
};
}