]> git.sur5r.net Git - cc65/blobdiff - libsrc/geos-common/disk/getptrcurdknm.s
Removed (pretty inconsistently used) tab chars from source code base.
[cc65] / libsrc / geos-common / disk / getptrcurdknm.s
index d81490e215c56593ac0c1e5d2b94292cb0dcd52a..7a99225efae65d09b1635dfa55f6954096ee318e 100644 (file)
@@ -6,33 +6,33 @@
 ; void GetPtrCurDkNm (char *curName);
 ;  (fills curName[17] with current disk's name)
 
-           .importzp ptr4, ptr3
-           .import __oserror
-           .export _GetPtrCurDkNm
+            .importzp ptr4, ptr3
+            .import __oserror
+            .export _GetPtrCurDkNm
 
-           .include "jumptab.inc"
-           .include "geossym.inc"
-       
+            .include "jumptab.inc"
+            .include "geossym.inc"
+        
 _GetPtrCurDkNm: 
-       sta ptr3
-       stx ptr3+1
-       ldx #ptr4
-       jsr GetPtrCurDkNm
-       ldy #0
-       txa
-       bne fin
-namelp:        lda (ptr4),y
+        sta ptr3
+        stx ptr3+1
+        ldx #ptr4
+        jsr GetPtrCurDkNm
+        ldy #0
+        txa
+        bne fin
+namelp: lda (ptr4),y
 .ifdef __GEOS_CBM__
-       cmp #$a0
+        cmp #$a0
 .else
-       cmp #0
+        cmp #0
 .endif
-       beq fin
-       sta (ptr3),y
-       iny
-       cpy #16
-       bne namelp
-fin:   lda #0
-       sta (ptr3),y
-       stx __oserror
-       rts
+        beq fin
+        sta (ptr3),y
+        iny
+        cpy #16
+        bne namelp
+fin:    lda #0
+        sta (ptr3),y
+        stx __oserror
+        rts