From 7f55a4be0a65de1f9f3fb754b6ab1386b5d5efff Mon Sep 17 00:00:00 2001
From: Justine Tunney <jtunney@gmail.com>
Date: Wed, 24 Nov 2021 00:07:22 -0800
Subject: [PATCH] Revert "shave one byte"

This reverts commit 041d23e99b5cb2e0f25d20bf805321a898a5718d.
---
 bin/sectorlisp.bin | Bin 512 -> 512 bytes
 sectorlisp.S       |  10 +++++-----
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/bin/sectorlisp.bin b/bin/sectorlisp.bin
index bdbecf264d1c9e27252b03b679fa5a951687c5b9..7f12dcb45a74a5caeffccb49bd20ee35ebac0cbe 100755
GIT binary patch
delta 82
zcmV-Y0ImOk1b_sPK><jSLRAreiOw<qFu+%)bp}tab@}TMk*FOQ8n6oM^o9R)68|x+
o|1^s|=o<iDUr^}mk=#27H2*v)bT;U7lOF*W0g;n80mcGVs>N<2QUCw|

delta 82
zcmV-Y0ImOk1b_sPK><gRLRArdiOw<qFu+%)bp}tab@^Dsk*FOP8L$fL^o9R)5&tp&
oFpE9t8vtHkQ0VQE-8%?1|2!#lHt2MdAORNvl9M<A#skh(s=+%Wk^lez

diff --git a/sectorlisp.S b/sectorlisp.S
index f9ed542..d4cbee8 100644
--- a/sectorlisp.S
+++ b/sectorlisp.S
@@ -111,8 +111,7 @@ GetObject:					# called just after GetToken
 	dec	%di
 	scasb
 	jne	1b
-	pop	%ax				# restore 1
-	ret
+	jmp	5f
 2:	pop	%bp				# drop 1
 	mov	%cx,%si
 3:	scasb
@@ -124,8 +123,8 @@ GetObject:					# called just after GetToken
 	dec	%di
 	scasb
 	jnz	4b
-	pop	%ax				# restore 1
-	ret
+5:	pop	%ax				# restore 1
+.ret:	ret
 
 GetChar:xor	%ax,%ax				# GetChar→al:dl
 	int	$0x16				# get keystroke
@@ -141,7 +140,8 @@ PutChar:mov	$0x0e,%ah			# prints CP-437
 Pairlis:test	%di,%di				# Pairlis(x:di,y:si,a:dx):ax
 	jz	1f				# jump if nil
 	push	(%bx,%di)			# save 1 Cdr(x)
-	push	(%bx,%si)			# save 2 Cdr(y)
+	lodsw
+	push	(%si)				# save 2 Cdr(y)
 	mov	(%di),%di
 	call	Cons				# preserves dx
 	pop	%si				# restore 2