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

This commit is contained in:
Oliver Schmidt
2013-05-09 13:56:54 +02:00
parent 44fd1082ae
commit 85885001b1
1773 changed files with 62864 additions and 62868 deletions

View File

@@ -6,16 +6,16 @@
; This function is a hack!
;
.export _write
.import popax
.importzp ptr1, ptr2, ptr3, tmp1
.export _write
.import popax
.importzp ptr1, ptr2, ptr3, tmp1
.include "atmos.inc"
.include "atmos.inc"
.proc _write
sta ptr3
stx ptr3+1 ; save count as result
sta ptr3
stx ptr3+1 ; save count as result
eor #$FF
sta ptr2
@@ -23,32 +23,32 @@
eor #$FF
sta ptr2+1 ; Remember -count-1
jsr popax ; get buf
sta ptr1
stx ptr1+1
jsr popax ; get fd and discard
L1: inc ptr2
jsr popax ; get buf
sta ptr1
stx ptr1+1
jsr popax ; get fd and discard
L1: inc ptr2
bne L2
inc ptr2+1
beq L9
L2: ldy #0
lda (ptr1),y
lda (ptr1),y
tax
cpx #$0A ; Check for \n
bne L3
jsr PRINT
ldx #$0D
L3: jsr PRINT
inc ptr1
bne L1
inc ptr1+1
inc ptr1
bne L1
inc ptr1+1
jmp L1
; No error, return count
L9: lda ptr3
ldx ptr3+1
rts
L9: lda ptr3
ldx ptr3+1
rts
.endproc