6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-04-09 10:39:40 +00:00
Code Issues Projects Releases Wiki Activity

Adapt to assembler coding conventions.

Browse Source
This commit is contained in:
Stephan Mühlstrasser 2014-11-16 21:57:59 +01:00
parent 14958949c2
commit a20bba0f1e
1 changed files with 14 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
libsrc/c1p/clrscr.s
View File

@ -9,15 +9,17 @@
; This is self-modifying code!
BANKS = VIDEORAMSIZE / $100
_clrscr: LDA #$20 ;' '
LDY #BANKS
LDX #$00
STALOC: STA SCRNBASE,X
INX
BNE STALOC
INC STALOC+2
DEY
BNE STALOC
LDA #>(SCRNBASE) ; load high byte
STA STALOC+2 ; restore base address
RTS
_clrscr:
lda #$20 ;' '
ldy #BANKS
ldx #$00
staloc:
sta SCRNBASE,X
inx
bne staloc
inc staloc+2
dey
bne staloc
lda #>(SCRNBASE) ; load high byte
sta staloc+2 ; restore base address
rts