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,34 +6,34 @@
; unsigned char cgetc (void);
.export _cgetc
.import cursor, _PromptOff
.importzp cursor_x, cursor_y
.export _cgetc
.import cursor, _PromptOff
.importzp cursor_x, cursor_y
.include "jumptab.inc"
.include "geossym.inc"
.include "jumptab.inc"
.include "geossym.inc"
_cgetc:
; show cursor if needed
lda cursor
beq L0
lda cursor
beq L0
; prepare cursor
lda #7
jsr InitTextPrompt
lda cursor_x
ldx cursor_x+1
sta stringX
stx stringX+1
lda cursor_y
sta stringY
jsr PromptOn
lda #7
jsr InitTextPrompt
lda cursor_x
ldx cursor_x+1
sta stringX
stx stringX+1
lda cursor_y
sta stringY
jsr PromptOn
L0: jsr GetNextChar
tax
beq L0
pha
jsr _PromptOff
pla
ldx #0
rts
L0: jsr GetNextChar
tax
beq L0
pha
jsr _PromptOff
pla
ldx #0
rts