Apple-2gs-SW/itty-bitty-vtty
1
0
Fork 0
mirror of https://github.com/ksherlock/itty-bitty-vtty.git synced 2024-11-21 20:30:56 +00:00
Code Issues Projects Releases Wiki Activity

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

Browse Source
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 * 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 ldx x
cpx #79 cpx #79
@ -256,7 +257,7 @@ draw_char ent
:79 :79
ldy cursor_offset ldy cursor_offset
sta [cursor_base],y sta [cursor_base],y
lda #$80 lda DECAWM ; set bit 7 if DECAWM.
tsb x ; mark overflow tsb x ; mark overflow
rts rts
@ -604,6 +605,8 @@ erase_line_1 ent
adc cursor_offset adc cursor_offset
tax tax
sep #$20 ; short m
ldy cursor_offset ldy cursor_offset
lda cursor_base+2 lda cursor_base+2
beq :odd beq :odd