diff options
Diffstat (limited to 'bas.c')
| -rw-r--r-- | bas.c | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -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); |