bslathi19/cc65
1
0
Fork 0
Code Issues Pull Requests Actions 1 Packages Projects Releases Wiki Activity

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

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

72
libsrc/c128/cputc.s
View File

@@ -6,12 +6,12 @@
; void cputc (char c);
;
.export _cputcxy, _cputc, cputdirect, putchar
.export newline, plot
.import popa, _gotoxy
.export _cputcxy, _cputc, cputdirect, putchar
.export newline, plot
.import popa, _gotoxy
.import PLOT
.include "c128.inc"
.include "c128.inc"
newline = NEWLINE
@@ -20,31 +20,31 @@ newline = NEWLINE
.code
_cputcxy:
pha ; Save C
jsr popa ; Get Y
jsr _gotoxy ; Set cursor, drop x
pla ; Restore C
pha ; Save C
jsr popa ; Get Y
jsr _gotoxy ; Set cursor, drop x
pla ; Restore C
; Plot a character - also used as internal function
_cputc: cmp #$0A ; CR?
beq cr ; Output a cr
_cputc: cmp #$0A ; CR?
beq cr ; Output a cr
cmp #$0D ; LF?
bne L2
jmp NEWLINE ; Update cursor position
cmp #$0D ; LF?
bne L2
jmp NEWLINE ; Update cursor position
; Printable char of some sort
L2: cmp #' '
bcc cputdirect ; Other control char
tay
bmi L5
cmp #$60
bcc L3
and #$DF
bne cputdirect ; Branch always
L3: and #$3F
L2: cmp #' '
bcc cputdirect ; Other control char
tay
bmi L5
cmp #$60
bcc L3
and #$DF
bne cputdirect ; Branch always
L3: and #$3F
; Output one character to the screen. We will disable scrolling while doing so
@@ -62,28 +62,28 @@ cputdirect:
; Handle character if high bit set
L5: and #$7F
cmp #$7E ; PI?
bne L6
lda #$5E ; Load screen code for PI
bne cputdirect
L6: ora #$40
bne cputdirect ; Branch always
L5: and #$7F
cmp #$7E ; PI?
bne L6
lda #$5E ; Load screen code for PI
bne cputdirect
L6: ora #$40
bne cputdirect ; Branch always
; Carriage return
cr: lda #0
sta CURS_X
cr: lda #0
sta CURS_X
; Set cursor position, calculate RAM pointers
plot: ldy CURS_X
ldx CURS_Y
clc
jmp PLOT ; Set the new cursor
plot: ldy CURS_X
ldx CURS_Y
clc
jmp PLOT ; Set the new cursor
; Write one character to the screen without doing anything else, return X
; position in Y
putchar = $CC2F
putchar = $CC2F