From 309422b358efef42ea1b6cc1926c9f4a9dfe6bcb Mon Sep 17 00:00:00 2001
From: Peter Ferrie <peter.ferrie@gmail.com>
Date: Wed, 28 Feb 2018 12:37:39 -0800
Subject: [PATCH] brand only once, fix z4 interpreter bug

cursor position wasn't reset, leading to hanging indent after custom
prompt
---
 src/onbeyond/z4/d500-f7ff.org | Bin 8960 -> 8960 bytes
 src/onbeyond/z4/d500-f7ff.pak | Bin 6369 -> 6367 bytes
 src/onbeyond/z4/z4.s          |   4 ++++
 src/onbeyond/z5/z5.s          |   4 ++++
 4 files changed, 8 insertions(+)

diff --git a/src/onbeyond/z4/d500-f7ff.org b/src/onbeyond/z4/d500-f7ff.org
index 24b53ab2522955e3d577a8f3f4b25becbe2a7285..b2010e40c0d03e5206875fdd67c0dea9b5cec6d6 100644
GIT binary patch
delta 28
kcmZp0YjE4p$HBVPeC3Cwn<sPJlVDlN(0XBWsbV)H0J4${4FCWD

delta 28
kcmZp0YjE4p$HCfazVbus=E)rQBv_tZUCFSyRI!^80J8fGGXMYp

diff --git a/src/onbeyond/z4/d500-f7ff.pak b/src/onbeyond/z4/d500-f7ff.pak
index 3be19d691dbf8c6244ff1af996d02a444753540b..d5af23767068893bf120e0ef4be6fe1c33ac68da 100644
GIT binary patch
delta 144
zcmV;B0B`@{G2bz;SQvjORW7Vtyz3u7ms;j#h+L3e{1b%>@DcH2KD-LA+G26}=`ZMn
z_l+$?<>75Z*LHU1aL)#BlB55$)s^x81qbo}?k`clUuB)~nSG&Jm%iGAL{Uv>0<xM0
ya0>vXTTM?=B}H9uU07-Si6CD3=Q^ZRt`{-%<9U}$KoTrrWT^=3H!cDQ^-KW5u0_iL

delta 146
zcmV;D0B!%@G2t<=SQvjKRf5Q#m(j!PKk{1qX3<;{T_2DWq3{uYCu7$NmD=oaUnS}N
zga!AFMCH6~Iz#Su+}UsjZ}L?CcAAyG{~!mx|2@U(H|y-3zL_tpp;Es4NP|&{Xtn~H
z20?IOrCS6|Pf|r)t_xjh5&R%4-1<87RF%Rp{^OE)=|EyEVPpzbChRT(;U1}g0Mvp>
A5C8xG

diff --git a/src/onbeyond/z4/z4.s b/src/onbeyond/z4/z4.s
index 48cbb7a..b3ca7b2 100644
--- a/src/onbeyond/z4/z4.s
+++ b/src/onbeyond/z4/z4.s
@@ -457,6 +457,10 @@ call80          jsr     $c300
                 rts
 
 brand           jsr     $dbda
+                lda     #$da
+                sta     $ddf0
+                lda     #$db
+                sta     $ddf1
                 lda     #$17
                 sta     $25
                 lda     #0
diff --git a/src/onbeyond/z5/z5.s b/src/onbeyond/z5/z5.s
index 0dfc64a..ce8529b 100644
--- a/src/onbeyond/z5/z5.s
+++ b/src/onbeyond/z5/z5.s
@@ -452,6 +452,10 @@ call80          jsr     $c300
                 rts
 
 brand           jsr     $db5b
+                lda     #$5b
+                sta     $ddb6
+                lda     #$db
+                sta     $ddb7
                 lda     #$17
                 sta     $25
                 lda     #0