]> git.sur5r.net Git - cc65/blobdiff - libsrc/cbm510/color.s
Removed (pretty inconsistently used) tab chars from source code base.
[cc65] / libsrc / cbm510 / color.s
index d75e9c9f40dcad099cc7789ce5e12b6fb2993c98..127450ba51664a416c0961264c5b5aa45ba6e56f 100644 (file)
@@ -2,11 +2,11 @@
 ; Ullrich von Bassewitz, 13.09.2001
 ;
 
-       .export         _textcolor, _bgcolor, _bordercolor
-       .import         sys_bank, restore_bank
-       .import         vic: zp, CHARCOLOR: zp
+        .export         _textcolor, _bgcolor, _bordercolor
+        .import         sys_bank, restore_bank
+        .import         vic: zp, CHARCOLOR: zp
 
-       .include        "cbm510.inc"
+        .include        "cbm510.inc"
 
 
 ; ------------------------------------------------------------------------
 ; /* Set the color for text output. The old color setting is returned. */
 ;
 
-.proc  _textcolor
+.proc   _textcolor
 
-       ldx     CHARCOLOR       ; get old value
-       sta     CHARCOLOR       ; set new value
-       txa
-       rts
+        ldx     CHARCOLOR       ; get old value
+        sta     CHARCOLOR       ; set new value
+        txa
+        rts
 
 .endproc
 
 
 .proc   _bgcolor
 
-       jsr     sys_bank                ; Switch to the system bank
-       pha                             ; Save new color
-       ldy     #VIC_BG_COLOR0
-       lda     (vic),y                 ; Get current color...
-       tax                             ; ...into X
-       pla                             ; Get new color
-       sta     (vic),y                 ; Set new color
-       txa                             ; Get old color into X
-       jmp     restore_bank            ; Restore the old color
+        jsr     sys_bank                ; Switch to the system bank
+        pha                             ; Save new color
+        ldy     #VIC_BG_COLOR0
+        lda     (vic),y                 ; Get current color...
+        tax                             ; ...into X
+        pla                             ; Get new color
+        sta     (vic),y                 ; Set new color
+        txa                             ; Get old color into X
+        jmp     restore_bank            ; Restore the old color
 
 .endproc
 
 ; unsigned char __fastcall__ bordercolor (unsigned char color);
 ; /* Set the color for the border. The old color setting is returned. */
 
-.proc  _bordercolor
-
-       jsr     sys_bank                ; Switch to the system bank
-       pha                             ; Save new color
-       ldy     #VIC_BORDERCOLOR
-       lda     (vic),y                 ; Get current color...
-       tax                             ; ...into X
-       pla                             ; Get new color
-       sta     (vic),y                 ; Set new color
-       txa                             ; Get old color into X
-       jmp     restore_bank            ; Restore the old color
+.proc   _bordercolor
+
+        jsr     sys_bank                ; Switch to the system bank
+        pha                             ; Save new color
+        ldy     #VIC_BORDERCOLOR
+        lda     (vic),y                 ; Get current color...
+        tax                             ; ...into X
+        pla                             ; Get new color
+        sta     (vic),y                 ; Set new color
+        txa                             ; Get old color into X
+        jmp     restore_bank            ; Restore the old color
 
 .endproc