diff options
| author | B. Watson <urchlay@slackware.uk> | 2025-03-24 21:05:56 -0400 |
|---|---|---|
| committer | B. Watson <urchlay@slackware.uk> | 2025-03-24 21:05:56 -0400 |
| commit | 8f566e4eb05f25a86435aa3270b96b53be42ef31 (patch) | |
| tree | 2b96d4178b71ee23e83ae806dd80800e56358a92 /bas.c | |
| parent | e1e42bb3c5db65e433e1800579d85b526a28118e (diff) | |
| download | bw-atari8-tools-8f566e4eb05f25a86435aa3270b96b53be42ef31.tar.gz | |
listbas: initial (buggy) support for OSS Integer BASIC.
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); |