6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-06-26 05:29:30 +00:00
Code Issues Projects Releases Wiki Activity

Merge pull request #577 from polluks/master

Browse Source 
Moved initcgetc to initcputc
This commit is contained in:
Oliver Schmidt 2018-01-25 12:35:21 +00:00 committed by GitHub
commit 374c7e815c
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
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 .export _cgetc
.constructor initcgetc
.import cursor .import cursor
.forceimport disable_caps .forceimport disable_caps
@ -53,14 +52,3 @@
@L3: rts @L3: rts
.endproc .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 _cputcxy, _cputc
.export setscrptr, putchar .export setscrptr, putchar
.constructor initcputc
.import rvs .import rvs
.import popax .import popax
.importzp ptr2 .importzp ptr2
@ -95,3 +96,13 @@ ScrTabHi:
.byte >(SCREEN + Line * SCREEN_XSIZE) .byte >(SCREEN + Line * SCREEN_XSIZE)
.endrep .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