uxn

commit 83237c9641490d303a42c81ca247314d11055dea
parent 6f55ed496cb92b576eb6d099a6db7cdb6d517f31
Author: Devine Lu Linvega <aliceffekt@gmail.com>
Date:   Sun,  9 Apr 2023 15:24:55 -0700

(launcher.tal) Do not try to open extra-large ROMs

Diffstat:
M
projects/software/launcher.tal
 | 
30
+++++++++++++++++++-----------

1 file changed, 19 insertions(+), 11 deletions(-)
diff --git a/projects/software/launcher.tal b/projects/software/launcher.tal
@@ -234,8 +234,10 @@ JMP2r
 	#0000 .Controller/button DEO2
 	#00 .Mouse/state DEO
 
-	;get-entry JSR2 #0005 ADD2
-	
+	;get-entry JSR2 LDA2k LIT2 "?? NEQ2 ?&size-ok
+		POP2 ;error-txt !pstr
+		&size-ok
+	#0005 ADD2
 	DUP2 ;check-rom JSR2 ,&valid JCN
 		( check if tal file )
 		DUP2 ;scap JSR2 #0004 SUB2 ;&tal-ext ;scmp JSR2 #01 NEQ ,&no-tal JCN
@@ -418,7 +420,8 @@ JMP2r
 
 JMP2r
 
-( helpers )
+( 
+@|stdlib )
 
 @scmp ( a* b* -- flag )
 
@@ -462,14 +465,19 @@ JMP2r
 
 JMP2r
 
-@pointer-icn
-	80c0 e0f0 f8e0 1000
-@hand-icn
+@pstr ( str* -- ) LDAk ?&w POP2 JMP2r &w LDAk #19 DEO INC2 LDAk ?&w POP2 JMP2r
+
+@error-txt 
+	"Error: 20 "Extra-large 20 "ROM, 20 "open 20 "file 20 "outside 20 "of 20 "launcher. 0a $1
+
+@pointer-icn [
+	80c0 e0f0 f8e0 1000 ]
+@hand-icn [
 	000c 0a0a 1224 4780
 	0000 0000 0000 fc02
 	8180 8080 8040 3f00
-	fc20 c020 c020 c000
-@file-icns
+	fc20 c020 c020 c000 ]
+@file-icns [
 	003f 3f30 3f30 3f30
 	00fc fc0c fc0c fc0c
 	3f33 3f3f 3f3f 3f00
@@ -477,8 +485,8 @@ JMP2r
 	003f 3f30 3132 3231
 	00fc fc0c 8c4c 4c8c
 	303f 3f3f 3f3f 3f00
-	0cfc fcc4 c8d0 e000
-@sin-pcm
+	0cfc fcc4 c8d0 e000 ]
+@sin-pcm [
 	8083 8689 8c8f 9295 989b 9ea1 a4a7 aaad
 	b0b3 b6b9 bbbe c1c3 c6c9 cbce d0d2 d5d7
 	d9db dee0 e2e4 e6e7 e9eb ecee f0f1 f2f4
@@ -494,7 +502,7 @@ JMP2r
 	0102 0202 0202 0303 0405 0506 0708 090a
 	0b0c 0e0f 1012 1415 1719 1a1c 1e20 2225
 	2729 2b2e 3032 3537 3a3d 3f42 4547 4a4d
-	5053 5659 5c5f 6265 686b 6e71 7477 7a7d
+	5053 5659 5c5f 6265 686b 6e71 7477 7a7d ]
 
 ~projects/library/check-rom.tal
 ~projects/library/load-rom.tal