From 93d01e69328c2cc2ddd9cc435b79935fa73be5ab Mon Sep 17 00:00:00 2001
From: Peter Ferrie <peter.ferrie@gmail.com>
Date: Fri, 5 Nov 2021 12:23:43 -0700
Subject: [PATCH] shave one more byte

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

diff --git a/bin/sectorlisp.bin b/bin/sectorlisp.bin
index f95ed5beee8ddd321bf9f20018f7f56357ad88c5..62fc3e09c9fc997d0f244bdd9b6e28241692ebad 100755
GIT binary patch
delta 112
zcmV-$0FVEG1b_sPRRIl=R;mHJlK}x1GD`qjUr^}m|CV2ujOVMCtCx)Dj^LNWgZ}|^
z7XNhut^YKOJ(lR=|6X5E=;{BKU+dVDN&zt+kN=ifr~!2zmy3M@SBpL9qW_X#>(PsJ
S0*f>}J#>hZngL`3&Q+?&(>9y{

delta 112
zcmZo*X<(TU%E&h{Y!&04$&8F*#y$*D@c}R1{GS#-z32JrX{&)`--GFgoBuPGi2pBT
z`d`A-ZQE_~;^F@|pt2W0Wv{PK_GC1a@B2S3Vg+NV-1P2Rrtogt7YqMSihq5v8>rmG
P#<rw=@=V4QrqERYo7Xjn

diff --git a/sectorlisp.S b/sectorlisp.S
index 0f16fbc..97a9252 100644
--- a/sectorlisp.S
+++ b/sectorlisp.S
@@ -213,9 +213,10 @@ Cons:	xchg	%di,%ax
 Pairlis:cmp	$NIL,%di			# Pairlis(x:di,y:si,a:dx):ax
 	je	1f
 	push	2(%di)				# save 1 Cdr(x)
-	push	2(%si)				# save 2 Cdr(y)
+	lodsw
+	push	(%si)				# save 2 Cdr(y)
 	mov	(%di),%di
-	mov	(%si),%si
+	xchg	%ax,%si
 	call	Cons				# preserves dx
 	pop	%si				# restore 2
 	pop	%di				# restore 1