the10thwiz/cc65
1
0
Fork 0
Code Issues Pull Requests 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

52
libsrc/atmos/cputc.s
View File

@@ -5,34 +5,34 @@
; void cputc (char c);
;
.export _cputcxy, _cputc
.export setscrptr, putchar
.export _cputcxy, _cputc
.export setscrptr, putchar
.import rvs
.import popax
.import popax
.importzp ptr2
.include "atmos.inc"
.include "atmos.inc"
_cputcxy:
pha ; Save C
jsr popax ; Get X and Y
pha ; Save C
jsr popax ; Get X and Y
sta CURS_Y ; Store Y
stx CURS_X ; Store X
pla ; Restore C
pla ; Restore C
; Plot a character - also used as internal function
_cputc: cmp #$0D ; CR?
bne L1
lda #0
sta CURS_X ; Carriage return
_cputc: cmp #$0D ; CR?
bne L1
lda #0
sta CURS_X ; Carriage return
rts
L1: cmp #$0A ; LF?
bne output
inc CURS_Y ; Newline
rts
L1: cmp #$0A ; LF?
bne output
inc CURS_Y ; Newline
rts
; Output the character, then advance the cursor position
@@ -40,13 +40,13 @@ output:
jsr putchar
advance:
iny
cpy #40
bne L3
inc CURS_Y ; new line
ldy #0 ; + cr
L3: sty CURS_X
rts
iny
cpy #40
bne L3
inc CURS_Y ; new line
ldy #0 ; + cr
L3: sty CURS_X
rts
; ------------------------------------------------------------------------
; Set ptr2 to the screen, load the X offset into Y
@@ -59,7 +59,7 @@ L3: sty CURS_X
sta ptr2
lda ScrTabHi,y ; Get high byte of line address
sta ptr2+1
ldy CURS_X ; Get X offset
ldy CURS_X ; Get X offset
rts
.endproc
@@ -71,12 +71,12 @@ L3: sty CURS_X
.code
.proc putchar
ora rvs ; Set revers bit
ora rvs ; Set revers bit
pha ; And save
jsr setscrptr ; Set ptr2 to the screen
pla ; Restore the character
sta (ptr2),y ; Set char
rts
sta (ptr2),y ; Set char
rts
.endproc