0
0
Fork 0
mirror of https://git.sr.ht/~rabbits/uxn synced 2024-12-04 19:47:26 +00:00
uxn/projects/library/check-rom.tal

16 lines
367 B
Tal
Raw Normal View History

2021-11-08 18:31:33 +00:00
@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