From 4364319176b41bb65dbdc44ef7f801d04a966c99 Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@sbcglobal.net>
Date: Sun, 21 Jan 2024 17:25:44 -0800
Subject: [PATCH] Fix stack restore for throw, add scripts to ID machine

---
 src/libsrc/longjmp.pla | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/libsrc/longjmp.pla b/src/libsrc/longjmp.pla
index 99aa92e..d5afa3c 100644
--- a/src/libsrc/longjmp.pla
+++ b/src/libsrc/longjmp.pla
@@ -60,10 +60,11 @@ export asm throw(env, retval)
         DEC     DST+1
         LDX     TMPL
         TXS
-        LDY     TMPL
+        LDY     #$FE
 -       LDA     (DST),Y
         STA     $0100,Y
-        INY
+        DEY
+        CPY     TMPL
         BNE     -
         LDX     ESP
         LDA     SRC