]> git.sur5r.net Git - cc65/blobdiff - libsrc/atari/setcolor.s
No delimiter comment between includes and first segment.
[cc65] / libsrc / atari / setcolor.s
index 3559210118dfa2b2b6e557c7f01fec334202a4c3..bf3b89572f0649b6e2d7f29811d3ace5df9fd630 100644 (file)
@@ -9,43 +9,43 @@
 ;
 
 
-       .export         __setcolor, __setcolor_low, __getcolor
-       .import         popa
-       .include        "atari.inc"
+        .export         __setcolor, __setcolor_low, __getcolor
+        .import         popa
+        .include        "atari.inc"
 
-.proc  __getcolor
+.proc   __getcolor
 
-       tax
-       lda     COLOR0,x        ; get current value
-       ldx     #0
-       rts
+        tax
+        lda     COLOR0,x        ; get current value
+        ldx     #0
+        rts
 
 .endproc
 
-.proc  __setcolor
+.proc   __setcolor
 
-;      asl     a               ; not -> BASIC compatible
-       sta     lum             ; remember luminance
-       jsr     popa            ; get hue
-       asl     a
-       asl     a
-       asl     a
-       asl     a
-       ora     lum
-;      jmp     __setcolor_low
+;       asl     a               ; not -> BASIC compatible
+        sta     lum             ; remember luminance
+        jsr     popa            ; get hue
+        asl     a
+        asl     a
+        asl     a
+        asl     a
+        ora     lum
+;       jmp     __setcolor_low
 
 .endproc
 
-.proc  __setcolor_low
+.proc   __setcolor_low
 
-       pha
-       jsr     popa
-       tax
-       pla
-       sta     COLOR0,x
-       rts
+        pha
+        jsr     popa
+        tax
+        pla
+        sta     COLOR0,x
+        rts
 
 .endproc
 
-       .bss
-lum:   .res    1
+        .bss
+lum:    .res    1