From 9e8f7dd4c68014878f7c63547f1efbf8533ca7d4 Mon Sep 17 00:00:00 2001 From: "B. Watson" Date: Sun, 11 Apr 2021 12:38:47 -0400 Subject: Save 3 bytes --- conio/cputc.s | 3 ++- console.s | 5 +---- taipan.c | 1 + 3 files changed, 4 insertions(+), 5 deletions(-) diff --git a/conio/cputc.s b/conio/cputc.s index 60fa7cc..748eb00 100644 --- a/conio/cputc.s +++ b/conio/cputc.s @@ -13,7 +13,7 @@ ; ;.export _cputcxy, _cputc - .export _cputc + .export _cputc, _crlf .export plot, cputdirect, putchar .import popa, _gotoxy .importzp tmp4,ptr4 @@ -64,6 +64,7 @@ cputdirect: ; accepts screen code sta COLCRS .export newline +_crlf: newline: lda #0 sta COLCRS diff --git a/console.s b/console.s index 809d0c2..009fc7f 100644 --- a/console.s +++ b/console.s @@ -2,7 +2,7 @@ .include "atari.inc" .include "conio/mul40.s" - .export _clrtobot, _clrtoeol, _clr_screen, _clrtoline, _cspaces, _cblank, _cblankto, _backspace, _cprint_pipe, _cprint_bang, _cspace, _cputc_s, _comma_space, _cprint_colon_space, _cprint_question_space, _cprint_period, _cprint_taipan_prompt, _crlf, _plus_or_space, _gotox0y, _cputc0, _set_orders + .export _clrtobot, _clrtoeol, _clr_screen, _clrtoline, _cspaces, _cblank, _cblankto, _backspace, _cprint_pipe, _cprint_bang, _cspace, _cputc_s, _comma_space, _cprint_colon_space, _cprint_question_space, _cprint_period, _cprint_taipan_prompt, _plus_or_space, _gotox0y, _cputc0, _set_orders .export _rvs_on, _rvs_off .importzp tmp3 ; ditto @@ -217,9 +217,6 @@ _cprint_period: .byte $2c _cprint_bang: lda #'!' - .byte $2c -_crlf: - lda #$9b jmp _cputc ; extern void plus_or_space(unsigned char b); diff --git a/taipan.c b/taipan.c index 5cff0f9..ee525dd 100644 --- a/taipan.c +++ b/taipan.c @@ -1703,6 +1703,7 @@ void port_stats(void) { comma_space(); // cputs(location[1]); print_msg(M_hong_kong); + clrtoeol(); } /* dynamic stuff: */ -- cgit v1.2.3