Apple-2gs-SW
/
itty-bitty-vtty
mirror of https://github.com/ksherlock/itty-bitty-vtty.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

based on testing, will not advance to column 80 unless DECAWM is set.

This commit is contained in:
Kelvin Sherlock 2021-09-25 21:28:12 -04:00
parent 45aea0293f
commit 74d0ee7f07
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
vt100.screen.S
View File

@ -237,6 +237,7 @@ draw_char ent
* x = 80 indicates next char will wrap if DECAWM. however, treated as 79
* based on testing, will not advance to column 80 unless DECAWM is enabled.
ldx x
cpx #79
@ -256,7 +257,7 @@ draw_char ent
:79
ldy cursor_offset
sta [cursor_base],y
lda #$80
lda DECAWM ; set bit 7 if DECAWM.
tsb x ; mark overflow
rts
@ -604,6 +605,8 @@ erase_line_1 ent
adc cursor_offset
tax
sep #$20 ; short m
ldy cursor_offset
lda cursor_base+2
beq :odd