From 162969de4279708cafbc46095773926248c553a0 Mon Sep 17 00:00:00 2001
From: Hikaru Ikuta <woodrush924@gmail.com>
Date: Thu, 6 Jan 2022 06:48:37 +0900
Subject: [PATCH] Fix READ buffer bug

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

diff --git a/sectorlisp.S b/sectorlisp.S
index 9ae8b8e..81ceb29 100644
--- a/sectorlisp.S
+++ b/sectorlisp.S
@@ -117,7 +117,7 @@ EvalPrint:
 	ret
 
 Read:	push	%dx
-	call	GetChar
+	mov	%fs,%dx				# Get cached character
 	call	GetToken
 	call	GetObject
 	pop	%dx
@@ -152,6 +152,7 @@ Intern:	push	%cx				# Intern(cx,di): ax
 
 GetChar:xor	%ax,%ax				# GetChar→al:dl
 	int	$0x16				# get keystroke
+	mov	%ax,%fs				# Used for READ
 PutChar:mov	$0x0e,%ah			# prints CP-437
 	int	$0x10				# vidya service
 	cmp	$'\r',%al			# don't clobber