]> git.sur5r.net Git - cc65/blobdiff - libsrc/atari/getfd.s
Removed (pretty inconsistently used) tab chars from source code base.
[cc65] / libsrc / atari / getfd.s
index 8327e24ac137657b8822765e9c6326dd6d40a05a..a4e34833b4bd39b8f0d1a21d6c102e19cb081c79 100644 (file)
@@ -4,15 +4,15 @@
 ; allocates a new fd in the indirection table
 ;
 
-       .include "atari.inc"
-       .include "fd.inc"
-       .include "_file.inc"
-       .importzp tmp1
-       .import fd_table, fd_index
+        .include "atari.inc"
+        .include "fd.inc"
+        .include "_file.inc"
+        .importzp tmp1
+        .import fd_table, fd_index
 
-       .export fdt_to_fdi,getfd
+        .export fdt_to_fdi,getfd
 
-       .code
+        .code
 
 ; fdt_to_fdi
 ; returns a fd_index entry pointing to the given ft_table entry
 ; return C = 0/1 for OK/error
 ; return fd_index entry in A if OK
 ; registers destroyed
-.proc  fdt_to_fdi
+.proc   fdt_to_fdi
 
-       tay
-       lda     #$ff
-       tax
-       inx
-loop:  cmp     fd_index,x
-       beq     found
-       inx
-       cpx     #MAX_FD_INDEX
-       bcc     loop
-       rts
+        tay
+        lda     #$ff
+        tax
+        inx
+loop:   cmp     fd_index,x
+        beq     found
+        inx
+        cpx     #MAX_FD_INDEX
+        bcc     loop
+        rts
 
-found: tya
-       sta     fd_index,x
-       txa
-       clc
-       rts
+found:  tya
+        sta     fd_index,x
+        txa
+        clc
+        rts
 
 .endproc
 
@@ -48,19 +48,19 @@ found:      tya
 ; return C = 0/1 for OK/error
 ; returns fd in A if OK
 ; registers destroyed, tmp1 destroyed
-.proc  getfd
+.proc   getfd
 
-       sta     tmp1            ; save fd_table entry
-       jsr     fdt_to_fdi
-       bcs     error
+        sta     tmp1            ; save fd_table entry
+        jsr     fdt_to_fdi
+        bcs     error
 
-       pha
-       lda     tmp1
-       asl     a
-       asl     a                       ; also clears C
-       tax
-       inc     fd_table+ft_usa,x       ; increment usage counter
-       pla
-error: rts
+        pha
+        lda     tmp1
+        asl     a
+        asl     a                       ; also clears C
+        tax
+        inc     fd_table+ft_usa,x       ; increment usage counter
+        pla
+error:  rts
 
 .endproc