From b0c66bcc6fc5f99dd885808b99c5388fa1804fdc Mon Sep 17 00:00:00 2001 From: "B. Watson" Date: Wed, 17 Jul 2024 02:44:51 -0400 Subject: listbas: print empty op token names correctly, handle silent let in A+. --- listbas.c | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'listbas.c') diff --git a/listbas.c b/listbas.c index 448ee8d..fe2cbd4 100644 --- a/listbas.c +++ b/listbas.c @@ -415,6 +415,7 @@ void print_ata_chr(unsigned char c) { void print_mixed_case(const char *name) { char c; + if(!*name) return; if(*name == ' ') outchr(*name++); outchr(*name++); @@ -469,7 +470,11 @@ CALLBACK(print_lineno) { CALLBACK(print_cmd) { const char *name; - if(tok == CMD_ILET) return; + if(bas_type == B_APLUS) { + if(tok == 0x52) return; + } else { + if(tok == CMD_ILET) return; + } if(color) color_on(color_cmd); -- cgit v1.2.3