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

Fix tabs

Browse Source
This commit is contained in:
Karri Kaksonen
2022-04-18 12:05:36 +03:00
parent 45c4f7d46f
commit dbd39c63a9
5 changed files with 2359 additions and 2359 deletions
Download Patch File Download Diff File Expand all files Collapse all files

92
libsrc/atari7800/mono_cputc.s
View File

@@ -7,20 +7,20 @@
.export _mono_cputc
.import _mono_gotoxy, _mono_gotox, _mono_gotoy, pusha0
.import pushax
.import _mono_screen
.import pushax
.import _mono_screen
.include "atari7800.inc"
.include "extzp.inc"
.code
.code
;---------------------------------------------------------------------------
; 8x16 routine
umula0:
ldy #8 ; Number of bits
lda #0
lda #0
lsr ptr7800 ; Get first bit into carry
@L0: bcc @L1
@@ -28,7 +28,7 @@ umula0:
adc ptrtmp
tax
lda ptrtmp+1 ; hi byte of left op
clc
clc
adc ptr7800+1
sta ptr7800+1
txa
@@ -49,54 +49,54 @@ umula0:
;
.proc _mono_cputc
cmp #$0A ; LF
cmp #$0A ; LF
bne @L4
@L1: lda #0 ; newline
jsr _mono_gotox
lda CURS_Y
cmp #(screenrows-1)
@L1: lda #0 ; newline
jsr _mono_gotox
lda CURS_Y
cmp #(screenrows-1)
bne @L2
lda #0
beq @L3
@L2: clc
adc #1
@L3: jmp _mono_gotoy
lda #0
beq @L3
@L2: clc
adc #1
@L3: jmp _mono_gotoy
@L4:
pha
pha
lda #0
sta ptr7800+1
sta ptrtmp+1
lda CURS_Y ; Find position on screen buffer
sta ptr7800
lda #mono_charsperline
sta ptrtmp
jsr umula0
clc
adc CURS_X
bcc @L11
inx
@L11: clc
adc #<(_mono_screen)
sta ptr7800
bcc @L12
inx
@L12: txa
clc
adc #>(_mono_screen)
sta ptr7800+1
lda #0
sta ptr7800+1
sta ptrtmp+1
lda CURS_Y ; Find position on screen buffer
sta ptr7800
lda #mono_charsperline
sta ptrtmp
jsr umula0
clc
adc CURS_X
bcc @L11
inx
@L11: clc
adc #<(_mono_screen)
sta ptr7800
bcc @L12
inx
@L12: txa
clc
adc #>(_mono_screen)
sta ptr7800+1
pla ; Print character on screen
ldy #0
sta (ptr7800),y
pla ; Print character on screen
ldy #0
sta (ptr7800),y
lda CURS_X ; Increment cursor
cmp #(mono_charsperline-1)
beq @L1
clc
adc #1
jmp _mono_gotox
lda CURS_X ; Increment cursor
cmp #(mono_charsperline-1)
beq @L1
clc
adc #1
jmp _mono_gotox
.endproc