6502
/
cc65
mirror of https://github.com/cc65/cc65.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Moved initcgetc to initcputc

This commit is contained in:
Stefan 2018-01-23 13:02:47 +01:00
parent 98e2b79ef4
commit caa40866c3
2 changed files with 11 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
libsrc/atmos/cgetc.s
View File

@ -6,7 +6,6 @@
;
.export _cgetc
.constructor initcgetc
.import cursor
.forceimport disable_caps
@ -53,14 +52,3 @@
@L3: rts
.endproc
; ------------------------------------------------------------------------
; Switch the cursor off. Code goes into the ONCE segment,
; which will be reused after it is run.
.segment "ONCE"
initcgetc:
lsr STATUS
asl STATUS ; Clear bit zero
rts

11
libsrc/atmos/cputc.s
View File

@ -8,6 +8,7 @@
.export _cputcxy, _cputc
.export setscrptr, putchar
.constructor initcputc
.import rvs
.import popax
.importzp ptr2
@ -95,3 +96,13 @@ ScrTabHi:
.byte >(SCREEN + Line * SCREEN_XSIZE)
.endrep
; ------------------------------------------------------------------------
; Switch the cursor off. Code goes into the ONCE segment,
; which will be reused after it is run.
.segment "ONCE"
initcputc:
lsr STATUS
asl STATUS ; Clear bit zero
rts