From a557787f5fe5030f9cd24e9c631e82f4fc44db53 Mon Sep 17 00:00:00 2001
From: Peter Ferrie <peter.ferrie@gmail.com>
Date: Wed, 24 Nov 2021 17:11:33 -0800
Subject: [PATCH] shave two bytes

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

diff --git a/bin/sectorlisp.bin b/bin/sectorlisp.bin
index 5f757a01ad93d710491b6899bbacef50575762b6..e1419bc39c06a5cf6fd9f8caccf62fc6f5403fa6 100755
GIT binary patch
delta 181
zcmV;m080OW1b_sPEEX~34j&E&4i~!u0J#8w=n(+uQ~>BjkwT~eoRRB2e_jAyg}`|Y
zmy0=9i#_O(|B_$pNj)h5cjb#bJREc@JRo!?JQsBbh5vaDF~Gw-B#SVubd@pqb@H$T
z!->|5Jc}@|b@}#-IXth61;dLuSBo{R=n4Q|g}`+3i#_P(|AoMGD|yzItvw6?i#&AO
jJrV$P+fq?b=s*9KSm=cR23m>Em*`KEuK`a4&dyb;FT_wI

delta 181
zcmV;m080OW1b_sPEEWzQ4hIewG32`f0J#8w=n(+uQ~>BlkwT~eo{{T4e_#M!g}`|Y
zmy0=9i#_O(|B_$pOFbz7cjb#bJREc)JRo!(JQsBbh5vaDF~Gw-B#SVubd@>yb@I3b
z0K<zpJg<ud!->|5Jc}@|b@}V^i#b<|HLd6h0AGc`bn=Tm=-dB=z;r8l+?K693;>Hf
jbkIE#0Cd|@QBdeT|CU(j2!j7wiO!ekO_QwwPXbk{3xZEv

diff --git a/sectorlisp.S b/sectorlisp.S
index 483090c..cc806b1 100644
--- a/sectorlisp.S
+++ b/sectorlisp.S
@@ -229,23 +229,23 @@ Apply:	test	%ax,%ax				# Apply(fn:ax,x:si:a:dx):ax
 	mov	(%bx,%si),%si			# si = Cdr(x)
 	lodsw					# si = Cadr(x)
 	je	Cons
-.isEq:	cmp	%di,%ax				# we know for certain it's eq
+.isEq:	xor	%di,%ax				# we know for certain it's eq
 	jne	.retF
-.retT:	mov	$kT,%ax
+.retT:	mov	$kT,%al
 	ret
 
-Cadr:	mov	(%bx,%di),%di			# contents of decrement register
-	.byte	0x3C				# cmp §scasw,%al (nop next byte)
-Cdr:	scasw					# increments our data index by 2
-Car:	mov	(%di),%ax			# contents of address register!!
-2:	ret
-
 Assoc:	mov	%dx,%si				# Assoc(x:ax,y:dx):ax
 1:	mov	(%si),%di
 	mov	(%bx,%si),%si
 	scasw
 	jne	1b
-	jmp	Car
+	.byte	0xF6				# test §mov/cmp (nop next bytes)
+Cadr:	mov	(%bx,%di),%di			# contents of decrement register
+	.byte	0x3C				# cmp §scasw,%al (nop next byte)
+Cdr:	scasw					# increments our data index by 2
+Car:	mov	(%di),%ax			# contents of address register!!
+2:	ret
+
 
 1:	mov	(%bx,%di),%di			# di = Cdr(c)
 Evcon:	push	%di				# save c