From e972e632b103aecbf99486e9e901a399b641b241 Mon Sep 17 00:00:00 2001 From: "B. Watson" Date: Wed, 26 Jun 2024 00:36:28 -0400 Subject: listbas: tweak code and doc. --- listbas.c | 9 +++------ listbas.rst | 3 +++ 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/listbas.c b/listbas.c index 2cb9dcc..a278bd7 100644 --- a/listbas.c +++ b/listbas.c @@ -148,7 +148,6 @@ CALLBACK(print_op) { default: break; } - if(tok > last_operator || (!(name = operators[tok]))) fprintf(outfh, "(bad op token $%02x)", tok); else @@ -163,11 +162,9 @@ CALLBACK(print_varname) { for(i = vnstart, count = 0; count < tok; i++) { if(program[i] & 0x80) count++; } - while(1) { - c = program[i++]; - outchr(c & 0x7f); - if(c & 0x80) break; - } + do { + outchr( (c = program[i++]) & 0x7f); + } while (c < 0x80); } CALLBACK(print_text) { diff --git a/listbas.rst b/listbas.rst index ed6c559..3a8e746 100644 --- a/listbas.rst +++ b/listbas.rst @@ -62,6 +62,9 @@ NOTES - **listbas** doesn't print a banner on startup. +- **listbas** tells you if the program is protected, and refuses to operate + on variable-protected programs. + EXIT STATUS =========== -- cgit v1.2.3