From e76ecd19b3ffc444530cd77cd54ee799caa849c5 Mon Sep 17 00:00:00 2001
From: David Kuder <davidk@thewaffleiron.net>
Date: Sun, 8 Jan 2023 00:33:20 -0500
Subject: [PATCH] RP2040 triggered $C800 release

CUPL code had not been updated for HW Rev 1 which inverted the RP2040's data direction pin, which is used in concert with the level shifter select lines to trigger a release of the $C800 window from the RP2040 side.
---
 CUPL/PicoPal.jed | 8 ++++----
 CUPL/picopal.doc | 6 +++---
 CUPL/picopal.pld | 2 +-
 3 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/CUPL/PicoPal.jed b/CUPL/PicoPal.jed
index 141cd92..f0baac4 100644
--- a/CUPL/PicoPal.jed
+++ b/CUPL/PicoPal.jed
@@ -1,7 +1,7 @@
 
 CUPL(WM)        5.0a  Serial# MW-10400000
 Device          g16v8ma  Library DLIB-h-40-8
-Created         Mon Nov 28 03:36:52 2022
+Created         Sat Jan 07 23:18:58 2023
 Name            PicoPal
 Partno          U5
 Revision        01
@@ -21,7 +21,7 @@ Location        None
 *L00544 11111101111111111111111111111111
 *L00576 10111111111111111111111111111111
 *L00608 11111111111111111101111111111111
-*L00640 11111011011101111011111111111111
+*L00640 11111011011101110111111111111111
 *L00768 11111111111111111111111111111111
 *L00800 11111111110111111111111111111011
 *L01024 11111111111111111111111111111111
@@ -34,5 +34,5 @@ Location        None
 *L02112 00000000111111111111111111111111
 *L02144 11111111111111111111111111111111
 *L02176 111111111111111111
-*C47DD
-*EF0A
\ No newline at end of file
+*C47DE
+*EEF5
\ No newline at end of file
diff --git a/CUPL/picopal.doc b/CUPL/picopal.doc
index 54dcece..7e48cd6 100644
--- a/CUPL/picopal.doc
+++ b/CUPL/picopal.doc
@@ -5,7 +5,7 @@
 
 CUPL(WM)        5.0a Serial# MW-10400000
 Device          g16v8ma  Library DLIB-h-40-8
-Created         Mon Nov 28 03:36:52 2022
+Created         Sat Jan 07 23:18:58 2023
 Name            PicoPal
 Partno          U5
 Revision        01
@@ -32,7 +32,7 @@ EXTENABLE =>
     EXTDISABLE
   # RESET
   # EXTOFF
-  # !BSEL0 & BSEL1 & BSEL2 & !BSEL3
+  # BSEL0 & BSEL1 & BSEL2 & !BSEL3
 
 EXTOFF =>
     !A8 & !A9 & !A10 & IOSTROBE
@@ -131,7 +131,7 @@ Pin #17  02050  Pol x  02122  Ac1 -
  00544 ------x------------------------- 
  00576 -x------------------------------ 
  00608 ------------------x------------- 
- 00640 -----x--x---x----x-------------- 
+ 00640 -----x--x---x---x--------------- 
  00672 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
  00704 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
  00736 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
diff --git a/CUPL/picopal.pld b/CUPL/picopal.pld
index fb1e39a..45949f1 100644
--- a/CUPL/picopal.pld
+++ b/CUPL/picopal.pld
@@ -45,7 +45,7 @@ EXTOFF = IOSTROBE & [A10..8]:'b'111;
 
 /* Implement an SR Latch */
 EXTDISABLE = !(EXTENABLE # DEVSELECT);
-EXTENABLE = !(EXTDISABLE # RESET # EXTOFF # [BSEL3..0]:'b'0110);
+EXTENABLE = !(EXTDISABLE # RESET # EXTOFF # [BSEL3..0]:'b'0111);
 
 /* $C8XX and extended rom is enabled */
 EXTSELECT = EXTENABLE & IOSTROBE;