6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-01-27 09:33:42 +00:00
Code Issues Projects Releases Wiki Activity

Replaced magic numbers with symbolic constants.

Browse Source
This commit is contained in:
Stephan Mühlstrasser 2015-03-01 20:53:57 +01:00
parent 1d6aa84d9a
commit 981ab10fac
1 changed files with 14 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
libsrc/osic1p/cputc.s
View File

@ -12,6 +12,10 @@
.include "osic1p.inc"
.include "extzp.inc"
FIRSTVISC = $85 ; Offset of first visible character in video RAM
LINEDIST = $20 ; Offset in video RAM between two lines
BLOCKSIZE = $100 ; Size of block to scroll
_cputcxy:
pha ; Save C
jsr popa ; Get Y
@ -37,7 +41,7 @@ cputdirect:
advance:
cpy #(SCR_WIDTH - 1)
bne L3
jsr newline ; new line
jsr newline ; New line
ldy #$FF ; + cr
L3: iny
sty CURS_X
@ -46,22 +50,22 @@ L3: iny
newline:
inc CURS_Y
lda CURS_Y
cmp #SCR_HEIGHT ; screen height
cmp #SCR_HEIGHT ; Screen height
bne plot
dec CURS_Y ; bottom of screen reached, scroll
dec CURS_Y ; Bottom of screen reached, scroll
ldx #0
scroll: lda SCRNBASE+$00A5,x
sta SCRNBASE+$0085,x
lda SCRNBASE+$01A5,x
sta SCRNBASE+$0185,x
lda SCRNBASE+$02A5,x
sta SCRNBASE+$0285,x
scroll:
.repeat 3, I ; Scroll screen in three blocks of size
; BLOCKSIZE
lda SCRNBASE+(I*BLOCKSIZE)+FIRSTVISC+LINEDIST,x
sta SCRNBASE+(I*BLOCKSIZE)+FIRSTVISC,x
.endrepeat
inx
bne scroll
lda #' ' ; Clear bottom line of screen
bottom:
sta SCRNBASE+$0385,x
sta SCRNBASE+(3*BLOCKSIZE)+FIRSTVISC,x
inx
cpx #SCR_WIDTH
bne bottom