From 69085d06740de3925c391553beb183657176f57f Mon Sep 17 00:00:00 2001
From: Peter Ferrie <peter.ferrie@gmail.com>
Date: Fri, 5 Nov 2021 11:22:45 -0700
Subject: [PATCH] shave two more bytes

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

diff --git a/bin/sectorlisp.bin b/bin/sectorlisp.bin
index 6424579db4ae58e2962db272b81c05f3bd45774b..b032869bc20c8ea63a09bd819158c06c3a1d211a 100755
GIT binary patch
delta 95
zcmV-l0HFVX1b_sPRT~ch=ve@;4d{&k>*&7#K#Bf{&^#b^0;-Ydcad-wB6GihKrq0u
z|5v7U22ZYa`Rfo~z5qb-t~v#E>Q|&su66s7s#6MN|2!!VguDRgeUk?P_XN()RjT2u
BE1LiS

delta 95
zcmV-l0HFVX1b_sPRT~ij=vx4=4d{;m>*&7#K#Bf{&^#b^0;-Ydd694yBz3=lKrq0u
z|5v7U2RcRnb@=NMUcLZ8@~%1sb?H~Es)WFG`jMzp3S$2}DG!9a0O)&@1p)U0RjTmU
BD|!F`

diff --git a/sectorlisp.S b/sectorlisp.S
index ecd2bcd..0b0af03 100644
--- a/sectorlisp.S
+++ b/sectorlisp.S
@@ -103,7 +103,8 @@ GetObject:					# called just after GetToken
 	push	%di				# save 1
 1:	cmpsb
 	jne	2f
-	cmp	-1(%di),%al
+	dec	%di
+	scasb
 	jne	1b
 	jmp	4f
 2:	pop	%si				# drop 1
@@ -112,9 +113,9 @@ GetObject:					# called just after GetToken
 	cmp	(%di),%al
 	jne	0b
 	push	%di				# StpCpy
-3:	lodsb
-	stosb
-	test	%al,%al
+3:	movsb
+	dec	%di
+	scasb
 	jnz	3b
 4:	pop	%ax				# restore 1
 	add	$-g_str,%ax			# stc