From d4942ad6efac89f7228264d8c124c0ae9c47245f Mon Sep 17 00:00:00 2001 From: "B. Watson" Date: Tue, 16 Jul 2024 04:22:51 -0400 Subject: listbas: BXL token 0x5a WIP. --- bas.c | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'bas.c') diff --git a/bas.c b/bas.c index 110e625..b3893fe 100644 --- a/bas.c +++ b/bas.c @@ -27,6 +27,9 @@ int allow_hex_const = 0; an A+ program so it can handle this token correctly. */ int aplus_errtok_hack = 0; +/* BASIC XL token 0x5a is followed by a single "subtoken", this skips it. */ +int bxl_exttok_hack = 0; + unsigned short lomem; unsigned short vntp; unsigned short vntd; @@ -373,7 +376,12 @@ void walk_code(unsigned int startlineno, unsigned int endlineno) { while(pos < end) { /* loop over tokens within a statement */ pos++; CALL(on_cmd_token); + switch(program[pos]) { + case 0x5a: + if(bxl_exttok_hack) pos++; /* skip subtoken */ + pos++; + break; case CMD_REM: case CMD_DATA: case CMD_ERROR: -- cgit v1.2.3