diff options
author | B. Watson <urchlay@slackware.uk> | 2024-07-10 00:13:45 -0400 |
---|---|---|
committer | B. Watson <urchlay@slackware.uk> | 2024-07-10 00:13:45 -0400 |
commit | 2b8e84fc5cfd5c1c846eeb2b11368c5b229eb5b4 (patch) | |
tree | 26c81c1d25964ad28cf9da46649aac42fac83c52 | |
parent | 655385f76513f5df6ce2263c297a2d5955581f87 (diff) | |
download | bw-atari8-tools-2b8e84fc5cfd5c1c846eeb2b11368c5b229eb5b4.tar.gz |
whichbas: code cosmetics, add missing break.
-rw-r--r-- | whichbas.c | 10 |
1 files changed, 10 insertions, 0 deletions
@@ -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; } |