bslathi19/cc65
1
0
Fork 0
Code Issues Pull Requests Actions 1 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

52
libsrc/pet/clrscr.s
View File

@@ -4,46 +4,46 @@
; void clrscr (void);
;
.export _clrscr
.import plot
.importzp ptr1
.export _clrscr
.import plot
.importzp ptr1
.include "pet.inc"
.include "pet.inc"
_clrscr:
; Set the screen base address
lda #$00
sta ptr1
lda #$80
sta ptr1+1
lda #$00
sta ptr1
lda #$80
sta ptr1+1
; Determine, how many pages to fill
ldx #4
lda SCR_LINELEN ; Check length of one line
cmp #40+1
bcc L1
ldx #8
ldx #4
lda SCR_LINELEN ; Check length of one line
cmp #40+1
bcc L1
ldx #8
; Clear the screen
L1: lda #$20 ; Screen code for blank
ldy #$00
L2: sta (ptr1),y
iny
bne L2
inc ptr1+1
dex
bne L2
L1: lda #$20 ; Screen code for blank
ldy #$00
L2: sta (ptr1),y
iny
bne L2
inc ptr1+1
dex
bne L2
; Set the cursor to 0/0
lda #0
sta CURS_X
sta CURS_Y
jmp plot
lda #0
sta CURS_X
sta CURS_Y
jmp plot
rts
rts