From 194181a709b8fe0da1e7651b827b724b7fc53cc6 Mon Sep 17 00:00:00 2001
From: Hikaru Ikuta <woodrush924@gmail.com>
Date: Tue, 4 Jan 2022 04:13:47 +0900
Subject: [PATCH] Broader register initialization coverage (#21)

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

diff --git a/bin/sectorlisp.bin b/bin/sectorlisp.bin
index 1b8707397aac1032b80809c636625c6132c71ddb..ba247c77c8e2a3c53db3379ad12551514c75b48f 100755
GIT binary patch
delta 28
kcmZo*X<(UPCAfk2MLoj{9)=hG3@@x0r@gS-=)IK@0FzV-!~g&Q

delta 28
kcmZo*X<(UPCHO*+;YA3;3wy?CFPs@R@V+S8=)IK@0Fj~!%K!iX

diff --git a/sectorlisp.S b/sectorlisp.S
index c0c0143..3b1305e 100644
--- a/sectorlisp.S
+++ b/sectorlisp.S
@@ -51,13 +51,13 @@ begin:	mov	$0x8000,%sp			# uses higher address as stack
 	pop	%ss				# errata exists but don't care
 	mov	$2,%bx
 main:	mov	%sp,%cx
+	mov	$'\r',%al
+	call	PutChar				# Call first to initialize %dx
 	call	GetToken
 	call	GetObject
 	call	Eval
 	xchg	%ax,%si
 	call	PrintObject
-	mov	$'\r',%al
-	call	PutChar
 	jmp	main
 
 GetToken:					# GetToken():al, dl is g_look