From 50c85199fe56f58930d5c2d7fabfff3adc053d23 Mon Sep 17 00:00:00 2001
From: Peter Ferrie <peter.ferrie@gmail.com>
Date: Fri, 5 Nov 2021 11:58:36 -0700
Subject: [PATCH] shave one more byte

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

diff --git a/bin/sectorlisp.bin b/bin/sectorlisp.bin
index b032869bc20c8ea63a09bd819158c06c3a1d211a..f95ed5beee8ddd321bf9f20018f7f56357ad88c5 100755
GIT binary patch
delta 87
zcmV-d0I2_f1b_sPRT~Zg=vV--4d{#j>*&7#K#Bf{&^#b^0;-Ydc9C!v8*;yZKrp~p
trga8Su66nA5njFkK(2NDIt6v>k)l}&W&b=W4}`n`=zfz00r>;YRjOipCMo~`

delta 87
zcmV-d0I2_f1b_sPRT~ch=ve@;4d{&k>*&7#K#Bf{&^#b^0;-Ydcad-w9CN>bKrq0u
t|5v7U22ZYa`Rfo~z5qb-t~v#E>XD&Y3S|F0DG!9a0O);_1OfR1RjPvbCW`<7

diff --git a/sectorlisp.S b/sectorlisp.S
index 0b0af03..0f16fbc 100644
--- a/sectorlisp.S
+++ b/sectorlisp.S
@@ -99,25 +99,25 @@ GetObject:					# called just after GetToken
 .Intern:
 	mov	$g_str,%di
 	xor	%al,%al
-0:	mov	$-1,%cl
-	push	%di				# save 1
+0:	push	%di				# save 1
 1:	cmpsb
 	jne	2f
 	dec	%di
 	scasb
 	jne	1b
-	jmp	4f
+	jmp	5f
 2:	pop	%si				# drop 1
 	mov	$g_token,%si
-	repne scasb
+3:	scasb
+	jne	3b
 	cmp	(%di),%al
 	jne	0b
 	push	%di				# StpCpy
-3:	movsb
+4:	movsb
 	dec	%di
 	scasb
-	jnz	3b
-4:	pop	%ax				# restore 1
+	jnz	4b
+5:	pop	%ax				# restore 1
 	add	$-g_str,%ax			# stc
 	adc	%ax,%ax				# ax = 2 * ax + carry
 .ret:	ret