From 1acabfcc6a696c9eaf90fcba0030ffa43837891d Mon Sep 17 00:00:00 2001
From: Justine Tunney <jtunney@gmail.com>
Date: Sun, 21 Nov 2021 03:44:20 -0800
Subject: [PATCH] Restore direction flag clearing

---
 sectorlisp.S | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/sectorlisp.S b/sectorlisp.S
index 2118491..2616cd6 100644
--- a/sectorlisp.S
+++ b/sectorlisp.S
@@ -65,6 +65,7 @@ begin:	xor	%ax,%ax
 	pop	%ss				# disable nonmaskable interrupts
 	mov	%ax,%sp				# use null pointer as our stack
 	sti					# enable interrupts
+	cld					# direction forward
 	mov	$2,TWO
 	mov	$Eval,%cx
 	mov	$0x8000,g_mem
@@ -183,8 +184,7 @@ Pairlis:test	%di,%di				# Pairlis(x:di,y:si,a:dx):ax
 	pop	%di				# restore 1
 	push	%ax				# save 3
 	call	Pairlis
-	pop	%di				# restore 3
-	jmp	Cons				# can be inlined here
+	jmp	xCons				# can be inlined here
 1:	xchg	%dx,%ax
 	ret