aboutsummaryrefslogtreecommitdiff
path: root/whichbas.c
diff options
context:
space:
mode:
Diffstat (limited to 'whichbas.c')
-rw-r--r--whichbas.c7
1 files changed, 5 insertions, 2 deletions
diff --git a/whichbas.c b/whichbas.c
index dabf414..f2b1f4d 100644
--- a/whichbas.c
+++ b/whichbas.c
@@ -68,6 +68,8 @@ void print_result(void) {
name = "Not Atari BASIC; probably either Turbo or BXL/BXE";
}
+ if(verbose) fprintf(stderr, " final bas_type %02x\n", bas_type);
+
fputs(name, stdout);
putchar('\n');
@@ -96,7 +98,7 @@ CALLBACK(handle_cmd) {
if(tok <= CMD_ERROR) return; /* legal in BASIC, ignore */
remove_type(BT_ATARI);
- if(tok >= 0x5b) remove_type(BT_BXL);
+ if(tok >= 0x59) remove_type(BT_BXL);
nexttok = program[pos + 1];
has_args = !(nexttok == OP_EOS || nexttok == OP_EOL);
@@ -335,7 +337,7 @@ CALLBACK(handle_end_stmt) {
break;
default: break;
}
- if(verbose) fprintf(stderr, " now %02x\n", bas_type);
+ if(verbose) fprintf(stderr, " bas_type now %02x\n", bas_type);
}
void foreign(const char *name) {
@@ -406,6 +408,7 @@ int main(int argc, char **argv) {
readfile();
parse_header();
+ allow_hex_const = 1;
on_cmd_token = handle_cmd;
on_exp_token = handle_op;
on_end_stmt = handle_end_stmt;