mirror of
https://github.com/sehugg/8bitworkshop.git
synced 2024-06-08 08:33:32 +00:00
8 lines
46 KiB
Plaintext
8 lines
46 KiB
Plaintext
|
{
|
||
|
|
"version": 3,
|
||
|
|
"sources": ["../src/machine/astrocade.ts", "../src/platform/astrocade.ts"],
|
||
|
|
"sourcesContent": ["\nimport { Z80, Z80State } from \"../common/cpu/ZilogZ80\";\nimport { BasicScanlineMachine, AcceptsPaddleInput, Bus } from \"../common/devices\";\nimport { KeyFlags, newAddressDecoder, padBytes, Keys, makeKeycodeMap, newKeyboardHandler } from \"../common/emu\";\nimport { TssChannelAdapter, MasterAudio, AY38910_Audio } from \"../common/audio\";\nimport { hex, rgb2bgr, lzgmini, stringToByteArray } from \"../common/util\";\n\n// http://metopal.com/projects/ballybook/doku.php\n\n// TODO: fix keys, more controllers, vibrato/noise, border color\n// http://atariage.com/forums/topic/251416-programming-the-bally-arcadeastrocade/\n// https://ballyalley.com/faqs/BPA%20Video%20Hardware%20FAQ/Bally_Professional_Arcade_Video_Hardware%20(2001)(Tony%20Miller).pdf\n// https://atariage.com/forums/topic/290858-notes-from-a-2019-interview-with-jamie-fenton/ (http://www.fentonia.com/bio/)\n// https://thehistoryofhowweplay.wordpress.com/2018/04/03/interview-tom-mchugh/\n// https://ballyalley.com/faqs/Programmers%20of%20the%20Astrocade%20Built-In%20Programs.txt\n\nconst ASTROCADE_KEYCODE_MAP = makeKeycodeMap([\n // player 1\n [Keys.UP, 0x10, 0x1],\n [Keys.DOWN, 0x10, 0x2],\n [Keys.LEFT, 0x10, 0x4],\n [Keys.RIGHT, 0x10, 0x8],\n [Keys.A, 0x10, 0x10],\n // player 2\n [Keys.P2_UP, 0x11, 0x1],\n [Keys.P2_DOWN, 0x11, 0x2],\n [Keys.P2_LEFT, 0x11, 0x4],\n [Keys.P2_RIGHT, 0x11, 0x8],\n [Keys.P2_A, 0x11, 0x10],\n // keypad $14\n [Keys.VK_P, 0x14, 0x1],\n [Keys.VK_SLASH, 0x14, 0x2],\n [Keys.VK_X, 0x14, 0x4],\n [Keys.VK_MINUS, 0x14, 0x8],\n [Keys.VK_COMMA, 0x14, 0x10],\n [Keys.VK_EQUALS, 0x14, 0x20],\n // keypad $15\n [Keys.VK_O, 0x15, 0x1],\n [Keys.VK_L, 0x15, 0x2],\n [Keys.VK_9, 0x15, 0x4],\n [Keys.VK_6, 0x15, 0x8],\n [Keys.VK_3, 0x15, 0x10],\n [Keys.VK_PERIOD, 0x15, 0x20],\n // keypad $16\n [Keys.VK_I, 0x16, 0x1],\n [Keys.VK_K, 0x16, 0x2],\n [Keys.VK_8, 0x16, 0x4],\n [Keys.VK_5, 0x16, 0x8],\n [Keys.VK_2, 0x16, 0x10],\n [Keys.VK_0, 0x16, 0x20],\n // keypad $17\n [Keys.VK_U, 0x17, 0x1],\n [Keys.VK_J, 0x17, 0x2],\n [Keys.VK_7, 0x17, 0x4],\n [Keys.VK_4, 0x17, 0x8],\n [Keys.VK_1, 0x17, 0x10],\n [Keys.VK_BACK_SLASH, 0x17, 0x20],\n]);\n\nconst audioOversample = 2;\n\nconst _BallyAstrocade = function(arcade:boolean) {\n\n var cpu : Z80;\n var ram : Uint8Array;\n var membus, iobus : Bus;\n var rom, bios;\n var pixels;\n var psg;\n //var watchdog_counter;\n const swidth = arcade ? 320 : 160;\n const sheight = arcade ? 204 : 102;\n const swbytes = swidth >> 2;\n const samask = arcade ? 0x3fff : 0xfff;\n const INITIAL_WATCHDOG = 256;\n const PIXEL_ON = 0xffeeeeee;\n const PIXEL_OFF = 0xff000000;\n\n // state variables\n var inputs = new Uint8Array(0x20);\n var magicop = 0;\n var xpand = 0;\n var xplower = false;\n var shift2 = 0;\n var horcb = 0;\n var inmod = 0;\n var inlin = 0;\n var infbk = 0;\n var verbl = sheight;\n var palette = new Uint32Array(8);\n var palinds = new Uint8Array(8);\n var refreshlines = 0;\n var dirtylines = new Uint8Array(arcade ? 262 : 131);\n var rotdata = new Uint8Array(4);\n var rotcount = 0;\n var intst = 0;\n var waitstates = 0;\n var patboard = new Uint8Array(0x08);\n var patdest = 0;\n\n function ramwrite(a: number, v: number) {\n // set RAM\n ram[a] = v;\n waitstates++;\n // mark scanline as dirty\n dirtylines[((a & samask) / swbytes) | 0] = 1;\n // this was old behavior where we updated instantly\n // but it had problems if we had mid-screen palette changes\n //ramupdate(a, v);\n }\n\n function ramupdate(a: number, v: number) {\n var ofs = a * 4 + 3; // 4 pixels per byte\n for (var i = 0; i < 4; i++) {\n var lr = ((a % swbytes) >= (horcb & 0x3f)) ? 0 : 4;\n pixels[ofs--] = palette[lr + (v & 3)];\n v >>= 2;\n }\n }\n\n function refreshline(y: number) {\n var ofs = y * swidth / 4;\n for (var i = 0; i < swidth / 4; i++)\n ramupdate(ofs + i, ram[ofs + i]);\n }\n\n function magicwrite(a: number, v: number) {\n // expand\n if (magicop & 0x8) {\n var v2 = 0;\n
|
||
|
|
"mappings": "0NAgBA,GAAM,IAAwB,GAAe,CAE3C,CAAC,EAAK,GAAI,GAAM,GAChB,CAAC,EAAK,KAAM,GAAM,GAClB,CAAC,EAAK,KAAM,GAAM,GAClB,CAAC,EAAK,MAAO,GAAM,GACnB,CAAC,EAAK,EAAG,GAAM,IAEf,CAAC,EAAK,MAAO,GAAM,GACnB,CAAC,EAAK,QAAS,GAAM,GACrB,CAAC,EAAK,QAAS,GAAM,GACrB,CAAC,EAAK,SAAU,GAAM,GACtB,CAAC,EAAK,KAAM,GAAM,IAElB,CAAC,EAAK,KAAM,GAAM,GAClB,CAAC,EAAK,SAAU,GAAM,GACtB,CAAC,EAAK,KAAM,GAAM,GAClB,CAAC,EAAK,SAAU,GAAM,GACtB,CAAC,EAAK,SAAU,GAAM,IACtB,CAAC,EAAK,UAAW,GAAM,IAEvB,CAAC,EAAK,KAAM,GAAM,GAClB,CAAC,EAAK,KAAM,GAAM,GAClB,CAAC,EAAK,KAAM,GAAM,GAClB,CAAC,EAAK,KAAM,GAAM,GAClB,CAAC,EAAK,KAAM,GAAM,IAClB,CAAC,EAAK,UAAW,GAAM,IAEvB,CAAC,EAAK,KAAM,GAAM,GAClB,CAAC,EAAK,KAAM,GAAM,GAClB,CAAC,EAAK,KAAM,GAAM,GAClB,CAAC,EAAK,KAAM,GAAM,GAClB,CAAC,EAAK,KAAM,GAAM,IAClB,CAAC,EAAK,KAAM,GAAM,IAElB,CAAC,EAAK,KAAM,GAAM,GAClB,CAAC,EAAK,KAAM,GAAM,GAClB,CAAC,EAAK,KAAM,GAAM,GAClB,CAAC,EAAK,KAAM,GAAM,GAClB,CAAC,EAAK,KAAM,GAAM,IAClB,CAAC,EAAK,cAAe,GAAM,MAGvB,GAAkB,EAElB,GAAkB,SAAS,EAAgB,CAE/C,GAAI,GACA,EACA,EAAQ,EACR,EAAK,EACL,GACA,EAEJ,GAAM,GAAS,EAAS,IAAM,IACxB,EAAU,EAAS,IAAM,IACzB,GAAU,GAAU,EACpB,GAAS,EAAS,MAAS,KAC3B,GAAmB,IACnB,GAAW,WACX,GAAY,WAGlB,GAAI,GAAS,GAAI,YAAW,IACxB,EAAU,EACV,EAAQ,EACR,EAAU,GACV,EAAS,EACT,EAAQ,EACR,EAAQ,EACR,EAAQ,EACR,EAAQ,EACR,EAAQ,EACR,EAAU,GAAI,aAAY,GAC1B,EAAU,GAAI,YAAW,GACzB,EAAe,EACf,EAAa,GAAI,YAAW,EAAS,IAAM,KAC3C,EAAU,GAAI,YAAW,GACzB,EAAW,EACX,EAAQ,EACR,EAAa,EACb,EAAW,GAAI,YAAW,GAC1B,EAAU,EAEd,WAAkB,EAAW,EAAW,CAEtC,EAAI,GAAK,EACT,IAEA,EAAa,GAAI,IAAU,GAAW,GAAK,EAM7C,YAAmB,EAAW,EAAW,CAEvC,OADI,GAAM,EAAI,EAAI,EACT,EAAI,EAAG,EAAI,EAAG,IAAK,CAC1B,GAAI,GAAO,EAAI,IAAa,GAAQ,IAAS,EAAI,EACjD,GAAO,KAAS,EAAQ,EAAM,GAAI,IAClC,IAAM,GAIV,YAAqB,EAAW,CAE9B,OADI,GAAM,EAAI,EAAS,EACd,EAAI,EAAG,EAAI,EAAS,EAAG,IAC9B,GAAU,EAAM,EAAG,EAAI,EAAM,IAGjC,YAAoB,EAAW,EAAW,CAExC,GAAI,EAAU,EAAK,CACjB,GAAI,GAAK,EACT,AAAK,GACH,KAAM,GACR,OAAS,GAAI,EAAG,EAAI,EAAG,IAAK,CAC1B,GAAI,GAAO,EAAI,EAAO,GAAS,EAAK,EAAM,EAAQ,EAClD,GAAM,GAAQ,EAAI,EAClB,IAAM,EAER,EAAI,EACJ,EAAU,CAAC,EAGb,GAAI,EAAU,EAAK,CACjB,GAAI,EAAW,EAAG,CAEhB,GAAI,GAAK,EAAK,EAAC,EAAW,GAC1B,EAAO,GAAQ,IAAM,EAAM,IAAM,EAC5B,GAAQ,IAAM,EAAM,IAAM,EAC1B,GAAQ,IAAM,EAAM,IAAM,EAC1B,GAAQ,IAAM,EAAM,IAAM,MAG/B,GAAQ,EAAW,GAAK,EAE1B,QACK,CAEL,GAAI,GAAM,GAAU,IAAM,EACtB,EAAM,GAAK,EAAM,EACrB,EAAU,GAAM,EAAI,EAAO,IAC3B,EAAI,EAWN,GARI,EAAU,IACZ,GACI,GAAI,IAAS,EACb,GAAI,KAAS,EACb,GAAI,KAAS,EACb,GAAI,MAAS,GAGf,EAAU,GAAM,CAClB,GAAI,GAAO,EAAI,GAEX,EAAO,EACX,AAAK,EAAO,KAAU,EAAI,KAAO,IAAQ,GACpC,EAAO,IAAU,EAAI,IAAO,IAAQ,GACpC,EAAO,IAAU,EAAI,IAAO,IAAQ,GACpC,EAAO,GAAU,EAAI,GAAO,IAAQ,GAErC,EAAU,IACZ,IAAK,GACH,EAAU,IACZ,IAAK,GAEP,EAAS,EAAQ,IAAQ,EAAQ,GAAQ,EAG3C,EAAS,EAAG,GAGd,WAAoB,EAAW,EAAW,CACxC,EAAQ,EAAI,GAAK,EAAI,IACrB,EAAQ,EAAI,GAAK,EAAkB,EAAI,KACvC,IAGF,aAA0B,CACxB,GAAI,GAAM,GAAS,EAIrB,YAAsB,CACpB,EAAe,EAKjB,aAAyB,CACvB,GAAI,GAAmB,EAAS,GAAM,EAAS,IAAM,EACjD,EAAiB,EAAS,GAAK,GAC/B,EAAiB,EAAS,GAC1B,EAAkB,EAAU,IAAS,EAAS,IAAM,EACpD,EAAkB,EAAS,GAC3B,EAAmB,EAAS,GAAK,EAEjC,EACA,EAAgB,EAChB,EAAiB,EAErB,EAAQ,EAEH,GAAiB,IAAU,GAC9B,GAAQ,GAGV,aAAiC,CAC/B,AAAI,GAAU,GAAiB,IAAU,GAAM,KAAa,GAAM,GAAiB,IAAU,IAC3F,IAGG,GAAiB,IAAU,GAC9B,IAAS,GAIb,aAA+B,CAC7B,AAAI,IAAa,GACf,CAAK,GAAiB,KAAU,EAC9B,IAEA,KAMN,KAAO,GAAoB,GAAG,CAC5B,GAAI,GAKJ,IAHA,EAAW,EAGJ,GAAY,GAAG,CACpB,GAAI,GACA,EAGJ,EAAW,GAAiB,IAAU,EAAI,EAAmB,EAE7D,AAAI,IAAa,GAAM,GAAiB,IAAU,EAChD,EAAU,EAEV,EAAU,EAAO,KAAK,GAGxB,AAAK,GAAiB,IAAU,EAC9B,KAEA,KAIF,EAAW,GAAiB,IAAU,EAAI,EAAmB,EAC7D,EAAS,EAAS,GAElB,AAAK,GAAiB,IAAU,EAC9B,KAEA,KAGF,GAAU,EACV,IAIF,EAAU,GAAiB,KAAQ,EAAkB,IACrD,EAAkB,EAAiB,MAAY,EAAiB,EAAkB,IAElF,AAAK,GAAiB,KAAU,EAC9B,GAAkB,EAElB,GAAkB,EAAQ,IAG5B,KAQJ,KAAK,aAAe,AAAC,GAAc,CAEjC,AAAI,GAAM,GAAU,EAAQ,GAC1B,GAAI,gBAAkB,CAAE,GAAQ,GAChC,KAAK,OAAS,KAAK,MAAM,aAAa,GACtC,EAAI,UAAU,IAGhB,AAAI,EAAK,GAAW,EAAe,EACjC,GAAW,GAAM,EACjB,GAAY,GACZ,KAEO,EAAW,IAClB,GAAW,GAAM,EACjB,GAAY,KAIhB,KAAK,KAAO,CAAC,EAAwB,EAAO,EAAc,EAAgB,IAAS,CACjF,EAAM,EACN,EAAM,EACN,EAAS,EACT,EAAM,EACN,AAAK,EAiBH,EAAS,CACP,KAAM,EAAkB,CACtB,CAAC,MAAQ,MAAQ,MAAQ,SAAS,EAAG,CAAE,MAAO,GAAI,KAClD,CAAC,MAAQ,MAAQ,KAAQ,SAAS,EAAG,CAAE,MAAO,GAAI,EAAI,SACtD,CAAC,EAAQ,MAAQ,MAAQ,SAAS,EAAG,CAAE,MAAO,GAAM,EAAI,GAAK,IAC7D,CAAC,MAAQ,MAAQ,MAAQ,SAAS,EAAG,CAAE,MAAO,G
|
||
|
|
"names": []
|
||
|
|
}
|