Apple-2gs-SW/itty-bitty-vtty
1
0
Fork 0
mirror of https://github.com/ksherlock/itty-bitty-vtty.git synced 2024-06-18 02:29:32 +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 stz y
cpy #0 cpy #0
beq :rts beq :rts
lda #DECTM lda DECTM
sta y sta y
phy phy

7
vt100.main.S
View File

@ -68,12 +68,13 @@ init
lda #$01 lda #$01
sta cursor_base+2 sta cursor_base+2
lda #" " ; 16-bit
sta erase_char
sep #$30 sep #$30
lda #"_" lda #"_"
sta cursor_char sta cursor_char
lda #" "
sta erase_char
lda #23 lda #23
@ -241,7 +242,7 @@ ctrl_0c ; form feed.
:lf :lf
lda y lda y
cmp #DECBM cmp DECBM
bne :simple bne :simple
* lda #" " ; needs to factor in reverse video * 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 * mvn 1,1 first so mvn 0,0 will restore b
:cp mac :cp mac
lda #$40 lda #40-1
lda #40
ldx #]1 ldx #]1
ldy #]2 ldy #]2
mvn $010000,$010000 mvn $010000,$010000
lda #$40 lda #40-1
lda #40
ldx #]1 ldx #]1
ldy #]2 ldy #]2
mvn $000000,$000000 mvn $000000,$000000
@ -409,14 +407,12 @@ scroll_down ent
:cp mac :cp mac
lda #$40 lda #40-1
lda #40
ldx #]1 ldx #]1
ldy #]2 ldy #]2
mvn $010000,$010000 mvn $010000,$010000
lda #$40 lda #40-1
lda #40
ldx #]1 ldx #]1
ldy #]2 ldy #]2
mvn $000000,$000000 mvn $000000,$000000