Apple-2-SW/emailler
1
0
Fork 0
mirror of https://github.com/bobbimanners/emailler.git synced 2025-02-02 12:31:33 +00:00
Code Issues Projects Releases Wiki Activity

Use symbols instead of hard coded constants for screen dimensions MkII.

Browse Source
This commit is contained in:
Oliver Schmidt 2017-08-09 21:50:23 +02:00
parent 39f83b7709
commit 463904988b
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
drivers/a2vt100.s
View File

@ -1249,7 +1249,7 @@ DEL2 ; first col
ldx CV ldx CV
beq DELee ; odd: top left corner beq DELee ; odd: top left corner
dex dex
ldy #79 ldy #Cols-1
jsr Plot jsr Plot
ldy CH ldy CH
@ -1316,14 +1316,14 @@ US1 ; -- new line: --
jsr SLV jsr SLV
; -- copy even col chars -- ; -- copy even col chars --
bit $c055 bit $c055
ldy #$27 ; even col 39 ldy #Cols/2-1 ; even col 39
US2 lda (xVector),y ; copy char US2 lda (xVector),y ; copy char
sta (zVector),y sta (zVector),y
dey dey
bpl US2 bpl US2
; -- copy odd col chars -- ; -- copy odd col chars --
bit $c054 bit $c054
ldy #$27 ; odd col 39 ldy #Cols/2-1 ; odd col 39
US3 lda (xVector),y ; copy char US3 lda (xVector),y ; copy char
sta (zVector),y sta (zVector),y
dey dey
@ -1370,14 +1370,14 @@ DS1 ; -- new line: --
jsr SLV jsr SLV
; -- copy even col chars -- ; -- copy even col chars --
bit $c055 bit $c055
ldy #$27 ; even col 39 ldy #Cols/2-1 ; even col 39
DS2 lda (xVector),y ; copy char DS2 lda (xVector),y ; copy char
sta (zVector),y sta (zVector),y
dey dey
bpl DS2 bpl DS2
; -- copy odd col chars -- ; -- copy odd col chars --
bit $c054 bit $c054
ldy #$27 ; odd col 39 ldy #Cols/2-1 ; odd col 39
DS3 lda (xVector),y ; copy char DS3 lda (xVector),y ; copy char
sta (zVector),y sta (zVector),y
dey dey
@ -1451,7 +1451,7 @@ ErLn jsr SLV ; line start in xVector
; -- erase even col chars -- ; -- erase even col chars --
ErLn_ bit $c055 ErLn_ bit $c055
ldy #$27 ; even col 39 ldy #Cols/2-1 ; even col 39
lda #$20|$80 ; load space lda #$20|$80 ; load space
EL1 sta (xVector),y ; clear char EL1 sta (xVector),y ; clear char
dey dey
@ -1459,7 +1459,7 @@ EL1 sta (xVector),y ; clear char
; -- erase odd col chars -- ; -- erase odd col chars --
bit $c054 bit $c054
ldy #$27 ; odd col 39 ldy #Cols/2-1 ; odd col 39
EL2 sta (xVector),y ; clear char EL2 sta (xVector),y ; clear char
dey dey
bpl EL2 bpl EL2
@ -1485,7 +1485,7 @@ ErEnLn
bcs EEL2 ; odd crsr col bcs EEL2 ; odd crsr col
EEL1 sta (BASL),y ; clear char EEL1 sta (BASL),y ; clear char
EEL2 iny EEL2 iny
cpy #$28 ; even pos 40? cpy #Cols/2 ; even pos 40?
bne EEL1 ; next char bne EEL1 ; next char
; -- erase odd col chars -- ; -- erase odd col chars --
@ -1493,7 +1493,7 @@ EEL2 iny
ldy tmp1 ; restore start ldy tmp1 ; restore start
EEL3 sta (BASL),y ; clear char EEL3 sta (BASL),y ; clear char
iny iny
cpy #$28 ; odd pos 40? cpy #Cols/2 ; odd pos 40?
bne EEL3 ; next char bne EEL3 ; next char
sta sCrsrChar ; del char .. sta sCrsrChar ; del char ..