From 428f1a92606e2e48c09498dc439188ca634f345b Mon Sep 17 00:00:00 2001
From: Steven Hugg <hugg@fasterlight.com>
Date: Tue, 30 Jun 2020 22:22:28 -0500
Subject: [PATCH] atari8: use Altirra 5200 superkernel (MAME for now)

---
 index.html                 |   1 +
 mame/roms/a5200/5200.rom   | Bin 0 -> 2048 bytes
 src/common/baseplatform.ts |   2 +-
 src/platform/atari8.ts     | 143 ++++++++++++++++++++++++-------------
 4 files changed, 95 insertions(+), 51 deletions(-)
 create mode 100644 mame/roms/a5200/5200.rom

diff --git a/index.html b/index.html
index 3ae1544d..4f909519 100644
--- a/index.html
+++ b/index.html
@@ -214,6 +214,7 @@ if (window.location.host.endsWith('8bitworkshop.com')) {
                <li><a class="dropdown-item" href="?platform=vcs.mame">Atari 2600 (MAME)</a></li>
                <li><a class="dropdown-item" href="?platform=nes.mame">NES (MAME)</a></li>
                <!--<li><a class="dropdown-item" href="?platform=coleco.mame">ColecoVision (MAME)</a></li>-->
+               <li><a class="dropdown-item" href="?platform=atari8-5200.mame">Atari 5200 (MAME)</a></li>
                <li><a class="dropdown-item" href="?platform=vector-ataricolor">Atari Color Vector (6502)</a></li>
                <li><a class="dropdown-item" href="?platform=markdown">Markdown</a></li>
              </ul>
diff --git a/mame/roms/a5200/5200.rom b/mame/roms/a5200/5200.rom
new file mode 100644
index 0000000000000000000000000000000000000000..5f8a8b6e64a8bf208a566da704f7593080f41e8e
GIT binary patch
literal 2048
zcmds0&x;#X9RKDeJIU_O&Wu}?M;$h+_EN1HJuCr-xC%<}q8IN|LZ91qNW&scgke&I
zTncksC_+Gk0jJPQPa=d31rHX49CGlu7nd9tFXoW!^z(g*u)F;O3jMO1_r9O^{eHeb
zhiEAhLXt=+r4f}X{E@8qo)I!0$ddYk+#R=kM}17h<}8*grE3v2%2Jjau=7%n8KjJs
z7JM%OiP&5VKNzMg`MX4(s^3)}Y~U|p;we1fj7(`VZn|C&nb7^vVBPaW#b?9>p!Jle
zbx&0cvkZDJgHzLIiLIn*Kxa-O9~uHL;&8o)U-v682Tg>;Lk0ejao^`Stw5=urQ`cP
zbNHd}!@uJDbp=26;+COWoxcHLKRCe^0a@TzYqoFKYQXPCQ5`tK>AX1_^RXW6aC{ZA
zpNGC1TqpA)Pc~QJ;lqPotKDulnNN9e)u*;Y-%1>Bi`}+}cDZ5$b+C>)3hoZPmXZ?f
zwA&T8fNsfR5kJ|b;5wbcN}u?_bvnhF&0B7{aWotrHOj7)&t|fDyZA{PL_{{^-tg#T
zIy+7I&e#cr&s1CRjb)+fH`i@83oe5?{{N2%m8Lqb7ex{JpdZq7xD>789iqvYiv@bI
zh{u-S@*}QadfY)>NW^`^a+SCmX`)knf}e5nj0(@w=lu#<$J`Lt0L(ZB6tQl}ismDR
zjc{R){!1!L$@cKz!TElm=MPllq}o^j@PJ-_Vwf85i5@sFfab%XLM$FsEEqmK@N)Y2
zzVzTZkLCOc^RHlE@WEkq7kI^NVPUWU(V{No!_iqNYK3)WP(hYkWmzCcx?8SvC?HWy
zwy#-}(Z=T#Ta!Nj1db@#$-OgxDH?XNdj=?oTW~r#>$E9uU7?fBi(IdYBy$maUA%J<
zlFvhz#r^8<gG}bCGs*^**n7CQo2KdBuY9TAuRf?Ai&5b?)6bQ}aju^o{nKBG#kg<8
z*>OJ~)A%R4l5@l_nO@<+H-+xz@Tv1(FF&Bk!7ERlX}mrOasqrz^k{YR<yHIP;L<!;
z6X`mwS*wNohOv?}vm$fN9>@0B$p(f9glPTUOMiScKm0RAQm2PKO6Y*PH0;v2OOwgy
z-((uEj(h8agVQbv4*AvKuX&dozFrzk4!d9THE}v-Vs|zY>R9-<@$V$L_>Ez2ZSVx<
z+idezC!Y*sYmCR0WV>S|BDN>Vu){M-T7QVq3>h>UjnByWA^+)<`J2IaH~06i(`%cK
zLmz$c9=&^GzkVaYa-5g<?=-0qT>t)N{oBjuU(Rdj&I^(3?6=wD+0Un9{&-eBHb*(`
TmLC2KN$2GZ`u6<8InAB{XZ3Wz

literal 0
HcmV?d00001

diff --git a/src/common/baseplatform.ts b/src/common/baseplatform.ts
index 5c4d6f3c..9617159a 100644
--- a/src/common/baseplatform.ts
+++ b/src/common/baseplatform.ts
@@ -816,7 +816,7 @@ export abstract class BaseMAMEPlatform {
 
   loadRegion(region, data) {
     if (this.loaded && data.length > 0) {
-      //this.luacall('cart=manager:machine().images["cart"]\nprint(cart:filename())\ncart:load("' + romfn + '")\n');
+      //this.luacall('cart=manager:machine().images["cart"]\nprint(cart:filename())\ncart:load("' + region + '")\n');
       var s = 'rgn = manager:machine():memory().regions["' + region + '"]\n';
       //s += 'print(rgn.size)\n';
       for (var i=0; i<data.length; i+=4) {
diff --git a/src/platform/atari8.ts b/src/platform/atari8.ts
index 13541ff0..aec2c4d0 100644
--- a/src/platform/atari8.ts
+++ b/src/platform/atari8.ts
@@ -446,15 +446,15 @@ const _Atari8Platform = function(mainElement) {
   start() {
     cpu = new jt.M6502();
     ram = new RAM(0x4000); // TODO
-    bios = new Uint8Array(0x800);
+    bios = new lzgmini().decode(stringToByteArray(atob(ALTIRRA_SUPERKERNEL_LZG)));
     bus = {
       // TODO: https://github.com/dmlloyd/atari800/blob/master/DOC/cart.txt
       // TODO: http://atariage.com/forums/topic/169971-5200-memory-map/
       read: newAddressDecoder([
         [0x0000, 0x3fff, 0x3fff, function(a) { return ram.mem[a]; }],
         [0x4000, 0xbfff, 0xffff, function(a) { return rom ? rom[a-0x4000] : 0; }],
-        [0xf000, 0xffff,  0x7ff, function(a) { return bios[a]; }],
         [0xd400, 0xd4ff,    0xf, function(a) { return antic.readReg(a); }],
+        [0xf800, 0xffff,  0x7ff, function(a) { return bios[a]; }],
       ]),
       write: newAddressDecoder([
         [0x0000, 0x3fff, 0xffff, function(a,v) { ram.mem[a] = v; }],
@@ -539,7 +539,6 @@ const _Atari8Platform = function(mainElement) {
 
   loadROM(title, data) {
     rom = padBytes(data, romLength);
-    rom[rom.length-3] = 0xff; // TODO
     this.reset();
   }
   
@@ -619,56 +618,14 @@ const _Atari8Platform = function(mainElement) {
   return new Atari8Platform(); // return inner class from constructor
 };
 
-// Atari 5200
-const _Atari5200Platform = function(mainElement) {
+// Atari 800
+const _Atari800Platform = function(mainElement) {
   this.__proto__ = new (_Atari8Platform as any)(mainElement);
 }
 
-
-/// MAME support
-
-abstract class Atari8MAMEPlatform extends BaseMAMEPlatform {
-  loadROM(title, data) {
-    this.loadROMFile(data);
-    this.loadRegion(":cartleft:cart:rom", data);
-  }
-  getPresets() { return Atari8_PRESETS; }
-  getToolForFilename = getToolForFilename_6502;
-  getDefaultExtension() { return ".c"; };
-}
-
-class Atari800MAMEPlatform extends Atari8MAMEPlatform implements Platform {
-  start() {
-    this.startModule(this.mainElement, {
-      jsfile:'mameatari400.js',
-      biosfile:'a400.zip', // TODO: load multiple files
-      //cfgfile:'atari5200.cfg',
-      driver:'a400',
-      width:336*2,
-      height:225*2,
-      romfn:'/emulator/cart.rom',
-      romsize:0x2000,
-      preInit:function(_self) {
-      },
-    });
-  }
-}
-
-class Atari5200MAMEPlatform extends Atari8MAMEPlatform implements Platform {
-  start() {
-    this.startModule(this.mainElement, {
-      jsfile:'mameatari400.js',
-      biosfile:'a5200/5200.rom',
-      //cfgfile:'atari5200.cfg',
-      driver:'a5200',
-      width:336*2,
-      height:225*2,
-      romfn:'/emulator/cart.rom',
-      romsize:0x2000,
-      preInit:function(_self) {
-      },
-    });
-  }
+// Atari 5200
+const _Atari5200Platform = function(mainElement) {
+  this.__proto__ = new (_Atari8Platform as any)(mainElement);
 }
 
 ///
@@ -813,6 +770,92 @@ for (var i=0; i<256; i++) {
 
 ///
 
+/// MAME support
+
+abstract class Atari8MAMEPlatform extends BaseMAMEPlatform {
+  loadROM(title, data) {
+    this.loadROMFile(data);
+    this.loadRegion(":cartleft:cart:rom", data);
+  }
+  getPresets() { return Atari8_PRESETS; }
+  getToolForFilename = getToolForFilename_6502;
+  getDefaultExtension() { return ".c"; };
+}
+
+class Atari800MAMEPlatform extends Atari8MAMEPlatform implements Platform {
+  start() {
+    this.startModule(this.mainElement, {
+      jsfile:'mameatari400.js',
+      biosfile:'a400.zip', // TODO: load multiple files
+      //cfgfile:'atari5200.cfg',
+      driver:'a400',
+      width:336*2,
+      height:225*2,
+      romfn:'/emulator/cart.rom',
+      romsize:0x2000,
+      preInit:function(_self) {
+      },
+    });
+  }
+}
+
+class Atari5200MAMEPlatform extends Atari8MAMEPlatform implements Platform {
+  loadROM(title, data) {
+    if (!this.started) {
+      this.startModule(this.mainElement, {
+        jsfile:'mameatari400.js',
+        biosfile:'a5200/5200.rom',
+        //cfgfile:'atari5200.cfg',
+        driver:'a5200',
+        width:336*2,
+        height:225*2,
+        romfn:'/emulator/cart.rom',
+        romdata:new Uint8Array(data),
+        romsize:0x8000,
+        preInit:function(_self) {
+        },
+      });
+    } else {
+      this.loadROMFile(data);
+      this.loadRegion(":cartleft:cart:rom", data);
+    }
+  }
+  start() {
+  }
+  getPresets() { return Atari8_PRESETS; }
+  getToolForFilename = getToolForFilename_6502;
+  getOpcodeMetadata = getOpcodeMetadata_6502;
+  getDefaultExtension() { return ".asm"; };
+}
+
+///
+
+// Altirra Superkernel ROM (http://www.virtualdub.org/altirra.html) compiled with MADS
+const ALTIRRA_SUPERKERNEL_LZG = `
+TFpHAAAIAAAABJGU01hQARcZHSUAACUFGCUBABgAAGZmZh2IZv9mJUEAGD5gPAZ8HVBsGDBmRgAcNhw4
+b2Y7HagdoA4cGBgcDgAAcDgYGDhwHSA8/zwdehgYfhkFGh1EMCWhfhkGYx0IAAAGDBgwYEAAADxmbnZm
+PB0MHTgYHRs8Zh0RJeF+DBgMHVAMHDxsfgwdCGB8Bh1IPGB8ZiXifh15MB1oPB2IPGY+Bgw4GQRVGQNx
+JeMwHV4YDAYZBHclQWAdBhgwYBkEYBkC6Dxmbm5gPh0nHT9+ZgAAfGZ8ZmZ8HVBgYBkCUHhsZmZseBkD
+eGBgHXwl4h04PmBgbmYdMB1uGSIrfhkiOR0YBiUBHXAdLR0zAAAdJR2wY3d/a2NjHRB2fn5uHRA8HS4d
+YBkCZhkCSB1IbDYdyB1wPGA8BgYdGBkDUBkkkGZmfiXkPB0IY2Nrf3cZAkhmPB0zJeMdoH4ZAtcdIB4d
+bx4AAEAZAuoGAAB4HUh4AAAIHDYdLiUF/wAANn9/PhwIGSLHHx8lgQMlBR0D+PgZRA/4+Bkk5CXjAwcO
+HDhw4MDA4HA4HA4HAwEDBw8fP3//HRgADyUBgMDg8Pj8/v8dRB1M8CUBJeL/HZolBh3GHZQcHHd3CBwd
+RxkDeBkGFR0D//8diDx+fn48GQUu///AJQUdhxkjEx0gGQVEJQIZA8AdCHhgeGB+GQL4GDwZIjoZA0l+
+GSIwGDB+MBlDFwx+DCXjPH4dkAA8Bj4ZIshgGUJYfB1IYGBgPBkiyD5mHVAAPGZ+HUgOGD4ZBJ8dTwZ8
+HehmAAAYADgYGB1oGSP6PB0QbBkj+B0OHZAAZn9/axkich1nHRAZI+kdUBkm+RkDSAYdSBlDWAAZY3EA
+ABliPxgOHXglARkCgBkl+ABja38+Nh1IPBgZY2kdVwwZQqEZZDgZAtAYPBljzyUCAH54fG5mBgAIGDh4
+OBgIABAYHB4cGBAAbAACSKkgLA7o0A1FAI0O6KUlgmwQAjAPqYAZCQkMAnAPqUAZCQkIAmodLfAZCi0S
+AmokAPASGQ5EFAKpARkODBYCKhkOCxgZEAsaAopIur0BASkQ0ANsDgJoqmhA////aKgdQUiKSJhI5gLQ
+COYBpQQwAuYEpQPQ5aUFjQLUpQaNA9SlB40A1KAAJAQQAqQBogiYVQidEsDKEPeiB70A6JURyhD4jQvo
+bAQC////GQJBrQnoSikPqr0T/WwKAv8LAAoOCQgHDQYFBAwDAgEsD9SND9QQA2wGAmwCAnjYov+arf2/
+yf/QA2z+v6IAqQCVAJ0AwJ0A1J0A6OjQ8qn4jQnUogu9lf6dAAIZAmtPvc39nQAQHUMTvei/nVAdQ6kQ
+hQypD4UNqQCFDiVhDyVhEKkEjRvAogq9wh0nIB1cIoUHqcCNDtQdFQWpIIUGqQKND+ipwIUZIhapeMUC
+0Pxs/r9wcHBCABCCB0HC/SFsdGlycmEAFRIQEAAyLy0AK2VybmVsGWpyJQMub3cAcGxheWluZxoZDxUZ
+a58lHiUcJQkD/Lj8svyh/gL9svxI5gzQBBkiJhkj9SUfJR8lHiUBI/0x/QD8`;
+
+///
+
+PLATFORMS['atari8-800'] = _Atari800Platform;
 PLATFORMS['atari8-5200'] = _Atari5200Platform;
 PLATFORMS['atari8-800.mame'] = Atari800MAMEPlatform;
 PLATFORMS['atari8-5200.mame'] = Atari5200MAMEPlatform;