6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2025-08-08 06:25:17 +00:00
Code Issues Projects Releases Wiki Activity

adapt to atarixl target

Browse Source
This commit is contained in:
Christian Groessler
2013-05-31 01:38:16 +02:00
parent c1468f11b2
commit 7aa2231702
1 changed files with 11 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
libsrc/atari/cgetc.s
View File

@@ -7,22 +7,28 @@
.include "atari.inc" .include "atari.inc"
.export _cgetc,setcursor .export _cgetc,setcursor
.import KEYBDV_wrapper
.import cursor,mul40 .import cursor,mul40
_cgetc: _cgetc:
jsr setcursor jsr setcursor
lda #12
sta ICAX1Z ; fix problems with direct call to KEYBDV
.if .not .defined(__ATARIXL__)
jsr @1 jsr @1
.else
jsr KEYBDV_wrapper
.endif
ldx #0 ldx #0
rts rts
@1: lda KEYBDV+5 .if .not .defined(__ATARIXL__)
@1: lda KEYBDV+5
pha pha
lda KEYBDV+4 lda KEYBDV+4
pha pha
lda #12 rts
sta ICAX1Z ; fix problems with direct call to KEYBDV .endif
rts
.proc setcursor .proc setcursor