X-Git-Url: https://git.sur5r.net/?a=blobdiff_plain;ds=sidebyside;f=libsrc%2Fcbm610%2Fclrscr.s;h=8ecc4b056d8f2a38c11f76991c2dc564f5fbdac4;hb=85885001b133e2dc320b6f6459259afa69784ca8;hp=6e620f44bfe6a3928da74b7b1f11bad01edfbe01;hpb=44fd1082ae807a0b6b4046c65914e20a7e27101c;p=cc65

diff --git a/libsrc/cbm610/clrscr.s b/libsrc/cbm610/clrscr.s
index 6e620f44b..8ecc4b056 100644
--- a/libsrc/cbm610/clrscr.s
+++ b/libsrc/cbm610/clrscr.s
@@ -4,38 +4,38 @@
 ; void clrscr (void);
 ;
 
-	.export		_clrscr
-	.import		plot
+        .export         _clrscr
+        .import         plot
         .import         CURS_X: zp, CURS_Y: zp, CharPtr: zp
 
-	.include	"cbm610.inc"
+        .include        "cbm610.inc"
 
-.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
 
-	lda	IndReg
-	pha
-	lda	#$0F
-	sta	IndReg		; Switch to the system bank
+        lda     IndReg
+        pha
+        lda     #$0F
+        sta     IndReg          ; Switch to the system bank
 
-	ldx	#8
-	ldy	#$00
-	lda	#$20	   	; Screencode for blank
-L1:	sta	(CharPtr),y
-   	iny
-   	bne	L1
-   	inc	CharPtr+1
-	dex
-	bne	L1
+        ldx     #8
+        ldy     #$00
+        lda     #$20            ; Screencode for blank
+L1:     sta     (CharPtr),y
+        iny
+        bne     L1
+        inc     CharPtr+1
+        dex
+        bne     L1
 
-	pla
-	sta	IndReg		; Restore old indirect segment
+        pla
+        sta     IndReg          ; Restore old indirect segment
 
-	jmp	plot		; Set screen pointer again
+        jmp     plot            ; Set screen pointer again
 
 .endproc