etc
/
uxn
mirror of https://git.sr.ht/~rabbits/uxn
0
1
Fork 0
Code Issues Projects Releases Wiki Activity

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

This commit is contained in:
Devine Lu Linvega 2023-04-09 15:24:55 -07:00
parent 6f55ed496c
commit 83237c9641
1 changed files with 19 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
projects/software/launcher.tal
View File

@ -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