From eac6812f7c1931e65d45053e24f7e056844c612a Mon Sep 17 00:00:00 2001
From: Jeremiah Orians <jeremiah@pdp10.guru>
Date: Wed, 24 Aug 2016 16:30:37 -0400
Subject: [PATCH] Massively reduced stack utilization of SET.s

---
 stage1/SET.s | 24 +++++++++++++++---------
 1 file changed, 15 insertions(+), 9 deletions(-)

diff --git a/stage1/SET.s b/stage1/SET.s
index de16cd1..ab31202 100644
--- a/stage1/SET.s
+++ b/stage1/SET.s
@@ -64,7 +64,7 @@
 	PUSHR R4 R15
 	;; Initialize
 	MOVE R4 R0
-	LOADUI R0 256
+	FALSE R0					; Get where space is free
 	CALLI R15 @malloc
 	MOVE R2 R0
 	FALSE R3
@@ -98,21 +98,23 @@
 	;; Store the Byte
 	STOREX8 R0 R2 R3
 
+	;; Prep for next loop
+	ADDUI R3 R3 1
+
 	;; Check for EOL
 	CMPSKIP.NE R0 10
 	JUMP @Readline_2
 
-	;; Prevent lines from exceeding 255 chars
-	CMPSKIP.LE R3 255
-	JUMP @Readline_2
-
-	;; Prep for next loop
-	ADDUI R3 R3 1
+	;; Otherwise loop
 	JUMP @Readline_0
 
 :Readline_2
 	;; Set Text pointer
+	CMPSKIP.E R3 0				; Don't bother for Empty strings
 	STORE32 R2 R4 8
+	;; Correct Malloc
+	MOVE R0 R3					; Ensure actually allocates exactly
+	CALLI R15 @malloc			; the amount of space required
 	;; Restore Registers
 	POPR R4 R15
 	POPR R3 R15
@@ -150,8 +152,12 @@
 
 :addline_1
 	;; Handle case of Head->next not being NULL
-	LOAD32 R0 R0 0
-	CALLI R15 @addline
+	LOAD32 R0 R0 0				; Move to next node
+	LOAD32 R2 R0 0				; Get node->next
+	CMPSKIP.E R2 0				; If it is not null
+	JUMP @addline_1			; Move to the next node and try again
+	JUMP @addline_0			; Else simply act as if we got this node
+								; in the first place
 
 :addline_2
 	;; Restore registers