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

fixes

Browse Source
This commit is contained in:
Kelvin Sherlock 2021-09-23 17:16:10 -04:00
parent e9e969a56b
commit 1b2ac595d7
3 changed files with 9 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
vt100.csi.S
View File

@ -397,7 +397,7 @@ mode_DECOM
stz y
cpy #0
beq :rts
lda #DECTM
lda DECTM
sta y
phy

7
vt100.main.S
View File

@ -68,12 +68,13 @@ init
lda #$01
sta cursor_base+2
lda #" " ; 16-bit
sta erase_char
sep #$30
lda #"_"
sta cursor_char
lda #" "
sta erase_char
lda #23
@ -241,7 +242,7 @@ ctrl_0c ; form feed.
:lf
lda y
cmp #DECBM
cmp DECBM
bne :simple
* lda #" " ; needs to factor in reverse video

12
vt100.screen.S
View File

@ -315,14 +315,12 @@ scroll_up ent
* mvn 1,1 first so mvn 0,0 will restore b
:cp mac
lda #$40
lda #40
lda #40-1
ldx #]1
ldy #]2
mvn $010000,$010000
lda #$40
lda #40
lda #40-1
ldx #]1
ldy #]2
mvn $000000,$000000
@ -409,14 +407,12 @@ scroll_down ent
:cp mac
lda #$40
lda #40
lda #40-1
ldx #]1
ldy #]2
mvn $010000,$010000
lda #$40
lda #40
lda #40-1
ldx #]1
ldy #]2
mvn $000000,$000000