From a2078a72023c47f1f27f13b6bdd1e093af09ab32 Mon Sep 17 00:00:00 2001
From: Devine Lu Linvega <aliceffekt@gmail.com>
Date: Sat, 21 Jan 2023 12:07:55 -0800
Subject: [PATCH] Display potato modal for assembly errors

---
 etc/error.tal     | 35 +++++++++++++++++++++++++++++++++++
 src/assembler.tal |  8 ++++----
 2 files changed, 39 insertions(+), 4 deletions(-)
 create mode 100644 etc/error.tal

diff --git a/etc/error.tal b/etc/error.tal
new file mode 100644
index 0000000..32edc10
--- /dev/null
+++ b/etc/error.tal
@@ -0,0 +1,35 @@
+|0020 "zero-page-writing $1
+
+|0100 
+
+	( invalid paddings )
+	|abspad
+	$relpad
+	( invalid hex )
+	#vo
+	#void
+	( invalid token )
+	bad-token
+	( invalid literals )
+	#a 
+	#aaa 
+	#aaaaa
+	( invalid raws )
+	b
+	bbb
+	bbbbb
+	( duplicate labels )
+	@unique-parent
+	@unique-parent
+		&unique-children
+		&unique-children
+	( invalid labels )
+	.zeropage
+	,missing
+	;absolute
+	( invalid distance )
+	,too-far
+
+BRK
+
+$1000 @too-far
diff --git a/src/assembler.tal b/src/assembler.tal
index a0e84fe..0571f89 100644
--- a/src/assembler.tal
+++ b/src/assembler.tal
@@ -1,11 +1,11 @@
 
 @on-error ( id* name* -> )
 
-	#0a18 DEO
-	( print ) ;err pstr pstr #2018 DEO pstr ;dict/asm-in pstr ;scope pstr ;dict/asm-dot pstr
-	( halt ) #010f DEO
+	!add-err
+	POP2 POP2
+	POP2r
 
-BRK
+JMP2r
 
 @handle-file ( f* -- )
 
-- 
2.38.5