mirror of https://git.sr.ht/~rabbits/uxn
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
15 lines
367 B
15 lines
367 B
@check-rom ( filename* -- 00 if the file doesn't exist or not a valid ROM |
|
OR 01 if the ROM seems to be valid ) |
|
.File/name DEO2 |
|
#0001 .File/length DEO2 |
|
;&first-char .File/read DEO2 |
|
|
|
( did the file read okay? ) |
|
.File/success DEI2 ORA |
|
|
|
( is the first character a LIT, LIT2, LITk or LIT2k? ) |
|
LIT &first-char $1 #9f AND #80 EQU |
|
|
|
AND |
|
JMP2r |
|
|
|
|