From 891e4f861a7ad3e2f670cc397b63dbe22bc6db10 Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Fri, 26 Jun 2020 21:24:12 -0400
Subject: [PATCH] z80: fix chkPS's "stable ABI" form in binaries with offset

Before lblnext is set, we need to use BJP, instead of JPnn, for the
jump to work in binaries with offsets.
---
 blk/243 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/blk/243 b/blk/243
index 0504276..b8b1baa 100644
--- a/blk/243
+++ b/blk/243
@@ -5,8 +5,8 @@
 
 VARIABLE lblchkPS
 : chkPS, lblchkPS @ CALLnn, ; ( chkPS, B305 )
-CREATE lblnext 0x1a , ( stable ABI until set in B300 )
-: JPNEXT, lblnext @ JPnn, ;
+CREATE lblnext 0 , ( stable ABI until set in B300 )
+: JPNEXT, lblnext @ ?DUP IF JPnn, ELSE 0x1a BJP, THEN ;
 : CODE ( same as CREATE, but with native word )
     (entry) 0 C, ( 0 == native ) ;
 : ;CODE JPNEXT, ;