6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-02-07 04:31:38 +00:00
Code Issues Projects Releases Wiki Activity

Fix formatting, replace tabs with spaces.

Browse Source
This commit is contained in:
Stephan Mühlstrasser 2015-02-08 17:35:40 +01:00
parent de3df033d3
commit 498fbb7ed7
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
libsrc/osic1p/clrscr.s
View File

@ -13,19 +13,19 @@ BANKS = VIDEORAMSIZE / $100
_clrscr:
lda #$20 ;' '
ldy #BANKS
ldx #$00
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
sta SCRNBASE,X
inx
bne staloc
inc staloc+2
dey
bne staloc
lda #>(SCRNBASE); load high byte
sta staloc+2 ; restore base address
lda #$00 ; cursor in upper left corner
lda #$00 ; cursor in upper left corner
sta CURS_X
sta CURS_Y
jmp plot ; Set the cursor position
jmp plot ; Set the cursor position