From 2b8e84fc5cfd5c1c846eeb2b11368c5b229eb5b4 Mon Sep 17 00:00:00 2001 From: "B. Watson" Date: Wed, 10 Jul 2024 00:13:45 -0400 Subject: whichbas: code cosmetics, add missing break. --- whichbas.c | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/whichbas.c b/whichbas.c index 7d8764e..fbee759 100644 --- a/whichbas.c +++ b/whichbas.c @@ -400,6 +400,7 @@ CALLBACK(handle_cmd) { break; case 0x5a: /* TB: BLOAD; BXL: extension mechanism; BXE: invalid. */ + /* COMPLETE */ /* This is the token used for the BXL EXTEND.COM added commands, from the Toolkit disk. It's followed by a byte ranging 0x10 to 0x15 that specifies which extended command, e.g. 0x5a 0x11 means @@ -520,6 +521,7 @@ CALLBACK(handle_op) { remove_type(BT_TURBO); } break; + case 0x59: /* INKEY$ (0 arg pseudo-func) in TB, string array separator semicolon in BXL/BXE */ /* PARTIAL: ...but pretty good. we *can't* check nexttok == OP_GRP_RPAR, because VAL(INKEY$) or ASC(INKEY$) are legit Turbo code. @@ -546,6 +548,7 @@ CALLBACK(handle_op) { remove_type(BT_TURBO); } break; + case 0x5a: /* EXOR (infix num op) or BUMP( (pseudo-function, no OP_FUNC_LPAR) */ case 0x5d: /* DIV (infix num op) or RANDOM( (pseudo-func, 1 or 2 num args) */ /* COMPLETE (I think, anyway) */ @@ -558,6 +561,7 @@ CALLBACK(handle_op) { remove_type(BT_TURBO); } break; + case 0x5c: /* DEC (function, takes str) in TB, HEX$ (function, takes num) in BXL/BXE */ /* PARTIAL: won't catch HEX$(ASC("A")) (or any other nested function call) */ if(nexttok2 == OP_STRCONST) { @@ -572,6 +576,7 @@ CALLBACK(handle_op) { } } break; + case 0x5e: /* FRAC (num func, 1 arg) or DPEEK (num func, 1 arg) in BXL... however BXE has an optional 2nd arg. */ { @@ -590,6 +595,7 @@ CALLBACK(handle_op) { } } break; + case 0x5f: /* TIME$ in TB, SYS (function) in BXL/BXE */ case 0x60: /* TIME in TB, VSTICK (function) in BXL/BXE */ case 0x61: /* MOD (infix op) in TB, HSTICK (function) in BXL/BXE */ @@ -601,11 +607,14 @@ CALLBACK(handle_op) { remove_type(BT_BXL_BXE); } break; + case 0x63: /* RND (pseudo-func, no arg) or ERR (func, 1 num arg) */ /* COMPLETE */ if(nexttok != OP_FUNC_LPAR) { set_type(BT_TURBO); } + break; + case 0x66: /* %0 in TB, LEFT$( (pseudo-func, takes string) in BXL/BXE */ case 0x67: /* %1 in TB, RIGHT$( (pseudo-func, takes string) in BXL/BXE */ case 0x68: /* %2 in TB, MID$( (pseudo-func, takes string) in BXL/BXE */ @@ -618,6 +627,7 @@ CALLBACK(handle_op) { remove_type(BT_BXL_BXE); */ } break; + default: break; } -- cgit v1.2.3