From 7e8979fa7c4e6568678435de2c516103aa65c265 Mon Sep 17 00:00:00 2001
From: Peter Ferrie <peter.ferrie@gmail.com>
Date: Tue, 23 Nov 2021 19:52:54 -0800
Subject: [PATCH] avoid use of BP across video calls

---
 bin/sectorlisp.bin | Bin 512 -> 512 bytes
 sectorlisp.S       |   4 ++--
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/bin/sectorlisp.bin b/bin/sectorlisp.bin
index f756d40c50249c7ba5aab715b86800d7b784e6c6..7f12dcb45a74a5caeffccb49bd20ee35ebac0cbe 100755
GIT binary patch
delta 329
zcmWlTu}cC`9Dsi(XMyCAE-pn94IVX|V1@7w0+%2pi^>S<`Wxz9=A=YN9*-c6&aJT_
zGH)ze4sHz0sila9f?wQXM?|)~uI=L+KEA406;Gxr(wH<TCDLzqA-IJq#sF6U=LHLM
zU`KHWybtrC)+Nck(4~bM1n^1Zy>RtcE@4fzTsy@TmccmK$t~l1-=|@_k0RKzH;Wkv
z%*)lGqkp+1MJr|}%@wD3p${xx>wRx{)9lpSbFp*K3fSY?QQwT3!f{?~2#HEh=(?EU
zM5Z&i%M0jp?|u!pVassJ(I(3lnTmDZ(7XjzhSEDDWQ2~BBpoFQebC@#Debsqf+;O}
zmi^KF8xdTVC2baV%|}L<(hdgv|IBm?BcK@$^@HLQ4`8zVY>l<lAz*}d)i}_n<)s3u
Z+*-#2zF~HnnCGW=Lhkfch=f)z{{XVCnyLT*

delta 353
zcmXAhze@sP9EV>;3!<c7AXJn?g9j2GWFWk^<kAwIL0J)AOZ@@$o^~|o;E~6>^aIZS
zphz>Xty(&`Sqvc@YAJ}ma1doA>hgBc_JQZ~JXufHa}>((PrfN%ug|YN$6~iA3nK{D
z5nqRGmkvQ>48R_;-?du)0S8j<q7GZg8DE%7d9z(E4S7MgKtyUwnKXhdOlRSf8G)qQ
z+HVrC(ScWHa5fJ!=rU)@Z3_p<0nfr_;!N&Yx{^D#doX!?F`v0ZlIWO{UeIbKy>!?q
zSkcCAm+@49ANJ4Sg>hg(gkg?gNHY<d%&w}YvZ<Gaenc@5g<(XT^EuPkRC9k!;82>U
z7*CKn93VXQ%cCk&#(C2!&}hO*@30fe#&~*>hRY-uZOd;r9%QXT2qo=%8pRdrwX}v>
uCsjH`g^K)bfBcD&GV~!yHA&NHG}v++6t)r9s@!7%7FhE1+7)xJ6n_Dl<*<_g

diff --git a/sectorlisp.S b/sectorlisp.S
index b3e8c2b..d4cbee8 100644
--- a/sectorlisp.S
+++ b/sectorlisp.S
@@ -60,7 +60,7 @@ GetToken:					# GetToken():al, dl is g_look
 	cmp	$' ',%al
 	jbe	2f
 	stosb
-	xchg	%ax,%bp
+	xchg	%ax,%si
 2:	call	GetChar				# exchanges dx and ax
 	cmp	$' ',%al
 	jbe	1b
@@ -69,7 +69,7 @@ GetToken:					# GetToken():al, dl is g_look
 	cmp	$')',%dl			# dl = g_look
 	ja	1b
 3:	movb	%bh,(%di)			# bh is zero
-	xchg	%bp,%ax
+	xchg	%si,%ax
 	ret
 
 .PrintList: