diff options
author | B. Watson <yalhcru@gmail.com> | 2021-04-07 15:35:30 -0400 |
---|---|---|
committer | B. Watson <yalhcru@gmail.com> | 2021-04-07 15:35:30 -0400 |
commit | f7481c4eaf95e176dd0a736ed1af46b6dd06a2b0 (patch) | |
tree | a3bb93dc5f6404611fd48db1ff5ba1bfe1ddd114 /console.s | |
parent | b779a07339320b99e6e598699a208c99ff1ed5d3 (diff) | |
download | taipan-f7481c4eaf95e176dd0a736ed1af46b6dd06a2b0.tar.gz |
Make port status updates smoother
Diffstat (limited to 'console.s')
-rw-r--r-- | console.s | 9 |
1 files changed, 8 insertions, 1 deletions
@@ -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: |