uxn

commit e44234266433130a63f9c5103a36b8889bf99b8d
parent ac91aea27b1db8fb2e291f3756f344fc22c3a3ba
Author: Andrew Alderwick <andrew@alderwick.co.uk>
Date:   Fri, 14 May 2021 23:02:41 +0100

Dealt with source files that don't end with whitespace

Diffstat:
M
projects/software/asma.usm
 | 
24
++++++++++++++----------

1 file changed, 14 insertions(+), 10 deletions(-)
diff --git a/projects/software/asma.usm b/projects/software/asma.usm
@@ -87,7 +87,7 @@
 
 	&filename
 		( "test.usm 00 )
-		"projects/demos/piano.usm 00
+		"projects/examples/gui/label.usm 00
 
 	&lines [ 20 "lines 20 "in 20 "total. 0a 00 ]
 
@@ -110,19 +110,23 @@
 	&loop
 	OVR2 .File/name DEO2
 	DUP2 .File/offset DEO2
-	#0100 .File/length DEO2
-	#fe00 DUP2k .File/load DEO2
-	.File/success DEI2 ORAk ,&not-end JCN
-	POP2 POP2
-	&error
-	POP2 POP2 POP2
-	JMP2r
-
-	&not-end
+	#0023 STH2k .File/length DEO2
+	#f000 DUP2k .File/load DEO2
+	.File/success DEI2
+	DUP2 STH2r SUB2 ORA ,&last-one JCN
 	,asma-assemble-chunk JSR asma-IF-ERROR ,&error JCN
 	SUB2 SUB2
 	,&loop JMP
 
+	&last-one
+	ADD2k #00 ROT ROT STA
+	#0001 ADD2
+	,asma-assemble-chunk JSR asma-IF-ERROR ,&error JCN
+	POP2
+	&error
+	POP2 POP2 POP2
+	JMP2r
+
 @asma-init-assembler ( -- )
 	#ff ;asma/pass STA
 	#0000 ;asma/error STA2