From f7481c4eaf95e176dd0a736ed1af46b6dd06a2b0 Mon Sep 17 00:00:00 2001 From: "B. Watson" Date: Wed, 7 Apr 2021 15:35:30 -0400 Subject: Make port status updates smoother --- console.s | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'console.s') diff --git a/console.s b/console.s index af044d2..809d0c2 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, _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, _crlf, _plus_or_space, _gotox0y, _cputc0, _set_orders .export _rvs_on, _rvs_off .importzp tmp3 ; ditto @@ -86,6 +86,13 @@ clrloop: done: rts +_cblankto: + sec + sbc COLCRS + beq done + bcs _cblank + rts + _cspaces: sta tmp3 @lp: -- cgit v1.2.3