Removed (pretty inconsistently used) tab chars from source code base.
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user