From df4900828c60d9df26827b0a6c969b213ac6250f Mon Sep 17 00:00:00 2001
From: Thomas Jentzsch <tjentzsch@yahoo.de>
Date: Wed, 13 Apr 2022 11:27:53 +0200
Subject: [PATCH] added regex for PAL-N in filename (->NTSC50)

---
 Changes.txt             | 2 ++
 docs/index.html         | 4 ++--
 src/emucore/Console.cxx | 3 ++-
 3 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/Changes.txt b/Changes.txt
index b3223ae83..f46e33e52 100644
--- a/Changes.txt
+++ b/Changes.txt
@@ -57,6 +57,8 @@
 
   * Debugger: fixed patching code in ZP-RAM.
 
+  * Debugger: improved bank origin detection.
+
 -Have fun!
 
 
diff --git a/docs/index.html b/docs/index.html
index d3feb83bc..0bff6559c 100644
--- a/docs/index.html
+++ b/docs/index.html
@@ -5130,10 +5130,10 @@ Ms Pac-Man (Stella extended codes):
       by using one of the following pattern in the filename.
       <table cellpadding="2" border="1">
         <tr><th>&nbsp;Format&nbsp;</th><th>Filename Pattern (to force format)</th></tr>
-        <tr><td>NTSC</td><td>NTSC, NTSC60, NTSC 60, NTSC-60</td></tr>
+        <tr><td>NTSC</td><td>NTSC, NTSC60, NTSC 60, NTSC-60, PAL-M</td></tr>
         <tr><td>PAL</td><td>PAL, PAL50, PAL 50, PAL-50</td></tr>
         <tr><td>SECAM &#185;</td><td>SECAM, SECAM50, SECAM 50, SECAM-50</td></tr>
-        <tr><td>NTSC50 &#185;</td><td>NTSC50, NTSC 50, NTSC-50</td></tr>
+        <tr><td>NTSC50 &#185;</td><td>NTSC50, NTSC 50, NTSC-50, PAL-N</td></tr>
         <tr><td>PAL60 &#185;</td><td>PAL60, PAL 60, PAL-60</td></tr>
         <tr><td>SECAM60 &#185;</td><td>SECAM60, SECAM 60, SECAM-60</td></tr>
       </table></td>
diff --git a/src/emucore/Console.cxx b/src/emucore/Console.cxx
index ae60d83b7..8d3801023 100644
--- a/src/emucore/Console.cxx
+++ b/src/emucore/Console.cxx
@@ -317,8 +317,9 @@ void Console::redetectFrameLayout()
 // - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
 string Console::formatFromFilename() const
 {
-  static const BSPF::array2D<string, 7, 2> Pattern = {{
+  static const BSPF::array2D<string, 8, 2> Pattern = {{
     { R"([ _\-(\[<]+NTSC[ _-]?50)",          "NTSC50"  },
+    { R"([ _\-(\[<]+PAL[ _-]?N[ _\-)\]>.])", "NTSC50"  }, // PAL-N == NTSC50
     { R"([ _\-(\[<]+PAL[ _-]?60)",           "PAL60"   },
     { R"([ _\-(\[<]+SECAM[ _-]?60)",         "SECAM60" },
     { R"([ _\-(\[<]+NTSC[ _\-)\]>.])",       "NTSC"    },