Browse code
(launcher.tal) Do not try to open extra-large ROMs
Devine Lu Linvega authored on 09/04/2023 22:24:55
Showing 1 changed files
| ... | ... |
@@ -234,8 +234,10 @@ JMP2r |
| 234 | 234 |
#0000 .Controller/button DEO2 |
| 235 | 235 |
#00 .Mouse/state DEO |
| 236 | 236 |
|
| 237 |
- ;get-entry JSR2 #0005 ADD2 |
|
| 238 |
- |
|
| 237 |
+ ;get-entry JSR2 LDA2k LIT2 "?? NEQ2 ?&size-ok |
|
| 238 |
+ POP2 ;error-txt !pstr |
|
| 239 |
+ &size-ok |
|
| 240 |
+ #0005 ADD2 |
|
| 239 | 241 |
DUP2 ;check-rom JSR2 ,&valid JCN |
| 240 | 242 |
( check if tal file ) |
| 241 | 243 |
DUP2 ;scap JSR2 #0004 SUB2 ;&tal-ext ;scmp JSR2 #01 NEQ ,&no-tal JCN |
| ... | ... |
@@ -418,7 +420,8 @@ JMP2r |
| 418 | 420 |
|
| 419 | 421 |
JMP2r |
| 420 | 422 |
|
| 421 |
-( helpers ) |
|
| 423 |
+( |
|
| 424 |
+@|stdlib ) |
|
| 422 | 425 |
|
| 423 | 426 |
@scmp ( a* b* -- flag ) |
| 424 | 427 |
|
| ... | ... |
@@ -462,14 +465,19 @@ JMP2r |
| 462 | 465 |
|
| 463 | 466 |
JMP2r |
| 464 | 467 |
|
| 465 |
-@pointer-icn |
|
| 466 |
- 80c0 e0f0 f8e0 1000 |
|
| 467 |
-@hand-icn |
|
| 468 |
+@pstr ( str* -- ) LDAk ?&w POP2 JMP2r &w LDAk #19 DEO INC2 LDAk ?&w POP2 JMP2r |
|
| 469 |
+ |
|
| 470 |
+@error-txt |
|
| 471 |
+ "Error: 20 "Extra-large 20 "ROM, 20 "open 20 "file 20 "outside 20 "of 20 "launcher. 0a $1 |
|
| 472 |
+ |
|
| 473 |
+@pointer-icn [ |
|
| 474 |
+ 80c0 e0f0 f8e0 1000 ] |
|
| 475 |
+@hand-icn [ |
|
| 468 | 476 |
000c 0a0a 1224 4780 |
| 469 | 477 |
0000 0000 0000 fc02 |
| 470 | 478 |
8180 8080 8040 3f00 |
| 471 |
- fc20 c020 c020 c000 |
|
| 472 |
-@file-icns |
|
| 479 |
+ fc20 c020 c020 c000 ] |
|
| 480 |
+@file-icns [ |
|
| 473 | 481 |
003f 3f30 3f30 3f30 |
| 474 | 482 |
00fc fc0c fc0c fc0c |
| 475 | 483 |
3f33 3f3f 3f3f 3f00 |
| ... | ... |
@@ -477,8 +485,8 @@ JMP2r |
| 477 | 485 |
003f 3f30 3132 3231 |
| 478 | 486 |
00fc fc0c 8c4c 4c8c |
| 479 | 487 |
303f 3f3f 3f3f 3f00 |
| 480 |
- 0cfc fcc4 c8d0 e000 |
|
| 481 |
-@sin-pcm |
|
| 488 |
+ 0cfc fcc4 c8d0 e000 ] |
|
| 489 |
+@sin-pcm [ |
|
| 482 | 490 |
8083 8689 8c8f 9295 989b 9ea1 a4a7 aaad |
| 483 | 491 |
b0b3 b6b9 bbbe c1c3 c6c9 cbce d0d2 d5d7 |
| 484 | 492 |
d9db dee0 e2e4 e6e7 e9eb ecee f0f1 f2f4 |
| ... | ... |
@@ -494,7 +502,7 @@ JMP2r |
| 494 | 502 |
0102 0202 0202 0303 0405 0506 0708 090a |
| 495 | 503 |
0b0c 0e0f 1012 1415 1719 1a1c 1e20 2225 |
| 496 | 504 |
2729 2b2e 3032 3537 3a3d 3f42 4547 4a4d |
| 497 |
- 5053 5659 5c5f 6265 686b 6e71 7477 7a7d |
|
| 505 |
+ 5053 5659 5c5f 6265 686b 6e71 7477 7a7d ] |
|
| 498 | 506 |
|
| 499 | 507 |
~projects/library/check-rom.tal |
| 500 | 508 |
~projects/library/load-rom.tal |