mirror of
https://github.com/bobbimanners/emailler.git
synced 2024-09-27 10:56:59 +00:00
atrvt100.s: use ADRESS instead of xVector variable
This was probably an artifact from early stages of porting to the Atari. Problem manifested itself e.g. when hitting DEL in the middle of a 'bash' input line. The change also includes some cleanups as suggested by Oliver.
This commit is contained in:
parent
0c0fd3f397
commit
78864d2c56
@ -1253,10 +1253,8 @@ DEL2 ; first col
|
|||||||
jsr Plot
|
jsr Plot
|
||||||
ldy COLCRS
|
ldy COLCRS
|
||||||
|
|
||||||
DELe ldx ROWCRS
|
DELe lda #$00
|
||||||
jsr SLV
|
sta (ADRESS),y ; clear char
|
||||||
lda #$00
|
|
||||||
sta (xVector),y ; clear char
|
|
||||||
DELee jsr COn
|
DELee jsr COn
|
||||||
rts
|
rts
|
||||||
|
|
||||||
@ -1448,10 +1446,9 @@ EL1 sta (xVector),y ; clear char
|
|||||||
|
|
||||||
ErEnLn jsr COff
|
ErEnLn jsr COff
|
||||||
; -- erase chars --
|
; -- erase chars --
|
||||||
ldx ROWCRS
|
|
||||||
ldy COLCRS ; get crsr col
|
ldy COLCRS ; get crsr col
|
||||||
lda #$00 ; load space
|
lda #$00 ; load space
|
||||||
EEL1 sta (xVector),y ; clear char
|
EEL1 sta (ADRESS),y; clear char
|
||||||
iny
|
iny
|
||||||
cpy #Cols ; pos 40?
|
cpy #Cols ; pos 40?
|
||||||
bne EEL1 ; next char
|
bne EEL1 ; next char
|
||||||
@ -1469,10 +1466,9 @@ EEL1 sta (xVector),y ; clear char
|
|||||||
|
|
||||||
ErBeLn jsr COff
|
ErBeLn jsr COff
|
||||||
; -- erase chars --
|
; -- erase chars --
|
||||||
ldx ROWCRS
|
|
||||||
ldy COLCRS ; get crsr col
|
ldy COLCRS ; get crsr col
|
||||||
lda #$00 ; load space
|
lda #$00 ; load space
|
||||||
EBL1 sta (xVector),y ; clear char
|
EBL1 sta (ADRESS),y; clear char
|
||||||
dey
|
dey
|
||||||
bpl EBL1 ; pos>=0 -> next
|
bpl EBL1 ; pos>=0 -> next
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user