aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorB. Watson <urchlay@slackware.uk>2024-07-10 00:13:45 -0400
committerB. Watson <urchlay@slackware.uk>2024-07-10 00:13:45 -0400
commit2b8e84fc5cfd5c1c846eeb2b11368c5b229eb5b4 (patch)
tree26c81c1d25964ad28cf9da46649aac42fac83c52
parent655385f76513f5df6ce2263c297a2d5955581f87 (diff)
downloadbw-atari8-tools-2b8e84fc5cfd5c1c846eeb2b11368c5b229eb5b4.tar.gz
whichbas: code cosmetics, add missing break.
-rw-r--r--whichbas.c10
1 files changed, 10 insertions, 0 deletions
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;
}