From 3967d27173bcb638ea974a94a49f8f1e1ff64cc1 Mon Sep 17 00:00:00 2001
From: Andrew Alderwick <andrew@alderwick.co.uk>
Date: Thu, 7 Oct 2021 22:58:50 +0100
Subject: [PATCH] Added file name to asma error printout.

---
 projects/library/asma.tal | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/projects/library/asma.tal b/projects/library/asma.tal
index ee2d336..19584cc 100644
--- a/projects/library/asma.tal
+++ b/projects/library/asma.tal
@@ -60,17 +60,20 @@
 )
 
 @asma-print-error ( -- )
+	.File/name DEI2 ;asma-print-string JSR2
+	;&line ;asma-print-string JSR2
+	;asma/line LDA2 ;asma-print-short JSR2
+	#3a .Console/error DEO
+	#20 .Console/error DEO
 	;asma/error LDA2 ;asma-print-string JSR2
 	#3a .Console/error DEO
 	#20 .Console/error DEO
 	;asma/orig-token LDA2 ;asma-print-string JSR2
-	;&line ;asma-print-string JSR2
-	;asma/line LDA2 ;asma-print-short JSR2
 	#2e .Console/error DEO
 	#0a .Console/error DEO
 	JMP2r
 
-	&line 20 "on 20 "line 20 00
+	&line 20 "line 20 00
 
 @asma-print-line-count ( -- )
 	;asma/log-level LDA #01 AND #00 EQU ,&skip JCN