the10thwiz/cc65
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Removed (pretty inconsistently used) tab chars from source code base.

Browse Source
This commit is contained in:
Oliver Schmidt
2013-05-09 13:56:54 +02:00
parent 44fd1082ae
commit 85885001b1
1773 changed files with 62864 additions and 62868 deletions
Download Patch File Download Diff File Expand all files Collapse all files

82
libsrc/cbm510/clrscr.s
View File

@@ -2,61 +2,61 @@
; Ullrich von Bassewitz, 14.09.2001
;
.export _clrscr
.import plot
.export _clrscr
.import plot
.include "cbm510.inc"
.include "cbm510.inc"
.include "extzp.inc"
; ------------------------------------------------------------------------
; void clrscr (void);
.proc _clrscr
.proc _clrscr
lda #0
sta CURS_X
sta CURS_Y
jsr plot ; Set cursor to top left corner
lda #0
sta CURS_X
sta CURS_Y
jsr plot ; Set cursor to top left corner
ldx #$00 ; Count
jsr clearpage
jsr clearpage
jsr clearpage
ldx #<(40*25) ; Count
jsr clearpage ; Clear remainder of last page
jmp plot ; Set screen pointer again
ldx #$00 ; Count
jsr clearpage
jsr clearpage
jsr clearpage
ldx #<(40*25) ; Count
jsr clearpage ; Clear remainder of last page
jmp plot ; Set screen pointer again
.endproc
.proc clearpage
.proc clearpage
txa
pha ; Save count
txa
pha ; Save count
lda #$20 ; Screencode for blank
ldy #$00
@L1: sta (SCREEN_PTR),y
iny
dex
bne @L1
inc SCREEN_PTR+1
lda #$20 ; Screencode for blank
ldy #$00
@L1: sta (SCREEN_PTR),y
iny
dex
bne @L1
inc SCREEN_PTR+1
pla
tax ; Reload count
lda IndReg
pha
lda #$0F
sta IndReg ; Switch to the system bank
lda CHARCOLOR ; Load color
ldy #$00
@L2: sta (CRAM_PTR),y
iny
dex
bne @L2
inc CRAM_PTR+1
pla
sta IndReg ; Restore the old indirect bank
rts
pla
tax ; Reload count
lda IndReg
pha
lda #$0F
sta IndReg ; Switch to the system bank
lda CHARCOLOR ; Load color
ldy #$00
@L2: sta (CRAM_PTR),y
iny
dex
bne @L2
inc CRAM_PTR+1
pla
sta IndReg ; Restore the old indirect bank
rts
.endproc