From 522f0a16fd368b8e1ac4793fa055761103e50114 Mon Sep 17 00:00:00 2001
From: Peter Ferrie <peter.ferrie@gmail.com>
Date: Mon, 15 Nov 2021 21:05:27 -0800
Subject: [PATCH] shave two bytes, fix memory init

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

diff --git a/bin/sectorlisp.bin b/bin/sectorlisp.bin
index c276d4bf825b92d64dfbb4fcf6c2d82bc7e1833a..4d759881fd35737b1376fe720e2bbe8f2f24f84d 100755
GIT binary patch
delta 83
zcmV-Z0IdIj1b_q!PDxAvQ~>HL0Kf;44Jil?4h|m&{PU`@J{kcD7mIxYbX9}+Ba>kP
pAR9+?mpT4*8n6k&gZNQ*6^lGPH*_65KXe#8Et8x9Vg%04RjM%<90C9U

delta 83
zcmV-Z0IdIj1b_q$PDxAv!0Igkzy|<S0FetR2>kP^4h{|<2eCXF0SOz6eFAh<gZL+t
pUjZN+OLUhx{&gC#7sG@2Rd*GOJUlye9XvyH7(6kPngL=0RjNog8%h8G

diff --git a/sectorlisp.S b/sectorlisp.S
index c027d01..5fec6bd 100644
--- a/sectorlisp.S
+++ b/sectorlisp.S
@@ -23,14 +23,14 @@
 
 .set ONE,		%bp
 .set NIL,		1
-.set ATOM_T,		23
-.set ATOM_QUOTE,	27
-.set ATOM_COND,		39
-.set ATOM_ATOM,		49
-.set ATOM_CAR,		59
-.set ATOM_CDR,		67
-.set ATOM_CONS,		75
-.set ATOM_EQ,		85
+.set ATOM_T,		9
+.set ATOM_QUOTE,	23
+.set ATOM_COND,		35
+.set ATOM_ATOM,		45
+.set ATOM_CAR,		55
+.set ATOM_CDR,		63
+.set ATOM_CONS,		71
+.set ATOM_EQ,		81
 
 .set g_token,	0x7800
 .set g_str,	0x0
@@ -49,22 +49,22 @@
 _start:	
 .type kSymbols,@object;
 kSymbols:
-	.ascii "NIL\0\xC0"
+	.ascii "NIL\0T\0"
 .type .init,@function
 .init:	ljmp	$0x7c00>>4,$_begin
-	.ascii "\0T\0QUOTE\0COND\0ATOM\0CAR\0CDR\0CONS\0EQ\0"
+	.ascii "QUOTE\0COND\0ATOM\0CAR\0CDR\0CONS\0EQ\0"
 
 _begin:	mov	$g_mem,%cx
 	mov	%cx,%fs				# fs = &g_mem
 	xor	%ax,%ax
 	mov	%cx,%di
-	cld
-	rep stosb				# clears our bss memory
 	push	%cs				# memory model cs=ds=es = 0x7c0
 	push	%cs
 	push	%cs
 	pop	%ds
 	pop	%es
+	cld
+	rep stosb				# clears our bss memory
 	pop	%ss
 	mov	%cx,%sp
 	inc	%ax