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

@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