Apple-2-SW/emailler
1
0
Fork 0
mirror of https://github.com/bobbimanners/emailler.git synced 2024-05-28 20:41:33 +00:00
Code Issues Projects Releases Wiki Activity

Merge pull request #2 from groessler/something_to_pull

Browse Source 
a2vt100.s: use symbols instead of hard coded constants for screen dimensions
This commit is contained in:
Oliver Schmidt 2017-08-02 14:24:55 +02:00 committed by GitHub
commit df239024ed
1 changed files with 18 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
drivers/a2vt100.s
View File

@ -10,6 +10,9 @@
.exportzp vt100_screen_cols = 80
.exportzp vt100_screen_rows = 24
.define Cols vt100_screen_cols
.define Rows vt100_screen_rows
.import beep
.import telnet_close
.import telnet_send_char
@ -228,7 +231,7 @@ LF jsr clPending
bne D4a ; no -> branch
jsr CUScrl ; yes -> scroll up
rts
D4a cpx #$17 ; end of screen?
D4a cpx #Rows-1 ; end of screen?
bne D4b ; no -> branch
rts ; yes -> do nothing
D4b inx ; next line
@ -244,9 +247,9 @@ D5 cmp #$09 ; TAB?
and #$f8 ; (col DIV 8) * 8
clc ; col + 8
adc #$08
cmp #$50 ; col=80?
cmp #Cols ; col=80?
bne D5a ; no -> skip
lda #$4f ; yes -> col=79
lda #Cols-1 ; yes -> col=79
D5a tay ; col to y
ldx CV ; line to x
jsr CPlot ; set crsr
@ -467,11 +470,11 @@ LE3 cmp #$43 ; C ?
LE3c lda CH ; get crsr col
clc
adc EPar ; col = col + right
cmp #$4f ; outside screen?
cmp #Cols-1 ; outside screen?
bcs LE3d ; yes -> branch
tay
jmp LE3a
LE3d ldy #$4f ; y=col=left margin
LE3d ldy #Cols-1 ; y=col=left margin
LE3a ldx CV ; x is row
jsr CPlot ; set crsr
jmp LEend
@ -584,7 +587,7 @@ LE8a jsr GetNum
bne LE8b ; 0 means 1
iny
LE8b dey ; line 1 -> line 0
cpy #$18 ; >= 24?..
cpy #Rows ; >= 24?..
bcs LE8d ; ..error!
sty xVector ; save row
; -- prepare col
@ -593,7 +596,7 @@ LE8b dey ; line 1 -> line 0
bne LE8c ; 0 means 1
iny
LE8c dey ; col 1 -> col 0
cpy #$50 ; >= 80?..
cpy #Cols ; >= 80?..
bcs LE8d ; ..error!
ldx xVector ; restore row to X
jsr CPlot ; set crsr
@ -609,7 +612,7 @@ LE9 cmp #$4a ; J ?
jsr ErEnLn ; del rest of line
ldx CV ; get crsr line
LE9b inx ; next line
cpx #$18 ; line 24?
cpx #Rows ; line 24?
bcs LE9f ; then end
txa
pha ; save X
@ -633,7 +636,7 @@ LE9c dex ; previous line
; -- 2 -- del screen
LE9e cmp #$02 ; unknown?
bne LE9f ; then ingnore
ldx #$17 ; start at ln 23
ldx #Rows-1 ; start at ln 23
LE9d txa
pha ; save X
jsr ErLn ; erase line
@ -652,14 +655,14 @@ LE10 cmp #$72 ; r ?
bne LE10e ; no -> error
ldy EPar ; get top
dey ; line 1 -> line 0
cpy #$18 ; >=24?..
cpy #Rows ; >=24?..
bcs LE10e ; ..error!
sty xVector ; save top
; -- prepare bottom --
jsr GetNum
ldy EPar ; get bottom
dey ; line 1 -> line 0
cpy #$18 ; >=24?..
cpy #Rows ; >=24?..
bcs LE10e ; ..error!
sty zVector ; save bottom
; -- validate lines --
@ -1183,7 +1186,7 @@ PC3 sta (BASL),y ; char to screen
ldy CH ; get crsr col
; -- move on crsr --
cpy #$4f ; col = 79?
cpy #Cols-1 ; col = 79?
bne PC8 ; no -> skip
lda #$ff ; yes -> set..
sta lbPending ; ..pending
@ -1210,7 +1213,7 @@ NewLn pha ; save char
ldx CV ; get crsr row
cpx SRE ; end of scroll reg?
beq NL1 ; yes -> branche
cpx #$17 ; line 23?
cpx #Rows-1 ; line 23?
beq NLend ; yes -> crsr stays
; --- normal wrap ---
inx ; increase line
@ -1585,7 +1588,7 @@ InitVar lda #$00
sta lbPending
sta civis
lda #$17 ; last line
lda #Rows-1 ; last line
sta SRE ; = 23
rts
@ -1617,7 +1620,7 @@ InitScr
; --- limit SET80COL-HISCR to text ---
bit LORES
; --- erase screen ---
ldx #$17 ; start at ln 23
ldx #Rows-1 ; start at ln 23
IS1 txa
pha ; save X
jsr ErLn ; erase line