From 304eaab6adc9514ce959645d2b289aee8b66ec65 Mon Sep 17 00:00:00 2001
From: Hikaru Ikuta <woodrush924@gmail.com>
Date: Fri, 31 Dec 2021 04:56:54 +0900
Subject: [PATCH] Fix bug for `EQ`

---
 sectorlisp.S | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/sectorlisp.S b/sectorlisp.S
index 1e7490d..784d9e5 100644
--- a/sectorlisp.S
+++ b/sectorlisp.S
@@ -219,7 +219,7 @@ Pairlis:test	%di,%di				# Pairlis(x:di,y:si,a:dx):dx
 .ifCons:mov	(%bx,%si),%si			# si = Cdr(x)
 	lodsw					# si = Cadr(x)
 	je	Cons
-.isEq:	xor	%ax,%di
+.isEq:	xor	%di,%ax
 	jne	.retF
 .retT:	mov	$kT,%al
 	ret