From a41f1ce3e8fe166b7e8b8b06c20f6071d0398289 Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Thu, 15 Feb 2024 20:31:27 -0800
Subject: [PATCH] (brainfuck.tal) Modernizing

---
 projects/examples/exercises/brainfuck.tal | 115 ++++++++++------------
 projects/examples/exercises/hello.bf      |   2 +
 2 files changed, 56 insertions(+), 61 deletions(-)
 create mode 100644 projects/examples/exercises/hello.bf

diff --git a/projects/examples/exercises/brainfuck.tal b/projects/examples/exercises/brainfuck.tal
index 1b9f02a..31d4c60 100644
--- a/projects/examples/exercises/brainfuck.tal
+++ b/projects/examples/exercises/brainfuck.tal
@@ -1,71 +1,64 @@
-( Brainfuck:
-	>	Move the pointer to the right
-	<	Move the pointer to the left
-	+	Increment the memory cell at the pointer
-	-	Decrement the memory cell at the pointer
-	.	Output the character signified by the cell at the pointer
-	,	Input a character and store it in the cell at the pointer
-	[	Jump past the matching ] if the cell at the pointer is 0
-	]	Jump back to the matching [ if the cell at the pointer is nonzero )
+( usage: cat program.bf | uxncli brainfuck.rom )
 
-|0100 ( -> )
+|10 @Console &vector $2 &read $1 &pad $4 &type $1 &write $1 &error $1
 
-	;memory
-	;program
-	&while
-		LDAk LIT "> NEQ ,&movr JCN [ SWP2 INC2 SWP2 ] &movr
-		LDAk LIT "< NEQ ,&movl JCN [ SWP2 #0001 SUB2 SWP2 ] &movl
-		LDAk LIT "+ NEQ ,&incr JCN [ OVR2 STH2k LDA INC STH2r STA ] &incr
-		LDAk LIT "- NEQ ,&decr JCN [ OVR2 STH2k LDA #01 SUB STH2r STA ] &decr
-		LDAk LIT ". NEQ ,&emit JCN [ OVR2 LDA #18 DEO ] &emit
-		LDAk LIT "[ NEQ ,&next JCN [ ,goto-next JSR ] &next
-		LDAk LIT "] NEQ ,&prev JCN [ ,goto-back JSR ] &prev
-		INC2 LDAk ,&while JCN
-	POP2
-	( halt )
-	#010f DEO
+|0100
 
-BRK
+@on-reset ( -> )
+	;on-console .Console/vector DEO2
+	BRK
 
-@goto-next ( -- )
+@on-console ( -> )
+	.Console/read DEI DUP #20 GTH ?{
+		POP <eval>
+		#0000 .Console/vector DEO2
+		#010f DEO
+		BRK }
+	[ LIT2 &ptr =program ] INC2k ,&ptr STR2
+	STA
+	BRK
 
-	OVR2 LDA #00 EQU JMP JMP2r
-	( depth ) LITr 00
-	INC2
-	&loop
-		LDAk LIT "[ NEQ JMP INCr
-		LDAk LIT "] NEQ ,&no-end JCN
-			STHkr #00 EQU ,&end JCN
-			LITr 01 SUBr
-			&no-end
-		INC2 LDAk ,&loop JCN
-	&end
-	( depth ) POPr
+@<eval> ( -- )
+	;on-console/ptr LDA2 ;program
+	&while ( -- )
+		LDAk [ LIT "+ ] NEQ ?{
+			OVR2 STH2k LDA INC STH2r STA }
+		LDAk [ LIT "- ] NEQ ?{
+			OVR2 STH2k LDA #01 SUB STH2r STA }
+		LDAk [ LIT "> ] NEQ ?{ SWP2 INC2 SWP2 }
+		LDAk [ LIT "< ] NEQ ?{
+			SWP2 #0001 SUB2 SWP2 }
+		LDAk [ LIT ". ] NEQ ?{
+			OVR2 LDA #18 DEO }
+		LDAk [ LIT "[ ] NEQ ?{ goto-next }
+		LDAk [ LIT "] ] NEQ ?{ goto-back }
+		INC2 LDAk ?&while
+	POP2 JMP2r
 
-JMP2r
+@goto-next ( mem* prg* -- )
+	OVR2 LDA ?{ JMP2r }
+	( depth ) [ LITr 00 ] INC2
+	&loop ( -- )
+		LDAk [ LIT "[ ] NEQ JMP
+		INCr LDAk [ LIT "] ] NEQ ?&>no-end
+			STHkr #00 EQU ?&end
+			LITr 01 SUBr &>no-end
+		INC2 LDAk ?&loop
+	&end ( depth )
+		POPr JMP2r
 
-@goto-back ( -- )
+@goto-back ( mem* prg* -- )
+	OVR2 LDA ?{ JMP2r }
+	( depth ) [ LITr 00 ] #0001 SUB2
+	&loop ( -- )
+		LDAk [ LIT "] ] NEQ JMP
+		INCr LDAk [ LIT "[ ] NEQ ?&>no-end
+			STHkr #00 EQU ?&end
+			LITr 01 SUBr &>no-end
+		#0001 SUB2 LDAk ?&loop
+	&end ( depth )
+		POPr JMP2r
 
-	OVR2 LDA #00 NEQ JMP JMP2r
-	( depth ) LITr 00
-	#0001 SUB2
-	&loop
-		LDAk LIT "] NEQ JMP INCr
-		LDAk LIT "[ NEQ ,&no-end JCN
-			STHkr #00 EQU ,&end JCN
-			LITr 01 SUBr
-			&no-end
-		#0001 SUB2 LDAk ,&loop JCN
-	&end
-	( depth ) POPr
+@program
 
-JMP2r
 
-@program ( Hello World! )
-
-	"++++++++[>++++[>++>+++>+++>+<<<<
-	"-]>+>+>->>+[<]<-]>>.>---.+++++++
-	"..+++.>>.<-.<.+++.------.-------
-	"-.>>+.>++. $1
-
-@memory
diff --git a/projects/examples/exercises/hello.bf b/projects/examples/exercises/hello.bf
new file mode 100644
index 0000000..7f5b94d
--- /dev/null
+++ b/projects/examples/exercises/hello.bf
@@ -0,0 +1,2 @@
+>++++++++[<+++++++++>-]<.>++++[<+++++++>-]<+.+++++++..+++.>>++++++[<+++++++>-]<++.------------.>++++++[<+++++++++>-]<+.<.+++.------.--------.>>>++++[<++++++++>-]<+.
+