From 0fb8fa3b2a55742ff63aa0535d70101f27be78cf Mon Sep 17 00:00:00 2001
From: Peter Ferrie <peter.ferrie@gmail.com>
Date: Fri, 5 Nov 2021 15:17:06 -0700
Subject: [PATCH] shave one more byte

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

diff --git a/bin/sectorlisp.bin b/bin/sectorlisp.bin
index 60f04d1b22f372c9f0b9b68ca3477759acb8feea..021a1873525712b0776efa803964608da6fdb899 100755
GIT binary patch
delta 35
tcmV+;0Nnq81b_sPG!#}b|G6aq{PUz)7m3Wc05*=`^Qy5)wE+XpRjLeI5EcLc

delta 35
tcmV+;0Nnq81b_sPG!=>Q7m3XLxBxbe;4%O6sxkkuCG(`QNVNe1RjMec5jp?>

diff --git a/sectorlisp.S b/sectorlisp.S
index daf962b..171dd5d 100644
--- a/sectorlisp.S
+++ b/sectorlisp.S
@@ -53,18 +53,18 @@ _begin:	push	%cs				# memory model cs=ds=es = 0x800
 	pop	%ds
 	pop	%es
 	mov	$kSymbols,%si
-	mov	%si,%cx
+	push	%si
+	xor	%di,%di				# mov g_str, %di
+	mov	$37,%cx
+	cld
+	rep movsb
+	pop	%cx
 	pop	%ss
 	mov	%cx,%sp
-	cld
 	mov	$g_mem,%ax
 	mov	%ax,%fs				# fs = &g_mem
-	xor	%di,%di
 	rep stosb				# clears our bss memory
-main:	xor	%di,%di				# mov g_str, %di
-	mov	$37,%cl
-	rep movsb
-0:	mov	$'\n',%dl
+main:	mov	$'\n',%dl
 	call	GetToken
 	call	GetObject
 	mov	$NIL,%dx
@@ -72,7 +72,7 @@ main:	xor	%di,%di				# mov g_str, %di
 	call	PrintObject
 	mov	$'\r',%al
 	call	PutChar
-	jmp	0b
+	jmp	main
 
 GetToken:					# GetToken():al, dl is g_look
 	mov	$g_token,%di