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

[cc65] / libsrc / runtime / toslong.s

diff --git a/libsrc/runtime/toslong.s b/libsrc/runtime/toslong.s
index f26cec121220b3ae3c4cf97a53a9088a994c4123..9065d3e6c1aa55ca5a972d1a9fd3dcc98d6155e3 100644 (file)
--- a/libsrc/runtime/toslong.s
+++ b/libsrc/runtime/toslong.s
@@ -4,59 +4,57 @@
 ; CC65 runtime: Convert tos from int to long
 ;
 
-               .export         tosulong, toslong
-       .import         decsp2
-       .importzp       sp
+        .export         tosulong, toslong
+        .import         decsp2
+        .importzp       sp
+
+        .macpack        cpu
 
 ; Convert TOS from int to long
 
 tosulong:
-               pha
-       jsr     decsp2          ; Make room
-       ldy     #2
-       lda     (sp),y
-.ifpc02
-       sta     (sp)            ; 65C02 version
-       iny                     ; Y = 3
+        pha
+        jsr     decsp2          ; Make room
+        ldy     #2
+        lda     (sp),y
+.if (.cpu .bitand CPU_ISET_65SC02)
+        sta     (sp)            ; 65C02 version
+        iny                     ; Y = 3
 .else
-       ldy     #0
-               sta     (sp),y
-       ldy     #3
+        ldy     #0
+        sta     (sp),y
+        ldy     #3
 .endif
-       lda     (sp),y
-       ldy     #1
-       sta     (sp),y
-       lda     #0              ; Zero extend
+        lda     (sp),y
+toslong1:
+        ldy     #1
+        sta     (sp),y
+        lda     #0              ; Zero extend
 toslong2:
-       iny
-       sta     (sp),y
-       iny
-       sta     (sp),y
-       pla
-       rts
+        iny
+        sta     (sp),y
+        iny
+        sta     (sp),y
+        pla
+        rts
 
 toslong:
-               pha
-       jsr     decsp2          ; Make room
-       ldy     #2
-       lda     (sp),y
-.ifpc02
-       sta     (sp)            ; 65C02 version
-       iny                     ; Y = 3
+        pha
+        jsr     decsp2          ; Make room
+        ldy     #2
+        lda     (sp),y
+.if (.cpu .bitand CPU_ISET_65SC02)
+        sta     (sp)            ; 65C02 version
+        iny                     ; Y = 3
 .else
-       ldy     #0
-               sta     (sp),y
-       ldy     #3
+        ldy     #0
+        sta     (sp),y
+        ldy     #3
 .endif
-       lda     (sp),y
-       bmi     toslong1
-       ldy     #1
-       sta     (sp),y
-       lda     #$00            ; Positive, high word is zero
-       bne     toslong2
-toslong1:
-       ldy     #1
-       sta     (sp),y
-       lda     #$FF
-       bne     toslong2
+        lda     (sp),y
+        bpl     toslong1        ; Jump if positive, high word is zero
+        ldy     #1
+        sta     (sp),y
+        lda     #$FF
+        bne     toslong2        ; Branch always