From 90903662a9e7073c2b940ed675c2a04f58ac47f1 Mon Sep 17 00:00:00 2001
From: Hikaru Ikuta <woodrush924@gmail.com>
Date: Tue, 4 Jan 2022 00:31:50 +0900
Subject: [PATCH] Shave 2 bytes

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

diff --git a/sectorlisp.S b/sectorlisp.S
index fca7ed0..8bb5831 100644
--- a/sectorlisp.S
+++ b/sectorlisp.S
@@ -104,7 +104,7 @@ PrintObject:					# PrintObject(x:si)
 	jnz	.PrintString			# -> ret
 	ret
 
-Read:	call	GetChar
+Read:	xchg	%dx,%ax
 	call	GetToken
 GetObject:					# called just after GetToken
 	cmp	$'(',%al