From 7ae47772f6121a1aab74d182658af4f0b0d865ee Mon Sep 17 00:00:00 2001
From: Peter Ferrie <peter.ferrie@gmail.com>
Date: Wed, 24 Nov 2021 12:23:22 -0800
Subject: [PATCH] shave one byte

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

diff --git a/bin/sectorlisp.bin b/bin/sectorlisp.bin
index 7f12dcb45a74a5caeffccb49bd20ee35ebac0cbe..5f757a01ad93d710491b6899bbacef50575762b6 100755
GIT binary patch
delta 106
zcmV-w0G0oM1b_sPK^aE@mgqwOunp*O0PE?A&xp`GAa(+(mgruQS}Za)=raI?_ITc`
zgur$5!#pT-eo=}2Da}PO|6W#!>52F_J#-86rgRB0z^--u>+AERS&_M42sQsaDRegI
Mbdw+f-UH56s!<*@NdN!<

delta 106
zcmV-w0G0oM1b_sPK^aH^mgqwOunp*P0PE?A&xp`GAa(+(mgrxRS}Zd+=rjO@_ITc`
zgur$5!#pT-e~Hd9|1iK;rga8Su66nA5M7DRu66x71$FFKq))DO`&f~<UkEh+JSlWG
M=yQ`F0p0>tszzHfJOBUy

diff --git a/sectorlisp.S b/sectorlisp.S
index 9fe50a2..74b2e14 100644
--- a/sectorlisp.S
+++ b/sectorlisp.S
@@ -114,14 +114,14 @@ Intern:	push	%cx				# Intern(cx,di): ax
 	mov	%bp,%cx
 	mov	%di,%ax
 	cmp	%bh,(%di)
-	je	2f
+	je	8f
 	rep cmpsb				# memcmp(di,si,cx)
 	je	9f
-	not	%cx
 	xor	%ax,%ax
-	repne scasb				# memchr(di,al,cx)
+2:	scasb					# memchr(di,al,cx)
+	jne	2b
 	jmp	1b
-2:	rep movsb				# memcpy(di,si,cx)
+8:	rep movsb				# memcpy(di,si,cx)
 9:	pop	%cx
 	ret