From 8f566e4eb05f25a86435aa3270b96b53be42ef31 Mon Sep 17 00:00:00 2001 From: "B. Watson" Date: Mon, 24 Mar 2025 21:05:56 -0400 Subject: listbas: initial (buggy) support for OSS Integer BASIC. --- bas.c | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'bas.c') diff --git a/bas.c b/bas.c index e5df296..6973876 100644 --- a/bas.c +++ b/bas.c @@ -30,6 +30,8 @@ int aplus_errtok_hack = 0; /* BASIC XL token 0x5a is followed by a single "subtoken", this skips it. */ int bxl_exttok_hack = 0; +int numconst_size = 6; /* 2 for OSS Integer BASIC */ + unsigned short lomem; unsigned short vntp; unsigned short vntd; @@ -114,6 +116,7 @@ void parse_header(void) { int vntp_offset; lomem = getword(0); + if(lomem == 0x77) lomem = 0; vntp = getword(2); vntd = getword(4); vvtp = getword(6); @@ -403,7 +406,7 @@ void walk_code(unsigned int startlineno, unsigned int endlineno) { CALL(on_exp_token); pos++; CALL(on_num_const); - pos += 6; + pos += numconst_size; break; case OP_HEXCONST: if(allow_hex_const) { @@ -415,7 +418,7 @@ void walk_code(unsigned int startlineno, unsigned int endlineno) { if(allow_hex_const) { CALL(on_num_const); } - pos += 6; + pos += numconst_size; break; case OP_STRCONST: CALL(on_exp_token); -- cgit v1.2.3