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

[cc65] / libsrc / geos-common / conio / clrscr.s

diff --git a/libsrc/geos-common/conio/clrscr.s b/libsrc/geos-common/conio/clrscr.s
index 50be5b094d6b2a6405089f7fc5eb4e850966dca6..8df390b5b77f998915a423033cdc6412d305c86c 100644 (file)
--- a/libsrc/geos-common/conio/clrscr.s
+++ b/libsrc/geos-common/conio/clrscr.s
@@ -1,4 +1,3 @@
-
 ;
 ; Maciej 'YTM/Elysium' Witkowiak
 ;
@@ -6,49 +5,45 @@
 
 ; void clrscr (void);
 
-           .export _clrscr
-
-           .include "jumptab.inc"
-           .include "geossym.inc"
-           .include "const.inc"
+            .export _clrscr
+            .import fixcursor
+            .importzp cursor_c, cursor_r
 
-           .import fixcursor
-           .importzp cursor_c, cursor_r
+            .include "jumptab.inc"
+            .include "geossym.inc"
+            .include "const.inc"
 
 _clrscr:
-           lda #ST_WR_FORE | ST_WR_BACK
-           sta dispBufferOn
-           lda curPattern              ; save current pattern
-           pha
-           lda #0                      ; set pattern to clear
-           jsr SetPattern
-           ldx #0
-           stx r3L
-           stx r3H
-           stx r2L
-           stx cursor_c
-           inx
-           stx cursor_r
-           jsr fixcursor               ; home cursor
-.ifdef  __GEOS_CBM__
-           lda #199
-           sta r2H
-           lda graphMode
-           bpl L40
-           lda #>639                   ; 80 columns
-           ldx #<639
-           bne L99
-L40:       lda #>319                   ; 40 columns
-           ldx #<319
+        lda curPattern          ; save current pattern
+        pha
+        lda #0                  ; set pattern to clear
+        jsr SetPattern
+        ldx #0
+        stx r3L
+        stx r3H
+        stx r2L
+        stx cursor_c
+        stx cursor_r
+        jsr fixcursor           ; home cursor
+.ifdef __GEOS_CBM__
+        lda #199
+        sta r2H
+        lda graphMode
+        bpl L40
+        lda #>639               ; 80 columns
+        ldx #<639
+        bne L99
+L40:    lda #>319               ; 40 columns
+        ldx #<319
 L99:
 .else
-           lda #191
-           sta r2H
-           lda #>559
-           ldx #<559
+        lda #191
+        sta r2H
+        lda #>559
+        ldx #<559
 .endif
-           sta r4H
-           stx r4L
-           jsr Rectangle
-           pla
-           jmp SetPattern              ; restore pattern
+        sta r4H
+        stx r4L
+        jsr Rectangle
+        pla
+        jmp SetPattern          ; restore pattern