From 692cf847129e04922032ca8d3739ca4576d7b8f6 Mon Sep 17 00:00:00 2001
From: David Schmenk <dschmenk@sbcglobal.net>
Date: Sun, 29 Dec 2024 10:40:58 -0800
Subject: [PATCH] Update ZP stack size

---
 src/inc/longjmp.plh  |  2 +-
 src/libsrc/fiber.pla | 10 +++++-----
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/inc/longjmp.plh b/src/inc/longjmp.plh
index 7d0c079..e36fa7a 100644
--- a/src/inc/longjmp.plh
+++ b/src/inc/longjmp.plh
@@ -1,4 +1,4 @@
 import longjmp
-    const t_except = $0180
+    const t_except = $0160
     predef except(env), throw(env, retval)
 end
diff --git a/src/libsrc/fiber.pla b/src/libsrc/fiber.pla
index cd108a4..2921941 100644
--- a/src/libsrc/fiber.pla
+++ b/src/libsrc/fiber.pla
@@ -194,11 +194,11 @@ export def fbrStart(defaddr, param)
             //
             // Set fiber parameters to fiber ID and passed-in value
             //
-            vmstate->esp        = $0E
-            vmstate->estklo.$0F = i
-            vmstate->estkhi.$0F = 0
-            vmstate->estklo.$0E = param.0 // param lo byte
-            vmstate->estkhi.$0E = param.1 // param hi byte
+            vmstate->esp        = $1E
+            vmstate->estklo.$1F = i
+            vmstate->estkhi.$1F = 0
+            vmstate->estklo.$1E = param.0 // param lo byte
+            vmstate->estkhi.$1E = param.1 // param hi byte
             //
             // Initialize stack to point to fiber def and fbrExit
             // This allows a fiber to return and it will fall into fbrExit