aboutsummaryrefslogtreecommitdiff
path: root/console.s
diff options
context:
space:
mode:
authorB. Watson <yalhcru@gmail.com>2021-04-07 15:35:30 -0400
committerB. Watson <yalhcru@gmail.com>2021-04-07 15:35:30 -0400
commitf7481c4eaf95e176dd0a736ed1af46b6dd06a2b0 (patch)
treea3bb93dc5f6404611fd48db1ff5ba1bfe1ddd114 /console.s
parentb779a07339320b99e6e598699a208c99ff1ed5d3 (diff)
downloadtaipan-f7481c4eaf95e176dd0a736ed1af46b6dd06a2b0.tar.gz
Make port status updates smoother
Diffstat (limited to 'console.s')
-rw-r--r--console.s9
1 files changed, 8 insertions, 1 deletions
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: